popupdateselect日历代替input框

我目前正在使用一个macros，其中我正在使用input框手动键入date.autofilter两行如下。

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

在这里，我需要并popup一个日历，所以，而不是手动inputdate，我可以从日历中select一个date。

Answer 1

在这里你可以find你的问题链接的答案