如何获得在VBA中设置的标签标题？

这是我第一次创build一个用户窗体。 我寻找的解决scheme，但还没有find一个工程。

我正在尝试为几个标签设置标题。 当表单打开时，我希望它们设置。

我现在有这个（在用户窗体代码：

Private Sub Budget_Initialize() Me.Label25.Caption = Format(Month(Now), "mmmm") Me.Label26.Caption = Format(Month(Now) + 1, "mmmm") Me.Caption = "Test, Test, Test!" Me.Repaint End Sub 

但它不起作用。

我也试过这个（在ThisWorkbook代码中）：

 Private Sub Workbook_Open() Budget.Show With Budget .Label25.Caption = Format(Month(Now), "mmmm") .Label26.Caption = Format(Month(Now) + 1, "mmmm") .Caption = "Test, Test, Test!" End With Budget.Repaint End Sub 

它打开工作簿时打开用户窗体，但它不会更新字幕。

我希望字幕是本月和下个月的名字。

我究竟做错了什么？

Answer 1

您需要的事件例程（独立于表单的名称）

 Private Sub UserForm_Initialize() .... End Sub 

所以基本上，只需将Budget_Initialize()重命名为UserForm_Initialize()

Answer 2

格式（月（现在），“mmmm”）将始终为1月，因为它是最大格式（12，“mmmm”）。 跳过月份，现在一个人就是你需要的。