[發問] 表單卷軸與工作表捲軸

shadowming

VBA表單的捲軸功能要如何做到跟工作表的捲軸功能一樣
我想要在表單上面建一個卷軸
用它來控制我工作表上的一格儲存格  例如 Sheet1  的A1
控制她的大小     向左-1    向右+1   最大值=1000  最小值=1
程式要怎麼寫 ?
麻煩知道的人告訴我一下

Hsieh

回復 1# shadowming

1. Private Sub ScrollBar1_Change()
   
2. With ScrollBar1
   
3.    .Max = 1000
   
4.    .Min = 1
   
5.    [A1] = .Value
   
6. End With
   
7. End Sub

複製代碼

shadowming

回復 2# Hsieh


謝謝版主
可是有個小問題
這個只能指定當頁的A1
我如果切換到不同工作表  利如sheet2
就沒辦法動了
不能指定哪個工作表嗎??

Hsieh

回復 3# shadowming

1. Private Sub ScrollBar1_Change()
   
2. With ScrollBar1
   
3.    .Max = 1000
   
4.    .Min = 1
   
5.    Sheet1.[A1] = .Value
   
6. End With
   
7. End Sub

複製代碼

shadowming

回復 4# Hsieh

謝謝版主的指導
問題已解決
感恩