無法在excel中使用列表框選擇來打開工作表

Code Page 2 Code Page 1我想用列表框選擇打開工作表。代碼如下。但它顯示一個錯誤。我是vba新手。 PLZ幫助無法在excel中使用列表框選擇來打開工作表

Public Sub AddData_Click() 
Dim iRow As Long 
Dim ws As Worksheet 
Dim Sht As String 
Sht.Text = ListBox1.SelectedItem.Tostring() 
Worksheets(CStr(Sht)).Activate

來源

2017-04-08 Lionel Zed

表現出更多的_environment_你的代碼（如用戶窗體截圖），並確認你是在VBA和不在VB-Net上 – user3598756

我的用戶表單包含一個列表框和其他輸入數據的框。我在excel上按Alt + F11，我正在那個窗口上工作。 –

錯誤是編譯器錯誤，找不到方法或數據成員。該錯誤使Public Sub AddData_Click（）以黃色着色，選擇.SelectedItem –

試試這個

Private Sub AddData_Click() 
Dim i As Integer 
Dim sht As String 
For i = 0 To ListBox1.ListCount - 1 
    If ListBox1.Selected(i) Then 
     sht = ListBox1.List(i) 
    End If 
Next i 
If sht = "" Then 
    MsgBox "You didn't select an item in the listbox.", vbExclamation 
    Exit Sub 
Else 
    Worksheets(sht).Activate 
End If 
End Sub

來源

2017-04-08 10:36:12 sktneer

彈出一個錯誤，它表示類型不匹配。 –

ListBox1的MultiSelect屬性設置爲false？即它不應該允許多重選擇。 – sktneer

Multiselect設置爲0 - fmMultiselectSingle –

你可以試試這個：

Private Sub AddData_Click()  
    With Me.ListBox1 
     If .ListIndex = -1 Then 
      MsgBox "No item selected!" 
     Else 
      Worksheets(.Value).Activate 
     End If 
    End With 
End Sub

來源

2017-04-08 11:44:18 user3598756

這是說沒有選擇的項目。我只是查看選擇列表框的值，而不是按任何按鈕。 –

什麼是「AddData」？那麼'Listbox'或'Button'對象的名字？ – user3598756

AddData是表格的名稱 –

無法在excel中使用列表框選擇來打開工作表

回答

相關問題