Excel-VBA 中的输入格式

Question

我正在 Excel-VBA 中寻找一个函数，它可以转换输入单元格中“hhmm”形式的用户输入形式为“hh:mm”并检查是否可暂停。

欢迎任何解决方案...

Answer 1

像这样：


Dim InputText As String
Dim TextDate  As String
Dim TrueDate  As Date

InputText = "1749"
TextDate = Left(InputText, 2) & "\:" & Right(InputText, 2)
If IsDate(TextDate) Then
    TrueDate = CDate(TextDate)
    ' TrueDate -> #17:49#
End If

现在，将保存值的单元格格式设置为 hh:nn。

Excel-VBA 中的输入格式

Input-Format in Excel-VBA

excel

vba