如何根據Excel中的值更改單元格的類型？

Question

我有一個包含數據的 excel 2013 文件：

User  LastLogin
A     03/15/2020
B     user's machine not found
C     03/09/2020
D     03/25/2020
E     user's machine not found

LastLogin列的類型是“文本”。

我需要定義一個條件或開發一個 VB 腳本來根據其值更改單元格的類型。 為日期時，格式應為“日期”，否則應為“文本”。

我已經在線檢查了示例，但只能找到一些更改單元格 UI（突出顯示等）的示例。 如何根據其值更改單元格的類型？

任何幫助，將不勝感激。

Answer 1

在 Excel 中，通常會在輸入值后立即識別並設置單元格的格式，除非將單元格的格式指定為文本。 因此，在單元格格式中將文本格式轉換為另一種格式后，再次輸入值會自動設置它。 設置日期格式后，如果文本值來了，就不會出現在日期格式中。

Sub test()
    Dim Ws As Worksheet
    Dim vDB, rngDB As Range

    Set Ws = ActiveSheet

    Set rngDB = Ws.Range("a1").CurrentRegion
    vDB = rngDB
    With Ws
        .Columns(2).NumberFormat = "mm/dd/yyyy"
    End With
    rngDB = vDB
End Sub

前

后