Excel VBA数组拓展列表(可以用作数据容器)

最新推荐文章于 2024-04-27 07:45:00 发布
最新推荐文章于 2024-04-27 07:45:00 发布
阅读量1.8k 收藏 6
点赞数
分类专栏： Excel VBA 文章标签： 其他
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qh0526wy/article/details/115829228
版权

应用场景：

从数据库获取数据暂存，多表汇总，数据分析等，因为数组是存在于内存的，所以运行速度会非常快。

一、先总结数组的特性

  1. 数组转置必须在同过程或同函数内redim  否则报无效 redim；
  2. 起始标必须为1，不能大于1也不能小于1，否则报类型不匹配错误；  
  3. 数组不改变值的情况下只能增加列的数，如果要增加行，只能先转置，再增加，然后转置还原；
  4. 如果数组存储了null，则不能被转置，因此在存入空值时需要过滤； 
  5. 经过多次实验证明：VBA的数组起始标只能以1开始，否则无法转置

二、列表设计思路

  1. 利用类模块，当成对象开发；
  2. 生成数组是二维数组，每个维度的长度都可以通过参数设置；
  3. 通过行标列表添加数据；
  4. 直接最后一行后默认加入一行数据；
  5. 可以获取行和列的长度；
  6. 注意：如果是空值则不存入数组，否则数组将无法转置，将导致无法动态变动。

三、代码实现

       定义私有变量

Private qh_row_count
Private qh_cloumn_count
Private qh_row_star
Private qh_cloumn_star
Private qh_array

Private qh_array_bool As Boolean
Private qh_XieRu_msg As String         '阙_写入数据
Private qh_XieRu_flag As Boolean          '阙_写入数据
Private qh_MoJiaHang_msg As String     '阙_末行后增加数据
Private qh_MoJiaHang_flag As Boolean    '阙_末行后增加数据

       设置传入行列的长度

Property Let 阙_行长度(qh_data)
qh_row_count = qh_data
End Property
Property Let 阙_列长度(qh_data)
qh_cloumn_count = qh_data
End Property

     创建二维数组

Property Get 阙_创建数组()

'默认值  阙辉
If qh_row_count = "" Then qh_row_count = 1
If qh_cloumn_count = "" Then qh_cloumn_count = 1
If qh_row_star = "" Then qh_row_star = 1
If qh_cloumn_star = "" Then qh_cloumn_star = 1

qh_row_star = 1
qh_cloumn_star = 1

'创建数组  阙辉
ReDim qh_array(qh_row_star To qh_row_count, qh_cloumn_star To qh_cloumn_count)

qh_array_bool = True  '如果为真表示数组已创建，否则没创建
'阙_创建数组 = qh_array

End Property

     按行列写入数值（可获取写入的状态和返回的消息）

Property Get 阙_写入数据(qh_row, qh_cloumn, qh_value)
Dim qh_row_flag As Boolean
Dim qh_cloumn_flag As Boolean

'初始化默认值
qh_XieRu_flag = False
qh_row_flag = False
qh_cloumn_flag = False
qh_XieRu_msg = ""
qh_msg = ""

qh_row_last = UBound(qh_array, 1)
qh_row_star = LBound(qh_array, 1)
qh_cloumn_last = UBound(qh_array, 2)
qh_cloumn_star = LBound(qh_array, 2)

'如果行不在行标中则qh_row_flag为真
If qh_row >= qh_row_star And qh_row <= qh_row_last Then
    qh_row_flag = True
    qh_msg = "行不在范围，QH！"
End If
qh_XieRu_msg = qh_msg

'如果行不在列标中则qh_cloumn_flag为真
If qh_cloumn >= qh_cloumn_star And qh_cloumn <= qh_cloumn_last Then
    qh_cloumn_flag = True
    qh_msg = "列不在范围，QH！"
End If
If qh_XieRu_msg <> "" Then
    qh_XieRu_msg = qh_XieRu_msg & "_" & qh_msg
Else
    qh_XieRu_msg = qh_msg
End If

'防止行标和列标越界  越界则不写入数据，且不会报错，在写程序时建议先预制检验行列是否在范围内
If qh_row_flag And qh_cloumn_flag Then
    If qh_value <> "" Then  '空值写入数组后是null，会导致数组无法转置
        qh_array(qh_row, qh_cloumn) = qh_value
        qh_XieRu_flag = True   '返回真
        qh_XieRu_msg = "成功写入数组，QH！"
    End If
End If
阙_写入数据 = qh_array
End Property

Property Get 阙_写入数据_消息()   '应紧跟阙_写入数据后面获取，否则消息被更新
    阙_写入数据_消息 = qh_XieRu_msg
End Property
Property Get 阙_写入数据_状态()   '应紧跟阙_写入数据后面获取，否则状态被更新
    阙_写入数据_状态 = qh_XieRu_flag
End Property

       默认在最后添加行

Property Get 阙_末行后增加数据(qh_array_data)    '不改变数组结构情况下，在最后一行添加数据
Dim qh_LBound_XiuZheng

qh_MoJiaHang_flag = False
qh_MoJiaHang_msg = ""
qh_add_count = 1   '默认增加一行

qh_cloumn_star_n = LBound(qh_array, 2)    '结果数组的起始列标
qh_array_data_cloumn_star_n = LBound(qh_array_data)    '传入数组的数组的起始列标


qh_array_data_l = qh_len_arr(qh_array_data)
qh_array_l = qh_len_arr_duo(qh_array)(1)

If qh_cloumn_star_n = qh_array_data_cloumn_star_n Then
    qh_LBound_XiuZheng = 0
Else
    qh_LBound_XiuZheng = qh_array_data_cloumn_star_n - qh_cloumn_star_n
End If


qh_array = qh_add_row(qh_array, qh_add_count)
qh_row_last = UBound(qh_array, 1)

If qh_array_l >= qh_array_data_l Then   '判断写入的列数是否小于二维数组的列数
    For qh_i = qh_cloumn_star_n To qh_array_l
        qh_row_array = qh_array_data(qh_i + qh_LBound_XiuZheng)
        If qh_row_array <> "" Then
            qh_array(qh_row_last, qh_i) = qh_array_data(qh_i + qh_LBound_XiuZheng)
            qh_MoJiaHang_flag = True
            qh_MoJiaHang_msg = "成功写入数组，QH！"
        End If
    Next
End If

阙_末行后增加数据 = qh_array

End Property

        获取列表的属性值

Property Get 阙_起始行标()
qh_row_star = LBound(qh_array, 1)
阙_起始行标 = qh_row_star
End Property
Property Get 阙_最末行标()
qh_row_last = UBound(qh_array, 1)
阙_最末行标 = qh_row_last
End Property
Property Get 阙_起始列标()
qh_cloumn_star = LBound(qh_array, 2)
阙_起始列标 = qh_cloumn_star
End Property
Property Get 阙_最末列标()
qh_cloumn_last = UBound(qh_array, 2)
阙_最末列标 = qh_cloumn_last
End Property
Property Get 阙_行的长度()
qh_len = qh_len_arr_duo(qh_array)(0)
阙_行的长度 = qh_len
End Property
Property Get 阙_列的长度()
qh_len_2 = qh_len_arr_duo(qh_array)(1)
阙_列的长度 = qh_len_2
End Property

     以上功能需要调用通用函数方法

Private Function qh_add_row(qh_array_new0, qh_add_count0)   '增加二维数组行函数

'1.数组转置必须在同过程或同函数内redim  否则报无效 redim  阙辉
'2.起始标必须为1，不能大于1也不能小于1，否则报类型不匹配错误    阙辉
'3.数组不改变值的情况下只能增加列的数，如果要增加行，只能先转置，再增加，然后转置还原
'4.如果数组存储了null，则不能被转置，因此在存入空值时需要过滤   阙辉

Dim qh_array_new
Dim qh_array_new_new

qh_array_new = qh_array_new0
qh_add_count = qh_add_count0   '传入需要增加的行

'qh_row_last_n = UBound(qh_array_new, 1)
'qh_row_star_n = LBound(qh_array_new, 1)
'qh_cloumn_last_n = UBound(qh_array_new, 2)
'qh_cloumn_star_n = LBound(qh_array_new, 2)

qh_len = qh_len_arr_duo(qh_array_new)(0)
qh_len_2 = qh_len_arr_duo(qh_array_new)(1)

ReDim qh_array_new_new(1 To qh_len, 1 To qh_len_2)
qh_array_new_new = qh_array_new
'qh_array_new = qh_array_new0



'qh_array_new = qh_array_new0   '传入的数组

qh_array_new_row = qh_len + qh_add_count
'MsgBox qh_array_new_row

qh_array_new_new = Application.Transpose(qh_array_new_new)
ReDim Preserve qh_array_new_new(1 To qh_len_2, 1 To qh_array_new_row)
qh_array_new_new = Application.Transpose(qh_array_new_new)

qh_add_row = qh_array_new_new

End Function
Private Function qh_add_cloumn(qh_array_new0, qh_add_count0)   '增加二维数组列函数

'1.数组转置必须在同过程或同函数内redim  否则报无效 redim  阙辉
'2.起始标必须为1，不能大于1也不能小于1，否则报类型不匹配错误    阙辉
'3.数组不改变值的情况下只能增加列的数，如果要增加行，只能先转置，再增加，然后转置还原
'4.如果数组存储了null，则不能被转置，因此在存入空值时需要过滤   阙辉

Dim qh_array_new
Dim qh_array_new_new

qh_array_new = qh_array_new0
qh_add_count = qh_add_count0   '传入需要增加的列

'qh_row_last_n = UBound(qh_array_new, 1)
'qh_row_star_n = LBound(qh_array_new, 1)
'qh_cloumn_last_n = UBound(qh_array_new, 2)
'qh_cloumn_star_n = LBound(qh_array_new, 2)

qh_len = qh_len_arr_duo(qh_array_new)(0)
qh_len_2 = qh_len_arr_duo(qh_array_new)(1)

ReDim qh_array_new_new(1 To qh_len, 1 To qh_len_2)
qh_array_new_new = qh_array_new
'qh_array_new = qh_array_new0



'qh_array_new = qh_array_new0   '传入的数组

qh_array_new_cloumn = qh_len_2 + qh_add_count
'MsgBox qh_array_new_row

'qh_array_new_new = Application.Transpose(qh_array_new_new)
ReDim Preserve qh_array_new_new(1 To qh_len, 1 To qh_array_new_cloumn)
'qh_array_new_new = Application.Transpose(qh_array_new_new)

qh_add_row = qh_array_new_new

End Function
Private Function qh_len_arr_duo(qh_array0)    '计算数组的长度  作者:阙辉   2021.02.24
Dim qh_array
Dim qh_array_1, qh_array_2

qh_array = qh_array0
qh_array_1 = UBound(qh_array, 1) - LBound(qh_array, 1) + 1
qh_array_2 = UBound(qh_array, 2) - LBound(qh_array, 2) + 1



qh_len_arr_duo = Array(qh_array_1, qh_array_2)
End Function
Function qh_len_arr(qh_array0)    '计算数组的长度  作者:阙辉   2021.02.24
Dim qh_array
Dim qh_array_l

qh_array = qh_array0
qh_array_l = UBound(qh_array) - LBound(qh_array) + 1

qh_len_arr = qh_array_l

End Function

四、完整的代码展示

'经过多次实验证明：VBA的数组起始标只能以1开始，否则无法转置
Private qh_row_count
Private qh_cloumn_count
Private qh_row_star
Private qh_cloumn_star
Private qh_array

Private qh_array_bool As Boolean
Private qh_XieRu_msg As String         '阙_写入数据
Private qh_XieRu_flag As Boolean          '阙_写入数据
Private qh_MoJiaHang_msg As String     '阙_末行后增加数据
Private qh_MoJiaHang_flag As Boolean    '阙_末行后增加数据
Property Let 阙_行长度(qh_data)
qh_row_count = qh_data
End Property
Property Let 阙_列长度(qh_data)
qh_cloumn_count = qh_data
End Property
'Property Let 阙_行起始(qh_data)
'qh_row_star = qh_data
'End Property
'Property Let 阙_列起始(qh_data)
'qh_cloumn_star = qh_data
'End Property
Property Get 阙_创建数组()

'默认值  阙辉
If qh_row_count = "" Then qh_row_count = 1
If qh_cloumn_count = "" Then qh_cloumn_count = 1
If qh_row_star = "" Then qh_row_star = 1
If qh_cloumn_star = "" Then qh_cloumn_star = 1

qh_row_star = 1
qh_cloumn_star = 1

''修正长度值  阙辉
'If qh_row_star = 0 Then
'    qh_row_count = qh_row_count - 1
'ElseIf qh_row_star > 1 Then
'    qh_row_count = qh_row_count + qh_row_star
'ElseIf qh_row_star < 0 Then
'    qh_row_count = qh_row_count + qh_row_star - 1
'End If
'If qh_cloumn_star = 0 Then
'    qh_cloumn_count = qh_cloumn_count - 1
'ElseIf qh_cloumn_star > 1 Then
'    qh_cloumn_count = qh_cloumn_count + qh_cloumn_star
'ElseIf qh_cloumn_star < 0 Then
'    qh_cloumn_count = qh_cloumn_count + qh_cloumn_star - 1
'End If

'创建数组  阙辉
ReDim qh_array(qh_row_star To qh_row_count, qh_cloumn_star To qh_cloumn_count)

qh_array_bool = True  '如果为真表示数组已创建，否则没创建
'阙_创建数组 = qh_array

End Property
Property Get 阙_起始行标()
qh_row_star = LBound(qh_array, 1)
阙_起始行标 = qh_row_star
End Property
Property Get 阙_最末行标()
qh_row_last = UBound(qh_array, 1)
阙_最末行标 = qh_row_last
End Property
Property Get 阙_起始列标()
qh_cloumn_star = LBound(qh_array, 2)
阙_起始列标 = qh_cloumn_star
End Property
Property Get 阙_最末列标()
qh_cloumn_last = UBound(qh_array, 2)
阙_最末列标 = qh_cloumn_last
End Property
Property Get 阙_行的长度()
qh_len = qh_len_arr_duo(qh_array)(0)
阙_行的长度 = qh_len
End Property
Property Get 阙_列的长度()
qh_len_2 = qh_len_arr_duo(qh_array)(1)
阙_列的长度 = qh_len_2
End Property
Property Get 阙_写入数据(qh_row, qh_cloumn, qh_value)
Dim qh_row_flag As Boolean
Dim qh_cloumn_flag As Boolean

'初始化默认值
qh_XieRu_flag = False
qh_row_flag = False
qh_cloumn_flag = False
qh_XieRu_msg = ""
qh_msg = ""

qh_row_last = UBound(qh_array, 1)
qh_row_star = LBound(qh_array, 1)
qh_cloumn_last = UBound(qh_array, 2)
qh_cloumn_star = LBound(qh_array, 2)

'如果行不在行标中则qh_row_flag为真
If qh_row >= qh_row_star And qh_row <= qh_row_last Then
    qh_row_flag = True
    qh_msg = "行不在范围，QH！"
End If
qh_XieRu_msg = qh_msg

'如果行不在列标中则qh_cloumn_flag为真
If qh_cloumn >= qh_cloumn_star And qh_cloumn <= qh_cloumn_last Then
    qh_cloumn_flag = True
    qh_msg = "列不在范围，QH！"
End If
If qh_XieRu_msg <> "" Then
    qh_XieRu_msg = qh_XieRu_msg & "_" & qh_msg
Else
    qh_XieRu_msg = qh_msg
End If

'防止行标和列标越界  越界则不写入数据，且不会报错，在写程序时建议先预制检验行列是否在范围内
If qh_row_flag And qh_cloumn_flag Then
    If qh_value <> "" Then  '空值写入数组后是null，会导致数组无法转置
        qh_array(qh_row, qh_cloumn) = qh_value
        qh_XieRu_flag = True   '返回真
        qh_XieRu_msg = "成功写入数组，QH！"
    End If
End If
阙_写入数据 = qh_array
End Property
Property Get 阙_写入数据_消息()   '应紧跟阙_写入数据后面获取，否则消息被更新
    阙_写入数据_消息 = qh_XieRu_msg
End Property
Property Get 阙_写入数据_状态()   '应紧跟阙_写入数据后面获取，否则状态被更新
    阙_写入数据_状态 = qh_XieRu_flag
End Property
Property Get 阙_末行后增加数据(qh_array_data)    '不改变数组结构情况下，在最后一行添加数据
Dim qh_LBound_XiuZheng

qh_MoJiaHang_flag = False
qh_MoJiaHang_msg = ""
qh_add_count = 1   '默认增加一行

qh_cloumn_star_n = LBound(qh_array, 2)    '结果数组的起始列标
qh_array_data_cloumn_star_n = LBound(qh_array_data)    '传入数组的数组的起始列标


qh_array_data_l = qh_len_arr(qh_array_data)
qh_array_l = qh_len_arr_duo(qh_array)(1)

If qh_cloumn_star_n = qh_array_data_cloumn_star_n Then
    qh_LBound_XiuZheng = 0
Else
    qh_LBound_XiuZheng = qh_array_data_cloumn_star_n - qh_cloumn_star_n
End If


qh_array = qh_add_row(qh_array, qh_add_count)
qh_row_last = UBound(qh_array, 1)

If qh_array_l >= qh_array_data_l Then   '判断写入的列数是否小于二维数组的列数
    For qh_i = qh_cloumn_star_n To qh_array_l
        qh_row_array = qh_array_data(qh_i + qh_LBound_XiuZheng)
        If qh_row_array <> "" Then
            qh_array(qh_row_last, qh_i) = qh_array_data(qh_i + qh_LBound_XiuZheng)
            qh_MoJiaHang_flag = True
            qh_MoJiaHang_msg = "成功写入数组，QH！"
        End If
    Next
End If

阙_末行后增加数据 = qh_array

End Property
Private Function qh_add_row(qh_array_new0, qh_add_count0)   '增加二维数组行函数

'1.数组转置必须在同过程或同函数内redim  否则报无效 redim  阙辉
'2.起始标必须为1，不能大于1也不能小于1，否则报类型不匹配错误    阙辉
'3.数组不改变值的情况下只能增加列的数，如果要增加行，只能先转置，再增加，然后转置还原
'4.如果数组存储了null，则不能被转置，因此在存入空值时需要过滤   阙辉

Dim qh_array_new
Dim qh_array_new_new

qh_array_new = qh_array_new0
qh_add_count = qh_add_count0   '传入需要增加的行

'qh_row_last_n = UBound(qh_array_new, 1)
'qh_row_star_n = LBound(qh_array_new, 1)
'qh_cloumn_last_n = UBound(qh_array_new, 2)
'qh_cloumn_star_n = LBound(qh_array_new, 2)

qh_len = qh_len_arr_duo(qh_array_new)(0)
qh_len_2 = qh_len_arr_duo(qh_array_new)(1)

ReDim qh_array_new_new(1 To qh_len, 1 To qh_len_2)
qh_array_new_new = qh_array_new
'qh_array_new = qh_array_new0



'qh_array_new = qh_array_new0   '传入的数组

qh_array_new_row = qh_len + qh_add_count
'MsgBox qh_array_new_row

qh_array_new_new = Application.Transpose(qh_array_new_new)
ReDim Preserve qh_array_new_new(1 To qh_len_2, 1 To qh_array_new_row)
qh_array_new_new = Application.Transpose(qh_array_new_new)

qh_add_row = qh_array_new_new

End Function
Private Function qh_add_cloumn(qh_array_new0, qh_add_count0)   '增加二维数组列函数

'1.数组转置必须在同过程或同函数内redim  否则报无效 redim  阙辉
'2.起始标必须为1，不能大于1也不能小于1，否则报类型不匹配错误    阙辉
'3.数组不改变值的情况下只能增加列的数，如果要增加行，只能先转置，再增加，然后转置还原
'4.如果数组存储了null，则不能被转置，因此在存入空值时需要过滤   阙辉

Dim qh_array_new
Dim qh_array_new_new

qh_array_new = qh_array_new0
qh_add_count = qh_add_count0   '传入需要增加的列

'qh_row_last_n = UBound(qh_array_new, 1)
'qh_row_star_n = LBound(qh_array_new, 1)
'qh_cloumn_last_n = UBound(qh_array_new, 2)
'qh_cloumn_star_n = LBound(qh_array_new, 2)

qh_len = qh_len_arr_duo(qh_array_new)(0)
qh_len_2 = qh_len_arr_duo(qh_array_new)(1)

ReDim qh_array_new_new(1 To qh_len, 1 To qh_len_2)
qh_array_new_new = qh_array_new
'qh_array_new = qh_array_new0



'qh_array_new = qh_array_new0   '传入的数组

qh_array_new_cloumn = qh_len_2 + qh_add_count
'MsgBox qh_array_new_row

'qh_array_new_new = Application.Transpose(qh_array_new_new)
ReDim Preserve qh_array_new_new(1 To qh_len, 1 To qh_array_new_cloumn)
'qh_array_new_new = Application.Transpose(qh_array_new_new)

qh_add_row = qh_array_new_new

End Function
Private Function qh_len_arr_duo(qh_array0)    '计算数组的长度  作者:阙辉   2021.02.24
Dim qh_array
Dim qh_array_1, qh_array_2

qh_array = qh_array0
qh_array_1 = UBound(qh_array, 1) - LBound(qh_array, 1) + 1
qh_array_2 = UBound(qh_array, 2) - LBound(qh_array, 2) + 1



qh_len_arr_duo = Array(qh_array_1, qh_array_2)
End Function
Function qh_len_arr(qh_array0)    '计算数组的长度  作者:阙辉   2021.02.24
Dim qh_array
Dim qh_array_l

qh_array = qh_array0
qh_array_l = UBound(qh_array) - LBound(qh_array) + 1

qh_len_arr = qh_array_l

End Function

五、调用测试

Sub testarray()
Dim qh_arr As New 阙_数组_DataFrame
'qh_arr.阙_行起始 = 2
'qh_arr.阙_列起始 = 2
qh_arr.阙_行长度 = 1
qh_arr.阙_列长度 = 3
aa = qh_arr.阙_创建数组

aa = qh_arr.阙_写入数据(1, 2, 12)
qh_q1 = qh_arr.阙_写入数据_消息
qh_q2 = qh_arr.阙_写入数据_状态
a = qh_arr.阙_起始行标
b = qh_arr.阙_最末行标
c = qh_arr.阙_起始列标
d = qh_arr.阙_最末列标

aa = qh_arr.阙_末行后增加数据(Array(2, "quehui", 3))


g = qh_arr.阙_列的长度

End Sub

 

qh0526wy
关注
  • 0
    点赞
  • 踩
  • 6
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
使用VBA生成Excel目录列表
LuAndy
01-10 6215
一、个人需求 最近使用Excel整理一些术语解释的文档，每个术语都对应一个sheet，最后有个索引页，可以快速链接到指定的sheet。 由于sheet会不断增加，做索引页时需要自动生成。考虑使用VBA实现，由于初次接触VBA，在此留个备份。 二、功能实现 （1）新建“索引”sheet，在此工作表中插入一个“生成索引”的按钮，如下图：  （2）为此按
ExcelVBA 之列表
soga235的博客
06-07 3473
Array函数将列标输入到工作表里: Sub ColumnHeads() Dim heading As Variant Dim cell As Range Dim i As Integer i = 0 heading = Array("First Name", "Last Name", "Position", _ "Salary") Workbooks.Add For Each cell In Range("A1:D1") cell.Formula = heading(i) i = i + 1 Next
VBA-用类实现数组扩容
oyq的博客
07-13 2978
我们知道数组的长度是固定的，定义了以后不能随意的增加其长度，但是我们可以用类来实现表面上的扩容（即增加数组的存储空间）1.首先我们添加一个类模块，取名为”myarr”并且在里面添加一些方法（比如扩容，查看数组值等）具体代码如下：Option ExplicitPrivate arr() As String '数组 ，用来存储数据Private ilen As Integer '数组长度Private...
Python-VBA函数之旅-list函数
最新发布
ygb_1024的博客
04-27 973
list函数
VBA自定义常量列表
国际海员
01-27 2698
 主要包括：● Calendar 常数● CallType 常数● Color 常数● Compiler 常数● Date 常数● Dir、GetAttr 和 SetAttr 常数● IMEStatus 常数● Instr、StrComp 常数● Keycode 常数● Miscellaneous 常数● MsgBox 常数● QueryClos
兰色幻想ExcelVBA数组入门教程集合资料.pdf
11-14
本资源是一个关于Excel VBA数组的入门教程集合，涵盖了数组的基本概念、数组的维数、声明数组、一维数组、二维数组、把单元格数据搬入内存、动态数组的声明等内容。 一、数组的基本概念 数组是一组数字的集合，可以...
Excel_VBA数组入门教程集合[参考].pdf
10-12
在Excel VBA中，数组可以是多维的，可以是二维数组，也可以是一维数组。二维数组可以用行和列来表示，如ARR(3,2)表示数组中第三排第二列的元素。一维数组则只能用一个元素来表示，如ARR(4)表示数组中第四个元素。 ...
ExcelVBA数组函数使用基础.pdf
07-14
ExcelVBA数组函数使用基础.pdf
利用ExcelVBA实现数据自动抽取汇总.pdf
12-03
"利用ExcelVBA实现数据自动抽取汇总.pdf" 本文将详细介绍如何使用Excel VBA实现数据自动抽取汇总。Excel VBA（Visual Basic for ...使用Excel VBA实现数据自动抽取汇总可以提高工作效率，减少人工错误，提高工作质量。
(完整word)Excel-VBA数组入门教程集合.doc
11-13
Excel VBA 数组入门教程集合 Excel VBA 数组是 Excel 中的一种数据结构，用于存储和操作大量数据。在本教程中，我们将学习数组的...在 Excel VBA 中，数组是一种非常有用的数据结构，可以帮助您更好地处理和分析数据。
Word-VBA 格式化多级列表和自定义列表
10-19
word vba script for format the muti-level title and single-level level, support the bullet style and number style.
VBA 下拉列表代码
02-13
Excel VBA 下拉列表代码！！
VBA二维数组重定义
01-22
VBA二维数组重定义，这是EXCEL精英培训网上的教程
数组的扩容添加
qq_42655613的博客
07-24 221
/** 摘选自数据库管理系统 add方法的实质就是扩容数组 然后添加对象，并将新的扩容数组赋值给初始数组 */ import java.util.Scanner; public class Add { static Student[] sts2 = new Student[Student.sts.length+1]; @SuppressWarnings("resource") public st...
内置宏列表_Excel VBA 对象模型列表
weixin_33426157的博客
12-31 925
列出了Excel VBA对象模型中所有对象的说明，便于查找应用AboveAverage 对象：表示条件格式规则的高于平均值的视图。 对某一区域或所选内容应用颜色或填充, 以帮助您查看相对于其他单元格的单元格的值。Action 对象：代表要在数据透视表或工作表数据中执行的操作。Actions 对象：指定系列的所有**Action** 对象的集合。AddIn 对象：代表单个加载宏，不论该加载宏是否已加...
辛苦整理的VBA关键字列表-Part 2（Consolidated VBA Keywords List）
预见未来to50的专栏
06-01 2166
以下是经过数小时不断努力而整理出的以VBA关键字列表，共284个关键字。分享给大家！关键字 类别 用途 IsArray Arrays Verify an array. Array Arrays Verify an array. Option Base Arrays Change default lower limit. Dim Arrays Declare and initi...
字典与数组第六讲:数组维数扩展和计算结果分析
VBA语言専攻
09-05 77
例如: = SUM({7,8,9}+{4,5,6}）内的第一个数组为1×3,得到的结果为7+4、8+5 和 9+6 的SUM,也就是11+13+15=39。使用=SUM({7,8,9}+{4,4,4})做计算，得到的结果为7+4、8+4和9+4的和, 即11+12+13=36。3,4}*{2,2;1,2,3} ，而相应的计算结果为“1,4,#N/A,3,8,#N/A”。这讲的内容难度比较大，希望在工作中有能用到的数组的朋友仔细的验证一下，给自己的工作带来方便，也希望大家在学习EXCEL函数的时候可以参考。
辅助工具之VBA（一）
tomlone的专栏
12-21 3121
工欲善其事，必先利其器。 excel可以理解成一个微型数据库，既能存储数据有能很好的呈现数据。拥有丰富的公式，强大的VBA，是我们日常最强大的工具之一。 根据excel的特点，我们可以利用它自动生成代码。丰富的公式+VBA，我们可以做数据分析。 文档结构形式是一切的基础。约定优于配置。 我们要积累一些代码块，在我们需要的时候我们可以快速地组合起来完成想要的功能。 1，单元格的遍历。 根...
excel VBA 关于动态数组模仿list容器的相关操作函数
c0411034的博客
03-26 2452
声明一个动态数组 Dim arrays() As String 'z字符串型数组 显示所有数组元素，以 ，间隔 Function display_array(arrays) Dim result As String result = "" Dim array_len As Integer array_len = UBound(arrays) + 1 For i = 0 To array_len ...
VBA数组进阶教程：从基础到实践
"EXCEL VBA数组进阶教程，涵盖了数组的基本概念、上界与下界、调试方法、静态数组和动态数组的使用，以及多维数组的介绍。" 在Excel VBA编程中，数组是一种非常重要的数据结构，它允许程序员存储和处理多个同类数据...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值