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

山菊花

鼠标选取“MouseMove”，按F1。

jefferson108

好  ！！收藏了！！！！谢谢！！

cfanwang

当在图表上按下鼠标按钮时，产生此事件。

Private Sub object_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)

object      在类模块中带有事件声明的 Chart 类型对象。有关详细信息，请参阅 Chart 对象事件的用法。

Button      按下的鼠标按钮。可为以下 XlMouseButton 常量之一：xlNoButton、xlPrimaryButton、xlSecondaryButton 或 xlMiddleButton。

Shift      此事件产生时 Shift、Ctrl 和 Alt 的状态。可以是下列值之一或者某几个值的和。

值	含义
0（零）	没有键按下
1	Shift
2	Ctrl
4	Alt

X      鼠标指针在图表对象的客户坐标系中的 X 坐标。

Y      鼠标指针在图表对象的客户坐标系中的 Y 坐标。

cfanwang

明白了。button是鼠标的动作，值1时是左键，2是右键。

shift是键盘控制键shift(1),ctrl(2),alt(4)

jdwang

请问,VBA入门之一,在哪里啊?如何找.

oujj

出书的话，我肯定买，太好的教材了

woodhead0424

QUOTE:

以下是引用山菊花在2006-8-17 10:27:16的发言：

6、“事件”像萤火虫，东边在飞，西边也在飞。

与控件存在事件一样，工作表也存在事件，共有9个。这9个事件当中，其中有两个是编程中最常用到的，可称亨哈二将，在此认识认识它：

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

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

 

这两个事件是非常实用且常用的，在网上有大量的实例，建议大家多交流这方面的学习、应用心得。

应用示例一二：

http://club.excelhome.net/viewthread.php?tid=160432&extra=&page=1#366377

无拘无束的数据有效性 ：http://club.excelhome.net/viewthread.php?tid=160679&replyID=&skin=0
 

有些新的东西请借助系统帮助或其它参考书理解它或提出来讨论。

 

老师,您的附件例子中的C列"累加数"的代码我觉得应改变一下,不然不能实现累加的:

Private Sub Worksheet_Change(ByVal Target As Range)
'修改了单元格中的值，将产生本事件，执行以下代码：
'这首尾两行代码是编写 SelectionChange 事件过程不能忽略的
'这行代码的作用是以下修改单元格的值不触发事件
Application.EnableEvents = False

'以下两行代码是本过程的主体
Target.Offset(0, -1) = Target.Row - 1

'以下是我改的部份
If Target.Row <= 2 Then
Target.Offset(0, 1) = Target
Else
Target.Offset(0, 1) = Target.Offset(-1, 1) + Target

End If

'恢复原来的状态
Application.EnableEvents = True
End Sub

不知道对吗???????????????

[此贴子已经被作者于2006-8-25 23:18:38编辑过]

山菊花

这个问题是对“累加”的理解问题。

原意是B列录入的每一个数据，依次累加到C列，各行独立，互不相关。

作为入门教材，尽量不考虑其它细节，以突出主题。如果用于实际，必须考虑其它因素。

chenhuafu

今天下午一口气看完3集，很过瘾啊！谢谢了！

八路

老师：我还没过瘾完呢！！总不能停下来吧！！还有没有啊！！还有好多网虫跟在后面学呢！！不过瘾啊！！！期待……