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

topjx · 发表于 2010-4-9 21:56

非常好，谢谢分享

dodo2029 · 发表于 2010-4-15 22:31

不知什么时候才有更新

shanshui281 · 发表于 2010-5-8 14:11

Private Sub ok_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If ok.Top > Range("F17").Top Then
ok.Left = Range("B5").Left
ok.Top = Range("B5").Top
Else
If ok.Left >= Range("F5").Left Then
ok.Left = Range("B6").Left
ok.Top = ok.Top + ok.Height
If ok.Top > Range("F17").Top Then
ok.Top = Range("B5").Top
End If

Else
ok.Left = ok.Left + Range("B2").Width
End If
End If
End Sub

Rudder2006 · 发表于 2010-5-10 08:40

这一讲有点深度，慢慢消化

榴莲的味道 · 发表于 2010-5-28 16:32

看完前两部分，觉得很简单，今天又有点困惑，还要多看几遍才行

331200846 · 发表于 2010-6-1 07:05

谢谢老师
我学习了

7786910 · 发表于 2010-6-15 09:08

期待后续教案

十四口 · 发表于 2010-6-15 13:26

跟着老师学习到底！

pliming41 · 发表于 2010-6-27 09:32

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

brightyyyy · 发表于 2010-8-3 15:26

excel2007中的也是这样子的吗？
我用2007只有在窗体的窗口才有“CommandButton1”和“click”的下拉框，工作表的窗口的下拉框是没有这些内容的
是因为版本的原因吗？

		自动登录	找回密码
密码			免费注册

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

回复 30楼 hner 的帖子