Accounting formatting

[Av8tordude]

I have 9 columns that I want in accounting format in vba. Is there an efficient way to format numbers in accounting without writing another line of code like below? Or maybe reference the accounting format and apply the reference to the one line?

    Range("H" & LRow) = tbOPrice.Value
    Range("H" & LRow).NumberFormat = "_($*#,##0.00_);_($*(#,##0.00);_($*""_""??_);_(@_)"

I tried this but doesn't work.

Format(Range("H" & LRow) = tbOPrice.Value,  "_($*#,##0.00_);_($*(#,##0.00);_($*""_""??_);_(@_)")

 

[Yongle]

ONE line is used to attribute value
ONE line is used to attribute number format string

Use a loop to format cells in multiple columns at once

Dim col As Variant
For Each col In Array("H", "L", "T", "Q")
    Range(col & Lrow).NumberFormat = "_($*#,##0.00_);_($*(#,##0.00);_($*""_""??_);_(@_)"
Next col

 

[Yongle]

or use the UNION function

Union(Range("H" & LRow), Range("L" & LRow), Range("T" & LRow), Range("Q" & LRow)).NumberFormat = "_($*#,##0.00_);_($*(#,##0.00);_($*""_""??_);_(@_)"

To number format adjacent columns (here H:M) ...

Range("H" & LRow).Resize(, 6 ).NumberFormat = "_($*#,##0.00_);_($*(#,##0.00);_($*""_""??_);_(@_)"

 

[Av8tordude]

this is what I tried to did, but it didn't work out

    For Each col In Array("D", "H:J", "M:N", "O:P")
        Range(col & LRow).NumberFormat = "_($*#,##0.00_);_($*(#,##0.00);_($*""_""??_);_(@_)"
    Next col

 

[Yongle]

Stop being lazy
List each column letter separated by a comma

 

[Av8tordude]

Stop being lazy
List each column letter

HAHAHA....already did my friend. Thank you for help

 

[Yongle]

Here is another option for you

    For Each col In Split("D H I J M N O P")
        Range(col & LRow).NumberFormat = "_($*#,##0.00_);_($*(#,##0.00);_($*""_""??_);_(@_)"
    Next col