VBA
由浅入深学习VBA
God_6838
多媒体技术,图像处理,机器学习
展开
-
VBA多工作簿中多工作表分类汇总
应用背景:将某一文件夹下所有工作簿中的多张表单汇总到一个工作薄中的一张表单中最终效果:步骤流程:完整代码:=========================================================================1、汇总当前文件夹下所有工作簿中所有sheets=========================================================================Sub Co..原创 2022-05-13 17:38:30 · 4607 阅读 · 5 评论 -
使用VBA汇总工作表
目的:将一张工作薄中的多张工作表中的数据记录汇总到一张表中,并统计数据记录条数如下图所示,将下图中4张工作表中的数据汇总到“汇总表”中代码实现:(1)该代码是微调宏录制的代码Sub 核酸汇总()'' 核算汇总 宏' Sheets("1班").Select ActiveWindow.SmallScroll Down:=-9 Range("A3:D15").Select Selection.Copy Sheets("汇总").Selec.原创 2022-05-03 21:54:54 · 3018 阅读 · 0 评论 -
VBA批量建立新工作表
目的: 将如下成绩表根据班级分别创建工作表,表名以班级命名代码实现:Sub 建立新表() '根据班级批量建立新表Dim i As Long, sht As Worksheeti = 3 '第一条记录是在第3行Set sht = Worksheets("成绩表")Do While sht.Cells(i, "B").Value <> ""On Error Resume NextIf Worksheets(sht.Cells(i, "B").Value) Is No原创 2022-05-03 21:07:37 · 1782 阅读 · 0 评论 -
利用VBA批量保护/撤销EXCEL表
//批量保护EXCEL表'定义存储保护密码与撤销保护密码的变量并初始化值Dim passwd As StringDim CP As String'自动保护客户信息Sub 自动保护() passwd = InputBox("请输入保护密码,密码为6位数字") '对所有工作表对象执行循环 For Each one In Worksheets '激活某个工作表 one.Select '保护工作表 ActiveSh.原创 2021-12-26 19:08:12 · 4294 阅读 · 2 评论 -
Excel制作随机点名小程序
在Excel工作表中,通过空间命令按钮和VBA代码,可以省略很多简单重复的工作,例如点名。只要名单上有名字,就不需要人工拿着花名册挨个点名,在这里Excel就可以充当你的智能小助手。一、按Alt+F11,敲入以下代码:二、依次选择"开发工具"——"插入"——"按钮(窗体控件)",接着自动弹出"指定宏",选之前写好的VBA代码。三、随机点名效果图:随机点名效果...原创 2021-12-26 19:03:39 · 3686 阅读 · 0 评论 -
VBA实现窗口登录
核心代码:' 窗口事件Private Sub CommandButton1_Click() ' 登录If ComboBox2.Text = "" Or TextBox1.Text = "" ThenMsgBox "请输入账户或密码", 1 + 64, "系统登录"ElseIf 特定用户密码登录(ComboBox2) = TextBox1.Text ThenUnload MeMsgBox ComboBox2.Text & "你好!欢迎你进入本系统", 1 + 64, "欢迎词.原创 2021-10-29 10:29:14 · 5619 阅读 · 0 评论