带你入门VBA，第四讲（如何控制关于工作薄与工作表）

兰色幻想 · 发表于 2004-10-26 15:48

以下是引用happy91在2004-10-26 15:44:00的发言： 是这种错误啊，太低级了，VBA中有没有单词拼写自检功能

打开VBE编辑器，工具---选项---编辑器--选中要求变量声明

apolloh · 发表于 2004-10-28 14:12

以下是引用兰色幻想在2004-10-14 14:41:00的发言：

这是系统提供的,为什么这样定,我也不太清楚

以下是引用yigepure在2004-10-14 14:36:00的发言： 为什么将SH定为object呢

这是系统提供的,为什么这样定,我也不太清楚

工作表是一种对象，所以它的数据类型应该用对象表示。

apolloh · 发表于 2004-10-28 15:16

以下是引用wuaza在2004-10-17 8:41:00的发言：

Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False For Each aa In Range("d1:d100") If aa = 0 Then aa.EntireRow.Hidden = True End If Next Application.ScreenUpdating = True End Sub

以上代码中为什么没有出现系统给定的target变量，For Each aa In Range("d1:d100")改成For Each target In Range("d1:d100")行吗？为什么？

target 是worksheet_change 事件返回的传递参数，是具体那个产生变化的单元格引用，它与aa不同aa是自定义的变量，在 for each aa in Range("d1:d100") 返回Range("d1:d100") 的一个单元格引用。

yigepure · 发表于 2004-10-28 21:57

呵呵.兰老师那个两个都有的混合型,我没有写出来.

兰色幻想 · 发表于 2004-10-28 22:11

以下是引用yigepure在2004-10-28 21:57:00的发言： 呵呵.兰老师那个两个都有的混合型,我没有写出来.

哪两个?

yigepure · 发表于 2004-10-28 22:36

又有月.又有日期的呀.如

工作表标签依次为 1月 , 2月, 2月5日. 3月,3月5日,3月25日.5月

兰色幻想 · 发表于 2004-10-28 22:52

以下是引用yigepure在2004-10-28 22:36:00的发言：

又有月.又有日期的呀.如

工作表标签依次为 1月 , 2月, 2月5日. 3月,3月5日,3月25日.5月

For j = 1 To Sheets.Count ' 进行第 J 轮移动 For i = 2 To Sheets.Count If Format(Sheets(i).Name, "MM-DD") < Format(Sheets(i - 1).Name, "MM-DD") Then Sheets(i).Move before:=Sheets(i - 1) End If Next Next

[此贴子已经被作者于2004-10-28 22:53:22编辑过]

yigepure · 发表于 2004-10-28 23:30

以下是引用兰色幻想在2004-10-28 22:52:00的发言：

For j = 1 To Sheets.Count ' 进行第 J 轮移动 For i = 2 To Sheets.Count If Format(Sheets(i).Name, "MM-DD") < Format(Sheets(i - 1).Name, "MM-DD") Then Sheets(i).Move before:=Sheets(i - 1) End If Next Next

用了,不成功.不知道为什么.

兰色幻想 · 发表于 2004-10-29 00:05

以下是引用yigepure在2004-10-28 23:30:00的发言： 用了,不成功.不知道为什么.

是不是命名的原因？我的可以

UmfLKQEH.rar (7.46 KB, 下载次数: 83)

yigepure · 发表于 2004-10-29 00:33

其实只要有工作表标签中有的只有月份,没有日期.这个代码就会出错.

如我将标签改为 1月, 2月5日, 3月, 2月, 3月1日

经过排序以后就会变成

2月5日, 3月1日, 1月, 2月 ,3月

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