VBA 文本框自动更正为日期格式

VBA Textbox autocorrect to date format

我是 VBA 的新手。 我在 excel 中有一个用户窗体的日期文本框。我想输入,比如1/25,当我回车的时候,它会自动变成1/25/22。年份会自动更正为当前年份(目前为2022年)。它类似于在 excel 单元格上放置日期时的日期自动更正,但我希望它在用户窗体文本框上工作。

最后,当我输入错误的字符时,例如单个数字或字母,它会弹出一个消息框提醒我需要重新输入

非常感谢!

您可以将 ControlSource 属性 设置为指向格式化为日期的 EXCEL 单元格。此单元格可以位于隐藏的工作表中,并且可以具有定义的名称。例如,在我的例子中,我将 Sheet1 中的单元格 A1 称为 MyDateCell,并使用 textbox->right-click-properties 将文本框的 ControlSource 设置为 =MyDateCell。现在文本框的行为与其对应的单元格相同。