第一步:调出“开发工具”选项卡:
1. 选择”文件“选项;
2. 选择EXCEL(选项);
3. 将”通常“选项卡下的第三个复选框(在功能区显示“开发工具”选项卡)选中。
第二步:选择“开发工具”选项卡下的插入“按钮“,表单按钮和ActiveX控件按钮均可。
第三步:双击按钮,进入代码视图界面,进行代码编写。以后进入VBA编辑界面可以直接按Alt+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 = "MS 明朝"
Sheets("日本語翻訳").Cells(i, j).Font.Size = 14
Next
Next
End Sub
原始效果:
实现效果: