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

我有以下代碼。不過，我在單元中發現的是，輸出（即SEP08）在單元中轉換爲Sep-08。我如何才能在沒有日期格式的Excel電子表格中顯示SEP08？如何刪除excel VBA中的所有日期格式？

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

來源

2013-05-11 Ting Ping

前面加一個背蜱字符串像這樣：`SEP08

或者，要設置一個大的數目的細胞使用細胞格式（可通過選擇範圍和輸入CTRL-1）和選擇文本格式化號碼選項卡。

來源

2013-05-11 04:03:42

你應該設置單元格用數字格式@文本：

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

來源

2013-05-12 06:43:51 glh

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

回答

相關問題