0

当我的用户表单打开时，我根据在别处生成的列表创建了“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

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

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

提前致谢，

账单

4

1 回答 1

0

经过一些试验和错误。

TabStrip1.SelectedItem.Caption
于 2021-07-06T15:03:13.833 回答