用VBA的Validation.add方法設置日期下拉列表後日期格式有誤

B1顯示出來的是系統的默認日期格式，其他的是習慣格式。

問題出在?Formula1:=Join(d.keys, ",") 這裏，經過Join後，日期已經變成文本了。

妳為什麽要用VBA繞壹大圈來設置數據有效性呢？如果非要用VBA，代碼如下（請將B1單元格的格式設為日期格式）。

Private?Sub?Worksheet_SelectionChange(ByVal?Target?As?Range)

If?Target.Address?<>?"$A$1"?Then?Exit?Sub

With?[b1].Validation

.Delete

.Add?Type:=xlValidateList,?AlertStyle:=xlValidAlertStop,?Operator:=?_

xlBetween,?Formula1:="=$V$1:$V$300"

End?With

Target.Offset(0,?1)?=?"下拉選擇"

End?Sub