弹出日历以选择日期以代替输入框

Question

我目前正在使用一个宏，我在其中使用输入框为.autofilter手动输入日期。如下所示。

key1 = InputBox("Expiry Date", "Title")
.Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:=key1

在这里我需要并弹出一个日历，这样我就可以从日历中选择日期而不是手动输入日期。

Answer 1

在这里，您可以找到问题link

的答案