สอบถามเรื่อง VBA ค่ะ

[ssnumfah]

เนื่องจากว่าต้องการให้เมื่อเลือกรหัสข้อมูลแล้วทำการแสดงรายละเอียดของข้อมูลออกมาด้วย แต่ติดตรงที่มันไม่ไปเรียกค่าที่กำหนดไว้ค่ะ จากโคดตรง
If amCode = mamCode(i) ค่า mamCodeไม่ไปเรียกจาก Private Sub UserForm_Initialize() ที่กำหนดไว้ พอดีทำขั้นตอนตามหนังสือทุกอย่างเลยแต่ก็ไม่ได้ ยังไงช่วยดูให้หน่อยได้มั้ยค่ะว่าผิดพลาดตรงไหน


Private Sub amCode_Change()
For i = 1 To AM
If amCode = mamCode(i) Then Exit For
Next i
amName.Text = mamName(i)
amTech.Text = mamTech(i)
amAnalysis.Text = mamAnalysis(i)
amCube.Text = mamCube(i)
End Sub

Private Sub UserForm_Initialize()
Dim AM
Dim mamCode(), mamName(), mamTech(), mamAnalysis(), mamCube()

Set myRangeAM = Worksheets("RC_AM").Range("A:A")
AM = Application.WorksheetFunction.CountA(myRangeAM) - 1
ReDim mamCode(AM), mamName(AM), mamTech(AM), mamAnalysis(AM), mamCube(AM)

Sheets("RC_AM").Select
Range("A2").Select

For i = 1 To AM
mamCode(i) = ActiveCell.Value
mamName(i) = ActiveCell.Offset(0, 1).Value
mamTech(i) = ActiveCell.Offset(0, 2).Value
mamAnalysis(i) = ActiveCell.Offset(0, 3).Value
mamCube(i) = ActiveCell.Offset(0, 4).Value
amCode.AddItem mamCode(i)
ActiveCell.Offset(1, 0).Select
Next i
amCode.Text = amCode.List(0)

End Sub

Private Sub myClose_Click()
Unload Me
End Sub



ขอบคุณมากค่ะ

[snasui]

ช่วยส่งไฟล์ตัวอย่างมาด้วยครับ จะได้สะดวกในการทดสอบครับ

[ssnumfah]

ช่วยหน่อยนะค่ะ รบกวนด้วยค่ะ ขอบคุณมากค่ะ

[snasui]

การประกาศตัวแปรเพื่อให้ Procedure อื่นสามารถเรียกใช้ตัวแปรนั้นได้ต้องประกาศไว้ระดับ Module ครับ ไม่เช่นนั้นจะเกิด Error ตัวอย่างการประกาศตัวแปรระดับ Module ตามด้านล่างครับ

Code: Select all

Dim mamCode(), mamName(), mamTech(), mamAnalysis(), mamCube()
Private Sub amCode_Change()
For i = 1 To AM
If amCode = mamCode(i) Then Exit For
Next i
amName.Text = mamName(i)
amTech.Text = mamTech(i)
amAnalysis.Text = mamAnalysis(i)
amCube.Text = mamCube(i)
End Sub
Private Sub UserForm_Initialize()
Dim AM
'Dim mamCode(), mamName(), mamTech(), mamAnalysis(), mamCube()

Set myRangeAM = Worksheets("RC_AM").Range("A:A")
AM = Application.WorksheetFunction.CountA(myRangeAM) - 1
ReDim mamCode(AM), mamName(AM), mamTech(AM), mamAnalysis(AM), mamCube(AM)

Sheets("RC_AM").Select
Range("A2").Select

For i = 1 To AM
mamCode(i) = ActiveCell.Value
mamName(i) = ActiveCell.Offset(0, 1).Value
mamTech(i) = ActiveCell.Offset(0, 2).Value
mamAnalysis(i) = ActiveCell.Offset(0, 3).Value
mamCube(i) = ActiveCell.Offset(0, 4).Value
amCode.AddItem mamCode(i)
ActiveCell.Offset(1, 0).Select
Next i
amCode.Text = amCode.List(0)

End Sub

Private Sub myClose_Click()
Unload Me
End Sub

[ssnumfah]

ขอบคุณมากค่ะ ตอนนี้หาย error แล้ว แต่เกิดปัญหาใหม่คือว่าเมื่อเลือกรหัสข้อมูลไปแล้วข้อมูลที่ต้องการให้แสดงไม่เปลี่ยนไปด้วยค่ะ ยังคงเป็นข้อมูลเดิมของรหัสตัวแรกอยู่ ไม่ทราบว่าจะต้องแก้ไขตรงไหนบ้างค่ะ รบกวนอีกครั้งนะค่ะ

ขอบคุณมากจริงๆค่ะ

[snasui]

มี Code ที่แสดงถูกต้องอยู่ไหมครับ หากมีก็ให้ลองแกะจาก Code นั้นว่าทำงานอย่างไร กรณีที่เขียนจากหนังสือแล้ว Code ไม่ทำงาน ถ้าเป็นไปได้ควรถามจากผู้เขียน เพื่อว่าจะได้ไม่จำหน่ายหนังสือที่มี Code ใช้งานไม่ได้อยู่ด้วย เพราะจะเป็นปัญหากับการออกผลงานในครั้งต่อ ๆ ไป และกรณีที่เรามีปัญหาจาก Code ที่เขาเขียนเขาย่อมต้องหาทางออกให้เราครับ

สำหรับการถามปัญหาควรระบุให้ชัดครับ Form ไหน Control อันไหน ทำงานแล้วมีปัญหา ปัญหาคืออะไร สิ่งที่ต้องการคืออะไร เพื่อผู้ตอบจะได้เข้าถึงปัญหาโดยไวครับ

[widtara]

เรื่องราวน่าสนใจมากค่ะ ตอนนี้กำลังศึกษาเกี่ยวกับ VBA อยู่ สมมุติว่า อยากโหลดไฟล์มาเปิดดู แล้ว เมื่อคลิกปุ่ม ต่างๆ ทำไมมันไม่แสดงให้เห็นค่ะ มีวิธีการดูยังงัยค่ะ

[snasui]

ต้องตรวจสอบการตั้งค่าให้ยอมรับ Macro ก่อนครับ

2007 ดูที่นี่ครับ viewtopic.php?p=2001#p2001

2003 เข้าเมนู Tools > Macro > Security > กำหนดให้เป็น Medium หรือ Low กรณีกำหนดเป็น Medium จะต้องคลิกให้ยอมรับ Macro ทุกครั้งที่เปิดไฟล์ที่มี Macro