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

兰色幻想

以下是引用黑色幽默在2004-10-14 14:32:00的发言：

我再运行一次就提示是否覆盖已经存在的1.2.3文件，点确认了之后还是显示4个。

还有一问：

把MsgBox Workbooks.Count的弹出窗口显示为

MsgBox "你一共打开了",Workbooks.Count,"个工作簿"

怎么提示语法错误？

MsgBox "你一共打开了" & Workbooks.Count & "个工作簿"

兰色幻想

以下是引用先锋在2004-10-14 14:40:00的发言：

没读懂

如果不这样设置回来,系统就不再提供"提示对话框"了

yigepure

以下是引用黑色幽默在2004-10-14 14:32:00的发言：

我再运行一次就提示是否覆盖已经存在的1.2.3文件，点确认了之后还是显示4个。

还有一问：

把MsgBox Workbooks.Count的弹出窗口显示为

MsgBox "你一共打开了",Workbooks.Count,"个工作簿"

怎么提示语法错误？

MsgBox "你一共打开了" & Workbooks.Count & "个工作薄", 1

yigepure

兰老师其实private 与dim是一样的吧.只是为了区别public吧

先锋

以下是引用兰色幻想在2004-10-14 14:44:00的发言： 如果不这样设置回来,系统就不再提供"提示对话框"了

这样不就是想要的结果吗?本来就是不想让系统无休止提示吗?

我把后一后去掉了,Application.DisplayAlerts = True 没看到什么变化.

[此贴子已经被作者于2004-10-14 14:51:32编辑过]

yigepure

MsgBox "你一共打开了" & Workbooks.Count & "个工作薄", 1

兰老师为什么msgbox这里不需要cstr()呢.

兰色幻想

工作表SHEETS的属性和方法很多,介绍几个常用的

Sheets.Count 工作薄中工作表的数量

Sheets(1).name 返回第一个工作表的名子

sheets("sheet1").activate 设置sheet1为活动工作薄

sheets("sheet1").Delete 删除sheet1

Sheets("SHEET1").Move AFTER:=Sheets(Sheets.Count) 把Sheet1移到最后

sheets("sheet1").Protect PASSWORD:=123 保护工作表

sheets("sheet1").unProtect PASSWORD :=123 解除工作表保护

sheets("sheet1").usedrange 工作表中已使用的单元格区域

sheets("sheet1").visible=true(false) 工作表是否隐藏

sheets("sheet1").ScrollArea="$A$1:$A$10" 工作表的控制区域为A1:A10

[此贴子已经被作者于2004-10-14 15:07:15编辑过]

兰色幻想

以下是引用先锋在2004-10-14 14:50:00的发言：

这样不就是想要的结果吗?本来就是不想让系统无休止提示吗?

我把后一后去掉了,Application.DisplayAlerts = True 没看到什么变化.

这个我也不太清楚,帮助上是这么说的

happy91

又出现错误了 dlC4dFmE.rar (6.45 KB, 下载次数: 87)

2004-10-14 15:13 上传

点击文件名下载附件
带你入门VBA，第四讲（如何控制关于工作薄与工作表）

黑色幽默

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

MsgBox "你一共打开了" & Workbooks.Count & "个工作簿"

老师啊。我还是最后运行出现“你打开了4个工作簿”啊。到底是什么原因啊。我老是搞不懂啊。怎么莫名其妙的增了一个出来？实际我当前只有3个啊。？？？？？？？？ aCOcyTyY.rar (6.27 KB, 下载次数: 59)

2004-10-14 15:17 上传

点击文件名下载附件

[此贴子已经被作者于2004-10-14 15:14:58编辑过]