Словарь Excel не обновляется?

Question

Я относительный новичок в VB, поэтому у меня возникают реальные проблемы, пытаясь понять, как все сочетается. В настоящее время я пытаюсь использовать глобальный словарь для хранения значений заголовков/столбцов, чтобы их можно было быстро получить при запуске (поскольку номера столбцов могут меняться в зависимости от содержимого). Однако я изо всех сил пытаюсь заставить словарь работать, он, кажется, добавляет значения, но позже в коде появляется как пустая, я понятия не имею, что я делаю неправильно, и буду признателен за любую помощь.

Public dataHeaders As Dictionary 


Public Function getCases() 

Set dataHeaders = CreateObject("Scripting.Dictionary") 

For i = 1 To 100 
    If IsEmpty(Worksheets("DATA").Cells(1, i)) Then 
     Exit For 
    Else 
     dataHeaders.Add Worksheets("DATA").Cells(1, i), i 
    End If 
Next 


For i = 1 To 10 

    For j = 1 To 750 
     If Worksheets("Summary").Cells(1, i) = Worksheets("DATA").Cells(dataHeaders("Checker"), j) Then 
      Worksheets("Summary").Cells(2, i) = Worksheets("Summary").Cells(2, i) + 1 
     End If 
    Next 
Next 

End Function 

Answer 1

Я подозреваю, что ваша проблема либо проблема с корпусом, либо пробел. Чтобы избавиться от этой проблемы, используйте Trim и UCase (или LCase), чтобы нормализовать текст перед его использованием в словаре.

Я тестировал код, приведенный ниже, и выводит то, что я ожидал бы ..

Sub test() 


Dim headers As Dictionary 
Dim valueCount As Integer 
Dim ws As Worksheet 
Dim headerRange As Range 

Set ws = Sheet1 

Set headers = New Dictionary 

'get last column on the right of our header row 
valueCount = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column 


Set headerRange = ws.Cells(1, 1).Resize(1, valueCount) 

    Dim i As Long 
    i = 1 

    For Each cell In headerRange 

    'Trim and convert to upper when assigning to array. 
    headers.Add UCase(Trim(cell.Value)), i 
    i = i + 1 

    Next cell 


    For Each Key In headers.Keys 

     'Note the usage of Trim and UCase 
     Debug.Print "item: " & Key & " Value : " & headers(UCase(Trim(Key))) 
    Next Key 


End Sub