Snasui Excel Forum

Re: code Vba Save edit

• Quote kitnad

#7

by kitnad » Sat Oct 03, 2015 4:26 pm

ต้องขอขอบคุณอาจารย์ snasui นะครับ
แต่ต้องปรับสูตรนิดหนึ่งครับ ในบรรทัดที่ถูกจะเป็นแบบนี้ครับ
Sheets("Database").Range("a" & matchnum).Resize(1, 6).Value = _
เป็น
Sheets("Database").Range("a" & matNum).Resize(1, 6).Value = _

ขอบคุณอีกครั้งนะครับ
ได้แล้วครับ

Re: code Vba Save edit

• Quote snasui

#6

by snasui » Sat Oct 03, 2015 2:11 pm

ตัวอย่าง 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

• Quote kitnad

#5

by kitnad » Sat Oct 03, 2015 1:52 pm

Re: code Vba Save edit

• Quote snasui

#4

by snasui » Sat Oct 03, 2015 12:12 pm

ช่วยอธิบายเพิ่มมาด้วยว่าต้องการจะทำอะไร ปัญหาคืออะไร ตัวอย่างคำตอบที่ถูกต้องคืออะไร จะได้เข้าใจตรงกันครับ

Re: code Vba Save edit

• Quote kitnad

#3

by kitnad » Sat Oct 03, 2015 11:56 am

Attachments

re_pair.xlsm

(34.2 KiB) Downloaded 29 times

Re: code Vba Save edit

• Quote snasui

#2

by snasui » Fri Oct 02, 2015 7:16 pm

การแป่งปันคำสั่งในหมวดนี้โดยหลักแล้วจะต้องเขียนมาเองก่อน ติดแล้วค่อยถามกันครับ

code Vba Save edit

• Quote kitnad

#1

by kitnad » Fri Oct 02, 2015 3:52 pm