使用 VBA 读写后 Excel 日期更改（月份和日期交换）

Question

我编写了两行简单的 VBA 代码来读取和写入日期到单元格，但意外地在运行后月份和日期交换了。步骤是：

1. 在单元格 A1 中输入日期“2017 年 1 月 11 日”。日期现在显示为“01/11/2017”。

2. 运行以下代码行：

   Dim s As String
   s = Cells(1, 1).value
   Cells(2, 1).value = s
   

3. 单元格 B1 现在显示“11/01/2017”，月份和日期已交换。

我在 Windows 中的 Region 中的短日期格式设置是“dd/MM/yyyy”，因此字符串 s 存储值“01/11/2017”。但是，在写入单元格时，Excel 将字符串 s 隐式转换为假定为“mm/dd/yyyy”的日期，而不遵循 Region 中的日期格式设置。我尝试使用不同的短日期格式设置，但这并没有改变 Excel 转换字符串的方式。

所以我的问题是：什么可以解释日期和月份的交换？什么控制 Excel 如何读取日期字符串并写入单元格？

Answer 1

Dim s As String
s = Cells(1, 1).Value

s = Cells(1, 1).value 会将单元格的value 存储在String 中。不是它在单元格中显示的内容。

例如

如果您的单元格有11/1/2017，但被格式化为显示01/11/17，那么s 将存储11/1/2017。这不是约会。这是一个String。如果你不相信我，那就试试这个

Dim s As String
s = Cells(1, 1).Value
Debug.Print s + 1 '<~~ You will get a Type Mismatch error

现在试试这个

Dim s As Date
s = Cells(1, 1).Value
Debug.Print s + 1 '<~~ You will get a proper date

==> 当您尝试将包含日期的String 存储到具有General 格式的单元格中时，Excel 会将字符串转换为您感觉的格式的日期最好（基于区域设置）。这就是你的情况。

分辨率：

1 声明一个Date 变量，然后将值存储在其中。例如：Dim s As Date

或

2 将字符串转换为日期，然后存储。 Excel 不会改变它。这就是DateValue(s) 所做的。

一些测试

让我们来看看这 3 个场景

Sub SampleA()
    Dim s As Date
    s = Cells(1, 1).Value
    Cells(2, 1).Value = s
End Sub

Sub SampleB()
    Dim s As String
    s = Cells(1, 1).Value
    Cells(2, 1).Value = DateValue(s)
End Sub

Sub SampleC() '<~~ As Suggested in the other answer
    Dim s As String

    s = Cells(1, 1).Value

    Cells(2, 1).NumberFormat = "dd/MM/yyyy"
    Cells(2, 1).Value = s
End Sub

截图