Snasui Excel Forum

Posted: **Sat Jan 19, 2013 4:58 pm**

สอบถามเรื่อง userform(textbox) ค่ะ
คือต้องการให้ TextBox1_Change แสดงค่า Cal_distance ที่ได้จากการคำนวณมาค่ะ
จากไฟล์ที่แนบมา อยู่ใน userform นะคะชื่อ window_1 ค่ะ

Code: Select all

Private Sub TextBox1_Change()
TextBox1_Change = Cal_distance
End Sub

Posted: **Sat Jan 19, 2013 7:02 pm**

Cal_dstance จะต้องมี Patameter ให้มันด้วยครับ เนื่องจากที่เขียนไว้นั้นต้องใส่ Parameter ด้วย จะเรียกโดยเขียนแค่เพียง Cal_distance อย่างเดียวไม่ได้ครับ

Code ควรเป็น

Code: Select all

Private Sub TextBox1_Change()
TextBox1.Text = Cal_distance(x,y) ' x and y are parameter
End Sub

ซึ่งหมายความว่าหาก TextBox1 เกิดการเปลี่ยนแปลงเมื่อใดก็ให้แสดงผลลัพธ์จากฟังก์ชั่น Cal_distance ซึ่งโดยปกติแล้ว เราจะไม่ดักจับ Event ที่ TextBox1 แล้วให้ตัวมันเองแสดงค่าใด ๆ แต่ไปดักจับ Event จาก Object อื่น ๆ เพื่อจะนำค่ามาใส่ใน TextBox1

Posted: **Sat Jan 19, 2013 9:14 pm**

เอา code ไปใส่แล้วค่ะ มันไม่แสดงค่าให้ใน TextBox1 ค่ะ

Posted: **Sat Jan 19, 2013 9:17 pm**

เอาไปใส่ตรง ๆ ไม่ได้ครับ จะต้องทราบเองว่า Parameter คืออะไร ผมเขียนเป็นตัวอย่างไปเท่านั้นครับ

Posted: **Sat Jan 19, 2013 9:20 pm**

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

Snasui Excel Forum

สอบถามเรื่อง userform(textbox) หน่อยค่ะ

สอบถามเรื่อง userform(textbox) หน่อยค่ะ

Re: สอบถามเรื่อง userform(textbox) หน่อยค่ะ

Re: สอบถามเรื่อง userform(textbox) หน่อยค่ะ

Re: สอบถามเรื่อง userform(textbox) หน่อยค่ะ

Re: สอบถามเรื่อง userform(textbox) หน่อยค่ะ