Vba 通过从多张图纸中提取数据，在excel中基于特定单元格创建列表

我需要根据同一工作簿中多张工作表的矩阵模板创建一个列表。 我有一个网格，如下所示：

A1专家

A2中间体

A3基金会

B4一级

C4二级

D4三级

因此，如果“完成”一词在单元B3中，则该人已经完成了基础1级。

这将是相同的模板，每个人都有一个新的工作表。前面的工作表需要有一个选项来搜索谁完成了什么等级。例如，“Bruce Wayne”表名在其表格C2单元格中有“completed”一词（因此他完成了2级中级考试），当我在前面的工作表中搜索2级中级考试的考生时，Bruce Wayne会出现在一个列表中（与其他任何在工作表上显示“completed”的考生一起）

我知道如何制作宏按钮，我知道如何制作数据验证列表， 我还发现了一个宏，可以在所有工作表中循环（）

我不知道的是如何让它返回工作表名称（bruce wayne）以在名称首页上形成一个列表，而不仅仅是值（已完成/正在进行等），以及报告它的最简单方法是什么：

1.为填充图纸名称列表的每个等级/级别选项创建一个按钮（本例中总共有9个按钮）

< L> > p>创建2个下拉列表框，其中一个具有级别，一个具有级别，然后如果从下拉列表中选择1级和基础，则填充在其旁边的另一列中的表名。

选项卡名称是从“重命名工作表”宏创建的，该宏工作正常：

因此，它不一定要报告工作表名称，它可以报告一个单独的单元格，指示工作表名称（如果更容易的话）

我打字后比以前更困惑了！谁能理解这个/帮助我

Sub LoopThroughSheets()

If worksheets ("OVERVIEW") GOTO C5="Grade 1" And E5="Foundation" Then

' I want this bit to say if the overview worksheet cell C5 contains grade 1 and cell e5 contains foundation then

"

---

工作表

对象在VBA中有一个可以访问的

名称

属性

---

如果您需要更具体的帮助，请发布代码。

如果这是完全错误的，我很抱歉，我是VBA新手（仅在我工作的最后两周使用过它，通常我只记录一个宏并指定一个按钮！）子循环通过表（）如果工作表（“概述”）转到C5=“1级”和E5=“基础“那么，”我想说一下，如果概览工作表单元格C5包含1级，并且单元E5包含基础，那么‘=’如果E13=“完成”，则ActhEsHeT.Name＝Read（“I5:I11”）。.Copy）“我想让这一位说，如果单词completed出现在任何后续工作表的单元格E13中，那么它应该将工作表名称复制到单元格I5到I11中的概览工作表”为ActiveWorkbook中的每个ws设置工作表。工作表下一个ws End子表

  =IF E13="completed", THEN ActiveSheet.Name = Range("I5:I11").Copy)
 ' I want this bit to then say if the word completed is present in cell E13 on any of the subsequent sheets it should copy the sheet name to the overview sheet in cells I5 to I11'


    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets


    Next ws
End Sub