新建工具栏
```vba
Sub 新建工具栏（）
Application.CommandBars.Add（Name:="我的工具栏"）.Visible = True
Application.CommandBars（"我的工具栏"）.Controls.AddType:=msoControlButton, ID:=3, Before:=1
Application.CommandBars（"我的工具栏"）.Controls.AddType:=msoControlButton, ID:=1849, Before:=2
Application.CommandBars（"我的工具栏"）.Controls.AddType:=msoControlButton, ID:=295, Before:=3
Application.CommandBars（"我的工具栏"）.Controls.AddType:=msoControlButton, ID:=395, Before:=4
End Sub
```
这个实例展示了如何新建一个名为“我的工具栏”的工具栏，并在其中添加保存、查找、插入单元格和货币样式按钮。
HelloExcel
```vba
Sub HelloExcel（）
MsgBox "Hello, Excel VBA!"
End Sub
```
这个简单的实例会弹出一个对话框，显示“Hello, Excel VBA!”。
VariableExample
```vba
Sub VariableExample（）
Dim name As String
name = "张三"
MsgBox name
End Sub
```
这个实例展示了如何声明一个字符串变量`name`，并将其值设置为“张三”，然后通过`MsgBox`显示该变量的值。
GradeCheck
```vba
Sub GradeCheck（）
Dim score As Integer
score = 85
If score >= 60 Then
MsgBox "及格"
Else
MsgBox "不及格"
End If
End Sub
```
这个实例展示了如何使用条件语句根据成绩判断是否及格，并通过`MsgBox`显示结果。
SelectSheet
```vba
Sub SelectSheet（）
Sheets（"Sheet1"）.Select
End Sub
```
这个实例展示了如何选择名为"Sheet1"的工作表，并将其激活为活动工作表。
InsertNewSheet
```vba
Sub InsertNewSheet（）
Dim newSheet As Worksheet
Set newSheet = Sheets.Add（After:=Sheets（Sheets.Count））
newSheet.Name = "NewSheet"
End Sub
```
这个实例展示了如何在当前工作簿的最后一个工作表后插入一个新的工作表，并将其命名为"NewSheet"。
CopySheet
```vba
Sub CopySheet（）
Sheets（"Sheet1"）.Copy After:=Sheets（Sheets.Count）
End Sub
```
这个实例展示了如何复制名为"Sheet1"的工作表，并将其放置在所有工作表的最后。
DeleteSheet
```vba
Sub DeleteSheet（）
On Error Resume Next
Sheets（"SheetToDelete"）.Delete
On Error GoTo 0
End Sub
```
这个实例展示了如何删除名为"SheetToDelete"的工作表，并在出错时忽略错误。
整理数据
```vba
Sub 整理数据（）
Range（"A1:D10"）.Select
Selection.Sort Key1:=Range（"A1"）, Order1:=xlAscending, Header:=xlYes
End Sub
```
这个实例展示了如何选择A1到D10的区域，然后按A列升序排序，并将第一行设置为表头。
CountCellsByColor
```vba
Sub CountCellsByColor（）
Dim ws As Worksheet
Dim cell As Range
Dim targetColor As Long
Dim count As Long
Set ws = ThisWorkbook.Sheets（"Sheet1"）
targetColor = RGB（255, 0, 0） ' 设置要统计的颜色，例如红色
count = 0
For Each cell In ws.Cells
If cell.Interior.Color = targetColor Then
count = count + 1
End If
Next cell
MsgBox "红色单元格的数量是： " & count
End Sub
```
这个实例展示了如何统计工作表中特定颜色（例如红色）的单元格数量。
这些实例涵盖了Excel VBA的基本操作，包括工具栏的创建、变量的使用、条件语句、工作表的操作等。通过这些实例，你可以更好地理解和掌握Excel VBA