VBA-宏学习总结1.录制宏

110 阅读 0 评论 73 点赞

我是靠谱客的博主忐忑豌豆，这篇文章主要介绍VBA-宏学习总结1.录制宏，现在分享给大家，希望可以做个参考。

需求背景：对于经常做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-->点击插入模块，过程，保存！

例:

复制代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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!

修改表格所有表头样式

例:

复制代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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