如果有解決方案并且我在螢屏截圖中將其標記為黃色，我只想在總行表中創建自定義貨幣數字格式。
謝謝杰克
Sub test2()
Dim objListObj As ListObject
Set objListObj = Sheets("test").ListObjects(1)
objListObj.ShowTotals = True
With Sheets("test").ListObjects("Table1")
.ListColumns("Total").TotalsCalculation = xlTotalsCalculationSum
.ListColumns("Pot. :").TotalsCalculation = xlTotalsCalculationSum
.ListColumns("Total End :").TotalsCalculation = xlTotalsCalculationSum
.ListColumns("PRICE2").TotalsCalculation = xlTotalsCalculationSum
End With
End Sub
uj5u.com熱心網友回復：
Excel 表格 ( ListObject): TotalsCalculation&TotalsRowRange
Option Explicit
Sub test2()
Dim Headers As Variant
Headers = Array("Total", "Pot. :", "Total End :", "PRICE2")
With ThisWorkbook.Worksheets("test").ListObjects("Table1")
.ShowTotals = True
Dim n As Long
For n = LBound(Headers) To UBound(Headers)
With .ListColumns(Headers(n))
.TotalsCalculation = xlTotalsCalculationSum
.Parent.TotalsRowRange.Columns(.Index) _
.NumberFormat = "#,##0.00 $"
End With
Next n
End With
End Sub
uj5u.com熱心網友回復：
我錄制了一個宏，結果是這樣的：
Selection.NumberFormat = "#,###,##0.0000000000000 [$?-x-xbt1]"
我是如何找到這種格式的？好吧，我在一個單元格中單擊右鍵，詢問“格式化單元格”，我選擇了“數字”，“貨幣”，我選擇了與我想要的最相似的一個，然后單擊“自定義”以查看實際的格式化規則，我可以在之后修改它，如下例所示：
（格式規則，您可以在“型別”欄位中看到，自動填寫。）
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/433527.html