【分享成果，随喜正能量】做事最怕一个“拖”字，小事拖成大事，好事拖成坏事，易事拖成难事，到头来只落得个一事无成。 面对一件复杂、重大的事情，可以从最基本处着手，把一个大任务切成小任务，规划后再去执行。不要让拖延遮掩了你本来的光芒，当你戒掉了拖延，你的生活也会焕然一新。
2024年09月18日
【分享成果，随喜正能量】做事最怕一个“拖”字，小事拖成大事，好事拖成坏事，易事拖成难事，到头来只落得个一事无成。 面对一件复杂、重大的事情，可以从最基本处着手，把一个大任务切成小任务，规划后再去执行。不要让拖延遮掩了你本来的光芒，当你戒掉了拖延，你的生活也会焕然一新。
2024年09月18日
Sub test()
' Dim s As Collection '定义s变量为集合对象
' Set s = New Collection '初始化集合对象s (否则无法使用)
Dim s As New Collection '推荐这句代码，直接初始化，可以不用再Set了
2024年09月18日
Vba第三十五课
例：如下图，按左图数据源不分型号/规格只按货物名称进行汇总，包过盘存数量、出库数量及库存数量（以数组方式运算）
代码：
Sub 汇总()
Dim arr, brr, a, b
Sheets(1).Range("l3:o9") = ""
2024年09月18日
1、根据工作表数量来遍历
For i = 1 To Worksheets.Count
Debug.Print Worksheets(i).Name
Next
2、在工作表集合里遍历
2024年09月18日
第一种方式：判断多列的最大行
1.maxrow = ThisWorkbook.Sheets("工作表名称").[C:D].Find("*", , xlValues, , , xlPrevious).Row
‘只查找数值
2.maxrow = ThisWorkbook.Sheets("工作表名称").[A:A].Find("*", , xlFormulas, , , xlPrevious).Row
2024年08月03日
Do...Loop循环适用于当逻辑条件满足时的情形。
1、Do Until...Loop循环
Do Until x > 26 '一直重复循环里面的操作，直到x>26退出循环 i = i + 1 x = i * 2 Loop
2024年08月03日
【分享成果，随喜正能量】不管什么时候，我们一定要学会构建自己的价值。如果你没有价值，那么你随时可能被取代。
《VBA之Excel应用》是非常经典的，是我推出的第七套教程，定位于初级。这套教程无论是理论知识还是具体应用，内容都非常丰富，同时在讲解的过程中我会从我多年实践的角度给大家以不经意间的指导，让大家在不知觉间会更好的利用VBA这个工具。是的，
2024年04月26日
使用Excel的时候，我们会碰到一种工作簿保护权限的加密方式。也就是设置工作簿保护权限之后，除非我们知道工作簿保护密码，不然无法对工作表进行新增或者是删除。
如上图所示，当我们点击审阅—保护工作簿，输入保护密码后，我们在点击工作表名称的时候。右键删除插入工作表的选项都变成了灰色，无法对工作表进行增加或者是删除。今天我们就来通过一段代码，一秒快速破解工作簿保护设置。效果图如下：