VBA Excel —如果符合條件，則啟動宏

Question

我記錄了一個僅在C1具有特定文本的情況下才想觸發的宏。 問題在於C1是文本和數字的混合體。 因此，雖然文本是永久性的，但數字始終是不同的。 我想要只讀取C1文本的內容，如果滿足文本條件，則下面的宏應該起作用，否則它什么都不做。 C1的永久文本塊是DFM ：（隨后是一些數字），即DFM：34,493.27

其次，是否有更好的宏可以實現錄制的宏的功能？

Sub AddDeci()
Range("C2:D2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "#,##0.000"
End Sub

Answer 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If IsNumeric(Replace([C1], "DFM: ", "")) Then
        Range([C2], Cells(Cells(Rows.Count, "C").End(xlUp).Row, "D")).NumberFormat = "#,##0.000"
    ElseIf Not (Replace([C1], "DFM: ", "")) Then
        Range([C2], Cells(Cells(Rows.Count, "C").End(xlUp).Row, "D")).NumberFormat = General
    End If
End Sub

將代碼放在表中