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

老老齐

好贴

jlumath

收益匪浅呀，总体的感觉是vba有些入门了，可是那么多函数，那么多用法，还是很头疼，看来还是要多练一下

还有，山老师可不可以讲一下语法结构之类的，偶是一个一点程序语言都没接触过的菜鸟，例如：从上到下一段程序需要什么？开头、？定义标题？定义变量？变量之间关系？。。。？sub end？

谢谢指教！

山菊花

先表示祝贺，祝早日成为VBA高手。

入门之后，要继续学习的东西太多了，建议找本书系统学习。对VBA有了初步的感觉之后，看什么书都会觉得简单、不再涩滞。

也可以在论坛根据自己的需要阅读相关的帖子：

【分享】VBA程序开发版好贴推荐

如果接着写，先起个题目在这：《VBA入门之四—入席了，先端酒杯还是先拿筷子》。

hbkeguojin

山菊花老师：《VBA入门之四—入席了，先端酒杯还是先拿筷子》出来没有。

liyi9999

感谢先

zgx854

说实在的,我也辛苦了!

不知怎么样入门呀!

forrest

VBA入门之一《与代码亲密接触》
 

VBA入门之二《一夜暴富》

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

VBA入门之四—入席了，先端酒杯还是先拿筷子》 待续
 

【分享】VBA程序开发版好贴推荐 http://club.excelhome.net/viewthread.php?tid=224550&px=0

除了顶,还能怎样?

[此贴子已经被作者于2007-10-4 23:15:13编辑过]

forrest

总结: 事件的前世今生

控件事件:

1. “MouseMove”是移动鼠标事件。如果你想在鼠标移动到CommandButton2时返回什么信息或者修改某单元格的值，那么你应该把代码写在

中间.
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'这里写代码
End Sub

2. MouseDown 与 Click 好像是同一回事,MouseDown 与 Click 好像是同一回事，点击鼠标左键既触发“Click”事件，又触发“MouseDown”事件

，它们之间的区别是，“MouseDown”发生在鼠标按下按钮还没有松开的那一段时间，接着松开鼠标又触发“MouseUp”事件，“Click”是整个过

程，点击过按钮后，先触发“MouseDown”事件，后触发“Click”事件。另一个区别是，鼠标右键点击控件，不触发“Click”事件。

3. 激活工作表的时候，触发Activate事件。

当用鼠标右键单击工作表时产生BeforeRightClick事件。

打开工作簿时，触发Open事件。

打印工作表时，触发BeforePrint事件。

4. 不同对象间的事件不一定相同，如按钮有13个事件，工作表有9个事件，工作簿有28个事件

5. 四楼的习题是让按钮向右移,想用.right 属性,但是没有. 只能用*.left=*.left +*.width. 这个也是看答案才知道的,自己想是想不出来的.

例:
Private Sub cmdBut1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
cmdBut1.Top = cmdBut1.Top + 10
cmdBut1.ForeColor = Int(Rnd * 16777215)
End Sub

Private Sub cmdBut2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
cmdBut2.Top = cmdBut1.Top
cmdBut2.ForeColor = Int(Rnd * 16777215)
End Sub

工作表事件:

1. ①选定新的单元格区域时，产生SelectionChange事件。

    ②改变单元格的值时，产生Change事件。

2.
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ' 当工作表的选定区域发生改变时,将产生本事件,运行以下代码

    ' UsedRange: 代表工作表中已使用的单元格区域
    ' Counta(): 工作表函数，含有字符的单元格区域
    ' WorksheetFunction:  在VBA 中调用工作表函数的调用格式
   
    ' 计算结果表示当前工作表中含有字符的单元格的个数
n = WorksheetFunction.CountA(UsedRange) + 1
    ' Targe:这个是关键,代表当前选定的单元格
    ' 把 n 保存到当前选定的单元格
   
Target = n

End Sub

3. Application.EnableEvents = False
Range("b2:b30").ClearContents
Application.EnableEvents = True

fsb2048

非常感谢山老师~~~~~~~~~~~~~~~~~~~~

fsb2048

看您的贴子就像看情书，每一个字都要仔细揣摩！