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

monsefour · 发表于 2004-10-21 23:16

太好了！学习！

612321 · 发表于 2004-10-22 01:32

今天到这里了,明天在继续.兰老师谢谢

happy91 · 发表于 2004-10-22 08:36

我还有几个疑问：

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

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

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

[此贴子已经被作者于2004-10-24 8:19:43编辑过]

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

再出个习题：新建一个工作薄，添加5个工作表，再为工作表分别命名为1、2、3、4、5

再把顺序随意打乱

要求：编一个程序，使工作表按名称的数字大小排序

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

Sub gg() Dim a%, b% For a = 1 To Sheets.Count For b = 2 To Sheets.Count If Sheets(b).Name > Sheets(a).Name Then Sheets(b).Move before:=Sheets(a) End If Next b, a End Sub

交题

yigepure · 发表于 2004-10-22 21:30

如果是升序的话,只需改

If Sheets(b).Name < Sheets(a).Name Then

yigepure · 发表于 2004-10-22 21:47

兰老师.为什么上了10或10以上的就不行了呢

如5个工作表名称为1 ,5 ,10,6 ,4

这个10怎么总是排在1后呢.这个代码是不是哪里还有错误.

yigepure · 发表于 2004-10-22 21:58

如果全是10以上的就不会出错.

612321 · 发表于 2004-10-22 22:02

兰老师,我来学习了

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

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

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

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