Page 1 of 1
รบกวนถาม จะ update ข้อมูลอ่ะค่ะ
Posted: Mon May 30, 2011 9:56 pm
by panida
รบกวนถาม จะ update ข้อมูลอ่ะค่ะมีรายการสินค้าใน cell A2 ถึง A11 ค่ะ
แล้วดิฉันสร้าง USER FORM ขึ้นมาแล้ว additem แล้วใน combobox
แต่ต่อจากนั้นตันค่ะ
คือว่าเวลาเลือกสินค้า 1 2 3 ... แล้ว เช่น สินค้า1
ที่ต้องการคือ ต้องการคีย์ จำนวนเงินในช่อง จ่ายเงินแล้วและเลขที่บิล ลงไป
แล้วก็พอกดปุ่ม commandbox Record ก็เอาข้อมูลไปใส่ให้ตรงกับ cell สินค้า1 ในไฟล์ excel อ่ะค่ะ
ไม่รู้จะเริ่มยังดี รบกวรขอคำชี้แนะอาจารย์หรือผู้รู้ทีค่ะ
ขอบคุณมากๆค่ะ แนบไฟล์ค่ะ
Re: รบกวนถาม จะ update ข้อมูลอ่ะค่ะ
Posted: Mon May 30, 2011 11:15 pm
by 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
Re: รบกวนถาม จะ update ข้อมูลอ่ะค่ะ
Posted: Mon May 30, 2011 11:42 pm
by panida
ขอบพระคุณอาจารย์มากๆค่ะ
ขอให้อาจารย์สุขภาพแข็งแรงนะคะ
พนิดาค่ะ
Re: รบกวนถาม จะ update ข้อมูลอ่ะค่ะ
Posted: Thu Jun 02, 2011 7:52 pm
by 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
ขอบคุณค่ะ
พนิดา
Re: รบกวนถาม จะ update ข้อมูลอ่ะค่ะ
Posted: Thu Jun 02, 2011 9:04 pm
by snasui
ผมลบ Code เดิมออกไปก่อนแล้ว Copy Code ที่ผมเขียนให้ไว้ตามความเห็นด้านบนไปวางแทน สามารถ Run ได้ ดูไฟล์แนบประกอบครับ
Re: รบกวนถาม จะ update ข้อมูลอ่ะค่ะ
Posted: Fri Jun 03, 2011 12:28 pm
by panida
ขอบพระคุณอาจารย์มากๆค่ะ
ทำได้แล้วค่ะ
ขอบคุณอีกทีค่ะ
พนิดา