如何做浮动按钮

http8080

太强大了，没办法，继续顶下去~~

左手有把刀

这个也不错，代码少了些但很实用

http://club.excelhome.net/thread-279180-1-1.html
6楼有附件

Declare Function SetTimer _
   Lib "user32" ( _
        ByVal hWnd As Long, _
        ByVal nIDEvent As Long, _
        ByVal uElapse As Long, _
        ByVal lpTimerFunc As Long) _
As Long
Declare Function KillTimer _
   Lib "user32" ( _
        ByVal hWnd As Long, _
        ByVal nIDEvent As Long) _
As Long
Declare Function GetCursorPos _
   Lib "user32" ( _
        lpPoint As POINTAPI) _
As Long
Type POINTAPI
    X As Long
    Y As Long
End Type
Dim ChangeOn As Boolean
Dim m_lngTimerId As Long
'
Sub StartTimer()
    If Not ChangeOn Then
        m_lngTimerId = SetTimer(0, 0, 200, AddressOf TimerProc)
        ChangeOn = True
    End If
End Sub
Public Function TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    On Error Resume Next
    If Sheets(1).CommandButton1.Top <> Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn).Top + 60 Then Sheets(1).CommandButton1.Top = Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn).Top + 60
    If Sheets(1).CommandButton1.Left <> Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn).Left + 100 Then Sheets(1).CommandButton1.Left = Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn).Left + 100
    TimerProc = 0
End Function
Sub StopTimer()
    On Error Resume Next
    If ChangeOn = True Then
        KillTimer 0, m_lngTimerId
        ChangeOn = False
    End If
End Sub

tianyunjie

太棒了，好久就想实现这个功能呢！
留个记号，学习学习！

shuford

新奇，第一次接触这种  感谢

ct1986

这个真的是太牛了

枫的大拿加

做的相当好啊，真是高手！

zhhuj2007

学习，向大师致敬！

ll1858

N年前的東西.看來學習的太晚了..

willimwang

好贴不能沉下，再次顶起！

fkuepl051

鼓掌。。。。学习。。。。。。