VBA数字格式不起作用

Question

我的代码中的数字格式有问题。

如果我在此子例程中停止宏并逐步运行它 (F8(，它工作正常，没有问题。但是，如果它与宏的其余部分一起作为一个整体运行(不会发布整个内容，因为它非常大(，它只是不应用数字格式，我似乎无法弄清楚为什么。

任何帮助将不胜感激，谢谢！

法典：

Private Sub VolumeIncluded(TWs As Worksheet, MWs2 As Worksheet, MLngth As Double, MFinal As String, TLnght As Double, TFinal As String)
Dim TFtLnght As Double
On Error GoTo NextSheet
TLnght = TWs.Range("$A$" & Rows.Count).End(xlUp).Offset(2).Row
TFinal = "$A$" & TLnght
TWs.Range(TFinal) = "Volume Included"
With TWs.Range(TFinal)
.Interior.Color = 12611584
.Font.ThemeColor = xlThemeColorDark1
.Font.Bold = True
End With
MLngth = MWs2.Range("$H$" & Rows.Count).End(xlUp).Row
MFinal = "$A$16:$H" & MLngth
MWs2.Range(MFinal).Copy
TLnght = TWs.Range("$A$" & Rows.Count).End(xlUp).Offset(1).Row
TFinal = "$A$" & TLnght
TFormat = "$H$" & TLnght
TWs.Range(TFinal).PasteSpecial xlPasteAllUsingSourceTheme
Application.CutCopyMode = False
'----------This piece doesn't work-----------
TFtLnght = TWs.Range("$H$" & Rows.Count).End(xlUp).Row
TFinal = "$H$" & TLnght & ":" & "$H$" & TFtLnght
Range(TFinal).NumberFormat = "#,##0"
NextSheet:
End Sub

Answer 1

TWs.Range(TFinal).NumberFormat = "#,##0"

当您调用 Range(( 时，从您知道的工作表对象引用始终是安全的，因为默认情况下使用活动工作表。