VBA excel宏用于从命名范围中选择命名引用的按钮

Question

我有一个命名范围＆＃34; last_monday＆＃34;，它动态计算一个变量，即上周一的日期（＆＃34; d-mmm-yy＆＃34;）。我想要一个宏，我可以分配给一个按钮，该按钮可以选择上一个星期一的日期位于更广泛的列日期范围内的列，称为＆＃34; date_range＆＃34;。 / p>

E.g。假设今天的日期是星期一，即1月15日 - 18日，按钮将选择下面示例中位置BQ5的单元格。

Answer 1

下面的函数选择由Date_Range的值指示的Last_Monday中的单元格。如果没有匹配则无效。

Sub SelectMonday()

    Dim C As Long

    On Error Resume Next
    C = Application.Match(Range("Last_Monday").Value2, Range("Date_Range"), 0)
    If C Then Range("Date_Range").Cells(C).Select
End Sub