[分享]浅谈DICTIONARY(字典)对象

fdd

字典的功能的确很实用，在判断是否重复值等方面很方便。

jiulongpo

狼版的大作,需要深入学习学习

百岁新手

看了两次了，还没明白，继续学习。也该先向版主道个谢了，多谢多谢多谢！

menghuazhang

我的感觉要是配合简单的实例讲解字典就好了。我有个小程序是自动按日期统计班产量的。是HuPanShan老师用字典的方法做的。很好。。。

  我将代码贴出来。并上传附件。大家可以学习一下。说心里话，我也不太明白。希望大家讨论，也希望高人详细指点代码解释。

Private Sub CommandButton1_Click()
    Set d = CreateObject("scripting.dictionary")   建字典
    For b = 15 To [b65536].End(3).Row   从头至尾循环
        dt = Split(Range("b" & b))   把日期、时间列拆分
        dt(1) = dt(1) & " " & dt(2)      把上下午与时间合并（高版本Windows用）
        If TimeValue(dt(1)) >= TimeValue("8:30") And TimeValue(dt(1)) < TimeValue("17:00") Then ban = " 早班 "    早班判定处理
        If TimeValue(dt(1)) >= TimeValue("17:00") And TimeValue(dt(1)) < TimeValue("23:59:59") Then ban = " 中班 "     中班判定处理
        If TimeValue(dt(1)) < TimeValue("8:30") Then ban = " 夜班 ": dt(0) = DateValue(dt(0)) - 1    夜班判定处理（按用户要求日期减一天）
        v = dt(0) & ban & Range("d" & b)     将日期、班次、序列号合并做字典键值
        d(v) = d(v) + 1    字典键值对应项加1
    Next b   循环尾
    With Sheets("Sheet2")     默认Sheet2
        .[a2:d65536].Clear     清理数据区
        k = d.keys                   定义键值数组
        For i = 0 To d.Count - 1     对字典循环
            dt = Split(k(i))              分离键值取出日期、班次、序列号
            .Range("a" & i + 2) = dt(0)     日期
            .Range("b" & i + 2) = dt(1)     班次
            .Range("c" & i + 2) = dt(2)      序列号
            .Range("d" & i + 2) = d(k(i))    数量
        Next i          循环尾
    End With      取消默认sheet
    Sheets("Sheet2").Select          选择Sheet2
    Sheets("Sheet2").PivotTables("数据透视表1").PivotCache.Refresh       刷新数据透视表
End Sub

menghuazhang

该附件可以完成按日期统计班产量的需求。

按时间统计产量需求描述：
Excel 文件中：
       B列 （日期和时间）                     D列（产品序列号）
  10/27/2008 9：00                                567
  10/27/2008 17：30                                                               590
  10/28/2008 1：50                                                                  598

按时间统计 2008年10月27日一天早、中、夜三个班的产量。时间划分： 早班 8：30---17：00
                                                                                                                                   中班 17：00-- 24：00
                                                                                                                                   夜班 24：00-- 8：30（次日）
统计结果，2008年10月27日产量为--- 早班：1个 序列号567
                                                                    中班：1个 序列号590
                                                                     夜班：1个 序列号 598

nyafullee

能把字典运用到这种地步,非版主莫属了!!!!!!!!!!!!

好帖要顶!!!!!!!!!!!!!!!

lxhlxh

好东西,收藏

店老板

收藏

vflashing

狼版的大作,需要深入学习学习

小城人

好贴，标记学习。