从Max / Min Value Excel开始

时间:2014-11-19 02:24:10

标签: excel-vba vba excel

我正在尝试将滚动条设置为从最小值/最大值开始,并在我的最大值和最小值的中点处开始。

所以它看起来像这样:

我有两个范围从(最小)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

任何想法如何运作?

1 个答案:

答案 0 :(得分:0)

使用Worksheet_Activate()设置存储滚动条最小值的单元格的值。我无法从您的代码中告诉您哪个单元格。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A1") = 15  ' or whatever number you want in there.
End Sub