VBA EXCEl 小记 wj-wangjun
如何查看宏命令？
视图--->>工具栏---->>在Visual Basic工具图标上--->>运行按钮--->>选所要查看的宏。--->>编辑
一. 在立即窗口中执行 视图---->> 立即窗口
1. 工作薄
WorkBooks.add '添加工作薄
?ActiveWorkbook.Name '显示当前活动工作薄的名字。
Book3 '上条命令显示的结果
ActiveWorkbook.Close SaveChange=false '提示在关闭前提示另存为
ActiveWorkbook.Close SaveChange=true '不提示另存为，直接关闭工作薄 ''请小心使用.
WorkBooks.Close '同时关闭所有的工作表
1.2 改变工作薄的属性
?ActiveWorkbook.Saved '显示保存退出工作薄时是否有提示保存的对话框。
False 'false 为提示 true 为不提示而直接保存。
那又该如何设置呢？
ActiveWorkbook.Saved=false
好，那我们来关闭工作薄看一下有什么效果？ 然后设成true再看一下？
ActiveWorkbook.Close
ActiveWorkbook.Saved=true
2. 工作表
Worksheets.Add '在工作薄中添加新的工作表。
用以下3种方法都可以改变工作表的名称.
ActiveSheet.Name= "wangjun" '当前活动的工作表
WorkSheets(4).Name="444"
WorkSheets("Sheet4").Name="ddddd"
删除工作表的方法. 注意按回车后将会删除工作表中所有的数据.
WorkSheets(3).Delete ' 其中的3为工作的从式到右的序号。
WorkSheets("444").Delete '其中444为工作表的名称
ActiveSheet.Delete '删除当前活动的工作表
3. 查看Delete方法的返回值
作用是关闭工作表，也返回一个值到宏。
?ActiveSheet.Delete
False '你点了取消,没有删除工作表
True '你点了删除， 工作表没了。
4. 查看Add 的执行结果
Worksheets.Add.Name="purchase" '创建一个名为purchase 的工作表
Worksheets.Add.Delete '新创建一个工作表后删除它，只是显示一下运行结果,没什么意义.
5.复制工作表
Worksheets(1).Copy '在一个新的工作薄上生成一个新的工作表，
Worksheets("purchase").copy Before:=Worksheets(1) '在当前工作薄的第1个工作表之前生成新的工作表
Worksheets("purchase").copy after:=Worksheets(2) '在当前工作薄的第2个工作表这后生成新的工作表
生成的新工作表中的内容和复制的原工作表内容完全一样。
=====================================================================
Range对象
1. ?cells.Count
16777216 '表示在工作表中有 16777216 个单元格
Range("IV65535").Select '选择最后一个单元格
2. 列
Row属性返回行的集合，Columns属性返回列的集合
Columns.Select '表示在电子表格中全选
cells.Select '同上 表示在电子表格中全选
columns(3).select '选择C列
columns("E").select '选择E列
columns("B:H").Select '选择B---H列
3. 行
rows(2).select '选择第2行
rows("2").select '同上 '选择第2行
rows("3:8").select '选择8--8行
在“对象浏览器“中的<全局>集合，包含返回工作表的全部单元格的三个属性：Cells,Columns和Rows
Cells, Columns 和Rows没有对象类，这些是简单地表示相同的Range对象的不同方法.
4. 在当前选择的基础上引用区域
?Activesheet.Range("e5").value
5
?ActiveWorkbook.Worksheets("计划").Range("F" & CStr(6)).Value
40
?Activesheet.Range("D1").clear '清空当前单元格
如果当前工作表的SHEET插入到另外一个工作簿中，那就用
Sheets("Sheet1").Copy Before:=Workbooks("11.xls").Sheets(1)
