怎样打开VBA编辑器的工具栏，方便使用功能？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，

Sub 填充代码区域空白单元格()

 

Dim i As Long, rng As Range

 

Range("A1:K12000").Activate     '激活一个区域，也可以使用鼠标选择一个区域，然后省了这句

 

'For Each i In Selection

 

  'If i = "SHI" Or i = "线名" Then

 

    'i.Offset(-1).RowHeight = 35

 

    'Cells(1, 11).ColumnWidth = 10

 

    'ActiveWindow.RangeSelection.ColumnWidth = w

 

    'ActiveWindow.RangeSelection.RowHeight = h

 

  'End If

 

'Next

 

For i = 0 To 100

 

    Rows(1 + i * 8).RowHeight = 30

 

    Rows(2 + i * 8).RowHeight = 35

 

    Rows(2 + i * 8).Font.Size = 18

 

    Rows(3 + i * 8).RowHeight = 30

 

    Rows(3 + i * 8).Font.Size = 11

 

    Rows(4 + i * 8).RowHeight = 30

 

    Rows(4 + i * 8).Font.Size = 11

 

    Rows(5 + i * 8).RowHeight = 30

 

    Rows(5 + i * 8).Font.Size = 11

 

    Rows(6 + i * 8).RowHeight = 245

 

    Rows(7 + i * 8).RowHeight = 245

 

    Rows(8 + i * 8).RowHeight = 30

 

    Columns(1).ColumnWidth = 0

 

    Columns(2).ColumnWidth = 6

 

    Columns(3).ColumnWidth = 6

 

    Columns(4).ColumnWidth = 9

 

    Columns(5).ColumnWidth = 9

 

    Columns(6).ColumnWidth = 9

 

    Columns(7).ColumnWidth = 10

 

    Columns(8).ColumnWidth = 10

 

    Columns(9).ColumnWidth = 10

 

    Columns(10).ColumnWidth = 10

 

Range("B" & (2 + i * 8) & ":J" & (2 + i * 8)).Merge

 

    With Range("B" & (2 + i * 8))

 

        .Value = "涵洞设备卡片"

 

        .HorizontalAlignment = xlCenter

 

        .VerticalAlignment = xlCenter

 

        '.Font.Bold = True

 

        .Font.Bold = False

 

        .Font.Name = "黑体"

 

    End With

 

Range("B" & (3 + i * 8) & ":C" & (3 + i * 8)).Merge

 

    With Range("B" & (3 + i * 8))

 

        .Value = "设备编号："

 

        .HorizontalAlignment = xlCenter

 

        .VerticalAlignment = xlCenter

 

        .Font.Bold = False

 

        .Font.Name = "宋体"

 

    End With

 

    With Range("D" & (3 + i * 8))

 

        .Value = Sheet2.Range("E" & (2 + i)).Value

 

        .HorizontalAlignment = xlCenter

 

        .VerticalAlignment = xlCenter

 

        .Font.Bold = False

 

        .Font.Name = "宋体"

 

    End With

 

    With Range("B" & (4 + i * 8))

 

        .Value = Sheet2.Range("F1").Value

 

        .HorizontalAlignment = xlCenter

 

        .VerticalAlignment = xlCenter

 

        .Font.Bold = False

 

 

5、接着我们点击上传功能区当中的视图，然后在列表当中我们点击工具栏，找到编辑工具，点击打开，

6、最后在页面右上角的位置，我们就可以看到编辑工具栏了，我们还可以活动来调节编辑工具栏的位置，方便我们使用，