scripting.dictionary

3热度

2回答

我有一个电子表格以下值： Printer Name | Pages | Copies HP2300 | 2 | 1 HP2300 | 5 | 1 Laser1 | 2 | 2 Laser1 | 3 | 4 HP2300 | 1 | 1 我怎样才能得到的打印的总页数（页*副本）每台打印机上是这样的： Printer Name | TotalPages | HP23

2热度

1回答

的Scripting.Dictionary不认识数字

得到这个代码： Dim a, i As Long With Range("K1", Range("K" & Rows.Count).End(xlUp)) a = .Value End With With CreateObject("Scripting.Dictionary") .CompareMode = vbTextCompare .Add "test", 1

0热度

1回答

如何附加到字典中的键值的数组？

如果我成立了一个字典作为这样的： set myDict = CreateObject("Scripting.Dictionary") 我问一个用户他的名字。 Wscript.StdOut.WriteLine "What is your name: " name = Wscript.StdIn.ReadLine 然后我问用户五个数字。 Wscript.StdOut.WriteLine "E

0热度

2回答

用户窗体基于企业价值识别正确的工作表

我有一个工作簿，其中包含客户端信息。每个客户都有一张工作表，每张工作表都标有客户的唯一ID。我想要启动一个UserForm，用户将从cobo box中选择一个客户端。然后，来自相应工作表最后一行的数据填充UserForm。在同一工作簿中的其他代码中，我使用的是脚本字典，但这些字典都与特定工作表中的特定范围相关联。我不知道如何编写UserForm以在所有工作表中搜索与cobo_ClientID字段

0热度

1回答

Scripting.Dictionary键列表框VBA Excel

我一直在Excel中使用VBA，最近开始使用Scripting.Dictionary对象。直到今天，我还没遇到任何重大问题。基本上我试图填充一个字典的键值列表框，然后再向列表框添加一个值。这会导致该值不仅被添加到列表框中，而且还被作为关键字添加到字典中。我试图将dict.keys（）数组中的值复制到一个完全独立的数组中，但仍然存在相同的问题。我认为这是一个byref问题，但尚未找出解决方案。如果

0热度

1回答

VBA Scripting.Dictionary运行时错误'13'类型不匹配

我已经编写了代码来通过两列，其中一个将是密钥和其他项目/项目。它会通过并找到关键字，如果它找到了重复项，则会将它与前一个项目一起添加到项目中。当我尝试打印出物品时出现问题。键打印出来很好，但项目给我的运行时错误'13'类型不匹配。这是代码。 Sub All() Worksheets("All").Activate Dim Server As Variant Dim Application

1热度

2回答

ASP：读取Scripting.Dictionary与ADODB.Command结果

我想从Active Directory中查询userAccountControl，并将其与我在脚本中设置的字典进行匹配。所有设置我的字典对象首先和填充： dim uac Set uac=Server.CreateObject("Scripting.Dictionary") uac.add "512", "Enabled Account" uac.add "514", "Disabled A