VBA日期格式转换问题

1、首先在开发工具中打开VBA编辑器。

2、在单元格区域当中输入一些内容作为例子。

3、在VBA编辑器中插入模块。

4、在模块当中输入如下代码，然后运行。

5、在A列输入“6-15”格式之数据，单元格将返回“2007年6月15日星期五”，而在其他列输入则忽略。

两个问题：1、Range("a40").Value = Format("2012/4/12", "YYYY-MM-DD")，“0000-00-00”不是合法的日期格式。
2、必须先把这个格子弄成文本显示，否则excel会自做聪明改成excel标准的日期类型“YYYY/M/D”
完成代码如下：
SUB KK()
Range("a40").NumberFormatLocal = "@"
Range("a40").Value = Format("2012/4/12", "YYYY-MM-DD")
END SUB

更改Windows的系统设置，从左下角的时间那里 （win7）左键——更改日期和时间设置——日期和时间——更改日期和时间——更改日历设置——短日期 设置为yyyy-MM-dd ，改完之后，Excel就会把输入的日期优先显示成yyyy-MM-dd格式的。

SUB KK()
Range("a40").Value = Format("2012/4/12", "YYYY-MM-DD")
END SUB

如果满意请点一下满意按钮

如下：

Sub KK()
With Range("a40")
.Value = "2012/4/12"
.NumberFormatLocal = "yyyy-mm-dd"
End With
End Sub