VBA（Visual Basic for Applications）是一种用于Microsoft Office应用程序的编程语言，用户可以通过编写VBA代码来实现自动化操作和定制功能。以下是一些VBA程序示例：
添加序列号
```vba
Sub AddSerialNumbers（）
Dim i As Integer
On Error GoTo Lasti
i = InputBox（"EnterValue", "EnterSerialNumbers"）
For j = 1 To i
ActiveCell.Value = j
ActiveCell.Offset（1, 0）.Activate
Next j
Lasti: Exit Sub
End Sub
```
这个宏代码可以帮助在Excel工作表中自动添加序列号。用户需要选择从哪个单元格开始添加序列号，并在弹出的消息框中输入序列号的最高编号。
自动调整列宽
```vba
Sub AutoFitColumns（）
Cells.Select
Cells.EntireColumn.AutoFit
End Sub
```
这个代码可以快速自动适应工作表中的所有列宽。
显示消息框
```vba
Sub saySth（myMsg As String）
MsgBox myMsg
End Sub
```
这个子程序接收一个参数并显示一个消息框，内容为传入的参数。
主程序调用子程序
```vba
Sub CallDemoSub（）
Dim mySaying As String
mySaying = "你好"
Call saySth（mySaying）
End Sub
```
这个主程序定义了一个变量并将其赋值，然后调用子程序并传入参数。
自动填充序号
```vba
Sub 自动填充序号（）
Dim i As Long
Dim lastRow As Long
lastRow = Cells（Rows.Count, "A"）.End（xlUp）.Row
For i = 1 To lastRow
Cells（i, "A"）.Value = i
Next i
MsgBox "序号填充完成!", vbInformation
End Sub
```
这个宏代码可以自动填充Excel工作表中的A列序号。
这些示例展示了VBA在Excel中的基本应用，包括自动化任务、数据处理和用户界面定制。通过学习和实践这些程序，用户可以进一步提高工作效率和定制化能力。