Question

我遇到了VBA的问题。

我正在尝试显示包含DATE的msgbox，但我只想将时间显示为＆＃34; hh：mm＆＃34;。

我在我的代码中编写以下内容以尝试应用所需的格式：

sum1 =格式（ThisCell，＆＃34; h：mm＆＃34;）

sum1定义为DATE，ThisCell定义为Range。 msgbox中显示的格式为hh：mm AM / PM。

我已经彻底搜寻了一种方法来做到这一点，但我找不到办法。

非常感谢任何想法或建议。

祝你有个美好的一天。

Answer 1

尝试字符串而不是日期

Sub dural()
    Dim sum1 As String, ThisCell As Range
    Set ThisCell = ActiveCell
    sum1 = Format(ThisCell, "h:mm")
    MsgBox sum1
End Sub

Answer 2

Dim sum1 As Date
Dim ThisCell As Range

Set ThisCell = Cells(1, 1) 'Your range goes here
sum1 = Format(ThisCell, "hh:mm am/pm")

MsgBox sum1

Answer 3

假设

（1）ThisCell引用ThisWorkbook.Worksheets（＆＃34; Sheet1＆＃34;）。范围（＆＃34; A1＆＃34;）

（2）和ThisCell的格式设置为＆＃34; dd / mm / yyyy hh：mm＆＃34;

（3）将sum1声明为字符串

是可以的

Sub displayTime()

    Dim ThisCell As Range
    Dim sum1 As String

    Set ThisCell = ThisWorkbook.Worksheets("Sheet1").Range("A1")
    If ThisCell.Value = "" Then
        ThisCell.Value = 0
    End If

    sum1 = Format(ThisCell, "hh:mm am/pm")
    MsgBox sum1

End Sub

VBA msgbox中的时间自定义格式

3 个答案: