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