[已解决]命令按钮问题

爱疯

wgl309 发表于 2012-8-13 07:24
不是,是从Sheet1第一行到200行或更多行后,按钮仍在屏幕的某一固定位置.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Goto [a1]
Call test
End Sub
Private Sub Workbook_Open()
Application.Goto [a1]
Call test
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call test
End Sub


Public r, c
Sub test()
    Dim rng
    '偏差
    If r = "" Then r = Sheet1.CommandButton1.TopLeftCell.Row - ActiveWindow.ScrollRow
    If c = "" Then c = Sheet1.CommandButton1.TopLeftCell.Column - ActiveWindow.ScrollColumn
    '按偏差纠正
    Set rng = Cells(ActiveWindow.ScrollRow + r, ActiveWindow.ScrollColumn + c)
    Debug.Print rng.Address(0, 0)
    Sheet1.CommandButton1.Left = rng.Left
    Sheet1.CommandButton1.Top = rng.Top
End Sub

按钮仍在屏幕的某一固定位置.rar (12.07 KB, 下载次数: 12)

2012-8-13 10:04 上传

点击文件名下载附件

希望能想出好办法，这个先试试看可以吗？

jlf2003

楼主请看此表可以吗?
悬浮按钮.rar (4.13 KB, 下载次数: 8)

2012-8-13 11:14 上传

点击文件名下载附件

wgl309

打开后拖动滚动格后,按钮还是随着向上翻动吗?

jlf2003

wgl309 发表于 2012-8-13 11:23
打开后拖动滚动格后,按钮还是随着向上翻动吗?

给你一个真正地悬浮.....
设置悬浮按钮.rar (40.07 KB, 下载次数: 23)

2012-8-13 11:34 上传

点击文件名下载附件