Snasui Excel Forum

theerasak.cc wrote: Sun Jun 24, 2018 12:43 am ผมพึ่งเรียนรู้การเขียน Macro แต่พอเขียนไปแล้ว ข้อมูลไม่ขึ้นในแบบฟอร์ม ไม่แน่ใจว่าผมเขียนผิดตรงไหนบ้างครับ รบกวนผู้มีความรู้ช่วยชี้แนะผมหน่อยครับ เขียนมาหลายรอบแล้วก็ไม่สำเร็จครับ (ไฟล๋อยู่ในเอกสารแนบครับผม)
นี่เป็น Code ที่ใช้เขียนครับ

Code: Select all

Dim totalcd, totalbook
Dim mcdCode(), mcdName(), mdcDetail(), mcdPrice(), mcdPromotion()
Dim mbookCode(), mbookName(), mbookDetail(), mbookPrice(), mbookPromotion()
Private Sub bookCode_Change()
For i = 1 To totalbook
If bookCode = mbookCode(i) Then Exit For
Next i
bookName.Text = mbookName(i)
bookDetail.Text = mbookDetail(i)
bookPrice.Text = mbookPrice(i)
bookPromotion.Text = mbookPromotion(i)
End Sub

Private Sub bookDetail_Change()
Sheets("Book").Select
Range("B3").Select
For i = 1 To totalbook
mbookCode(i) = ActiveCell.Value
mbookName(i) = ActiveCell.Offset(0, 1).Value
mbookDetail(i) = ActiveCell.Offset(0, 2).Value
mbookPrice(i) = ActiveCell.Offset(0, 3).Value
mbookPromotion(i) = ActiveCell.Offset(0, 4).Value
bookCode.AddItem mbookCode(i)
ActiveCell.Offset(1, 0).Select
Next i
bookCode.Text = bookCode.List(0)
End Sub

Private Sub bookName_Change()
Sheets("Book").Select
Range("B3").Select
For i = 1 To totalbook
mbookCode(i) = ActiveCell.Value
mbookName(i) = ActiveCell.Offset(0, 1).Value
mbookDetail(i) = ActiveCell.Offset(0, 2).Value
mbookPrice(i) = ActiveCell.Offset(0, 3).Value
mbookPromotion(i) = ActiveCell.Offset(0, 4).Value
bookCode.AddItem mbookCode(i)
ActiveCell.Offset(1, 0).Select
Next i
bookCode.Text = bookCode.List(0)
End Sub

Private Sub cdCode_Change()
For i = 1 To totalcd
If cdCode = mcdCode(i) Then Exit For
Next i
cdName.Text = mcdName(i)
cdDetail.Text = mcdDetail(i)
cdPrice.Text = mcdPrice(i)
cdPromotion.Text = mcdPromotion(i)
End Sub

Private Sub cdDetail_Change()
Sheets("CD").Select
Range("B3").Select
For i = 1 To totalcd
mcdCode(i) = ActiveCell.Value
mcdName(i) = ActiveCell.Offset(0, 1).Value
mcdDetail(i) = ActiveCell.Offset(0, 2).Value
mcdPrice(i) = ActiveCell.Offset(0, 3).Value
mcdPromotion(i) = ActiveCell.Offset(0, 4).Value
cdCode.AddItem mcdCode(i)
ActiveCell.Offset(1, 0).Select
Next i
cdCode.Text = cdCode.List(0)
End Sub

Private Sub cdName_Change()
Sheets("CD").Select
Range("B3").Select
For i = 1 To totalcd
mcdCode(i) = ActiveCell.Value
mcdName(i) = ActiveCell.Offset(0, 1).Value
mcdDetail(i) = ActiveCell.Offset(0, 2).Value
mcdPrice(i) = ActiveCell.Offset(0, 3).Value
mcdPromotion(i) = ActiveCell.Offset(0, 4).Value
cdCode.AddItem mcdCode(i)
ActiveCell.Offset(1, 0).Select
Next i
cdCode.Text = cdCode.List(0)
End Sub

Private Sub Label10_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub MultiPage1_Change()

End Sub

Private Sub MyClose_Click()
Unload Me
End Sub

Private Sub UserForm_Click()
Dim totalcd, totalbook
Dim mcdCode(), mcdName(), mdcDetail(), mcdPrice(), mcdPromotion()
Dim mbookCode(), mbookName(), mbookDetail(), mbookPrice(), mbookPromotion()
End Sub

Private Sub UserForm_Initialize()
End Sub