รับค่าจาก CELL โดยให้ค่าแสดงผลทาง Textbox Userform

[godman]

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

Code: Select all

Private Sub TextBox1_Change()
Me.TextBox11.Value = Sheets("TempCourseNo").Range("J2").Value
End Sub

ขอคำแนะนำด้วยครับ ว่าต้องเพิ่มหรือปรับเปลี่ยนโค้ดว่าอะไร
ข้อมูลอยู่ในไฟล์แนบ มีชี้ต USEFORM มีชี้ต TempCourseNo ครับ

[snasui]

ลองปรับ Code ที่ ShowDialog1 เป็นด้านล่างครับ

Code: Select all

Sub ShowDialog1()
    UserForm1.TextBox1 = Sheets("TempCourseNo").Range("J2")
    UserForm1.Show
End Sub

[godman]

เจ๋ง ครับ ทำได้เลย หลังจากหาคำตอบมา 2 วันดูในหนังสือต่างๆ ก็แล้ว พบคำตอบแล้ว ดีใจมากครับ ขอบพระคุณมากครับ

[godman]

สวัสดีครับ
ผมมีปัญหาเพิ่มเติม ครานี้ผมได้ใส่ COMBO BOX เพื่อให้ผู้ใช้ได้เลือกรหัสวิชา โดยรหัสวิชาก็จะถูกผูกสูตร Index match ใน Sheet แต่ว่าเมื่อเปลี่ยนค่าตาม Combo Box ในขณะที่เปิด USERFORM อยู่ ค่าในนี้ไม่เปลี่ยนตาม Sheet EXCEL ครับ ทำอย่างไรให้ค่ามันแสดงได้ตามที่สูตร Index match รับค่าจากชี้ต

Code: Select all

Private Sub ComboBox1_Change()
Range("TempCourseNo!I2").Value = ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
 Dim cLoc As Range
Dim ws As Worksheet
Set ws = Worksheets("CourseNameData")
For Each cLoc In ws.Range("Course")
With Me.ComboBox1
 .AddItem cLoc.Value
End With
Next cLoc
End Sub

[snasui]

การจะให้เปลียนค่าตามในเซลล์ก็ต้องไปเขียน Code บอกโปรแกรมครับ เหมือนการเขียนสูตร หากต้องการใหเซลล์ปลายทางเปลี่ยนค่าก็ต้องไปบอกว่าให้เปลี่ยนตามค่าในเซลล์ต้นทางเซลล์ไหน

ตัวอย่างเมื่อเลือกค่าใน ComboBox1 ก็ให้ TextBox1 รับค่ามาจาก J2 สามารถเขียน Code ตามด้านล่างครับ

Code: Select all

Private Sub ComboBox1_Change()
    Sheets("TempCourseNo").Range("I2").Value = ComboBox1.Value
    UserForm1.TextBox1 = Sheets("TempCourseNo").Range("J2")
End Sub

[godman]

ขอบคุณมากครับ ผมทำได้แล้วครับ จากการนำคำแนะนำไปประยุกต์ใช้