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

superfeng · 发表于 2007-3-6 22:00

QUOTE:

以下是引用兰色幻想在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

这段码可以改为，原理类似于选择排序

For j = 1 To Sheets.Count -1   进行第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

liyi9999 · 发表于 2007-8-24 11:25

谢谢先

forrest · 发表于 2007-9-24 02:25

QUOTE:

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

一次新建多个工作薄:

For i = 10 To 13
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="c:\" & i & ".xls"
Next

这段代码要这样写才有效。

forrest · 发表于 2007-9-25 02:33

mrMQAtaC.rar (18.73 KB, 下载次数: 36)

课后总结.

h2301 · 发表于 2007-9-25 08:46

良师益友

崖上木兰 · 发表于 2008-8-21 15:18

终习看完第四讲了,只是看的匆忙,好象还不能好好消化.

堕落王 · 发表于 2008-8-21 21:15

楼主你是赵老师？

楼主是个高手

Jowyer · 发表于 2008-8-22 17:37

又学完一课！

深深感谢兰老师！

[em23][em23][em23]

fucloud · 发表于 2009-6-20 18:04

慢慢去消化.

happypie2008 · 发表于 2009-9-1 20:00

原帖由 兰色幻想 于 2004-10-15 11:01 发表
以下是引用lpdcd在2004-10-15 9:50:00的发言：
请问:程序放错地方了，什么程序应该在Thisworkbook中,什么程序应在模块中。

如果你想让EXCEL自动为你服务（如打开、关闭文件、单击单元格、更换工作表就自动执行你 ...

请教兰老师，事件程序在哪里面写？模块里面吗？

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