Question

我有以下代码。然而，我在单元中发现的是输出（即SEP08）在单元中转换为Sep-08。我怎样才能在没有日期格式的excel电子表格中显示SEP08？

Dim StartMonth As String
Select Case Month(EarliestDate)
    Case "1"
        StartMonth = "JAN" & Right(Year(EarliestDate), 2)
    Case "2"
        StartMonth = "FEB" & Right(Year(EarliestDate), 2)
    Case "3"
        StartMonth = "MAR" & Right(Year(EarliestDate), 2)
    Case "4"
        StartMonth = "APR" & Right(Year(EarliestDate), 2)
    Case "5"
        StartMonth = "MAY" & Right(Year(EarliestDate), 2)
    Case "6"
        StartMonth = "JUN" & Right(Year(EarliestDate), 2)
    Case "7"
        StartMonth = "JUL" & Right(Year(EarliestDate), 2)
    Case "8"
        StartMonth = "AUG" & Right(Year(EarliestDate), 2)
    Case "9"
        StartMonth = "SEP" & Right(Year(EarliestDate), 2)
    Case "10"
        StartMonth = "OCT" & Right(Year(EarliestDate), 2)
    Case "11"
        StartMonth = "NOV" & Right(Year(EarliestDate), 2)
    Case "12"
        StartMonth = "DEC" & Right(Year(EarliestDate), 2)
    End Select

ActiveCell.FormulaR1C1 = StartMonth

Answer 1

在字符串前面添加一个反向标记：`SEP08

或者，要设置大量单元格，请使用“单元格格式”（通过选择范围并键入CTRL-1）并在数字选项卡上选择文本格式

Answer 2

您应该使用数字格式@：

将单元格设置为文本

ActiveCell.NumberFormat ="@"
ActiveCell.FormulaR1C1 = StartMonth

如何删除excel VBA中的所有日期格式？

2 个答案: