我正在尝试将滚动条设置为从最小值/最大值开始,并在我的最大值和最小值的中点处开始。
所以它看起来像这样:
我有两个范围从(最小)1到(最大)2的值。我创建了一个滚动条,允许我介于1到2之间。所以每次我单击我的滚动条,它从1.1增加,1.2,1.3 .. 2.0。但是,我希望每次打开电子表格时,我的滚动条都以最大值或1.5开始。
我有这段代码:
Private Sub scollbarStart_Change()
Range("E2") = CSng(scrollbarStart.Value/100)
End Sub
Private Sub scrollbarStart_Scroll()
scrollbarStart_Change
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target,Range("E2:E2")) Is Nothing Then
scrollbarStart.Min = Value(Range("C2")) *100
scrollbarStart.Max = Value(Range("F2")) *100
scrollbarStart_Change
End If
End Sub
任何想法如何运作?
答案 0 :(得分:0)
使用Worksheet_Activate()设置存储滚动条最小值的单元格的值。我无法从您的代码中告诉您哪个单元格。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = 15 ' or whatever number you want in there.
End Sub