接着，找到并选中您需要转换日期格式的单元格或数据区域。在Excel的菜单栏上，单击“开发”选项，然后在下拉菜单中选择“VisualBasic”或“VBA”选项，这将打开VBA编辑器窗口。在VBA窗口中，新建一个名为“dateTra”的模块，然后输入以下代码：`PrivateSubdateTra()DimdatetimeAsDatedatetime=#2020/2/13#...

选择你想要显示那个数据的一列，单击右键选单元格格式设置的那一项，然后选择日期，挑你想要的日期格式然后确定。之后数据写到单元格会自动转化成日期格式。\x0d\x0a\x0d\x0a用代码的话，\x0d\x0a 选择单元格范围，例如：\x0d\x0a Range("A1:A9").Select\x0d\x0a 指定范围的格式\x0...

当然，也可以使用VBA程序快速转换，程序代码如下：Sub Format_D()Dim iOn Error Resume Next '忽略运行过程中可能出现的错误Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1mysheet1.Columns("A:A").NumberFormatLocal = "yyyy/mm/dd" '设置成日期格式For i = 2 To 1000 ...

你这个是输入公式的意思，设置格式要用numerformat Worksheets(p).Cells(j, i).numberformat = "yyyy-m-d"ex(2,"交货期")这是什么，也许是你这个错误

Public Function ToDate(str As String)Dim stst = Trim(str)dat = Format(Left(st, 4) + "/" + Mid(st, 3, 2) + "/" + Mid(st, 5, 2) + " " + Right(st, Len(st) - InStr(st, " ")), "yyyy/MM/dd hh:mm;ss")End Function ...

1、第一步，双击以打开Excel表，见下图，转到下面的步骤。2、第二步，执行完上面的操作之后，选择底部的工作表，然后右键单击“查看代码”选项，见下图，转到下面的步骤。3、第三步，执行完上面的操作之后，输入日期格式转换代码，代码见下图，转到下面的步骤。4、第四步，执行完上面的操作之后，单击...

1、首先在开发工具中打开VBA编辑器。2、在单元格区域当中输入一些内容作为例子。3、在VBA编辑器中插入模块。4、在模块当中输入如下代码，然后运行。5、在A列输入“6-15”格式之数据，单元格将返回“2007年6月15日星期五”，而在其他列输入则忽略。

1、首先双击打开Excel表格。2、其次在Microsoft Office Excel2007版界面上，选中底部工作表，右键点击“查看代码”。3、接着在弹出的VBA窗口中，输入日期格式转换的代码“Private Sub dateTra() Dim datetime datetime = "2020/2/13" MsgBox (Format(datetime, "YYYY-MM-DD")) End Sub ”。4、其次...

不需要代码 把B列数据复制到记事本 再把B列格式设置成 YYYY/M/D HH:MM:SS格式 最后从记事本把数据考回来就可以了 如果在VBA中直接使用的话，加一个datevalue转换下就好了

你的rng是文本格式，改为format(rng*1,"yyyy/mm/dd")