vba - 是否可以在vba中声明公共(public)变量并分配默认值？

Question

我想这样做，但它无法编译:

Public MyVariable as Integer = 123

实现这一目标的最佳方法是什么？

Answer 1

.NET 宠坏了我们:)您的声明对于 VBA 无效。

只有常量才能在应用程序加载时赋值。你可以像这样声明它们:

Public Const APOSTROPHE_KEYCODE = 222

这是我的一个 vba 项目的示例声明:

如果您正在寻找声明公共(public)变量然后想要初始化其值的内容，则需要创建一个 Workbook_Open 子项并在那里进行初始化。示例:

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

确保您在工作簿对象本身中声明了子项: