Est-il possible de déclarer une variable publique dans vba et attribuer une valeur par défaut?

Je veux faire cela, mais il ne compile pas:

Public MyVariable as Integer = 123

Quelle est la meilleure façon d'atteindre cet objectif?

Où est-ce VBA cours d'exécution? Excel, Access, Word...
J'espérais un générique solution vba.
Sont des variables globales considéré comme pas mal plus? J'étais parti pour un couple de semaines en Mai, donc j'ai peut-être raté quelque chose.

InformationsquelleAutor David | 2011-05-05

.NET nous a gâtés 🙂
Votre déclaration n'est pas valide pour VBA.

Uniquement des constantes peut être donné une valeur lors de l'application de la charge. Vous déclarer comme ceci:

Public Const APOSTROPHE_KEYCODE = 222

Voici un exemple de déclaration de l'un de mes projets vba:

Est-il possible de déclarer une variable publique dans vba et attribuer une valeur par défaut?

Si vous êtes à la recherche de quelque chose où vous vous déclarez une variable publique et que vous souhaitez initialiser sa valeur, vous devez créer un sub Workbook_Open et de faire de votre initialisation.
Exemple:

Private Sub Workbook_Open()
  Dim iAnswer As Integer

  InitializeListSheetDataColumns_S
  HideAllMonths_S

  If sheetSetupInfo.Range("D6").Value = "Enter Facility Name" Then
    iAnswer = MsgBox("It appears you have not yet set up this workbook.  Would you like to do so now?", vbYesNo)
    If iAnswer = vbYes Then
      sheetSetupInfo.Activate
      sheetSetupInfo.Range("D6").Select
      Exit Sub
    End If
  End If

  Application.Calculation = xlCalculationAutomatic
  sheetGeneralInfo.Activate
  Load frmInfoSheet
  frmInfoSheet.Show


End Sub

Assurez-vous de déclarer le sub dans le Classeur de l'Objet lui-même:
Est-il possible de déclarer une variable publique dans vba et attribuer une valeur par défaut?

+1 pour le très graphique/pédagogique esprit de votre réponse!

InformationsquelleAutor ray

9

Juste pour vous offrir un angle différent -

Je trouve que c'est pas une bonne idée de conserver les variables publiques entre les appels de fonction. Toutes les variables que vous devez utiliser doivent être stockés dans des sous-marins et de Fonctions, et passés en paramètres. Une fois que le code est fait en cours, vous ne devriez pas attendre le Projet VBA pour maintenir les valeurs de toutes les variables.

La raison pour cela est qu'il est juste un énorme tas de choses qui peuvent, par inadvertance, réinitialiser le Projet VBA lors de l'utilisation du classeur. Lorsque cela se produit, toutes les variables publiques obtenir remis à 0.

Si vous avez besoin d'une valeur à être stockés à l'extérieur de vos sous-titres et des fonctions, je vous recommandons vivement d'utiliser un caché de la feuille de calcul avec des plages nommées pour toute information qui doit persister.

InformationsquelleAutor Alain
8

Sûr que vous savez, mais si sa constante const MyVariable as Integer = 123 sinon ta de la chance; la variable doit être associé à une valeur initiale ailleurs.

Vous pouvez:
```
public property get myIntegerThing() as integer
    myIntegerThing= 123
end property
```
Dans un module de Classe puis à l'échelle mondiale le créer;
```
public cMyStuff as new MyStuffClass
```
Donc cMyStuff.myIntegerThing est disponible immédiatement.
- Mieux, il sera l'ajout d'un Module et de définir ces propriétés à l'intérieur de ce module. J'ai créer un module appelé Globals et de définir Property Get à l'intérieur de ce module et il fonctionne comme un charme. Property Get PSIStartRow() as Integer PSIStartRow = Sheets("Prix franco à bord").Range("F1").Valeur de la Propriété Property Get PSIStartCell() as String PSIStartCell = "B" & PSIStartRow Fin de la Propriété
- Le code obtenu de déformation dans le commentaire ci-dessus. Je vais poster ci-dessous.
InformationsquelleAutor Alex K.

C'est ce que je fais quand j'ai besoin de Initialisé Constantes Globales:

1. Ajouter un module appelé Globals

2. Ajouter les Propriétés de ce type dans le Globals module:

Property Get PSIStartRow() As Integer  
    PSIStartRow = Sheets("FOB Prices").Range("F1").Value  
End Property  
Property Get PSIStartCell() As String  
    PSIStartCell = "B" & PSIStartRow  
End Property

InformationsquelleAutor Achilles

1

Vous pouvez définir la variable, en Général, des Déclarations puis l'initialiser dans le premier événement qui se déclenche dans votre environnement.

Alternativement, vous pouvez créer vous-même une classe avec les propriétés et les initialiser dans l'Initialisation de la méthode

InformationsquelleAutor Duncan Howe
1

Comme dit ci-dessus, Pour déclarer global accessible variables que vous pouvez le faire à l'extérieur des fonctions précédées du mot-clé public.

Et, depuis l'affectation n'est PAS PERMIS en dehors des procédures, vous pouvez, par exemple, créer un sous-appelé InitGlobals qui initialise tes variables publiques, alors vous suffit d'appeler ce sous-programme au début de vos déclarations

Ici est un exemple:
```
Public Coordinates(3) as Double
Public Heat as double
Public Weight as double

Sub InitGlobals()
    Coordinates(1)=10.5
    Coordinates(2)=22.54
    Coordinates(3)=-100.5
    Heat=25.5
    Weight=70
End Sub

Sub MyWorkSGoesHere()
    Call InitGlobals
    'Now you can do your work using your global variables initialized as you wanted them to be.
End Sub
```
InformationsquelleAutor Mohamed YOUNES
-2

Ça fait un moment, mais je crois que ça va être:
```
Public MyVariable as Integer
MyVariable = 123
```
- Cela ne veut pas compiler soit, j'ai peur. Regarde comme il a été trop longtemps!
- En particulier, Public déclarations doit être hors routines (Sub ou Function), affectations de valeur de à l'intérieur.
InformationsquelleAutor Paddy
-2

Il fait très longtemps, mais cela peut vous satisfaire :
```
Public MyVariable as Integer: MyVariable = 123
```
C'est un peu moche car vous devez retaper le nom de la variable, mais c'est sur une seule ligne.
- Il produit une erreur de compilation: non Valide en dehors de la Procédure
InformationsquelleAutor Lucas B.

Vous devez vous connecter pour publier un commentaire.