捲軸可以較方便地輸入資料或對資料進行微調。
下面以一個“用捲軸設置顯示比例”的實例來說明捲軸的使用。
1 新建表單並插入如下控制項:
以上scbZoom捲軸的Max:400, Min:10, Value:100
2 編寫調用表單過程Sub 顯示比例()
frmZoom.Show
End Sub
3 編寫表單代碼Private Sub UserForm_Initialize()
txtZoom.Value = ActiveWindow.Zoom '文字框顯示當前比例
With scbZoom '縮放捲軸的屬性
.Min = 10
.Max = 400
.SmallChange = 1
.LargeChange = 10
.Value = ActiveWindow.Zoom
End With
With scbH '水準滾動工作表參數
.Min = 1
.Max = ActiveSheet.Cells.Columns.Count '最大列數
.Value = ActiveWindow.ScrollColumn '當前列
.LargeChange = 10
.SmallChange = 1
End With
With scbV '垂直捲動工作表參數
.Min = 1
.Max = ActiveSheet.Cells.Rows.Count '最大行數
.Value = ActiveWindow.ScrollRow '當前行
.LargeChange = 10
.SmallChange = 1
End With
End Sub
Private Sub scbZoom_Change()
With ActiveWindow
.Zoom = scbZoom.Value '用捲軸的值設置當前視窗的縮放
txtZoom = .Zoom '設置文字框的值
.ScrollColumn = scbH.Value '最左邊的列號
.ScrollRow = scbV.Value '最頂端的行號
End With
End Sub
Private Sub scbH_Change()
ActiveWindow.ScrollColumn = scbH.Value
End Sub
Private Sub scbV_Change()
ActiveWindow.ScrollRow = scbV.Value
End Sub
Private Sub cmd100_Click()
scbZoom.Value = 100
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub txtZoom_AfterUpdate()
scbZoom.Value = txtZoom.Value
End Sub
在打開表單後, 即可進行如下操作:
-End-