รบกวนถาม จะ update ข้อมูลอ่ะค่ะ

[panida]

รบกวนถาม จะ update ข้อมูลอ่ะค่ะมีรายการสินค้าใน cell A2 ถึง A11 ค่ะ
แล้วดิฉันสร้าง USER FORM ขึ้นมาแล้ว additem แล้วใน combobox

แต่ต่อจากนั้นตันค่ะ
คือว่าเวลาเลือกสินค้า 1 2 3 ... แล้ว เช่น สินค้า1
ที่ต้องการคือ ต้องการคีย์ จำนวนเงินในช่อง จ่ายเงินแล้วและเลขที่บิล ลงไป

แล้วก็พอกดปุ่ม commandbox Record ก็เอาข้อมูลไปใส่ให้ตรงกับ cell สินค้า1 ในไฟล์ excel อ่ะค่ะ

ไม่รู้จะเริ่มยังดี รบกวรขอคำชี้แนะอาจารย์หรือผู้รู้ทีค่ะ
ขอบคุณมากๆค่ะ แนบไฟล์ค่ะ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub cmdRecord_Click()
Dim i As Integer
    i = Application.WorksheetFunction.Match( _
        frmsale.cmbList, Range("A:A"), 0)
    Cells(i, 2) = frmsale.txtpayment
    Cells(i, 3) = frmsale.txtbilling
End Sub

Private Sub UserForm_Initialize()
   Sheets("List").Select
    Range("A2").Select
    Do While Not IsEmpty(ActiveCell.Value)
        cmbList.AddItem ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Loop
    Sheets("List").Select
    cmbList.ListIndex = 0
End Sub

[panida]

ขอบพระคุณอาจารย์มากๆค่ะ
ขอให้อาจารย์สุขภาพแข็งแรงนะคะ
พนิดาค่ะ

[panida]

สวัสดีค่ะอาจารย์

ดิฉันพยายามลองเขียน VBA แล้วแต่ก็ยังรันไม่ได้ค่ะ
ไม่รู้จริงๆว่าเป็นเพราะอะไร
รบกวนอาจารย์ดูอีกทีค่ะ

Private Sub cmdRecord_Click()
Dim i As Integer
    i = Application.WorksheetFunction.Match( _
        frmsale.cmbList, Range("A:A"), 0)
    Cells(i, 2) = frmsale.txtpayment
    Cells(i, 3) = frmsale.txtbilling
End Sub
ขอบคุณค่ะ
พนิดา

[snasui]

ผมลบ Code เดิมออกไปก่อนแล้ว Copy Code ที่ผมเขียนให้ไว้ตามความเห็นด้านบนไปวางแทน สามารถ Run ได้ ดูไฟล์แนบประกอบครับ

[panida]

ขอบพระคุณอาจารย์มากๆค่ะ
ทำได้แล้วค่ะ
ขอบคุณอีกทีค่ะ
พนิดา