用vba excel实现单元格的自动检测

Question

在单元格中键入数据时，excel会自动检测键入数据的格式。例如，当您键入12:00，excel将格式更改为自定义和h:mm时，如何使用格式自动检测并根据单元格值更改的vba代码执行此操作？

Answer 1

如何使用格式自动检测和更改单元格中的值的vba代码做到这一点？

您可以使用.NumberFormat属性

示例

Option Explicit

Sub Sample()
    Dim ws As Worksheet

    Set ws = Sheet1

    With ws
        Select Case .Range("A1").NumberFormat
        Case "General"
            'Do what you want
        Case "hh:mm"
            'Do what you want
        Case... Whatever
            'Do what you want
    End With
End Sub