使用 TabStrip 标签标题查找数据
Using TabStrip Tabs Captions to lookup data
当我的用户表单打开时,我根据在别处生成的列表创建了 '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 是什么,我如何引用我的选项卡名称?
提前致谢,
比尔
经过反复试验。
TabStrip1.SelectedItem.Caption
当我的用户表单打开时,我根据在别处生成的列表创建了 '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 是什么,我如何引用我的选项卡名称?
提前致谢,
比尔
经过反复试验。
TabStrip1.SelectedItem.Caption