如何使用Excel宏模块格式化Excel电子表格单元格？

Question

我对MS Excel和VBA Macro完全不熟悉.我想知道如何使用Macro VB格式化单元格或对电子表格进行整体控制.我这里有一个非常简单的代码,只是为了说明我想知道的内容.

macro_format_test.xlsm:

Private Sub Worksheet_Activate()
    Me.Unprotect
    Me.Cells.ClearContents

    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")

    ws.Cells(1, 1) = "ID"
    ws.Cells(1, 2) = "Name"
    ws.Cells(1, 3) = "Address"

    Me.Protect
End Sub

在代码中......

ws.Cells(1, 1) = "ID"
ws.Cells(1, 2) = "Name"
ws.Cells(1, 3) = "Address"

我希望那些看起来更大胆,更实用,更集中.我还想使用代码设置列宽.我该怎么办？请帮忙.你也可以给我一些关于这方面的参考,因为我每次尝试google时都能看到如何添加我目前不需要的UserForm.提前致谢.

Answer 1

With Range("A1:C1")
    .HorizontalAlignment = xlCenter
    .Font.Italic = True
    .Font.Bold = True
    .EntireColumn.ColumnWidth = 15
End With

顺便说一下,找出这样的宏的最简单方法是单击Record Macro按钮,手动进行更改,然后检查为您生成的代码.它并不总是最有效的代码,你通常需要稍微调整它,但它应该给你一个基本的想法.