如何使用日期选择结果的工作表名称填充组合框?
How do I populate a combobox with the name(s) of a worksheet as the result of a date selection?
我有 2 个组合框。第一个组合框 (CboReviewDate) 包含日期。第二个组合框 (CboReviewModule) 将填充活动工作簿中所有工作表的名称(如果它们在列 "x" 中包含与 CboReviewDate 中选择的日期相匹配的日期)。
我需要帮助来设置逻辑和选择正确的搜索工具。
这个逻辑流程行得通吗?
循环例程是否会删除 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
好的,我在 right/possible/some 中为您指点?方向.
- 当您select一个日期
时,第一个组合框应该触发一个Change
事件
- 在那个事件上你应该映射一个过程,那将
- A) 循环所有工作表(
Workbook.Worksheets
集合)
- B) 检查每个
Worksheet
列 X 中的日期
- C) 如何检查由你决定,你可能希望尝试使用对象
Range
的 Find
方法(为 Ctrl+F
录制宏并查看它是如何工作的),但要注意错误处理(未找到匹配项时)
- D) 如果找到日期,
Worksheet.Name
将添加到您的第一个组合框的项目集合中。
我有 2 个组合框。第一个组合框 (CboReviewDate) 包含日期。第二个组合框 (CboReviewModule) 将填充活动工作簿中所有工作表的名称(如果它们在列 "x" 中包含与 CboReviewDate 中选择的日期相匹配的日期)。
我需要帮助来设置逻辑和选择正确的搜索工具。 这个逻辑流程行得通吗? 循环例程是否会删除 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
好的,我在 right/possible/some 中为您指点?方向.
- 当您select一个日期 时,第一个组合框应该触发一个
- 在那个事件上你应该映射一个过程,那将
- A) 循环所有工作表(
Workbook.Worksheets
集合) - B) 检查每个
Worksheet
列 X 中的日期
- C) 如何检查由你决定,你可能希望尝试使用对象
Range
的Find
方法(为Ctrl+F
录制宏并查看它是如何工作的),但要注意错误处理(未找到匹配项时) - D) 如果找到日期,
Worksheet.Name
将添加到您的第一个组合框的项目集合中。
Change
事件