Snasui Excel Forum

Posted: **Mon Feb 10, 2014 1:21 am**

ต้องการให้ข้อความใน TextBox มาแสดงใน FormTextBox โดยอัตโนมัติได้หรือเปล่าครับ หรือจะดึงมาจากเซลล์ใดเซลล์หนึ่งใน sheet มาแสดงโดยทันทีที่ข้อมูลใน TextBox หรือ เซลล์ใดเซลล์หนึ่งใน sheet มีการเปลี่ยนแปลง
ตัวอย่างตามเอกสารแนบ
code ที่ผมเขียนได้ คือ

Code: Select all

Private Sub Account_Name_Change()
          If Account_Name = "" Then
             Account_Name.Value = Sheets("change").Range("R10")
           End If
     End Sub

แต่ไม่ทำงานแบบทันที ต้องกดรันแมโคร จึงจะเห็นผล
ใครมีข้อเสนอแนะรบกวนด้วยครับ
ขอบคุณครับ

Posted: **Mon Feb 10, 2014 11:45 am**

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub txb_change_Change()
        Sheets("change").Range("R8") = txb_change.Value
        Account_Name.Value = txb_change.Value
End Sub

Posted: **Mon Feb 10, 2014 9:07 pm**

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

Snasui Excel Forum

code vba แสดงข้อมูลใน form TextBox แบบอัตโนมัติ

code vba แสดงข้อมูลใน form TextBox แบบอัตโนมัติ

Re: code vba แสดงข้อมูลใน form TextBox แบบอัตโนมัติ

Re: code vba แสดงข้อมูลใน form TextBox แบบอัตโนมัติ