Excel学习之旅（三）

20220326

王佩丰VBA学习第三，四课

巩固 if函数，for函数

新知识：

对表的操作

对象、方法、属性

方法：对象有哪些动作可以执行

属性：对象有哪些信息能获取

方法：select、Add、delete、copy

属性：name、count

sheets.count 获取当前工作簿中工作表的数量

sheet1.name 获取sheet1的表名

sheet1.range("a" & i) 在特定的表中的特定格子里进行操作

sheet1.select 选中一张名为“sheet1”的表

sheets("1月").select 选中一张名为“1月”的表

sheets(1).select 选中所有表中顺序排在第一的表

sheets.add 在当前选中的表前面插入一张表

sheets.add after:=sheets(sheets.count) count:=2 在最后一张表后插入2张表（普通工作表）

（可以使用循环来新建很多表）

sheets(2).delete 删除表格

正向删除时，后一张表，位置会前进，因此只需要删除当前活动表就可以将表格进行删除操作

sheets(2).delete 将第一张表后的所有表都删除

删除表会触发警告

在程序最开始加上：

excel.application.displayalert = false

结尾处恢复，否则后续excel所有警告都会被忽视不弹出：

excel.application.displayalert = true

sheet1.copy 新建一个工作簿，并复制sheet1

sheet1.copy after:=sheets(sheets.count) 复制一张表到当前最后一张表的后面

（通过循环实现批量生成具有格式的表格）

实例1：

在最后一张表后创建3个新的表，并命名为1-3月

Sub build3sheets()

Dim i As Integer

For i = 1 To 3

Sheets.Add after:=Sheets(Sheets.Count)

'Sheets(Sheets.Count).Name = Sheet1.Range("a" & i)

Sheets(Sheets.Count).Name = i & "月"

End Sub

实例2：

在sheet4中汇总表名

Sub getsheetname()

Dim i As Integer

For i = 1 To Sheets.Count

Sheet4.Range("a" & i) = Sheets(i).Name

End Sub

实例3：

创建31张模板日志表

Sub try()

For i = 1 To 31

Sheet1.Copy after:=Sheets(Sheets.Count)

Sheets(Sheets.Count).Name = "5月" & i & "日"

Sheets(i + 1).Range("e5") = "2022-5-" & i

End Sub

删除刚刚创建的表格

Sub deletesheet()

Excel.Application.DisplayAlerts = False

For i = 1 To Sheets.Count - 1

Sheets(2).Delete

Excel.Application.DisplayAlerts = True

End Sub

实例4：

汇总表

Sub total()

Dim i As Integer

For i = 2 To Sheets.Count

Sheet1.Range("b" & i + 8) = Sheets(i).Range("e5")

Sheet1.Range("c" & i + 8) = Sheets(i).Range("e6")

Sheet1.Range("d" & i + 8) = Sheets(i).Range("e44")

End Sub

作业：

将专业课代码补齐，将称呼补齐，删除名字为空的所有行

Sub gradesthree()

Dim i As Integer

Dim j, k As Integer

'注意一定要选择每个sheet

For j = 1 To Sheets.Count

For i = 100 To 1 Step -1

If Sheets(j).Range("b" & i) = "理工" Then

Sheets(j).Range("c" & i) = "lg"

ElseIf Sheets(j).Range("b" & i) = "文科" Then

Sheets(j).Range("c" & i) = "wk"

ElseIf Sheets(j).Range("b" & i) = "财经" Then

Sheets(j).Range("c" & i) = "cj"

End If

If Sheets(j).Range("e" & i) = "男" Then

Sheets(j).Range("f" & i) = "先生"

ElseIf Sheets(j).Range("e" & i) = "女" Then

Sheets(j).Range("f" & i) = "女士"

End If

If Sheets(j).Range("d" & i) = "" Then

'注意要点击每一个sheet,否则只对当前工作表有用

Sheets(j).Select

Sheets(j).Range("D" & i).Select

Selection.EntireRow.Delete

End If

end sub

Excel学习之旅（三）相关推荐

HALCON学习之旅(三)
HALCON学习之旅(三) 文章目录 HALCON学习之旅(三) 1.创建自适应图形窗口 2.霍夫变换寻找图像直线 1.创建自适应图形窗口原因:默认的图形窗口尺寸为512*512.当图像变量尺寸与图 ...
滴滴Booster移动APP质量优化框架学习之旅三
推荐阅读: 滴滴Booster移动App质量优化框架-学习之旅一 Android 模块Api化演练不一样视角的Glide剖析(一) 滴滴Booster移动App质量优化框架-学习之旅二对重复资源 ...
Hadoop学习之旅三：MapReduce
MapReduce编程模型在Google的一篇重要的论文MapReduce: Simplified Data Processing on Large Clusters中提到,Google公司有大量的 ...
王佩丰excel学习笔记（三）：第七——十讲
目录第七讲第八讲第九讲第十讲第七讲 excel连接文本: & 各种基础运算相对引用与绝对引用:利用"$",按F4可以快速加美元号(但我电脑不行) 函数:sum( ...
Python学习之旅三：python高级语法
使用pycharm和jupter notebook. 1 包 1.1 模块一个模块就是一个包含python代码的文件,后缀名为.py即可,模块就是个python文件. 1.1.1 为什么要使用模块呢 ...
Threejs 学习之旅(三)
PerspectiveCamera 透视相机例: const camera = new THREE.PerspectiveCamera(75, sizes.width / sizes.height, ...
小猪的Python学习之旅 —— 14.项目实战：抓取豆瓣音乐Top 250数据存到Excel中
小猪的Python学习之旅 -- 14.项目实战:抓取豆瓣音乐Top 250数据存到Excel中标签:Python 一句话概括本文: 利用Excel存储爬到的抓取豆瓣音乐Top 250数据信息,还有 ...
Microsoft .NET Pet Shop 4.0 学习之旅（三） - 项目的引用关系2
Microsoft .NET Pet Shop 4.0 学习之旅(三) 项目的引用关系2 <?xml:namespace prefix = o ns = "urn:schemas-mi ...
WCF学习之旅—第三个示例之二（二十八）
上接WCF学习之旅-第三个示例之一(二十七) 五.在项目BookMgr.Model创建实体类数据第一步,安装Entity Framework 1) 使用NuGet下载最新版的Entity Fram ...

Excel学习之旅（三）

Excel学习之旅（三）相关推荐

最新文章

热门文章