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

wkafei · 发表于 2007-3-5 05:01

VBA入门之三,收藏,慢慢体会

hhzjxss · 发表于 2007-3-13 00:00

真是高手，又是热心人，帮了大家的大忙，一定好好谢谢你了！

向您问好 · 发表于 2007-3-13 09:14

MsgBox "哈哈，我会 VBA 啦……"

独步天涯 · 发表于 2007-4-9 16:43

终于认真看完了三集，还以为有4，5，6，...把这里的9页都看完了才发现还没出，期待山菊花新作问世~

难得的好东西~

cl662002 · 发表于 2007-4-9 17:08

山版的帖子，直接顶了再看，不然被引入了山版制造的学习境界你会忘了顶帖子，然后在某天你突然想起的时候你会后悔得吐血！撞墙！跳楼的！如果你跳楼了，那不白学了吗

所以，我建议你先顶再看~~

dv4ever · 发表于 2007-4-24 14:38

呵呵，从一到三看完就算入门了？貌似很简单，但是实际上关了这个帖子面对一个空的工作表...还是不会...

鹤舞白鲨 · 发表于 2007-4-30 16:54

谢谢老师，受益匪浅

等待进阶贴出来

五一好好练练

浪迹江湖 · 发表于 2007-5-1 20:30

前面就是VBA啦，终于看到了一屡阳光，且越来越亮。。

感谢山菊花老师。。。

再请教一个问题，见附件。

nxLsjp1Q.rar (1.55 KB, 下载次数: 37)

[此贴子已经被作者于2007-5-1 20:30:39编辑过]

spaceoome · 发表于 2007-5-27 16:28

QUOTE:

以下是引用浪迹江湖在2007-5-1 20:30:05的发言：

前面就是VBA啦，终于看到了一屡阳光，且越来越亮。。

感谢山菊花老师。。。

再请教一个问题，见附件。

附件是我按照這兩天學習的做的答案，你看看符合要求不？

tsx8eNHd.rar (6.34 KB, 下载次数: 43)

[此贴子已经被作者于2007-5-27 16:31:55编辑过]

山菊花 · 发表于 2007-5-27 17:30

欢迎spaceoome来到ExcelHome论坛。

代码正确，对“EnableEvents”属性的领会也不错。提点意见：

1、简化代码

If Target.Column <> 4 Or Target.Row <> 4 Then

可改为：

If Target.Address <> "$D$4" Then

减少一次判断。

2、改变思路

工作表有个属性“ScrollArea ”用于设置允许滚动的区域，可把代码写在Worksheet_Activate()事件或Workbook_Open()事件中：

Private Sub Worksheet_Activate()
Me.ScrollArea = "d4"
End Sub

ZiuNhE3G.zip (15.25 KB, 下载次数: 100)

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

回复：（spaceoome）让鼠标只选中D4