當前位置:成語大全網 - 新華字典 - 用VBA的Validation.add方法設置日期下拉列表後日期格式有誤

用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