當多頁面上的頁面被選中時更改用戶窗體標題

我正在創建一個用戶窗體來將數據輸入到excel中，我可以輕鬆地做到這一點。我不是新vba tho'但我有一個問題當多頁面上的頁面被選中時更改用戶窗體標題

我一直在嘗試編寫代碼來更改userform上的標題，當我選擇一個頁面上的userform和我正在使用一個多頁。

這是我下面

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

代碼我在做什麼錯？

來源

2017-06-30 tommy okai

什麼是錯誤您收到？ –

一般而言，用戶窗體很有趣，你應該和你玩一下，找到你要找的東西。例如，這裏是一個小例子，根據ActiveSheet的名稱改變表單的標題。

在模塊中這樣寫：

Option Explicit  
Public Sub ShowForm() 

    UserForm1.Show vbModeless 

End Sub

然後創建一個用戶窗體，命名爲UserForm1和寫下面的代碼：

Option Explicit 

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

運行ShowForm。點擊表格。標題改變了。然後更改activesheet並再次單擊表單。標題再次更改。祝你好運！

來源

2017-06-30 10:21:45 Vityata

感謝buh aint真的在尋找什麼 –

你要問的多頁的選項卡是活動的，行爲上，E.g：

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

來源

2017-06-30 10:42:01

ow好吧我現在明白了，謝謝 –

當多頁面上的頁面被選中時更改用戶窗體標題

回答

相關問題