作为dateselect的结果，如何使用工作表的名称填充combobox？

我有2个combobox。 第一个combobox（CboReviewDate）包含date。 第二个combobox（CboReviewModule）将填充活动工作簿中所有工作表的名称（如果它们包含与“CboReviewDate”中所选date匹配的“x”列中的date）。

我需要帮助build立逻辑和select正确的search工具。 这个逻辑stream程会工作吗？ 循环例程是否会清除CboReviewModule中的现有条目？

这对我来说是一个学习过程，所以我想自己开发代码。 请指出我正确的方向。

这是我的伪代码：

'Run on "CboReviewDate"_change state 'CountIf (date in column "x" = "CboReviewDate.Value") in worksheet 1 of active workbook 'if result <> 0 then pass name of worksheet to variable "a" '.additem to "CboReviewModule" using value of variable "a" 'reset value of variable "a" and loop until all worksheets in active workbook have been searched 

Answer 1

好的，我在这里指出你在正确/可能/有些？ 方向。

• 当您selectdate时，第一个combobox应该触发Change事件
• 在那个事件上，你应该映射一个程序，那会的
• A）循环所有工作表（ Workbook.Worksheets集合）
• B）检查每个Worksheet的X列date
• C）你如何做检查取决于你，你可能希望尝试对象Range Find方法（为Ctrl+Floggingmacros，看看它是如何工作的），但要小心error handling（当没有find匹配）
• D）如果finddate， Worksheet.Name被添加到您的第一个combobox的项目集合。