VBA
啊东东_
这个作者很懒,什么都没留下…
展开
-
vba统计表格中颜色的次数
一、全表格颜色统计Sub Count() '统计全表的颜色 Dim a, b, c, d, i, j As Long '定义数据类型 a = Worksheets("VBA实现颜色统计").Range("A3").Interior.Color '将A3单元格的颜色值赋给a b = Worksheets("VBA实现颜色统计").Range("D5").Interior.Color '将D4单元格的颜色值赋给b c = 0 ''对c进行初始化赋值...原创 2022-04-21 19:34:37 · 2217 阅读 · 0 评论 -
VBA实现同一类型数据统计最大值和最小值
VBA实现同一类型数据统计最大值和最小值。原创 2022-07-20 21:00:41 · 4210 阅读 · 1 评论 -
vba字典学习案例二
一、案例概述:通过本次案例来提升对vba字典的学习,本次案例主要练习的是将同一列同名对应的值进行相加计算。二、案例如下:(1)源数据:(2)代码部分:Sub 字典() Dim 字典, arr1, arr2, i Set 字典 = CreateObject("Scripting.Dictionary") i = 2 Do While Range("A" & i) <> "" Key = Range("A" & i) .原创 2022-05-15 22:42:08 · 534 阅读 · 0 评论 -
vba实现指定区域不同数值出现次数的统计
一、案例概述:前面使用SUMPRODUCT 函数 搭建辅助表来计算同一数值出现次数的统计,本章我们使用vba的方式来实现此功能。二、案例如下:(1)源数据:(2)代码部分:Sub shshi() '获取分部的起始位置 Dim a, b, c, k, m, n As Integer Dim arr(1 To 100) As Byte Dim brr(1 To 100) As Byte arr(1) = 2 i = 1 '用于定义数组的位置原创 2022-05-14 18:10:06 · 4561 阅读 · 0 评论 -
指定区域不同数值出现次数的统计(函数法)
一、案例概述:因同事需要将同一代码下不同测试值出现的次数进行统计,故推出本次案例。二、案例如下:(1)源数据:(2)函数统计:函数:IF(SUMPhanDUCT(($A$2:$A$24=G$1)*($B$2:$B$24=$F2),$C$2:$C$24)=0,0,1)(3)结果呈现:三、总结:统计同一数值出现的次数使用SUMPhanDUCT函数可以解决,但是需要添加辅助列,操作起来可能会有点麻烦,如果数据量较大时会出现“卡”顿现象。...原创 2022-05-14 18:01:27 · 783 阅读 · 0 评论 -
vba实现简单的数据排序和颜色统计
一、案例概述:本次案例主要实现对每一列后五的数据标记颜色,最后统计每一行颜色标记的次数。二、案例如下:(1)源数据:(2)代码部分:①对指定列进行标记颜色Sub 标色() Dim a As Integer a = InputBox("请输入要统计的列号") Cells(1, a).Sort Key1:=Sheet1.Cells(1, a), order1:=xlAscending, Header:=xlYes For b = 2 To 6 C.原创 2022-05-09 22:42:05 · 881 阅读 · 0 评论 -
vba字典学习案例
一、案例概述:本次案例主要讲解字典的学习和应用,通过使用字典的方式来将每一行不重复的数值进行汇总形成一个字符串,且将该字符串展示到指定单元格中。二、案例展示:(1)源数据:(2) 代码部分:Sub shishi() Dim d, arr, i Set 字典 = CreateObject("Scripting.Dictionary") '将从A1开始的数值存放到数组arr中 arr = Range("a1").CurrentRegion For i.原创 2022-05-08 23:31:42 · 1689 阅读 · 0 评论 -
Vba实现按选定类型排序标记
一、案例概述:本案例主要实现的是在同一列数据中根据不同的类型筛选出成绩后三的数据,且将后三成绩进行颜色标记。二、案例如下:(1)源数据:我们要将业务型、发展中和开拓中语文成绩后三的数据筛选出来进行颜色标记。(2)代码部分:Sub shishi()Application.ScreenUpdating = FalseDim A As IntegerSet 总表 = Sheets("Sheet1")Set 字典 = CreateObject("Scripting.Dictionary")原创 2022-05-08 15:59:28 · 545 阅读 · 0 评论 -
表格实现二级验证(表格基础操作,不喜勿喷)
一、案例概述:本次案例主要讲解表格中二级应用如何实现,如:选择一级下拉框北京市那么二级下拉框则会出现北京市所有的区。二、案例如下:(1)源数据:(2)一级下拉框制作:第一步:第二步:第三步:(2)二级下拉框制作:第一步:第二步:第三步:第四步:第五步:...原创 2022-05-06 20:18:41 · 917 阅读 · 0 评论 -
Vba实现工作薄和工作表密码破解
一、案例叙述:在excel中给工作薄和工作表设置了密码后忘记了原密码应该怎么办呢?别着急,几行代码帮你搞定。加密图片:二、破解工作薄密码:(1)代码部分:'破解工作薄密码Sub pojie1()Dim sh As WorksheetActiveWorkbook.Sheets.CopyFor Each sh In ActiveWorkbook.Sheetssh.Visible = TrueNextEnd Sub(2)图片展示:三、破解工作表密码:(1)代码..原创 2022-05-04 18:31:52 · 5828 阅读 · 2 评论 -
Vba操作工作薄(实现工作表筛选且将数据复制到新工作薄中)
一、实现功能:'通过VBA实现表格内表头的筛选,同时实现部分单元格内数据的更改,同时将更改好的信息保存到另外一个工作薄'实现逻辑与步骤:'(1)打开目标工作表;'(2)对工作表内容进行筛选和更改;'(3)将筛选好的内容进行复制到新工作薄同时进行保存和关闭.二、案例展示:三、代码部分:Sub text()'实现表格内表头的筛选 同时实现部分单元格内数据的更改,同时将更改好的信息进行保存到另外一个工作薄'实现逻辑与步骤:'(1)打开目标工作表,创建新的工作...原创 2022-04-30 19:41:07 · 16234 阅读 · 0 评论 -
Vba实现密码验证
一、密码部分:二、代码部分:Private Sub CommandButton1_Click() Dim a, b As String Dim c As Integer Sheet2.Range("E3") = InputBox("请输入密码", "友情提示:") a = Sheet2.Range("E3").Value For c = 2 To 42 Debug.Print c If a = Sheet5.Cells(c.原创 2022-04-30 11:06:42 · 1218 阅读 · 0 评论 -
VBA实现多条件查询
1、代码部分(可使用宏进行录制高级筛选):Sub chaxun() Columns("A:M").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "P1:X2"), CopyToRange:=Range("P11:AB41"), Unique:=FalseEnd Sub2、图片显示:(1)源数据图片:(2)单条件查询:(3)多条件查询:3、总结:excel表...原创 2022-04-19 12:47:02 · 9730 阅读 · 0 评论 -
VBA实现多表头内容筛选
一、源表展示:二、代码部分: Sub mian() Dim select_datacol As Double, row_i As Double Dim select_myarray, select_datacol_1%, col_j As Double '获取表的最大行数和列数 row_a = ActiveSheet.UsedRange.Rows.count col_a = ActiveSheet.UsedRange.Columns.co............原创 2022-04-24 12:44:19 · 1107 阅读 · 0 评论 -
vba操作工作表
一、案例概述:1、VBA实现创建同一格式下的15张工作表 (1)使用for循环新增15张表,且将表名进行命名。 (2)表中的日期进行更改。代码部分:Sub gongzuobiao() Dim a As Integer For a = 1 To 15 'Sheets.Add after:=Sheets(Sheets.Count) Sheet1.Copy after:=Sheets(Sheets.Count) ...原创 2022-04-27 14:08:06 · 1676 阅读 · 0 评论 -
vba实现工作表拆分多个工作薄
一、源表展示:二、代码部分:Sub text() Dim WK As Workbook Dim sh As Worksheet Dim a As Integer For Each sh In ThisWorkbook.Worksheets Set WK = Workbooks.Add i = i + 1 Workbooks(1).Sheets(i).Copy Workbooks(2).Sheets(1) ...原创 2022-04-24 20:16:38 · 3674 阅读 · 1 评论