¿Cómo monitorear los valores en un diccionario en la ventana de visualización de Excel VBA?

Posteriormente a consultar con especialistas en esta materia, programadores de varias áreas y profesores hemos dado con la solución a la interrogande y la compartimos en esta publicación.

Solución:

normalmente escribo dict.items en la ventana inmediata, selecciónelo y presione Shift+F9 para insertarlo en la ventana de visualización.

Alternativamente, aquí hay una sola línea para la ventana inmediata, para enumerar todos los elementos:

for each i in dic.Items: debug.Print i: next

Uso una función recursiva que se puede usar para mostrar todas las variables de tipo simple y el contenido de todos los diccionarios anidados en la ventana de observación. Esto produce una salida en la forma:

Fred:rabbit; Tiddles:cat; Fluffy:cat; Food:[1:lettuce; 2:biscuits; ]; 

dónde keys y los valores están separados por “:”, los elementos están separados por “;” y los diccionarios anidados se muestran entre corchetes.

Public Function DictionaryContents(ByVal dcDictionary, Optional ByVal boolShowKeyIndex As Boolean = False)

  Dim Keys
  Keys = dcDictionary.Keys

  Dim i As Long
  Dim stIndex As String

  Dim stOutput As String
  stOutput = vbNullString

  For i = 0 To dcDictionary.Count - 1

    If boolShowKeyIndex Then
      stIndex = "(" & i & ")"
    End If

    stOutput = stOutput & Keys(i) & stIndex & ":"

    If IsObject(dcDictionary(Keys(i))) Then
      stOutput = stOutput & "[" & DictionaryContents(dcDictionary(Keys(i)), boolShowKeyIndex) & "]"
    Else
      stOutput = stOutput & dcDictionary(Keys(i))
    End If

    stOutput = stOutput & "; "

  Next i

  DictionaryContents = stOutput

End Function

Sección de Reseñas y Valoraciones

Recuerda que tienes permiso de comentar si te fue de ayuda.

---

---

Utiliza Nuestro Buscador