VBA Utilisation propre de nombreuses constantes

Question

Mon VBA Excel prend ~ 300 fichiers XLS et saisit 8 cellules à déposer dans leur propre ligne. (Office11) J'ai plusieurs sous-marins et fonctions qui utilisent des constantes de localisation pour les emplacements sourceData et de destination. Grand Total J'ai 23 emplacements constants avec des numéros de colonnes, des emplacements de cellules. Question: Des suggestions sur la façon de nettoyer cela pour plus de lisibilité et de garder les constantes en un seul endroit? J'essayais d'éviter les variables publiques mais pas sûr d'une meilleure méthode. Comment faites-vous des tableaux contenant des valeurs constantes?

exemple partiel,
Public pstrQLocations(1 To 8) As String
pstrQLocations(1) = "B7"
pstrQLocations(2) = "B6"
pstrQLocations(3) = "B5"
pstrQLocations(4) = "B8"
pstrQLocations(5) = "A3"
pstrQLocations(6) = "C8"

Answer 1

Vous pouvez stocker vos Constantes dans un Collection. L'avantage est que vous pouvez donner des noms à vos éléments.

Option Explicit 
Dim pstrQLocations As Collection 

Private Sub initializeConstants() 
    Set pstrQLocations = New Collection 

    pstrQLocations.Add "B7", "Title" 
    pstrQLocations.Add "B6", "User" 
End Sub 

Private Sub showConstants() 
    initializeConstants 
    Debug.Print Me.Range(pstrQLocations("Title")).Value 
    Debug.Print Me.Range(pstrQLocations("User")).Value 
End Sub 

Version 3D:

Option Explicit 
Dim pstrQLocations As Collection 

Private Sub initializeConstants() 
    Dim title As New Collection 

    Set pstrQLocations = New Collection 

    title.Add "B7", "source" 
    title.Add "A6", "destination" 

    pstrQLocations.Add title, "Title" 
End Sub 

Private Sub showConstants() 
    Dim y As Collection 
    initializeConstants 

    Debug.Print pstrQLocations("Title")("source") 
    Debug.Print pstrQLocations("Title")("destination") 
End Sub