使用 TabStrip 标签标题查找数据

Question

当我的用户表单打开时，我根据在别处生成的列表创建了 'x' 个选项卡：

TaskOwners = ws.Range("W" & Rows.Count).End(xlUp).Row - 1 'MsgBox LastRow1

For i = 2 To TaskOwners + 1

    ct1.Tabs.Add , Range("W" & i)

Next i

这很好用。

我的意图是，当我单击其中一个生成的选项卡时，以下代码将更新 TaskList.List

Set ws = ThisWorkbook.Worksheets("Clean_Import")
  
ws.Activate
On Error Resume Next
ws.ShowAllData
On Error GoTo 0

    ws.Range("A1:K1000").AutoFilter Field:=3, Criteria1:="[insert selected tab name here]"

    Range("A:A").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets("TempSheet").Select
    
    Columns("A:A").Select
   Range("A2").Activate
    ActiveSheet.Paste

TaskList.List = Sheets("TempSheet").Range("A2:A100").Value

这将创建一个列表框，我可以从中 select 填充文本框等，这将运行关闭 vlookup。

我遇到的问题是识别选项卡名称，它们不像文本框或标签那样运行，那么我的 Criteria1 是什么，我如何引用我的选项卡名称？

提前致谢，

比尔

Answer 1

经过反复试验。

TabStrip1.SelectedItem.Caption

使用 TabStrip 标签标题查找数据

Using TabStrip Tabs Captions to lookup data

tabs

tabstrip