ปัญหาเรื่อง scrllbar และ textbox บน userform VBA

[godman]

สวัสดีครับ ท่านผู้รู้
ผมมีปัญหาเรื่องการใช้ userform scrollbar ให้แสดงผลบน textbox คือผมอยากให้มัน ขยับทีละ 1 แม้ว่าผมจะใส่เลขอะไรบน textbox เมื่อกดเลื่อนขึ้นลง ซ้ายขวา ก็ให้มันไล่ทีละ 1
ปัญหาที่พบคือมันไม่เป็นอย่างนั้น พอใส่เลขสมมุตร 100 กดขวามันไป 1 แบบงง ว่า จะเขียนโค้ดอย่างไร หรือทำอย่างไรดีครับ ผมแนบไฟล์มาด้วย

Private Sub UserForm_Initialize()
ScrollBar1.Min = 0
ScrollBar1.Max = 200
ScrollBar1.Orientation = fmOrientationHorizontal
ScrollBar1.SmallChange = 1
ScrollBar1.LargeChange = 100
ScrollBar1.Value = 0
End Sub

[snasui]

เข้าใจว่าต้องการให้ Scroll bar รับค่าตำแหน่งการเลื่อนมาจาก TextBox หากเป็นเช่นนั้นสามารถปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub TextBox1_Change()
    Sheets("sheet1").Range("D9") = Me.TextBox1.Value
    Me.ScrollBar1.Value = Me.TextBox1.Text
End Sub

[godman]

ขอบคุณครับ happy new year