精华内容
下载资源
问答
  • VBA 字典实例

    2019-02-26 09:46:34
    VBA字典的创建,实现,以及复杂的字典嵌套实例教程,众多实例,一步一步的揭开字典的神秘面纱
  • VBA字典用法

    2014-03-27 23:42:31
    蓝桥玄霜关于VBA字典用法的经典之作,与大家共享!
  • G1 字典的简介 G1 字典的简介 PAGE PAGE # VBA字典用法集锦及案例代码详解 VBA字典用法集锦及案例代码详解 1 PAGE PAGE # VBA 字典用法集锦及案例代码详解 dada 八, 刖言 凡是上过学校的人都使用过字典从新华字典...
  • G1 字典的简介 G1 字典的简介 PAGE PAGE # VBA字典用法集锦及案例代码详解 VBA字典用法集锦及案例代码详解 1 PAGE PAGE # VBA 字典用法集锦及案例代码详解 dada 八, 刖言 凡是上过学校的人都使用过字典从新华字典...
  • Excel VBA字典与数组精讲,供Excel高级开发者和爱好者学习使用。
  • VBA字典(上)

    2019-05-13 17:21:51
    VBA字典教程(上),主要介绍字典的一些功能,让VBA在EXCEL中应用的更加得心应手。
  • VBA字典入门

    2014-02-18 15:36:06
    VBA字典的入门教程及提高。由EXCELHOME蓝桥玄霜版主整理。
  • VBA字典精简教程带范例VBA字典精简教程带范例
  • VBA字典

    2019-03-28 11:18:40
    这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、...

    欢迎使用Markdown编辑器

    你好! 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章,了解一下Markdown的基本语法知识。

    新的改变

    我们对Markdown编辑器进行了一些功能拓展与语法支持,除了标准的Markdown编辑器功能,我们增加了如下几点新功能,帮助你用它写博客:

    1. 全新的界面设计 ,将会带来全新的写作体验;
    2. 在创作中心设置你喜爱的代码高亮样式,Markdown 将代码片显示选择的高亮样式 进行展示;
    3. 增加了 图片拖拽 功能,你可以将本地的图片直接拖拽到编辑区域直接展示;
    4. 全新的 KaTeX数学公式 语法;
    5. 增加了支持甘特图的mermaid语法1 功能;
    6. 增加了 多屏幕编辑 Markdown文章功能;
    7. 增加了 焦点写作模式、预览模式、简洁写作模式、左右区域同步滚轮设置 等功能,功能按钮位于编辑区域与预览区域中间;
    8. 增加了 检查列表 功能。

    功能快捷键

    撤销:Ctrl/Command + Z
    重做:Ctrl/Command + Y
    加粗:Ctrl/Command + B
    斜体:Ctrl/Command + I
    标题:Ctrl/Command + Shift + H
    无序列表:Ctrl/Command + Shift + U
    有序列表:Ctrl/Command + Shift + O
    检查列表:Ctrl/Command + Shift + C
    插入代码:Ctrl/Command + Shift + K
    插入链接:Ctrl/Command + Shift + L
    插入图片:Ctrl/Command + Shift + G

    合理的创建标题,有助于目录的生成

    直接输入1次#,并按下space后,将生成1级标题。
    输入2次#,并按下space后,将生成2级标题。
    以此类推,我们支持6级标题。有助于使用TOC语法后生成一个完美的目录。

    如何改变文本的样式

    强调文本 强调文本

    加粗文本 加粗文本

    标记文本

    删除文本

    引用文本

    H2O is是液体。

    210 运算结果是 1024.

    插入链接与图片

    链接: link.

    图片: Alt

    带尺寸的图片: Alt

    居中的图片: Alt

    居中并且带尺寸的图片: Alt

    当然,我们为了让用户更加便捷,我们增加了图片拖拽功能。

    如何插入一段漂亮的代码片

    博客设置页面,选择一款你喜欢的代码片高亮样式,下面展示同样高亮的 代码片.

    // An highlighted block
    var foo = 'bar';
    

    生成一个适合你的列表

    • 项目
      • 项目
        • 项目
    1. 项目1
    2. 项目2
    3. 项目3
    • 计划任务
    • 完成任务

    创建一个表格

    一个简单的表格是这么创建的:

    项目Value
    电脑$1600
    手机$12
    导管$1

    设定内容居中、居左、居右

    使用:---------:居中
    使用:----------居左
    使用----------:居右

    第一列第二列第三列
    第一列文本居中第二列文本居右第三列文本居左

    SmartyPants

    SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如:

    TYPEASCIIHTML
    Single backticks'Isn't this fun?'‘Isn’t this fun?’
    Quotes"Isn't this fun?"“Isn’t this fun?”
    Dashes-- is en-dash, --- is em-dash– is en-dash, — is em-dash

    创建一个自定义列表

    Markdown
    Text-to- HTML conversion tool
    Authors
    John
    Luke

    如何创建一个注脚

    一个具有注脚的文本。2

    注释也是必不可少的

    Markdown将文本转换为 HTML

    KaTeX数学公式

    您可以使用渲染LaTeX数学表达式 KaTeX:

    Gamma公式展示 Γ ( n ) = ( n − 1 ) ! ∀ n ∈ N \Gamma(n) = (n-1)!\quad\forall n\in\mathbb N Γ(n)=(n1)!nN 是通过欧拉积分

    Γ ( z ) = ∫ 0 ∞ t z − 1 e − t d t   . \Gamma(z) = \int_0^\infty t^{z-1}e^{-t}dt\,. Γ(z)=0tz1etdt.

    你可以找到更多关于的信息 LaTeX 数学表达式here.

    新的甘特图功能,丰富你的文章

    Mon 06 Mon 13 Mon 20 已完成 进行中 计划一 计划二 现有任务 Adding GANTT diagram functionality to mermaid
    • 关于 甘特图 语法,参考 这儿,

    UML 图表

    可以使用UML图表进行渲染。 Mermaid. 例如下面产生的一个序列图::

    张三 李四 王五 你好!李四, 最近怎么样? 你最近怎么样,王五? 我很好,谢谢! 我很好,谢谢! 李四想了很长时间, 文字太长了 不适合放在一行. 打量着王五... 很好... 王五, 你怎么样? 张三 李四 王五

    这将产生一个流程图。:

    链接
    长方形
    圆角长方形
    菱形
    • 关于 Mermaid 语法,参考 这儿,

    FLowchart流程图

    我们依旧会支持flowchart的流程图:

    Created with Raphaël 2.2.0 开始 我的操作 确认? 结束 yes no
    • 关于 Flowchart流程图 语法,参考 这儿.

    导出与导入

    导出

    如果你想尝试使用此编辑器, 你可以在此篇文章任意编辑。当你完成了一篇文章的写作, 在上方工具栏找到 文章导出 ,生成一个.md文件或者.html文件进行本地保存。

    导入

    如果你想加载一篇你写过的.md文件或者.html文件,在上方工具栏可以选择导入功能进行对应扩展名的文件导入,
    继续你的创作。


    1. mermaid语法说明 ↩︎

    2. 注脚的解释 ↩︎

    展开全文
  • Vba 字典相加

    2020-07-05 22:57:55
    今天有同事发现需要A列和B列相同的数,把C列相加,这边我们用字典操作最快: source Worksheet : 这边我们可以忽略D E F G列,那些只是公式 上CODE: Sub Combine2() Dim r As Integer Dim sht_s As ...

    今天有同事发现需要A列和B列相同的数,把C列相加,这边我们用字典操作最快:

    source Worksheet : 

    这边我们可以忽略D E F G列,那些只是公式

    上CODE:

     

    Sub Combine2()

    Dim r As Integer

    Dim sht_s As Worksheet ' source sht

    Dim sht_r As Worksheet ' result sht

    Set sht_s = ThisWorkbook.Worksheets("source")

    Set sht_r = ThisWorkbook.Worksheets("result")

    arr = sht_s.Range("a1").CurrentRegion

    Set d = CreateObject("scripting.dictionary")

    For i = 2 To UBound(arr)

    If d.exists(arr(i, 1) & arr(i, 2)) Then

    d(arr(i, 1) & arr(i, 2)) = Array(arr(i, 1), arr(i, 2), arr(i, 3) + d(arr(i, 1) & arr(i, 2))(2), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7), "True")

    Else

    d(arr(i, 1) & arr(i, 2)) = Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7), "")

    End If

    Next

    With sht_r

    .Cells.Clear

    .Range("A1") = "item"

    .Range("B1") = "Amount"

    .Range("H1") = "Plus or not"

     

    r = 2

    For Each dk In d.keys

    .Range("A" & r).Resize(, 8) = d(dk)

    r = r + 1

    Next

    End With

    End Sub

     

    虽然数据只有7列,我们加多一列,到时候可以加入标题.Range("H1") = "Plus or not"  以作Title Filter,就可以知道哪些是可以加一起的。

    result Worksheet : 

    展开全文
  • VBA字典(详解,示例)

    万次阅读 多人点赞 2019-05-03 17:14:36
    字典主要作用:条件计数、条件求和、去重、匹配。 本篇主要介绍了VBA字典以上使用方法及注意事项。

    创建字典对象

    '后期绑定:方便代码在其他电脑上运行,推荐。
    dim dic as object
    Set dic = CreateObject("scripting.dictionary")
    
    '前期绑定:可以直接声明字典对象,有对象属性和方法的提示,但在其他没有勾选引用的电脑上无法正常运行。
    '引用勾选:VBE窗体-工具-引用-勾选‘Microsoft Scripting Runtime’
    dim dic as New dictionary
    
    ' 字段生成键值对 key-value
    key = "姓名"
    value = "身高"
    dic(key) = value
    

    字典的属性|方法

    • 键:dic.keys
    • 值:dic.items
    • 键值对条数:dic.count
    • 判断是否存在键key:dic.exists(key)
    • 清空字典键值对:dic.removeall
    • 删除键为key的键值对:dic.remove key
    • 删除字典对象:set dic = Nothing
    with activesheet
    	'dic.count:字典计数,字典中一共有多少条记录;
    	'dic.keys:字典的键,写入单元格以行写入,如需以列写入单元格,调用工作表函数transpose转置;
    	.cells(1,1).resize(dic.count,1) = application.worksheetfunction.transpose(dic.keys)
    	'清除工作表单元格内容
    	.cells.clearcontents
    	
    	'dic.items:字典的值;
    	.cells(1,1).resize(1,dic.count) = dic.items
    
    	'判断某内容是否存在与字典的键中
    	if dic.exists("内容") then debug.print "字符串‘内容’存在于字典的键中"
    	
    	'清空字典,有时候其他过程也需要使用字典,当前过程已经使用完了,但我们又不想重新创建字典对象,这时候我们可以public字典全局变量,再清空字典,供新的过程使用该字典对象。
    	dic.removeall
    	'清除单个字典键-值对,key是字典的某个需要删除的键
    	dic.remove key
    end with
    

    案例

    去重

    dim dic as object
    dim arr
    dim st
    Set dic = CreateObject("scripting.dictionary")
    
    arr = array("可乐","雪碧","鸡翅",,"可乐","汉堡包","鸡翅")
    for each st in arr
    	'字典的键是不能重复的,重复导入字典只会存在一个,可以利用字典这点特性去重。
    	'这里不需要字典的值,设置为空字符串或其他数值都可以。
    	dic(st) = ""
    next
    activesheet.range("a1").resize(dic.count,1) = application.worksheetfunction.transpose(d.keys)
    

    求和

    Sub dic_sumif()
    Application.ScreenUpdating = False
    Dim dic As Object
    Dim arr
    Dim i As Byte
    
    Set dic = CreateObject("scripting.dictionary")
    With ActiveSheet
        arr = .UsedRange
        For i = 2 To UBound(arr)
        	'dic(arr(i,1))没有值是默认是0,通过下面方法对每一个水果的销量进行累加。
            dic(arr(i, 1)) = dic(arr(i, 1)) + arr(i, 2)
        Next
        '使用copy方法,将表头复制到e1,f1单元格
        .Range("a1:b1").Copy .Range("e1")
        '字典键去重纵向写入到单元格
        .Cells(2, "e").Resize(dic.Count, 1) = Application.WorksheetFunction.Transpose(dic.keys)
        For i = 2 To dic.Count + 1
        	'循环输入字典键对应的值到f列
            .Cells(i, "f").Value2 = dic(.Cells(i, "e").Value2)
        Next
    End With
    set dic = Nothing
    Application.ScreenUpdating = True
    End Sub
    

    效果如下图:
    在这里插入图片描述

    计数

    如果对上面水果种类进行计数:countifs,只需要将分类汇总的值改为数值1即可,每出现一次‘+1’

    dic(arr(i, 1)) = dic(arr(i, 1)) + 1
    
    '在上面代码中添加下这条,修改下表头
    range("f1").value2 = "计数"
    

    效果如下图:
    在这里插入图片描述

    匹配

    • 这个应该是使用字典应用最多的了,需要注意的是,如果使用单元格写入到字典,单元格同时也包含格式等信息,如果只需要单元格的值,要使用单元格.value2方法,同时,字典的值也可以是数组
    • 数据源:
      在这里插入图片描述
    • 目标:匹配‘李白’和‘后羿’的身高和体重
    • 代码如下:
    Sub data_match()
    Application.ScreenUpdating = False
    Dim dic As Object
    Dim arr
    Dim i As Byte
    
    Set dic = CreateObject("scripting.dictionary")
    With ActiveSheet
        arr = .Cells(1, 1).CurrentRegion
        For i = 2 To UBound(arr)
        	'这里字典的值,用的是array数组,方便我们一下匹配多个数据,省去再创建字典对象麻烦。
            dic(arr(i, 1)) = Array(arr(i, 2), arr(i, 3))
        Next
        For i = 2 To .Cells(1, "e").End(xlDown).row
            .Cells(i, "f").Resize(1, 2) = dic(.Cells(i, "e").Value2)
        Next
    End With
    set dic = Nothing
    Application.ScreenUpdating = True
    End Sub
    

    效果如下:
    我在这里加入了‘妲己’,遍历用字典去匹配了,但是字典并没有‘妲己’这个key,匹配出来是空,并没有报错,大家不用担心字典没有对应key匹配而出错这种情况,这样只会将结果输出为空。~
    如果需要匹配的姓名后面有之前填写的身高和体重信息,但是载入字典的数据源并没有这个人的信息,我们在遍历匹配时,又不想使身高和体重被替换为空,这时候可以结合dic.exisst语句,判断姓名是否存在于字典的keys中,再输出匹配结果。
    在这里插入图片描述

    字典的value可以数值,字符串,数组等对象;

    Array可以通过索引获取对应的值,第一个数值的索引是0;Array(1,2,3,5)(0)返回的是1

    key的组合和分割

    解决多字段匹配问题

    dim arr
    dim i,row as long
    dim d as object
    dim key
    
    set d = createobject("scripting.dictionary")
    with thisworkbook
    	arr = .sheets(1).usedrange
    	for i = 2 to ubound(arr)
    		d(join(array(arr(i,1),arr(i,2),arr(i,3)),"|")) = arr(i,4)
    	next
    	' 把字典键值对写入到工作表
    	with .sheets("输出")
    		row = 2
    		for each key in d.keys
    			.cells(row,4).value = d(key)
    			.cells(row,1).resize(1,3) = split(key,"|")
    			row = row + 1
    		next
    	end with
    end with
    

    join方法可以将数组元素按照分隔符拼接起来,返回一个字符串;
    split方法,是join的反函数,将一个字符串按照分隔符分割,返回一个数组;


    字典value多字段累加

    比如分别加总活跃、付费等指标

    Sub game_type_active_pay()
    Dim file_directory, f As String
    Dim i, last_row As Long
    Dim d As Object
    Dim wb As Workbook
    Dim arr
    Dim active_uv, pay_uv As Long
    Dim pay As Double
    Application.ScreenUpdating = False    ' 关闭屏幕刷新
    
    file_directory = ThisWorkbook.Path & "/data/"
    f = Dir(file_directory & "*细分品类*")
    '未找到数据源,提示,关闭应用
    If f = "" Then
        MsgBox "未找到命名包含‘细分品类’文字数据源,请先下载数据源......"
        Application.ScreenUpdating = True
        End    ' 结束程序
    End If
    
    Set wb = Workbooks.Open(file_directory & f)   ' 打开工作簿
    Set d = CreateObject("scripting.dictionary")     ' 创建字典对象
    arr = ActiveSheet.UsedRange
    'On Error Resume Next
    For i = 2 To UBound(arr)
        If InStr("回流用户|留存用户|新增用户", arr(i, 4)) > 0 Then
            If arr(i, 3) = "类型1" Then arr(i, 3) = "类型2"		'将类型1合并为类型2
            If d.exists(arr(i, 1) & "|" & arr(i, 3)) Then
            	' vba没法直接对数组运算,将value拆开相加
                active_uv = d(arr(i, 1) & "|" & arr(i, 3))(0)
                pay_uv = d(arr(i, 1) & "|" & arr(i, 3))(1)
                pay = d(arr(i, 1) & "|" & arr(i, 3))(2)
               ' 字段累加
                active_uv = active_uv + arr(i, 6)    '活跃累加
                pay_uv = pay_uv + arr(i, 7)   ' 付费uv累加
                pay = pay + arr(i, 8)    ' 付费累加
                d(arr(i, 1) & "|" & arr(i, 3)) = Array(active_uv, pay_uv, pay)
            Else
            	' 如果不存在,直接生成一条记录
                d(arr(i, 1) & "|" & arr(i, 3)) = Array(arr(i, 6), arr(i, 7), arr(i, 8))
            End If
        End If
    Next
    'On Error GoTo 0
    wb.Close False    ' 关闭工作簿,不保存
    Set wb = Nothing
    
    With ThisWorkbook.Sheets("表名")
        arr = .UsedRange
        For i = 2 To UBound(arr)
            If d.exists(arr(i, 1) & "|" & arr(i, 2)) Then
                '如果新的数据源里存在该条记录,则用新的数据源覆盖
                .Cells(i, 3).Resize(1, 3) = d(arr(i, 1) & "|" & arr(i, 2))
                .Cells(i, 6).Value2 = .Cells(i, 5).Value2 / .Cells(i, 3).Value2
                d.Remove arr(i, 1) & "|" & arr(i, 2)
            End If
        Next
        last_row = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        '将新的记录写入到数据源
        For Each Key In d.keys
            .Cells(last_row, 1).Resize(1, 2) = Split(Key, "|")
            .Cells(last_row, 3).Resize(1, 3) = d(Key)
            .Cells(last_row, 6).Value2 = .Cells(i, 5).Value2 / .Cells(i, 3).Value2
            last_row = last_row + 1
        Next
    End With
    
    Application.ScreenUpdating = True
    End Sub
    

    字典求和和计数同时进行

    有了加总与计数,也可以求平均值:sum/count

    Sub test()
    Dim d As Object
    Dim key_cnt As Long
    Dim key As String
    
    Det d = CreateObject("scripting.dictionary")
    arr = ActiveSheet.UsedRange
    For i = 2 To UBound(arr)
        key = Join(Array(arr(i, 2), arr(i, 3)), "|")
        '如果字典该条键存在,累加
        If d.exists(key) Then
            key_cnt = d(key)(0) + 1    '天数,计数+1
            val_sum = d(key)(1) + arr(i, 4)      '指标值加总
            d(key) = Array(key_cnt, val_sum)
        Else
            '如果不存在,计数计算为1
            d(key) = Array(1, arr(i, 4))
        End If
    Next
    ' 求平均数
    for k in d.keys
    	' 键 = array(计数,求和,平均数)
    	d(k) = array(d(k)(0),d(k)(1),d(k)(1) / d(k)(0)   ' 数组的第一个元素下标是0
    next
    
    End Sub
    

    类似sql的join操作

    有点像hive里面的mapjoin逻辑
    示例:游戏名称join关联游戏类型
    在这里插入图片描述

    Sub filter()
    Application.ScreenUpdating = False
    
    ' 使用筛选过滤
    Dim arr
    Dim brr()
    Dim d As Object
    Dim i As Byte
    Dim row As Byte
    
    Set d = CreateObject("scripting.dictionary")
    With ActiveSheet
        ' 把游戏品类写入到字典
        arr = .Range("f2:g4")
        For i = 1 To UBound(arr)
            d(arr(i, 1)) = arr(i, 2)
        Next
        
        ' 筛选头部游戏数据
        arr = .Range("a2:c11")
        row = 0
        ReDim brr(1 To 4, 1 To 1)
        For i = 1 To UBound(arr)
            If d.exists(arr(i, 1)) Then     ' 如果是精品游戏,则返回这一行记录
                row = row + 1
                ReDim Preserve brr(1 To 4, 1 To row)
                brr(1, row) = arr(i, 1)
                brr(2, row) = arr(i, 2)
                brr(3, row) = arr(i, 3)
                brr(4, row) = d(arr(i, 1)) ' 匹配游戏品类
            End If
        Next
        
        ' 输出
        .Range("j1:m1").Copy .Range("j10")
        .Range("j11").Resize(UBound(brr, 2), 4) = Application.WorksheetFunction.Transpose(brr)
    End With
    
    Application.ScreenUpdating = True  ' 恢复复屏幕刷新
    End Sub
    
    展开全文
  • 字典与集合的比较 字典的用法和特点 字典的实例代码
  • vba字典引用

    2020-07-07 16:41:17
    如果key值用变量引用,需要把相关变量加上双引号。

    如果key值用变量引用,需要把相关变量加上双引号。

    展开全文
  • excel vba 字典使用方法学习

    千次阅读 2020-03-09 11:26:24
    字典的索引(keys)不能重复,常用字典来去重,字典是一个二维数组,其中keys不重复,...如果不声明的的话,默认为二进制比较,但是对VBA字典中的比较方式没有影响。。 'Option Compare Text '文本比较,不区分大小...
  • 字典VBA中经常使用的对象,有时需要将字典对象中保存数据转为数组,然后做进一步处理,在使用过程中经常会遇到数组下标越界之类的问题,下面就讲讲字典到数组的转换。
  • VBA 字典使用小结:关键字循环

    千次阅读 2019-12-22 16:59:03
    一、字典的基本知识 字典是一种封装有属性和方法的对象,简单理解:字典其实就是一些“键-值”对。 字典相当于一个多行二列的二维数组或单元格数据区域。 字典数据结构有两个很重要的特性: I key(键)不允许...
  • VBA 字典方法及属性介绍

    千次阅读 2019-08-13 20:05:34
    VBA字典有6个方法Add , Keys, Items, Exists, Remove, RemoveAll VBA字典有4个属性Count , Key, Item, CompareMode Sub dictest() Dim d As Object '声明字典对象,亦可通过声明变体型变量完成声明 &g...
  • 1)key属性: 修改字典中某一键值对的key值 2)item属性: 修改字典中某一键值对的item值 3)keys方法: 获取字典的所有键 4)items方法: 获取字典的所有值 5)item属性: 如果 key已存在,则修改其item值;如果不...
  • VBA字典类,苹果MAC系统可用,解决了苹果VBA编程中对字典对象不兼容的问题。
  • 添加库引用 Microsoft Scripting Runtime ...函数如何返回字典? Sub mySub() dim myDict as Dictionary set myDict = myFunc() End Sub Function myFunc() as Dictionary dim myDict2 as Dictionary set myDict2 =
  • Excel VBA 字典法.docx

    2021-02-26 17:15:32
    Excel VBA 字典法.docx
  • vba字典用法示例Dictionary is a data type that can be used for different purposes. Dictionaries provide one key and one value matched together. JavaScript programming language does not provide the ...
  • VBA字典(dictionary)

    万次阅读 多人点赞 2017-06-25 22:19:29
    这是我看到的最简单明了的Excel VBA字典(dictionary)的教程,把字典的应用,用短短几百字,全部道尽,简!但精彩!原文如下: 当年我(原作者:彭希仁)向LDY版主求教字典的时候,他老人家总结了一句话“呼之即来,挥...
  • 1 字典的遍历方法 即使是后期绑定,也可以用 for each i in dict1.keys() '这里用到的 dict1.keys() 但不是 dict1.keys(i) 是可以的 Sub test_dict11() Dim dict1 As Object Set dict1 = CreateObject(...
  • 凡是上过EH论坛的想学习VBA里面字典用法的,几乎都看过研究过northwolves狼版主、oobird版主的有关字典的精华贴和经典代码。我也是从这里接触到和学习到字典的,在此,对他们表示深深的谢意,同时也对很多把字典用得...
  • VBA字典合集

    2019-04-16 11:06:17
    新手学习VBA代码必用的工具,集成大量VBA功能实现的代码
  • VBA 字典数组运用查询系统

    千次阅读 2018-06-28 15:55:35
    For i = 1 To UBound(arr) '首先需要在创立的字典中遍历  d(arr(i, 5)) = Array(arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 6), arr(i, 7))  Next '遍历循环查找自己的单元格 For Each Rng In Range("a3:a" & ...
  • Excel VBA 字典/数组 示例

    千次阅读 2016-12-01 13:25:41
    A 将数组作为字典的Value Private Sub CommandButton3_Click() Dim arr, arr1, i&, d As Object arr = Sheets(3).[a1].CurrentRegion arr1 = [a1].CurrentRegion Set d = CreateObject("scripting.dictionary") For...
  • 与Collection对象相似,你能够通过Dictionary存储任何类型的数据或字典对象,这些数据和对象通常被看作字典的组成部分,每一部分都被赋予字符串型键值。虽然我不认为Microsoft意图使你完全摆脱收集和替换上述数据和...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,999
精华内容 799
关键字:

vba字典