快快快！！！我们一起学习-----VBA(10月12日更新)

兰色幻想

以下是引用playgirl在2004-10-10 10:05:00的发言： 请问大虾，如何把代码窗口固定住如7楼图片，我现在一进入VBE编辑器，代码窗口是可以移动的，可以最大化和最小化，无法固定住，我想把它固定住，就如7楼图片，如何操作，谢谢。

点一下代码窗口的最大化按纽

兰色幻想

使用VBA控制工作表及工作薄

---

1、新建工作薄 Workbooks.add

---

2、打开指定的工作薄

Workbooks.open filename:="c:\aaa.xls"

也可以:Workbooks.open "c:\aaa.xls"

---

3、关闭工作薄

workbookS.close 关闭所有打开的工作薄

activeWorkbook.close 关闭活动工作薄

workbooks("aaa.xls").close 关闭指定工作薄

workbooks("aaa.xls").close Savechanges:=True 保存并关闭指定工作薄

workbooks("aaa.xls").close Savechanges:=false 不保存并关闭指定工作薄

注：Savechanges可以省略

即：workbooks("aaa.xls").close True

---

4、保存工作薄

Actitveworkbook.save 保存当前工薄

workbooks("aaa.xls").save 保存指定工作薄

workbooks("aaa.xls").saveas filename:="c:\bbb.xls" 另存工作薄

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

兰色幻想

使用VBA控制单元格

netcrystal

太好了,请继续!

Thanks!

playgirl

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

点一下代码窗口的最大化按纽

不行呀，点一下代码窗口的最大化按钮，代码窗口就把工程窗口也盖住了，看不到工程窗口。

请再帮我看看，谢谢。

yigepure

Workbooks.add workbook.close 关闭所有打开的工作薄

怎么有点book后面要加S,而有些后面不加呢

还有在SUB过程里,有些后面要加声名,有些不要呢

如sub command_click()

sub worksheet_change(byval smt as range)

这两者有什么区别呢.是不是一个是对象,而另一个是单一的动作呢.

yigepure

Sub 矩形1_单击() Dim a As Range For Each a In Range("a1", Range("a65536").End(xlUp)) If a = "" Then a.Delete shift:=xlUp End If Next a End Sub

这是我自己写的一个代码.怎么一次操作只能删除一个空格.对于中间有两个空格(或多个)的只能删除一个.这段代码出错在哪里呢

yigepure

Sub 矩形2_单击() Columns("a:a").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.Delete Shift:=xlUp End Sub

这是用录制新宏找到的代码.兰老师能讲讲这段与我先前写的那段有什么区别吗.先谢谢了.

这段话Selection.SpecialCells(xlCellTypeBlanks).Select是什么意思呢

yigepure

activevorkbook.close 关闭活动工作薄

上面是不是将"W"写成"V"了.应该是activeworkbook.close

兰色幻想

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

Workbooks.add workbook.close 关闭所有打开的工作薄

怎么有点book后面要加S,而有些后面不加呢

还有在SUB过程里,有些后面要加声名,有些不要呢

如sub command_click()

sub worksheet_change(byval smt as range)

这两者有什么区别呢.是不是一个是对象,而另一个是单一的动作呢.

workbook.close 后应加S，是我少打了个S，

如sub command_click()

sub worksheet_change(byval smt as range)

这两者没什么区别第一个是按纽这个对象的单击事件，第二个是工作表的单元格改变事件