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