Un objet de feuille de calcul peut-il être déclaré globalement dans Excel VBA?

Question

Je suis en train de refactoriser un certain nombre de modules dans un classeur Excel 2003 et le même ensemble de feuilles de calcul est déclaré dans chaque procédure de chaque module; Je voudrais juste les déclarer une fois globalement. Je peux définir le nom de feuille de calcul comme littéral, par exemple:

Public Const xlwkGSModel = "gs_model" As String 

Et puis dans l'utilisation de la procédure:

...ActiveWorkbook.Worksheets(xlwkGSModel).Cells(1,1) 

Mais est-il un moyen de déclarer l'objet de feuille de calcul afin que le code dans la procédure pourrait être:

...xlwkGSModel.Cells(1,1) 

Answer 1

« 1. Insérer un module

'2. Déclarer la variable publique de feuille de calcul dans le module comme suit

Public xlwkGSModel As Worksheet 

'3. Instancier cette variable publique en cas de charge de l'application

Sub Workbook_Open() 

    Set xlwkGSModel = ActiveWorkbook.Worksheets("gs_model") 

End Sub 

« Maintenant, vous pouvez consulter la feuille de gs_model avec la variable xlwkGSModel

» Par exemple

dim x as string 

x = xlwkGSModel.Cells(1,1) 

Answer 2

Edit: le commentaire par Alistair Frappez est correct, j'ai lu la question à fond - bien sûr, ma réponse est non t valide pour les objets, seulement pour les types comme string ou integer. Pour les objets, vous avez besoin d'une fonction ou d'un sous-élément qui crée une instance.

---

Oui, vous pouvez, je l'ai fait récemment. Si vous définissez vos définitions comme Public, vous pouvez les utiliser directement dans vos autres modules (dans le même classeur, bien sûr).

Peut-être que la meilleure approche est d'avoir un module séparé Globals et de les mettre là.

Answer 3

Vous pourriez, mais voulez-vous vraiment plus de variables globales? Pourquoi ne pas créer (dans un module standard) une propriété publique ModelWorksheet, comme ceci:

Public Property Get ModelWorksheet As Worksheet 
    Const ModelWorksheetName As String = "gs_model" 
    Set ModelWorksheet = ActiveWorkbook.Worksheets(ModelWorksheetName) 
End Property 

... alors votre code peut faire:

With ModelWorksheet 
    .Cells(1,1).Value = "foo" 
    .Font.Bold = True 
End With 

Notez également que vous pouvez vous référer à l'un des feuilles dans le classeur en cours directement, donc s'il y a une feuille appelée Sheet1 vous pouvez faire:

With Sheet1 
    .Cells(1,1).Value = "foo" 
    .Font.Bold = True 
End With 

Answer 4

Il est depuis longtemps, mais mieux plus tard que jamais ;-) Je ne sais pas si cela fonctionne dans Excel 2003 (testé avec 2007):

Vous n'avez même pas besoin de décliner sont des feuilles de calcul dans le code, car elles sont déjà déclarées. Je travaille avec une version allemande d'Excel et je peux accéder à une feuille de calcul en tapant "Tabelle1.Cells (...) ...". Je suppose que dans la version anglaise, c'est quelque chose comme "Table1" ou "Sheet1".

Vous pouvez également modifier ces noms. Dans l'éditeur Visual Basic consultez les objets Microsoft Excel de votre projet VBA. (Ils sont juste au-dessus de vos modules et UserForms dans la vue VBA-Project). Il y a les objets de feuille de travail de votre classeur. Sélectionnez une feuille et activez la fenêtre d'outils Propriétés. Là, vous pouvez modifier le nom de la feuille et y accéder par ce nom dans votre code.

Answer 5

Si vous ne souhaitez pas utiliser l'événement Excel, vous pouvez également déclarer votre feuille de calcul publiquement, puis créer un sous-ensemble pour définir la valeur correspondante. Appelez ce sous au début de chaque sous pour initialiser la valeur. (Je l'ai fait de la réponse orwellienne.)

---

Public WSRawData As Worksheet 

---

Public Sub RawDataWSInit() 

Set WSRawData = Worksheets(RawData) 

End Sub 

---

Sub Main() 

Call RawDataWSInit 

End Sub 

---

Answer 6

Vos feuilles de travail sont "objets Microsoft Excel" définis dans votre VBA-Project-Explorer :

Dans l'écran ci-dessus, je l'ai appelé ma feuille de calcul DataSheet, maintenant je peux y accéder directement à partir du code:

Set SomeRange = DataSheet.Range("A3:B6") 

Par défaut, votre Worksheets sera nommé « Sheet1 », « Feuil2 », aussi ... en fonction de votre langue. Il est vraisemblable que, bien que les définitions puissent être faites au niveau du module, les valeurs devront être affectées dans une procédure, par exemple,