Page 1 of 1
code Vba Save edit
Posted: Fri Oct 02, 2015 3:52 pm
by kitnad
มีท่านใด มี Code Vba สำหรับการ Edit ไหมครับ
คือ ต้องการจะใช้คำสั่ง command สำหรับ edit นะครับ
ใครพอจะมีคำสั้่งแบ่งปันไหมครับ
ขอบคุณครับ
Re: code Vba Save edit
Posted: Fri Oct 02, 2015 7:16 pm
by snasui
การแป่งปันคำสั่งในหมวดนี้โดยหลักแล้วจะต้องเขียนมาเองก่อน ติดแล้วค่อยถามกันครับ
Re: code Vba Save edit
Posted: Sat Oct 03, 2015 11:56 am
by kitnad
Dear อาจารย์
ต้องขอโทษทีครับ ไม่ได้แนบไฟล์มา
ตอนนี้ผมได้แนบไฟล์มาแล้วครับ
Re: code Vba Save edit
Posted: Sat Oct 03, 2015 12:12 pm
by snasui
ช่วยอธิบายเพิ่มมาด้วยว่าต้องการจะทำอะไร ปัญหาคืออะไร ตัวอย่างคำตอบที่ถูกต้องคืออะไร จะได้เข้าใจตรงกันครับ
Re: code Vba Save edit
Posted: Sat Oct 03, 2015 1:52 pm
by kitnad
อ้อ....สิ่งที่ต้องการคือ ต้องการแก้ไขข้อมูลด้วยการใช้คำสั่ง UPDATE เมื่อมีการแก้ไขข้อมูลใน Sheet"HOME"
และ UPDATE ลง Sheet "Database" ครับ
ผมติดปัญหาตรง Code ที่ใช้ Run ครับ ยังมี Error อยู่
Re: code Vba Save edit
Posted: Sat Oct 03, 2015 2:11 pm
by snasui
ตัวอย่าง Code ครับ
Code: Select all
Dim matNum As Long, foundItem As Long
Dim rngId As Range
Set rngId = Sheets("HOME").Range("f3")
foundItem = Application.CountIf(Sheets("Database").Range("a:a"), rngId)
If foundItem > 0 Then
matNum = Application.Match(rngId, Sheets("Database").Range("a:a"), 0)
Sheets("Database").Range("a" & matchnum).Resize(1, 6).Value = _
Sheets("TempEdit").Range("a2").Resize(1, 6).Value
Else
MsgBox "Can't edit data. Please check your data again."
End If
Re: code Vba Save edit
Posted: Sat Oct 03, 2015 4:26 pm
by kitnad
ต้องขอขอบคุณอาจารย์ snasui นะครับ
แต่ต้องปรับสูตรนิดหนึ่งครับ ในบรรทัดที่ถูกจะเป็นแบบนี้ครับ
Sheets("Database").Range("a" &
matchnum).Resize(1, 6).Value = _
เป็น
Sheets("Database").Range("a" &
matNum).Resize(1, 6).Value = _
ขอบคุณอีกครั้งนะครับ
ได้แล้วครับ
