如何更改vba中列的数字格式

我正在尝试使用用户select来更改该select内的列的数字格式。 我试图改变它的数字格式是会计。 我试过的代码如下。

Dim r As Range Dim s As String s = Selection.Address(ReferenceStyle:=xlA1, RowAbsolute:=False, ColumnAbsolute:=False) r = Range(s).Columns("G") r.NumberFormat = "$#,##0.00" 

我知道String是获取用户select的正确string值。 获得G列的范围似乎是不正确的。

Answer 1

试试这个：

 Dim rSel As Range, rCol As Range Set r = Selection If r.Columns.Count > 6 Then 'make sure there are even 7 columns Set rCol = r.Columns(7) 'Columns("G") rCol.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)" End If