入力規則 日付をリストのプルダウンで選択したい

質問

エクセルの入力規則をVBAでやる時に日付をリストのプルダウンで選択したいのですが

Sub test()

With Range("A1").Validation
.Delete
.Add Type:=xlValidateList, Formula1:="2014/1/1,2014/1/2"
End With

End Sub

をすると、
1/1/2014
1/2/2014
にとプルダウン上で表示されてしまい、なおかつ文字列になってしまいます。

.Add Type:=xlValidateList, Formula1:=#1/1/2014# & "," & #1/2/2014#
.Add Type:=xlValidateList, Formula1:=Format(#1/1/2014#, "yyyy/mm/dd") & "," & Format(#1/2/2014#, "yyyy/mm/dd")
これでも同じでした。

2014/1/1
2014/1/2
と表示させるにはどうすればいいでしょう？

回答No.2

noname#203218

>.Add Type:=xlValidateList, Formula1:="2014/1/1,2014/1/2"

日付の先頭にカンマを挿入するだけで解決すると思いますのでお試し下さい。
.Add Type:=xlValidateList, Formula1:=",2014/1/1,2014/1/2"

回答No.1

keithin

下記などご参考に。
http://okwave.jp/qa/q4443274.html