VBA入门之三《夏夜，我们看萤火虫》

hefengeagle

谢谢，不过每看懂。研究中....

hefengeagle

请问：

Shapes("Group 13")  是指什么对象？

 

 

雅鱼

通俗易懂,逐步深入,真是难得的好教材.

一口气看了一遍，学习中，慢慢消化。

谢谢了。

yfxpzq

心里想不佩服都不行

dhabc123

好好学习

tangqingfu

QUOTE:

以下是引用清风_ll在2006-8-17 11:47:47的发言：
花兄的讲座通俗易懂,逐步深入,真是难得的好教材.[em17]

太好了,收藏学习中!

hner

老师布置的作业

练习：自己定义它的运动方向和规则，再作练习。 

这是我做的，不过还有点问题：

1、就是命令按钮到f17时，为何还要向下相左移动？

2、鼠标移动后，按钮反映太灵敏，能否控制灵敏度？

Private Sub cmd3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'按钮在b5:f18区间移动，先向右移动，然后向下移动
If cmd3.Top >= Range("f17").Top Then
   cmd3.Left = Range("b5").Left
   cmd3.Top = Range("b5").Top
Else
 
    If cmd3.Left >= Range("f5").Left Then
        cmd3.Left = Range("b7").Left
        cmd3.Top = cmd3.Top + cmd3.Height
    Else
        cmd3.Left = cmd3.Left + Range("b2").Width
    End If
End If
End Sub

lB3vADM9.rar (13.3 KB, 下载次数: 152)

2006-8-18 08:52 上传

点击文件名下载附件
VBA入门之三《夏夜，我们看萤火虫》

BIN_YANG168

精品好贴.[em17][em17][em17]

hner

问题1解决了，不过敏感性还是没有解决

Private Sub cmd3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'按钮在b5:f18区间移动，先向右移动，然后向下移动
Range("b5:f18").RowHeight = cmd3.Height

If cmd3.Top >= Range("f16").Top And cmd3.Left >= Range("f16").Left Then
   cmd3.Left = Range("b5").Left
   cmd3.Top = Range("b5").Top
Else
 
    If cmd3.Left >= Range("f5").Left Then
        cmd3.Left = Range("b7").Left
        cmd3.Top = cmd3.Top + cmd3.Height
    Else
        cmd3.Left = cmd3.Left + Range("b2").Width
    End If
End If
End Sub

总结：对象在excel中的位置取决于top和left属性

相对于a1，a1的坐标(0,0)，其中:left代表横坐标，即相对于A列的位置。top代表纵坐标，即相对于第一行的位置

大家如果有什么疑问，可以测试每个单元格的坐标，测试如下：

Sub test()

MsgBox "单元格A1的坐标为：(" & Range("a1").Left & "," & Range("a1").Top & ")" _
& Chr(13) & "单元格b1的坐标为：(" & Range("b1").Left & "," & Range("b1").Top & ")" _
& Chr(13) & "单元格c3的坐标为：(" & Range("c3").Left & "," & Range("c3").Top & ")"

End Sub

山菊花

Private Sub cmd3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'按钮在b5:f18区间移动，先向右移动，然后向下移动
 
    If cmd3.Left >= Range("f5").Left Then
        cmd3.Left = Range("b5").Left
        If cmd3.Top >= Range("f16").Top Then
            cmd3.Top = Range("b5").Top
        Else
            cmd3.Top = cmd3.Top + cmd3.Height
        End If
    Else
        Application.EnableEvents = False
        nLeft = cmd3.Left + Range("b2").Width
        Do While cmd3.Left < nLeft
            cmd3.Left = cmd3.Left + 1
        Loop
        Application.EnableEvents = True
    End If
End Sub

如果只是解决第一个问题，把蓝色代码改为：

QUOTE:

cmd3.Left = cmd3.Left + Range("b2").Width

QUOTE:

以下是引用hner在2006-8-18 10:34:09的发言：

山菊花

    不好意思，我仔细看了一下运行效果，你的结果敏感性好像是减弱了

但我看不懂你代码的意思，能否解释一下！

看来我理解错你的意思了。不明白“敏感性”指的是什么。

那个循环是把按钮的运动速度减慢了。
       

[此贴子已经被作者于2006-8-18 10:46:30编辑过]