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

[tutape]

ต้องการให้ข้อความใน 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

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

[snasui]

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

Code: Select all

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

[tutape]

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