Page 1 of 1
รับค่าจาก CELL โดยให้ค่าแสดงผลทาง Textbox Userform
Posted: Sat Feb 16, 2013 10:19 am
by godman
สวัสดีครับ
พอดีผมพยายามมาหลายวันแล้วหาข้อมูลเต็มที่แล้ว แต่ยังไม่ได้ตามต้องการคือว่า ผมอยากให้ USERFORM ที่มี TEXTBOX อยู่ด้วยแสดงค่าจากการคำนวณจริงๆแล้วก็คือจากสูตร index มาครับ ผมใช้ Code นี้แต่มันไม่ขึ้น ผมอยากให้มันดูได้อย่างเดียวไม่สามารถแก้ไขได้ ครับ
Code: Select all
Private Sub TextBox1_Change()
Me.TextBox11.Value = Sheets("TempCourseNo").Range("J2").Value
End Sub
ขอคำแนะนำด้วยครับ ว่าต้องเพิ่มหรือปรับเปลี่ยนโค้ดว่าอะไร
ข้อมูลอยู่ในไฟล์แนบ มีชี้ต USEFORM มีชี้ต TempCourseNo ครับ
Re: รับค่าจาก CELL โดยให้ค่าแสดงผลทาง Textbox Userform
Posted: Sat Feb 16, 2013 10:32 am
by snasui
ลองปรับ Code ที่
ShowDialog1 เป็นด้านล่างครับ
Code: Select all
Sub ShowDialog1()
UserForm1.TextBox1 = Sheets("TempCourseNo").Range("J2")
UserForm1.Show
End Sub
Re: รับค่าจาก CELL โดยให้ค่าแสดงผลทาง Textbox Userform
Posted: Sat Feb 16, 2013 1:33 pm
by godman
เจ๋ง ครับ ทำได้เลย หลังจากหาคำตอบมา 2 วันดูในหนังสือต่างๆ ก็แล้ว พบคำตอบแล้ว ดีใจมากครับ ขอบพระคุณมากครับ
Re: รับค่าจาก CELL โดยให้ค่าแสดงผลทาง Textbox Userform
Posted: Sat Feb 16, 2013 1:59 pm
by 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
Re: รับค่าจาก CELL โดยให้ค่าแสดงผลทาง Textbox Userform
Posted: Sat Feb 16, 2013 2:39 pm
by 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
Re: รับค่าจาก CELL โดยให้ค่าแสดงผลทาง Textbox Userform
Posted: Sat Feb 16, 2013 2:50 pm
by godman
ขอบคุณมากครับ ผมทำได้แล้วครับ จากการนำคำแนะนำไปประยุกต์ใช้