Question

这是我第一次创建UserForm。我已经找到了解决方案，但还没找到一个有效的解决方案。

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

我现在有这个（在UserForms代码中：

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

当我打开工作簿时打开UserForm，但它不会更新字幕。

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

我做错了什么？

Answer 1

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

Private Sub UserForm_Initialize()
    ....
End Sub

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

即可

Answer 2

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

如何在VBA中设置标签标题？

2 个答案: