VBA速学速会

第一步：调出“开发工具”选项卡：1. 选择”文件“选项；2. 选择EXCEL（选项）； 3. 将”通常“选项卡下的第三个复选框（在功能区显示“开发工具”选项卡）选中。

第二步：选择“开发工具”选项卡下的插入“按钮“，表单按钮和ActiveX控件按钮均可。

第三步：双击按钮，进入代码视图界面，进行代码编写。以后进入VBA编辑界面可以直接按Aｌｔ＋F11，这样会方便很多。第一次双击进入的主要目的是让VBA编辑界面自动生成对应的Button必需的代码，当然你也可以自己写。

第四部：现在开始进入主题，我们来做一个例子，作用是重命名表中的第一个Sheet页，然后把第一列含有数据的行的空白处添上省略号，再规范一下字体。

例1:

Private Sub CommandButton1_Click()    Dim i As Integer    Dim j As Integer    If Worksheets(1).Name <> "日本語翻訳" Then        Worksheets(1).Name = "日本語翻訳"    End If    Worksheets("日本語翻訳").Select        '削除誤った情報    For i = 2 To 2000        If Sheets("日本語翻訳").Cells(i, 1) <> "" Then            For j = 2 To 5                If Sheets("日本語翻訳").Cells(i, j) = "" Then                    Sheets("日本語翻訳").Cells(i, j) = "……"                End If            Next        ElseIf Sheets("日本語翻訳").Cells(i, 1) = Sheets("日本語翻訳").Cells(i, 2) Then            For j = 1 To 5                    Sheets("日本語翻訳").Cells(i, j) = ""            Next        Else            For j = 2 To 5                    Sheets("日本語翻訳").Cells(i, j) = ""            Next        End If    Next        '統一字体    For i = 2 To 2000        For j = 1 To 5            Sheets("日本語翻訳").Cells(i, j).Font.Name = "ＭＳ 明朝"            Sheets("日本語翻訳").Cells(i, j).Font.Size = 14        Next    NextEnd Sub

原始效果：

实现效果：

如果我们想要更多的玫瑰花，就必须种植更多的玫瑰树。