如何忽略特定的工作表名稱？

我的代碼如下，它是一個用戶窗體上的組合框，它允許用戶從其他工作表中選擇某些數據。我的問題是，它也顯示我的'摘要'表作爲一個可選擇的選項。如何讓它顯示列表索引中除「摘要」工作表外的所有工作表？如何忽略特定的工作表名稱？

Private Sub cmb_copycontact_Change() 
If cmb_copycontact.ListIndex <> -1 Then 

     With ActiveWorkbook.Sheets(cmb_copycontact.Value) 
      txt_MailAdd1.Value = .Range("B21").Value 
      txt_mailadd2.Value = .Range("B22").Value 
      txt_mailburb.Value = .Range("B23").Value 
      cmb_mailstate.Value = .Range("B24").Value 
      txt_pcode.Value = .Range("B25").Value 
      End With 

    End If 

End Sub

來源

2017-09-05 Jayson D

修改代碼，在其中填充組合框，只是不添加它。您添加的代碼對您的問題沒有幫助。 – UGP

正如UGP所述，在UserForm上填充組合框時排除彙總表。

將以下代碼合併到UserForm Initialize事件代碼中。

Private Sub UserForm_Initialize() 
Dim ws As Worksheet 
For Each ws In Worksheets 
    If ws.Name <> "Summary" Then 
     Me.cmb_copycontact.AddItem ws.Name 
    End If 
Next ws 
End Sub

來源

2017-09-05 05:53:33 sktneer

我真是個白癡！我完全忘了我的Userform Initialize事件。過了漫長的一天，很抱歉浪費你的時間，但非常感謝回覆！ –

@JaysonD不客氣。很高興你的問題得到解決。 :) – sktneer

如何忽略特定的工作表名稱？

回答

相關問題