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

yigepure · 发表于 2004-10-22 22:50

以下是引用兰色幻想在2004-10-22 22:40:00的发言： For j = 1 To Sheets.Count 进行第 J 轮移动 For i = 2 To Sheets.Count If Val(Sheets(i).Name) < Val(Sheets(i - 1).Name) Then Sheets(i).Move before:=Sheets(i - 1) End If Next Next

兰老师.这个名称不是数值吗.难道是$.试了一下.果然不会出现我提的问题.

向你致敬.呵呵,不过循环好像跟我那个差不多吧.

[em23][em17][em23]

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

进一步:平时我们在命名工作表名称的时候,有时用月份或日期命名,这时候该怎样进行排序呢?试着再做一做.这个问题实用性很强.

yigepure · 发表于 2004-10-22 23:06

好的.我马上去做,争取今天晚上搞出来

yigepure · 发表于 2004-10-22 23:23

兰老师这里面是否是两种同时存在呀.还是只有一种呢.如果是只有一种的话,我已经做出来了.

兰色幻想 · 发表于 2004-10-22 23:30

以下是引用yigepure在2004-10-22 23:23:00的发言： 兰老师这里面是否是两种同时存在呀.还是只有一种呢.如果是只有一种的话,我已经做出来了.

都可以试试

yigepure · 发表于 2004-10-22 23:41

Sub cc() Dim a%, b% For a = 1 To Sheets.Count For b = 2 To Sheets.Count If Val(Left(Sheets(b).Name, Len(Sheets(b).Name) - 1)) > Val(Left(Sheets(b - 1).Name, Len(Sheets(b - 1).Name) - 1)) Then Sheets(b).Move before:=Sheets(b - 1) End If Next b, a End Sub 先来一种的吧。

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

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

我还有几个疑问：

1.给文件加密必须先打开文件吗

2.我用代码加密的工作表怎么用菜单的工具撤消不了

2.active什么时候可以省略，从你的习题中我看不明白

1、是要打开文件

2、解除时输入密码肯定有错，可能是大小写或格式问题

3、如果你想把你所操作的对象设置为可见要用ACTIVATE，例如

Sheets("sheet").activate

[a1]=100

第二种，我想在填入数据时不用设置此工作表为前工作表

Sheets("sheet").[A1]=100

[此贴子已经被作者于2004-10-26 15:17:13编辑过]

happy91 · 发表于 2004-10-26 15:20

以下是引用兰色幻想在2004-10-26 15:12:00的发言：

2、解除时输入密码肯定有错，可能是大小写或格式问题

rGVRP5Tf.rar (6.66 KB, 下载次数: 28)

能帮我看一下咋回事？我就是撤消不了

[此贴子已经被作者于2004-10-26 15:20:29编辑过]

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

以下是引用happy91在2004-10-26 15:20:00的发言：

能帮我看一下咋回事？我就是撤消不了

Sheets(2).Protect passward = "a123"

这句有误，passward 应是password

所以密码不是a123

happy91 · 发表于 2004-10-26 15:44

是这种错误啊，太低级了，VBA中有没有单词拼写自检功能

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