当用户表单文本框向工作表发送所需的日期格式时，日期格式会发生变化

Question

我有一个用户表单，我从该用户表单中以 mm/yy（月/年） 格式将日期发送到工作表。传输到工作表时，它会更改格式，并且在工作表的另一个位置显示的内容非常不同。

对于日期格式，我使用以下代码：

TextBox3.SetFocus

If IsDate(TextBox3.Text) Then
Debug.Print Format(CDate(TextBox3.Text), "mm/yy")
 Else
Debug.Print "Not a valid date"
End If

转码：

Dim X As Long
Dim Y As Worksheet
Set Y = Sheets2
X = Y.Range("B" & Rows.Count).End(xlUp).Row
with Y
.Cells(X + 1, "D").Value = TextBox3.Value
End with

当我从用户窗体传输日期时，它显示如下：

相同的日期在表格中显示不同：

我想以 Month 和 Year 格式显示日期。例如，如果日期是 2021 年 6 月，则显示为 06/21。

Answer 1

很难说出您需要帮助的地方，因为您提供的代码只是在即时窗口中打印日期。通常，您需要对单元格本身进行格式更改。因此，在您从表单设置数据后，对您的工作表执行类似的操作。

Range("A2:A50").NumberFormat = "mm/yy"

编辑：更新上面的代码

Dim X As Long
Dim Y As Worksheet
Set Y = Sheets2
X = Y.Range("B" & Rows.Count).End(xlUp).Row
with Y
.Cells(X + 1, "D").Value = TextBox3.Value
.Cells(X + 1, "D").NumberFormat = "mm/yy"
End with