在日常办公中，Excel作为一款强大的数据处理工具，其功能远不止于简单的表格制作。通过宏编程，我们可以进一步提升工作效率，实现自动化操作。本文将介绍几个实用的Excel宏编程实例，帮助您快速掌握宏的基本应用。
1. 自动填充日期
假设您需要在一个单元格序列中自动填充日期，可以使用以下代码：
```vba
Sub FillDates()
Dim StartDate As Date
Dim EndDate As Date
Dim i As Integer
' 设置起始和结束日期
StartDate = InputBox("请输入起始日期（格式如2023-10-01）")
EndDate = InputBox("请输入结束日期（格式如2023-10-31）")
' 检查输入是否有效
If IsDate(StartDate) And IsDate(EndDate) Then
For i = 1 To (EndDate - StartDate + 1)
Cells(i, 1).Value = StartDate + i - 1
Next i
Else
MsgBox "输入的日期无效，请重新输入！"
End If
End Sub
```
这段代码会弹出两个输入框，分别让用户输入起始日期和结束日期，然后在A列中依次填充这些日期。
2. 数据筛选与导出
有时候我们需要根据特定条件筛选数据并导出到新的工作表中。以下是实现这一功能的VBA代码：
```vba
Sub FilterAndExport()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim rngData As Range
Dim filterCriteria As String
' 设置源工作表和目标工作表
Set wsSource = ThisWorkbook.Sheets("Sheet1")
Set wsTarget = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
wsTarget.Name = "FilteredData"
' 获取用户输入的筛选条件
filterCriteria = InputBox("请输入筛选条件")
' 确定数据范围
Set rngData = wsSource.Range("A1").CurrentRegion
' 复制标题行
rngData.Rows(1).Copy Destination:=wsTarget.Rows(1)
' 筛选并复制符合条件的数据
rngData.AutoFilter Field:=1, Criteria1:=filterCriteria
rngData.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy Destination:=wsTarget.Rows(2)
' 移除筛选
wsSource.AutoFilterMode = False
MsgBox "筛选完成，数据已导出至新工作表！"
End Sub
```
该宏会根据用户输入的条件对指定的工作表进行筛选，并将符合条件的数据复制到一个新的工作表中。
3. 自动发送邮件
借助Excel宏，我们还可以实现自动发送邮件的功能。以下是一个示例代码：
```vba
Sub SendEmail()
Dim OutlookApp As Object
Dim OutlookMail As Object
' 创建Outlook对象
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
' 填充邮件信息
With OutlookMail
.To = "example@example.com"
.Subject = "自动化邮件测试"
.Body = "这是一封由Excel宏自动生成的邮件。"
.Send
End With
' 清理对象
Set OutlookMail = Nothing
Set OutlookApp = Nothing
MsgBox "邮件已成功发送！"
End Sub
```
此代码利用Outlook应用程序发送一封预设内容的邮件。您可以根据需求修改收件人地址、主题和正文内容。
总结
以上三个实例展示了Excel宏编程的一些基本应用。通过学习和实践这些例子，您可以逐步提高自己的VBA技能，从而更高效地处理日常工作中的各种任务。希望这些内容能为您提供灵感，并激发您探索更多可能性！
