Question

我正在创建一个用户表单来将数据输入到excel中，我可以轻松完成。我对vba tho＆＃39;并不陌生。但我有一个问题

当我在用户表单上选择页面并且我使用多页时，我一直在尝试编写代码来更改用户表单上的标题。

这是我的代码

Private Sub MultiPage1_Change()

ComboBox1.SetFocus
If Page2.Enabled = True Then
    UserForm2.Caption = "weekly report format for new service and separate meter installation"
End If

End Sub

我做错了什么？

Answer 1

一般来说，UserForms很有趣，你应该和你的一起玩，找到你想要的东西。例如，这是一个小例子，根据ActiveSheet名称更改表单的标题。

在模块中写下：

Option Explicit    
Public Sub ShowForm()

    UserForm1.Show vbModeless

End Sub

然后创建一个名为UserForm1的UserForm并编写以下代码：

Option Explicit

Private Sub UserForm_Click()
    Me.Caption = ActiveSheet.Name
End Sub

运行ShowForm。点击表格。标题已更改。然后更改活动表并再次单击该表单。标题再次更改。祝你好运！

Answer 2

您需要询问MultiPage哪个标签处于活动状态并按此操作，例如：

Private Sub MultiPage_Change()
    Dim title As String

    Select Case MultiPage1.SelectedItem.Index '// or select on .Name
        Case 0: title = "First page selected"
        Case 1: title = "Second page selected"
        Case 2: title = "Third page selected"
    End Select

    Me.Caption = title
End Sub

选择多页上的页面时更改用户表单标题

2 个答案: