Question

在下面的代码中，我需要格式化列E＆amp; 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"

MS Access VBA格式Excel工作表列作为货币

2 个答案: