代碼來選擇名稱在文本框中列出的表格

我有一個用戶窗體與一個文本框。我的工作表中有幾個表格。我想要的是，當我運行用戶窗體並在其中輸入表格時，按下提交時，它應該找到名稱輸入到文本框中的表格，然後選擇該表格的單元格。到目前爲止，我已經寫了這個代碼，因爲我是一個初學者。代碼來選擇名稱在文本框中列出的表格

Private Sub CommandButton2_Click() 

'Unprotect the Worksheet 
Sheets("Control Heads").Unprotect Password:="google" 

Dim ws1 As Worksheet, tbl As ListObjects, row As ListRow 

Set ws1 = Sheets("Control Heads") 
Set tbl = ws1.ListObjects("Me.TextBox2.Value") 
Set row = tbl.ListRows.Add 

End Sub

請仔細閱讀該代碼，並告訴我我在哪裏做錯了。

感謝

來源

2016-04-08 Salman Khan

如果你要設置'worksheet'，與工作簿限定它，以及...和所有的牀單做呢？代碼只是爲了選擇一個表有什麼意義？ – findwindow

基本上，選擇一個特定的表後，我想在該表的底部添加行，然後將條目放入其中。 –

您希望使用工作簿來限定工作表，例如'set ws1 = nameOfBookHere.Sheets（「Control Heads」）'。請看看如何使用'set'。考慮將'Me.TextBox2'的值存儲到一個變量並使用它？ – findwindow

Private Sub CommandButton2_Click() 

'Unprotect the Worksheet 
Sheets("Control Heads").Unprotect Password:="google" 

Dim ws1 As Worksheet, tbl As ListObject, row As ListRow 
'tbl should be dim as ListObject, not ListObjects 

Set ws1 = Sheets("Control Heads") 
Set tbl = ws1.ListObjects(Me.TextBox2.Value) '<-- no quotation mark 
Set row = tbl.ListRows.Add 

End Sub

來源

2016-04-08 19:24:41 Rosetta

錯誤「類型不匹配」:( –

嘗試使用'me.textbox2.text' – Rosetta

我也試過它，但同樣的錯誤.... –

代碼來選擇名稱在文本框中列出的表格

回答

相關問題