VBA-操作工作表
第一讲：录制宏及for循环
for循环:
sub shihsi()
dim i as integer
for i = 1 to 100 step 2 (设置步长)
range("a"&i) = i
next
end sub
一些概念：
方法：表示动作的操作叫做方法
属性：表示固有的属性，如有多少个单元格等，属性不能单独操作 如 sheets.count 会报错，是只读的属性。
............................................................................................................................
第二讲：if逻辑操作
if逻辑操作
sub shishi()
if range("a1") ="男" then
range("b1") = "先生"
else if range("a1") ="女" then
range("b1") = "女士"
else
range("b1") = " "
end if
end sub
if 控制for循环
sub shishi()
for i = 1 to 100
if range("a"&i)="" then
exit for
end if
next
end sub
............................................................................................................................
第三讲：工作表操作
工作表的选择：
sheets代表的是表的集合，不是指具体哪个表：
sheet1.select :表示选择名字为sheet1的工作表
sheets("1月").select :表示选择名称叫做“1月”工作表
sheets(1).select :表示选择众多工作表中的第一个工作表
单元格的赋值：
[a1 ] =6 :对A1单元格进行赋值，只能这样选择 比较死板
range("a1") = 6 :对A1单元格进行赋值,比较灵活
单元格的选择
range("a1") = 6 :这个的意思是当前表格的a1单元格赋值为6
sheet3.range("a1") = 6 :这个对固定sheet3的单元格进行赋值
工作表的增：
sheets.add :可以新增一个单元表,add 后面有参数 before after count 等
sheets.add after:=sheet3,count:=3 :在sheet3 后边添加3张单元表
sheets.add after:=sheets(sheets.count) ：sheets.count能够得到所有表格的数目，然后 每天添加在表格最后一个添加表
工作表的命名
range("a1")=sheet1.name 表的名字是属性
sheet1.name = "8月" 更改名字
工作表的删除：
Sub shishi()
'新增100张工作表
Sheets.Add Count:=100 新增100个工作表
'删除100张工作表
Excel.Application.DisplayAlerts = False 关闭告警提示 因为在删除工作表的时候会有对话框告警提示 用此关闭告警
Sheets(1).Delete 永远删除第一个工作表
Excel.Application.DisplayAlerts = True 关闭之后要再开启 前面的excel 是可以去掉不写的
End Sub
工作表的赋值：
sheet1.copy 这个会将工作表sheet1进行复制 然后重新再建一个工作簿
sheet1.copy after:=sheets(sheets.count) 在最后一个表格后面进行赋值sheet1
sheets与worksheets的区别
sheets指的是全部的工作表，而worksheets指的不光是sheet工作表还有图表等的集合。
