规范书写代码
规范命名:根据过程相关性,有意义的单词,首字母大写
规范缩进:
1.首句从tab开始缩进
2.遇if与for内语句用tab缩进
3.遇嵌套时继续tab缩进
必要注释
=======================================================
构建知识体系:
对象->属性->方法
三大对象:
1.工作簿
2.工作表 sheet
3.单元格
三种属性:
1.name属性 |
包含后缀 |
2.path属性 |
返回的是工作簿所在文件夹路径 |
3.fullname属性 |
返回的是工作簿的完整路径 |
方法:是动态的,是动作
工作表:新增,激活,删除
新增worksheets.add
激活worksheets("sheet2").activate
删除Worksheets(1).Delete
工作簿:
新增workbooks.add
打开Workbooks.Open "完整路径"
事件:满足某条件一瞬间的触发器(代码)
是针对对象而言的
激活工作表 |
activate |
点开工作表会出发事件 |
工作表改变选择项 |
selection change |
所选择的项改变会触发事件 |
工作表内容有任何变动 |
change |
工作表的事件要放到工作表里,不可能放在模块
thisworkbook:
打开工作簿 open
关闭工作簿 beforeclose
窗体:是一张画布;一个前端
作画工具:控件
后台:工作表可以作为后台
控件:安全控件,默认的
不安全控件,ocx第三方控件,dll动态链接库
======================================
代码:
Dim |
定义变量 |
Sub |
函数头 |
Msgbox |
弹出消息 |
Thisworkbook |
当前代码所在的工作簿 |
Activeworkbook |
正在激活的工作簿 |
工作表代码表示方式:
1.worksheets("sheet1") |
名称引用 |
2.worksheets(1) |
索引引用 顺序:用目测 |
3.codename |
直接sheet1. sheet2. |
单元格代码表示方式:
1.range
2.cells
1.单个单元格
2.单元格区域
3.单元格地址的引用
======================================
判断
If 条件 then
Else if
End if
循环
批处理多工作表:
1.for each
2.for
for i = 2 to worksheets.count
next i
======================================
练习:
给每个工作表固定位置赋值:
获取每个工作表指定单元格数据:
拆分工作表为工作簿
sht.copy
activeworkbook.saveas filename:=thisworkbook.path & "\" & sht.name & ".xlsx"
ActiveWorkbook.Close True