在 ListObject 标题中查找日期 - Excel VBA

在 ListObject 标题中查找日期 - Excel VBA

我正在尝试创建一个包含数小时数据的动态表。前几列将是姓名、项目、角色等,然后​​是日期(间隔 1 周)。此表的信息将从另一张表自动填充。我遇到了一个函数问题,该函数将:
1 - 从另一张表读取日期
2 - 查看表的标题行以确定日期是否存在。条件应根据以下标准执行代码:

如果日期存在,则返回日期的列位置,以便行可以填充数据。

如果日期不存在,则查找前一周和后一周的位置,并插入一个带有日期标题的新列。然后返回日期的列位置,以便行可以填充数据。

到目前为止,在我的代码中,我尝试将输入日期声明为变量、长整型、日期和双精度型,但都没有成功。我一直在尝试 Application.Match 函数,但运气不佳。我还尝试分配一个具有日期类的数组,以使匹配函数正常工作。我感觉我没有正确引用 ListObject。

所讨论表格类型的示例。例如,如果我搜索 05/04/21 并且 G 列不存在,那么该函数应该能够识别这一点并在 29/03/21 和 12/04/21 之间插入一列

有人能提供一些建议吗?

相关内容