需求背景：对于经常做Excel的人是个很好的工具，我主要想用宏来获取数据库中的数据，听说宏可以节省Excel的重复性操作，硬着头皮学一下！

刚开始遇到宏报错“内存溢出”:https://baijiahao.baidu.com/s?id=1628606130560163337&wfr=spider&for=pc，用这个解决的！

2019-08-04 begin

1.录制宏

工具:word2013 64位版本

点击左上角office按钮-->选项-->自定义功能区-->勾选开发工具。

创建一个新的表格，随便填入几个数据。

点击开发工具-->录制宏输入宏名称和设置快捷键(ctrl+t)-->选中表格-->点开始-->对齐方式-->点合并后居中，加粗，录制完后暂停。即可。

1.1 编写VBA

快捷键Alt+F11,或者开发工具-->代码-->点击Visual Basic-->点击插入模块，过程，保存！

例: 

Sub 修改格式()
'
' 修改格式 宏
'
' 快捷键: Ctrl+t
'
    Application.WindowState = xlMaximized
    With Selection
        .HorizontalAlignment = xlCenter '设置水平居中
        .VerticalAlignment = xlCenter '设置垂直居中
    End With
    Selection.Merge '合并单元格
    Selection.Font.Bold = True '设置粗体
    With Selection.Font
        .Name = "宋体" '设置字体
        .Size = 20 '设置字号
    End With
End Sub

 以上就可以使用快捷键对其他表格文字做一些简单操作！

2019-08-04 end！

2019-08-05 begin!

修改表格所有表头样式

例:

Sub 修改格式()
'
' 修改格式 宏
'
' 快捷键: Ctrl+t
'
    Application.WindowState = xlMaximized
    Dim sh As Worksheet, c As Long
    For Each sh In Worksheets
        sh.Activate
        c = sh.Range("A2").End(xlToRight).Column '查找第二行最右侧数据列数
        If c < 255 Then
        sh.Range(sh.Cells(1, 1), sh.Cells(1, c)).Select '选中与第二行等宽区域
        
        With Selection
        .HorizontalAlignment = xlCenter '设置水平居中
        .VerticalAlignment = xlCenter '设置垂直居中
        End With
        Selection.Merge '合并单元格
        Selection.Font.Bold = True '设置粗体
        With Selection.Font
        .Name = "宋体" '设置字体
        .Size = 20 '设置字号
        End With
        End If
    Next
End Sub

 2019-08-05 end!

最后

以上就是忐忑豌豆为你收集整理的VBA-宏学习总结1.录制宏的全部内容，希望文章能够帮你解决VBA-宏学习总结1.录制宏所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。