MS Access VBA Формат Excel столбец в виде валюты

Question

В приведенном ниже коде мне нужно отформатировать столбец E & F, начиная со строки (3), в качестве валюты.Спасибо!

            Set objApp = CreateObject("Excel.Application")

            objApp.Visible = True
            Set wb = objApp.Workbooks.Open("template.xls", True, False)
            wb.Sheets(1).Rows(3).Delete
            wb.Sheets(1).Range("A1").Value = title
            'need to format column E & F as currency

            Set objApp = Nothing

Answer 1

Range("E:F").NumberFormat = "$#,##0.00"

или

Range("E:F").SpecialCells(xlCellTypeFormulas).NumberFormat = "$#,##0.00"

или

Range("E:F").SpecialCells(xlCellTypeConstants).NumberFormat = "$#,##0.00"

Answer 2

Если вы хотите отформатировать только 2 ячейки, это одна строка:

wb.Sheets(1).Range("E3:F3").NumberFormat = "$#,##0.00"

Если вы хотите отформатировать все ячейки ниже строки 3 и предполагая, что эти ячейки еще не заполнены, то вы можете использовать:

Range("E3:F3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "$#,##0.00"