[已解决]请问能否把工作表里的代码 分解成调用模块里的代码

qhllqhll

要求见附件
把工作表里的代码 分解成工作表里调用模块里的代码
谢谢
666.rar (9.36 KB, 下载次数: 7)

2013-9-12 09:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sgxb123431380

2013-9-12 10:19

qhllqhll 发表于 2013-9-12 09:41
见 1楼 附件
谢谢

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call dy(CSng(X), CSng(Y))
End Sub

Sub dy(x1 As Single, y1 As Single)
    With Me.CommandButton1
        If x1 > 8 And x1 < .Width - 15 And y1 > 8 And y1 < .Height - 15 Then
            .Caption = "谢谢"
        Else
            .Caption = "你好"
        End If
    End With
End Sub

跳转到最佳答案楼层

我心飞翔410

附件在哪啊

qhllqhll

我心飞翔410 发表于 2013-9-12 09:38
附件在哪啊

见 1楼 附件
谢谢

sgxb123431380

qhllqhll 发表于 2013-9-12 09:41
见 1楼 附件
谢谢

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call dy(CSng(X), CSng(Y))
End Sub

Sub dy(x1 As Single, y1 As Single)
    With Me.CommandButton1
        If x1 > 8 And x1 < .Width - 15 And y1 > 8 And y1 < .Height - 15 Then
            .Caption = "谢谢"
        Else
            .Caption = "你好"
        End If
    End With
End Sub