文本框中的日期在单元格区域中显示为文本

Question

我设置了一个用于输入数据的用户窗体，并且其中一个文本框被编码为仅接受“ dd / mm / yyyy”格式的日期。提交并在excel上输入数据库后，日期以“ mm / dd / yyyy”格式输入，或者如果输入不能以“ mm / dd / yyyy”格式输入，则以文本形式输入日期。

我目前仅使用一小段代码输入此信息：

Sheet4.Range("M5") = TextBox2
Sheet4.Range("M5").Select
ActiveCell.FormulaR1C1 = Sheet4.Range("M5").Value
Sheet4.Range("M3").Select

我不确定将日期格式输入Excel时需要交换什么日期格式。当我通过双击单元格并按Enter刷新单元格时，它会更新，这是我尝试在第2-4行中执行的操作，但是我似乎无法使其正常工作并显示。

任何帮助将不胜感激。谢谢！

Answer 1

问题在于您在TextBox中输入的内容都是字符串，因此当您在TextBox中输入日期时，它被视为文本字符串，而不是实际日期。

要解决此问题，请将TextBox中的日期字符串转换为实际日期，然后将其写回到单元格中。

请尝试一下...

Sheet4.Range("M5").Value = CDate(TextBox2)