VBA教程

已于 2024-06-25 10:13:15 修改
阅读量584 收藏 5
点赞数 1
文章标签： javascript 开发语言 ecmascript
于 2024-06-25 00:19:10 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/dzxxrzs/article/details/139927736
版权

一、数组

1.基础 

arr = Range("A1:C3") '写入数组
arr = JJ.Sheets(1).[A4].Resize(JR, JC + 1) '写入数组

X = UBound(arr, 2) '数组维可用的最大下标(横向)
X = LBound(arr, 2) '数组维可用的最大上标(横向)
X1 = UBound(arr) '数组维可用的最大下标
X1 = LBound(arr) '数组维可用的最大上标
Dim arr1(1 To 10000, 1 To 4) '创建数组

'数组写入指定单元格
'(S 表示新区域中的行数、4 新区域中的列数)
Range("E4").Resize(S, 4) = arr1

'将一行单元格区域转置成一列单元格区域
Range("a2").Resize(5, 1) = Application.Transpose(Arr)

2.重新定义数组大小 

Sub 重新定义数组大小()
  Dim arr()
  arr = Range("a1:b5")
  ReDim arr(1 To 2, 1 To 1) '不保留原数据
  ReDim preserve arr(1 To 10, 1 To 1) '保留原数据
End Sub

3.按指定分隔符拆分

Sub 连接某个数组中的多个子字符串b() '列
  '多列的单元格写入数组，转置成一维
  arr = Range("A1:d8")
  arr1 = Application.Transpose(Application.Index(arr, , 2)) '取arr第2列数据并转置成1维数组
  MsgBox Join(arr1, ",")
End Sub

4.用指定分隔符连接

Sub 连接某个数组中的多个子字符串b() '列
  '多列的单元格写入数组，转置成一维
  arr = Range("A1:d8")
  arr1 = Application.Transpose(Application.Index(arr, , 2)) '取arr第2列数据并转置成1维数组
  MsgBox Join(arr1, ",")
End Sub

5.连接数组中的多个字符

Sub 连接某个数组中的多个子字符串b() '列
  '多列的单元格写入数组，转置成一维
  arr = Range("A1:d8")
  arr1 = Application.Transpose(Application.Index(arr, , 2)) '取arr第2列数据并转置成1维数组
  MsgBox Join(arr1, ",")
End Sub

二、字典

1.取不为空的值写入字典 

代码如下（示例）： 

    BARR = [I1:I1000]
    Set dict = CreateObject("Scripting.Dictionary")
    For yi = 1 To UBound(BARR) Step 1
        If BARR(yi, 1) <> "" Then
            dict(CStr(BARR(yi, 1))) = dict(CStr(BARR(yi, 1)))
        End If
    Next

2.查找标题栏位置

代码如下（示例）： 

Sub 查找标题栏位置()
arr = Range("A1:D7226")
    Dim h
    Set h = CreateObject("scripting.dictionary")
    For B = 1 To UBound(arr, 2) Step 1
        h(arr(1, B)) = B
    Next
    K = h("2022-12")
End Sub

3.写入字典

代码如下（示例）：

    Set H1 = CreateObject("scripting.dictionary")
    For X = 1 To UBound(BARR) Step 1
        SR = BARR(X, 1)
        For Z = 2 To UBound(arr) Step 1
            SS = arr(Z, K1) '品号
            ST = arr(Z, K6) '批号
            SM = arr(Z, K7) '数量
            SN = arr(Z, K5) '仓库
            SB = arr(Z, K6) '批号
            SO = SS & ";" & ST
            If SR = SS Then
                If Not H1.Exists(SO) Then
                    H1.Add SO, SS & ";" & -SM & ";" & SN & ";" & SB
                End If
            End If
        Next Z
    Next X
    key_D2 = H1.Keys 'key值
    item_D2 = H1.items 'item值
Sub 字典()
ARR = Range("A2:D5")
    Dim h
    Set h = CreateObject("scripting.dictionary")
    Dim arr1(1 To 10000, 1 To 4)
    Dim 行, 列
    Dim z, s
    For z = 1 To UBound(ARR)
        sr = ARR(z, 1) & ";" & ARR(z, 3) & ";" & ARR(z, 4)
        h(sr) = h(sr) + ARR(z, 2) '写入字典 h(sr)为key值，ARR(z,2)为item值
    Next z
    key_H = h.keys  'key值
    item_H = h.items  'item值
    For F = 0 To UBound(key_H)
        TA = Split(key_H(F), ";") '拆分
        Cells(F + 1, 1) = TA(0) '将key值写入表格
        Cells(F + 1, 2) = TA(1)
        Cells(F + 1, 3) = TA(2)
        Cells(F + 1, 4) = item_H(F) '将item值写入表格
    Next
End Sub

4.拆分字典

代码如下（示例）：

    If H1.Exists(AB) Then
        TA = Split(H1(AB), ";") '拆分
        TextBox2.text = TA(0)
        TextBox3.text = TA(1)
        TextBox4.text = TA(2)
    End If

5.匹配key值写入item值

代码如下（示例）：

    For P = 2 To UBound(arr) Step 1
        CS = WorksheetFunction.Clean(arr(P, Y + 1))
        If H2.Exists(CS) Then
            arr(P, Y + 3) = H2(CS) 'item值
        End If
    Next

6.透视表

代码如下（示例）：

Sub 透视表()
ARR = Range("a3:o351")
    Dim h
    Set h = CreateObject("scripting.dictionary")
    Dim arr1(1 To 10000, 1 To 4)
    Dim 行, 列
    Dim z, s
    For z = 1 To UBound(ARR)
        sr = ARR(z, 4) & "-" & ARR(z, 5) & "-" & ARR(z, 8) '
        If h.Exists(sr) Then
            行 = h(sr)
            arr1(行, 4) = arr1(行, 4) + ARR(z, 10)
        Else
            s = s + 1
            h(sr) = s
            arr1(s, 1) = ARR(z, 5)
            arr1(s, 2) = ARR(z, 4)
            arr1(s, 3) = ARR(z, 8)
            arr1(s, 4) = ARR(z, 10)
        End If
    Next z
    Range("E1").Resize(s, 4) = arr1
End Sub

7.比较两个字典的大小

代码如下（示例）：

Set BB = Workbooks(ThisWorkbook.Name)
    Set B1 = Workbooks.Open(BB.Sheets(1).[A2])
    H2 = B1.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    ARR = B1.Sheets(1).[E9].Resize(H2, 8)
    Set dict = CreateObject("scripting.dictionary")
    For Z = 1 To UBound(ARR) - 9 Step 1
        SO = ARR(Z, 1) & ";" & ARR(Z, 2)
        If dict.Exists(SO) Then
            dict(SO) = dict(SO) + ARR(Z, 8)
        Else
            dict.Add SO, ARR(Z, 8)
        End If
    Next Z
    key_D1 = dict.Keys 'key值
    item_D1 = dict.items 'item值
        
        
    Set B2 = Workbooks.Open(BB.Sheets(1).[A3])
    H3 = B2.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    ARR1 = B2.Sheets(1).[A2].Resize(H3, 5)
    Set dict1 = CreateObject("scripting.dictionary")
    For Z1 = 1 To UBound(ARR1) Step 1
        SO1 = ARR1(Z1, 1) & ";" & Left(ARR1(Z1, 4), 13)
        If dict1.Exists(SO1) Then
            dict1(SO1) = dict1(SO1) + ARR1(Z1, 5)
        Else
            dict1.Add SO1, ARR1(Z1, 5)
        End If
    Next Z1
    key_D2 = dict1.Keys 'key值
    item_D2 = dict1.items 'item值
        
        
    '遍历第一个字典的键,匹配两个字典中具有相同键的项，并比较它们的项值的大小
    For Each Key In dict.Keys
        '检查第二个字典是否包含相同的键
        If dict1.Exists(Key) Then
            '如果存在，比较项值大小
            If dict(Key) > dict1(Key) Then
                Debug.Print "键 " & Key & " 的项值较大：" & dict(Key) - dict1(Key)
            ElseIf dict(Key) < dict1(Key) Then
                Debug.Print "键 " & Key & " 的项值较小：" & dict1(Key)
            Else
                Debug.Print "键 " & Key & " 的项值相同：" & dict(Key)
            End If
        Else
            Debug.Print "第二个字典不包含键：" & Key
        End If
    Next Key

8.改变字典中的值

代码如下（示例）：

    i = 1 ' 从第一行开始写入
    For Each Key In H2.Keys
        Cells(i, 1).Value = Key ' 将键写入A列
        Cells(i, 2).Value = H2(Key) ' 将值写入B列
        i = i + 1 ' 移动到下一行
    Next Key

三、设置单元格

Selection.Borders.LineStyle = 1  '加边框 1表示实线
Selection.Borders(12).Weight = 1 '选择区域内的边框(不包括四周)，(12)表示区域内水平边框，(11)表示区域内垂直边框
Selection.Interior.ColorIndex = 37 '单元格加颜色
Cells(AQ, 8).Interior.Color = RGB(255, 192, 0)

RGBValue = RGB(192, 192, 192) '求RGB单元格加颜色
Cells(2, 2).Interior.Color = RGBValue
A = Range("A65").DisplayFormat.Interior.Color '求单元格加颜色
Cells(F1, 9).Font.ColorIndex = 3 '字体加颜色
Cells.WrapText = False '取消自动换行
ActiveWindow.DisplayGridlines = True '显示网格线
Columns("M:O").Hidden = True ' 隐藏列
Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '删除空值行

Cells.EntireColumn.AutoFit '自动调整列宽
Cells.EntireRow.AutoFit '自动调整行宽

Cells.NumberFormatLocal = "#,##0.000_ " '设置保留3位小数
Selection.NumberFormatLocal = "_ * #,##0_ ;_ * -#,##0_ ;_ * ""-""_ ;_ @_ " '设置会计专用

Rows(3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove'插入一行

Cells.Replace What:="J2025", Replacement:="JDM", LookAt:=xlPart'替换

Range("A5:E13").ClearContents ' 清除内容

Selection.PasteSpecial Paste:=xlPasteValues ' 粘贴成数值

Sub 宏1()
    With Selection
        .HorizontalAlignment = xlCenter ' 居中
        .HorizontalAlignment = xlDistributed ' 字符分散对齐
        .HorizontalAlignment = xlJustify '调节对齐
        .HorizontalAlignment = xlLeft ' 靠左
        .HorizontalAlignment = xlRight ' 靠右
    End With
End Sub

▲▼

Sub 调色板()
For A = 0 To 56
Range("A" & A + 1).Interior.ColorIndex = A
Next
End Sub

Sub 冻结窗口()
  Range("B4").Select
  ActiveWindow.FreezePanes = True '冻结窗口
  ActiveWindow.FreezePanes = False '取消冻结窗口
End Sub

' WPS冻结窗格
    ActiveSheet.Select
    ' 冻结首行（第1行）
    With ActiveWindow
        .SplitRow = 1
        .FreezePanes = True
    End With
  

    '设置单元格_字体
    With Selection.Font '包含对象的字体属性（字体名称、字号、颜色等等）
        .Name = "宋体" '字体
        .FontStyle = "常规" '字型（倾斜、加粗）
        .Size = 11 '字号
        .Strikethrough = False '删除线（属性值 False True）
        .Superscript = False '上标（属性值 False True）
        .Subscript = False '下标（属性值 False True）
        .Underline = xlUnderlineStyleNone '设置下划线
        .Color = 255 '字体颜色
    End With
    '设置单元格_对齐
    With Selection
        .HorizontalAlignment = xlGeneral '水平对齐方式
        .VerticalAlignment = xlCenter '垂直对齐方式
        .WrapText = True '自动换行（属性值 False True）
        .Orientation = 0 '字体角度
    End With
    '设置单元格_数字
    With Selection
        .NumberFormatLocal = "0.00_ "'常规
        .NumberFormatLocal = "G/通用格式"
    End With
    '设置单元格_边框&填充
    With Selection
        .Borders.LineStyle = 1  '加边框 1表示实线
        '选择区域内的边框(不包括四周)，(12)表示区域内水平边框，(11)表示区域内垂直边框
        .Borders(12).Weight = 1 '虚线
        .Interior.ColorIndex = 37 '单元格加颜色
    End With
    
    With Cells
        '取消自动换行
        .WrapText = False
        '取消合并单元格
        .UnMerge
    End With

四、特殊单元格

非空单元格的最大列/行号

A0 = Cells(3, Columns.Count).End(xlToLeft).Column 

B0 = Cells(Rows.Count, A2).End(xlUp).Row

dzxxrzs
关注
VBA 数组导入单元格
weixin_34360651的博客
05-31 7680
第3例我们学会了如何把单元格中的数据搬入内存，变身为VBA数组。那么，VBA数组怎么输回到单元格中呢？就象菜做好了，怎么更快的上桌呢？1、二维数组的导入：VBA中常见的数组形式有一维数组和二维数组，相比一维数组，二维数组输入则较为简单，直接放在一个单元格区域中就可以，即： Range(单元格区域)=arr '这里arr是一个二维数组，值得注意的...
Excel_VBA教程
09-22
一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2 第九节 循环语句 3 第十节 其他类语句和错误语句处理 4 第十一节 过程和函数 4 一．Sub过程 4 二．Function函数 5 三．Property属性过程和Event事件过程 5 第十二节内部函数 5 一．测试函数 5 二．数学函数 5 三．字符串函数 6 四．转换函数 6 五．时间函数 6 第十三节 文件操作 6 文件 6 删除 7 打开 7 读入 7 写入 7 关闭 7 其他文件函数 7 二、VISUAL BASIC程序设计网络教学 1 第一课 VBA是什么 1 1.1 VBA是什么 1 1.2 EXCEL环境中基于应用程序自动化的优点 1 1.3 录制简单的宏 2 1.4 执行宏 2 1.5 查看录制的代码 2 1.6 编辑录制的代码 3 1.7 录制宏的局限性 4 1.8 小结 4 第二课 处理录制的宏 4 2.1 为宏指定快捷键 4 2.2 决定宏保存的位置 5 2.3 个人宏工作簿 5 2.3.1 保存宏到个人宏工作簿 5 2.3.2 使用并编辑个人宏工作簿中的宏 5 2.4 将宏指定给按钮 6 2.5 将宏指定给图片或其他对象 6 2.6 小结 7 第三课 学习控件 7 3.1 EXCEL开发过程简介 7 3.2 认识不同的控件 7 3.3 向工作表添加控件 7 3.4 设置控件的特性 8 3.5 给控件命名 8 3.6 使用用户窗体 8 3.7 疑难解答 9 第四课 理解变量和变量的作用 9 4.1 代码存在的位置：模块 9 4.2 对模块的概览 10 4.2.1 创建过程 10 4.2.2 运行宏 11 4.3 保存对模块所做的改变 11 4.4 变量 11 4.4.1 变量的数据类型 11 4.4.2 用Dim语句创建变量(声明变量) 13 4.4.3 变量命名的惯例 13 4.4.4 使用数组 14 4.4.5 变量赋值 15 第五课 利用VBA设置工作表使用权限 15 1．使用WITH语句。 17 2．使用对象变量。 17 方法3：减少对象的激活和选择 17 方法4：关闭屏幕更新 18 第六课 提高EXCEL中VBA的效率 19 方法1：尽量使用VBA原有的属性、方法和WORKSHEET函数 19 方法2：尽量减少使用对象引用，尤其在循环中 19 1．使用With语句。 19 2．使用对象变量。 20 3．在循环中要尽量减少对象的访问。 20 方法3：减少对象的激活和选择 20 方法4：关闭屏幕更新 20 第七课 如何在EXCEL里使用定时器 20 三、学习微软 EXCEL 2002 VBA 编程和XML，ASP技术 22 第一章 电子表格自动化简介和了解宏命令 22 1了解宏 22 2宏命令的普通应用 22 3写宏之前的计划 23 4录制宏 24 5运行宏 26 6修改宏代码 26 7添加注释 29 8分析宏代码 29 9清除宏代码 30 10测试修改好的宏 31 11两个层面运行宏的方法 32 12完善你的宏代码 32 13重新命名宏 34 14运行宏的其它方法 34 15使用键盘快捷键运行宏 34 16通过菜单运行宏 35 17通过工具栏按钮运行宏 37 18通过工作表里面的按钮运行宏 38 19保存宏 39 20打印宏 39 21保存宏在个人宏工作簿 40 22打开含有宏的工作簿 41 23VB编辑窗口 42 24了解工程浏览窗口 43 25了解属性窗口 43 26了解代码窗口 44 27 VB编辑器里的其它窗口 46 28接下来…… 46 第二章 VBA 第一步 46 1了解指令，模块和过程 47 2 VBA工程命名 47 3模块重命名 48 4从其它工程调用过程 49 5了解对象，属性和方法 50 6学习对象，属性和方法 51 7句法和文法 53 8打断很长的VBA语句 55 9了解VBA错误 55 10查找帮助 57 11语法和编程快捷助手 58 12属性/方法列表 59 13常数列表 59 14参数信息 60 15快速信息 60 16自动完成关键字 60 17缩进/凸出 61 18设置注释块/解除注释块 61 19使用对象浏览器 61 20使用VBA对象库 66 21用对象浏览器来定位过程 67 22使用立即窗口 67 23获取立即窗口里的信息 69 24学习对象 70 25电子表格单元格操作 70 26使用RANGE属性 70 27使用CELLS属性 71 28使用OFFSET属性 71 29选择单元格的其它方法 72 30选择行和列 73 31获取工作表信息 73 32往工作表输入数据 73 33返回工作表中的信息 74 34单元格格式 74 35移动，复制和删除单元格 74 36操作工作簿和工作表 75 37操作窗口（WINDOWS） 76 38管理EXCEL应用程序 76 39接下来…… 77 第三章 了解变量，数据类型和常量 77 1保存VBA语句的结果 77 2变量是什么 77 3数据类型 78 4如何产生变量 78 5如何声明变量 79 6明确变量的数据类型 80 7变量赋值 81 8强制声明变量 84 9了解变量范围 85 10过程级别（当地）变量 85 11模块级别变量 85 12工程级别变量 86 13变量的存活期 86 14了解和使用静态变量 86 15声明和使用对象变量 87 16使用明确的对象变量 88 17查找变量定义 88 18在VB过程里面使用常量 89 19内置常量 89 20接下来…… 90 第四章 VBA过程：子程序和函数 91 1.关于函数过程 91 2.创建函数过程 91 3.执行函数过程 92 4.从工作表里运行函数过程 93 5.从另外一个VBA过程里运行函数过程 94 6.传递参数 95 7.明确参数类型 96 8.按地址和按值传递参数 97 9.使用可选的参数 97 10.定位内置函数 98 11.使用MSGBOX函数 99 12.MSGBOX函数的运行值 103 13.使用INPUTBOX函数 104 14.数据类型转变 105 15.使用INPUTBOX方法 106 16.使用主过程和子过程 109 17.接下来…… 111 第五章 基于VBA做决定 111 1.关系和逻辑运算符 111 2.IF…THEN语句 112 3.基于多于一个条件的决定 114 4.THE IF…THEN…ELSE语句 115 5.IF…THEN…ELSEIF语句 118 6.嵌套的IF…THEN语句 119 7.SELECT CASE语句 120 8.和CASE子句一起使用IS 121 9.确定CASE子句里数值的范围 122 10.在CASE子句里确定多个表达式 123 11.接下来… 123 第六章 在VBA中重复操作 123 1.DO LOOPS: DO…WHILE和DO…UNTIL 123 2.观察过程执行 126 3.WHILE…WEND循环 127 4.FOR…NEXT 循环 128 5.FOR EACH…NEXT循环 129 7.提前跳出循环 130 8.循环嵌套 131 9.接下来… 131 第七章 利用VBA数组管理数据清单和表格 131 1.了解数组 132 2.声明数组 133 3.数组的上界和下界 133 4.在VBA过程里使用数组 134 5.数组和循环语句 135 6.使用二维数组 136 7.静态和动态数组 137 8.数组函数 139 9.ARRAY函数 139 10.ISARRAY函数 140 11.ERASE函数 140 12.LBOUND函数和UBOUND函数 141 13.数组中的错误 141 14.数组作为参数 143 15.接下来… 143 第八章 利用VBA操纵文件和文件夹 144 1.获取当前文件夹的名称（CURDIR函数） 144 2.更改文件或文件夹名称（NAME函数） 145 3.检查文件或文件夹是否存在（DIR函数） 145 4.获得文件修改的日期和时间（FILEDATETIME函数） 147 5.获得文件大小（FILELEN函数） 147 6.返回和设置文件属性（GETATTR函数和SETATTR函数） 147 7.更改缺省文件夹或驱动器（CHDIR语句和CHDRIVE语句） 149 8.创建和删除文件夹（MKDIR语句和RMDIR语句） 149 9.复制文件（FILECOPY语句） 149 10.删除文件（KILL语句） 151 11.从文件读取和写入数据（INPUT/OUTPUT） 151 12.文件访问类型 152 13.使用顺序文件 152 14.读取储存于顺序文件里的数据 152 15.逐行读取文件 152 16.从顺序文件中读取字符 153 17.读取分隔文本文件 155 18.往顺序文件里写数据 155 19.使用WRITE # 和PRINT # 语句 156 20.操作随机文件 157 21.创建用户定义的数据类型 157 22.操作二进制文件 161 23.操作文件和文件夹的时髦方法 162 24.使用WSH获取文件信息 164 25.FILESYSTEMOBJEC的方法和属性 165 26.对象FILE的属性 168 27.文件夹对象属性 169 28.驱动器对象属性 169 29.使用WSH创建文本文件 170 30.使用WSH进行其它操作 172 31.运行其它应用程序 172 32.创建快捷方式 173 33.接下来…… 174 第九章 利用VBA控制其它应用程序 174 1.启动应用程序 174 2.在应用程序之间切换 177 3.控制其它应用程序 177 4.控制应用程序的其它方法 179 5.了解自动控制 179 6.了解链接和嵌入 180 7.使用VBA进行链接和嵌入 181 8.COM和自动控制 182 9.了解绑定 182 10.后期绑定 182 11.早期绑定 182 12.建立到对象库的引用 183 13.创建自动控制对象 184 14.使用CREATEOBJECT函数 184 15.使用自动控制创建一个新的WORD文档 185 16.使用GETOBJECT函数 185 17.打开存在的WORD文档 186 18.使用关键字NEW 187 19.使用自动控制访问MICROSOFT OUTLOOK 188 20.接下来…… 189 第十章 对话框和自定义窗体 189 1.文件打开和另存为对话框 192 2.GETOPENFILENAME和GETSAVEASFILENAME方法 196 3.创建窗体 197 4.创建用户窗体的工具 199 5.标签 200 6.文字框 200 7.框架 200 8.选项按钮 201 9.复选框 201 10.切换按钮 201 11.列表框 201 12.复合框 201 13.滚动条 201 14.旋转按钮 201 15.图像 201 16.多页控件 202 17.TABSTRIP控件 202 18.REFEDIT控件 202 19.在窗体上放置控件 202 20.应用程序示例1：信息调查 202 21.在窗体上添加按钮、选项框和其它控件 204 22.更改控件名称 206 23.设置其它控件属性 206 24.准备工作表以储存窗体数据 207 25.显示自定义窗体 208 26.设置TAB顺序 208 27.了解窗体和控件事件 209 28.编写VBA过程对窗体和控件事件反应 211 29.编写过程来初始化窗体 211 30.编写过程填充列表框控件 213 31.编写过程控制选项按钮 213 32.编写过程同步文字框和旋转按钮 214 33.编写过程关闭用户窗体 214 34.转移窗体数据到工作表 215 35.使用INFO SURVEY应用程序 216 36.应用程序示例2：学生和考试 216 37.使用多页和TABSTRIP控件 216 38.给窗体STUDENTS AND EXAMS自定义窗体编写VBA过程 218 39.使用自定义窗体STUDENTS AND EXAMS 223 40.接下来…… 225 第十一章 自定义集合和类模块 225 1.使用集合 226 2.声明自定义集合 227 3.给自定义集合添加对象 227 4.从自定义集合移出对象 228 5.创建自定义对象 229 6.创建类 229 7.变量声明 229 8.定义类的属性 230 9.创建PROPERTY GET过程 230 10.创建PROPERTY LET过程 231 11.创建类方法 232 12.创建类的示例 232 13.类模块里的事件过程 232 14.创建用户界面 233 15.观察VBA过程的执行 242 16.接下来…… 245 第十二章 使用VBA创建自定义菜单和工具栏 245 1.工具栏 245 2.创建自定义工具栏 247 3.删除自定义工具栏 249 4.使用COMMANDBAR的属性 249 5.使用COMMANDBAR控件 249 6.理解和使用控件属性 251 7.控件方法 253 8.使用菜单 254 9.菜单编程 256 10.创建子菜单 258 11.修改内置快捷菜单 260 12.创建快捷菜单 262 13.接下来…… 264 第十三章 调试VBA过程和处理错误 264 1.测试VBA过程 265 2.终止过程 265 3.使用断点 266 4.在中断模式下使用立即窗口 269 5.使用STOP语句 271 6.添加监视表达式 271 7.清除监视表达式 274 8.使用快速监视 274 9.使用本地窗口和调用堆栈对话框 275 10.逐句运行VBA过程 276 11.逐句运行过程 277 12.逐过程执行过程 277 13.设置下一条语句 278 14.显示下一条语句 279 15.终止和重新设置VBA过程 279 16.了解和使用条件编译 279 17.操纵书签 281 18.捕捉错误 281 17.接下来…… 285 第十四章 微软EXCEL 2002 中的事件编程 285 1.事件过程介绍 285 2.激活和失活事件 287 3.事件次序 289 4.工作表事件 289 5.工作簿事件 294 6.图表事件 312 7.内嵌图表事件 316 8.可为应用软件对象识别的事件 317 9.查询表时间 320 10.接下来…… 323 第十五章 在EXCEL里使用ACCESS 323 1.对象库 323 2.建立对对象库的引用 329 3.链接到ACCESS 329 4.使用AUTOMATION链接到ACCESS数据库 331 5.使用DAO链接到ACCESS数据库 334 6.使用ADO链接到ACCESS数据库 334 7.从EXCEL执行ACCESS任务 336 8.创建新ACCESS数据库 336 9.打开ACCESS窗体 338 10.打开ACCESS报表 343 11.运行ACCESS查询 345 12.运行选择查询 347 13.运行参数查询 348 14.调用ACCESS函数 350 15.获取ACCESS数据到EXCEL工作表 350 16.使用GETROWS方法获取数据 350 17.使用COPYFROMRECORDSET方法获取数据 354 18.使用TRANSFERSPREADSHEET方法获取数据 354 19.使用OPENDATABASE方法 356 20.从ACCESS数据创建文本文件 360 21.从ACCESS数据创建查询表 363 22.在EXCEL里使用ACCESS数据 365 23.用ACCESS数据创建内嵌图表 365 24.传输EXCEL电子表格到ACCESS数据库 367 25.将EXCEL电子表格链接到ACCESS数据库 369 26.将EXCEL电子表格导入ACCESS数据库 370 27.放置EXCEL数据到ACCESS表中 370 28.接下来…… 374
vba put 语名 delphi 用什么语句_将VBA数组写入工作表时转置（Transpose）的利用
weixin_39620653的博客
11-29 365
大家好,最近推出的内容是"VBA信息获取与处理"中的部分内容，这套教程面向中高级人员，涉及范围更广，实用性更强，现在的内容是第四个专题"EXCEL工作表数据的读取、回填和查找"的内容。第四节 将VBA数组写入工作表时转置(Transpose)的利用转置(Transpose)是数组应用中经常用到的知识点，在使用Excel表格的过程中，当我们想将横行转成竖列(或将纵向的数据切换成横向排列)，又希望这前...
VBA：数组中数据的转移
Allen_tang的博客
07-12 3399
BG：在之前的程序当中，使用了很多的数组，然后二维数组行和列常常需要倒置，简单的使用： arr=application.transpose(brr) 结果有时报错：下标越界，有时又不报错。 其中arr是数组：dim arr() brr也是数组，存放了数据（第一列的没有存入数组的信息）： 月份未存入数组 AA1 AA2 AA3 AA4 AA5 AA6 AA7 AA8 Jan 2 4 2 0 3 3 0
VBA从区域range()转化的数组都是二维数组，但特殊的1列或1行可以用Application.transpose为一维数组
奔跑的犀牛先生
01-15 7883
转1维 如果取的range是1列，那么transpose1次可以变成1维数组 如果取的range是1行，那么transpose2次可以变成1维数组 其他多行多列的是不可能转为1维数组的 Sub test_arr1() Debug.Print "这都是二维数组" '单列 arr1 = Range("a1:a10") '单行 arr2 = Range("a1:e1") '范围 arr...
VBA笔记
weiguidun的博客
01-24 2597
Visual Basic 语言参考
ExcelVBA与WordVBA教程第4季.pdf
10-26
总结起来，ExcelVBA和WordVBA教程第4季主要讲解了如何利用VBA编程来控制和自动化这两个程序，涵盖了基本的对象模型、集合、属性和方法的使用，以及对文档内容的精细操作。通过学习这些概念，用户可以创建自定义的宏...
【免费下载】ExcelVBA和WordVBA教程.rar
08-16
Excel VBA教程： Excel VBA使你能创建宏，这是一种可以执行一串命令的程序，用于处理大量数据和实现复杂的计算。通过学习Excel VBA，你可以： 1. **宏录制**：Excel内置的宏录制功能可以帮助初学者快速入门，记录并...
Excel-VBA教程完全版.pdf
04-29
### Excel-VBA教程知识点概述 #### VBA语言基础 - **标识符**：标识符用于命名变量、函数等。在VBA中，标识符必须遵循一定的规则，例如不能以数字开头，不能包含特殊字符（除了下划线）等。 - **运算符**：包括...
office vba教程中文帮助手册chm.zip
03-26
总的来说，这个"Office VBA教程中文帮助手册CHM.zip"是一个全面的自学资源，无论你是初学者还是有经验的开发者，都能从中受益，提升在Office环境中使用VBA解决问题的能力。在学习过程中，建议结合实际项目进行实践，...
ExcelVBA与WordVBA教程第1季.pdf
10-26
在Excel VBA（Visual Basic for Applications）中，用户可以编写宏来自动化电子表格的各种操作，如创建、删除和管理工作表。Word VBA也有类似的功能，但本篇内容主要涉及Excel VBA。以下是对给定文件部分内容的知识...
transpose公式_excel中transpose的使用
weixin_35159405的博客
01-16 4469
今天要分享的是函数transpose的使用，其实这个函数的基本用法很简单，就是转置数据，下面还介绍了很多这个函数与其他函数的组合应用，快来看一看吧！使用格式：TRANSPOSE(array)1、基本用法数据区域A1:D7是一个7行4列的单元格区域，所以需要选择一个4行7列的区域来存放转置后的数据。选中单元格区域A10:G13输入公式：=TRANSPOSE(A1:D7)按三键结束。注意：在公式的两端...
VBA代码写入单元格
豪情云天博客,分享经典好用代码,和工具,感谢大家的关注和支持!
05-17 1212
【代码】VBA代码写入单元格。
transpose公式_介绍一下Excel中的TRANSPOSE函数
weixin_39626409的博客
01-05 1269
TRANSPOSE函数在Excel里面是转置单元格的功能。当在单元格里面需要转置的时候，一般情况下都会先复制原来的区域，然后在粘贴的时候选择“转置”。这样一来，在新的单元格区域里面，数据就会转置了。这一过程，也可以使用TRANSPOSE函数来实现。现在有这样一个数据区域，要将其进行转置。1.选中需要放置转制后内容的区域，行和列应该与原区域对照。例如这里园区与是3行2列，目标区域转制后是2行3列，选...
VBA字典（详解，示例）
热门推荐
me_to_007的博客
05-03 11万+
字典主要作用：条件计数、条件求和、去重、匹配。 本篇主要介绍了VBA字典以上使用方法及注意事项。 代码调试快捷键：F8，可逐行运行，配合本地窗口查看对象及其属性、立即窗口打印变量
VBA字典之基本概念和基本用法（非常详细）零基础入门到精通，收藏这一篇就够了
Javachichi的博客
05-29 5948
字典具有速度快的特点，可以快速地查找和提取数据。内容概要：包括 内网、操作系统、协议、渗透测试、安服、漏洞、注入、XSS、CSRF、SSRF、文件上传、文件下载、文件包含、XXE、逻辑漏洞、工具、SQLmap、NMAP、BP、MSF…技术文档也是我自己整理的，包括我参加大型网安行动、CTF和挖SRC漏洞的经验和技术要点，电子书也有200多本，由于内容的敏感性，我就不一一展示了。网上虽然也有很多的学习资源，但基本上都残缺不全的，这是我自己录的网安视频教程，上面路线图的每一个知识点，我都有配套的视频讲解。
Transpose实现数组行列转置的限制
神奇的BI
02-24 1万+
        提到数组，大家都不陌生，什么是数组行列转置呢？其实也很简单，如下图所示，行列转置就是将数组元素的存放方式进行转换，原来保存在第一列的数据，将保持在新数组的第一行，并且保持原有顺序，即6在第一个位置，8在最后一个位置。其他列依次类推。        在Excel工作表中有个强大的函数Transpose，可以直接实现数组行列转置，作为VBA开发者来说，肯定不会忘记用这个。Sub Dem...
数组内数值的排序
m0_73280369的博客
09-15 455
【代码】数组内数值的排序。
vba教程
最新发布
03-11
嗯，用户想要了解VBA教程，我需要先确定他们的背景和需求。可能是个办公人员想提高效率，或者学生需要处理数据。首先得解释VBA是什么，应用场景，比如Excel自动化。然后应该分步骤介绍学习路径，从基础语法到对象...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值