[已解决]请教 滚动条问题

龙猫

请教　怎么用VBA做到

1、过1个固定的时间　让滚动条动一下，
2、让滚动条的值反映到单元格ａ１里

写个代码就成，谢谢了，

yybX4Bgt.rar (6 KB, 下载次数: 0)

2009-10-28 11:15 上传

点击文件名下载附件
请教　滚动条问题

 

附件里有一个滚动条，因为怕有人因为没有附件不帮我，才传的

[em04]

最佳答案

月排行榜 / 总排行榜

amulee

2009-10-28 11:25

Sub Test()
    With Sheet1.ScrollBar1
        .LinkedCell = "Sheet1!A1"
        .Max = 1000
        For i = 1 To .Max
            For j = 1 To 10 ^ 5
                s = s + 1
            Next j
            .Value = i
            DoEvents
        Next i
    End With
End Sub

跳转到最佳答案楼层

桂林灬迷失

真是个高手的问题,支持顺便学习一下.

amulee

Sub Test()
    With Sheet1.ScrollBar1
        .LinkedCell = "Sheet1!A1"
        .Max = 1000
        For i = 1 To .Max
            For j = 1 To 10 ^ 5
                s = s + 1
            Next j
            .Value = i
            DoEvents
        Next i
    End With
End Sub