在Excel中設置特定範圍的自定義數字格式時出現類型不匹配錯誤vba

Question

我在將自定義數字格式設置爲工作表中的特定範圍時出現錯誤。 我已經嘗試了許多組合，但無法找到確切的解決方案.. 我的代碼是：

ws1.Range("C2: C" & p).NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* " - "??_);_(@_)" 'Number format accounting 

如何解決這個問題？並在設置自定義編號時小心謹慎。格式？

Answer 1

而不是

ws1.Range("C2: C" & p).NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* " - "??_);_(@_)" 

嘗試

ws1.Range("C2: C" & p).NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* "" - ""??_);_(@_)" 

注意雙引號-""。

Answer 2

看到你的輸入，我假設你已經做到了這一點：

A.選擇與所請求的數字格式的單元格。

B.運行下面的代碼：

Public Sub TestMe() 
    Debug.Print Selection.NumberFormat 
End Sub 

看到立即窗口中的結果，並從那裏使用它。

然而，代碼應該是這樣的：

Public Sub PrintMeUsefulFormat() 

    Dim strFormula As String 
    Dim strParenth As String 

    strParenth = """" 

    strFormula = Selection.NumberFormat 
    strFormula = Replace(strFormula, """", """""") 

    strFormula = strParenth & strFormula & strParenth 
    Debug.Print strFormula 

End Sub