新手菜鸟学习VBA—用宏录制的简单VBA小程序：加粗斜体并居中

程序目的：

我们分别录制“文本居中”、“文本加粗”、“文本斜体”三个宏，然后经过加工形成了一个居中加粗并斜体的VBA小程序。

程序如下：

 Sub 文字居中并加粗斜体()

'

' 文字居中并加粗斜体 宏

'

' 快捷键: Ctrl+Shift+K

'

   Selection.NumberFormatLocal = "0_ "

   Selection.Font.Bold = True

   Selection.Font.Italic = True

   With Selection

       .HorizontalAlignment = xlCenter

       .VerticalAlignment = xlCenter

       .WrapText = False

       .Orientation = 0

       .AddIndent = False

       .IndentLevel = 0

       .ShrinkToFit = False

       .ReadingOrder = xlContext

       .MergeCells = False

   End With

   With Selection

       .HorizontalAlignment = xlCenter

       .VerticalAlignment = xlCenter

       .WrapText = False

       .Orientation = 0

       .AddIndent = False

       .IndentLevel = 0

       .ShrinkToFit = False

       .ReadingOrder = xlContext

       .MergeCells = False

   End With

   With Selection

       .HorizontalAlignment = xlCenter

       .VerticalAlignment = xlCenter

       .WrapText = False

       .Orientation = 0

       .AddIndent = False

       .IndentLevel = 0

       .ShrinkToFit = False

       .ReadingOrder = xlContext

       .MergeCells = False

   End With

End Sub

这样最终通过快捷键就可以将选中单元格内的文本居中加粗并斜体啦。