vba - valor - variables en visual basic

¿Es posible declarar una variable pública en vba y asignar un valor predeterminado?

Question

Quiero hacer esto pero no compilará:

Public MyVariable as Integer = 123

¿Cuál es la mejor manera de lograr esto?

Answer 1

.NET nos ha echado a perder :) Su declaración no es válida para VBA.

Solo las constantes pueden recibir un valor en la carga de la aplicación. Usted los declara así:

Public Const APOSTROPHE_KEYCODE = 222

Aquí hay una declaración de muestra de uno de mis proyectos vba:

Si está buscando algo donde declare una variable pública y luego quiera inicializar su valor, debe crear un sub Workbook_Open y realizar su inicialización allí. Ejemplo:

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

Asegúrese de declarar el sub en el Objeto del libro en sí:

Answer 2

Claro que lo sabes, pero si es una constante, entonces const MyVariable as Integer = 123 contrario, no tienes suerte; a la variable se le debe asignar un valor inicial en otro lugar.

Tú podrías:

public property get myIntegerThing() as integer
    myIntegerThing= 123
end property

En un módulo de clase, créelo globalmente;

public cMyStuff as new MyStuffClass

Entonces cMyStuff.myIntegerThing está disponible de inmediato.

Answer 3

Como se dijo anteriormente, para declarar variables accesibles globales puede hacerlo fuera de las funciones precedidas con la palabra clave pública.

Y, dado que la afectación NO ESTÁ PERMITIDA fuera de los procedimientos, puede, por ejemplo, crear un sub llamado InitGlobals que inicialice sus variables públicas, luego simplemente llame a esta subrutina al comienzo de sus declaraciones

Aquí hay un ejemplo de esto:

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

Answer 4

Esto es lo que hago cuando necesito constantes globales inicializadas:
1. Agregue un módulo llamado Globals
2. Agregue propiedades como esta en el módulo Globals :

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

Answer 5

Ha pasado bastante tiempo, pero esto puede satisfacerte:

Public MyVariable as Integer: MyVariable = 123

Es un poco feo, ya que tienes que volver a escribir el nombre de la variable, pero está en una línea.

Answer 6

Ha pasado un tiempo, pero creo que va a ser:

Public MyVariable as Integer
MyVariable = 123

Answer 7

Puede definir la variable en Declaraciones generales y luego inicializarla en el primer evento que se active en su entorno.

Alternativamente, podría crearse una clase con las propiedades relevantes e inicializarlas en el método Initialise

Answer 8

Solo para ofrecerte un ángulo diferente -

Encuentro que no es una buena idea mantener variables públicas entre llamadas a funciones. Todas las variables que necesite utilizar deben almacenarse en Subs y funciones y pasarse como parámetros. Una vez que el código se ejecuta, no debe esperar que el Proyecto VBA mantenga los valores de las variables.

La razón de esto es que solo hay una gran cantidad de cosas que pueden reiniciar inadvertidamente el Proyecto VBA mientras se usa el libro de trabajo. Cuando esto sucede, cualquier variable pública se restablece a 0.

Si necesita que se almacene un valor fuera de sus subs y funciones, le recomiendo utilizar una hoja de cálculo oculta con rangos con nombre para cualquier información que deba persistir.