vba常用代码大全

当然，VBA（Visual Basic for Applications）是一种强大的编程语言，广泛应用于Microsoft Office应用程序中，如Excel、Word和Access等。以下是一些常用的VBA代码示例，涵盖了从基础到稍微高级的功能。这些示例旨在帮助你快速上手并解决常见问题。

1. 基础操作

打印当前工作表

Sub PrintSheet() ActiveSheet.PrintOut End Sub

显示消息框

Sub ShowMessageBox() MsgBox "Hello, VBA!" End Sub

获取单元格值

Sub GetCellValue() Dim cellValue As String cellValue = Range("A1").Value MsgBox cellValue End Sub

2. 数据处理

清空特定范围的内容

Sub ClearRange() Range("A1:C10").ClearContents End Sub

复制并粘贴数据

Sub CopyPasteData() Range("A1:B5").Copy Destination:=Range("D1") End Sub

自动填充序列

Sub AutoFillSequence() Range("A1").Value = 1 Range("A1").AutoFill Destination:=Range("A1:A10"), Type:=xlFillSeries End Sub

3. 循环与条件判断

For循环遍历行

Sub LoopThroughRows() Dim i As Integer For i = 1 To 10 Cells(i, 1).Value = i * 10 ' 在第一列填充10, 20, ..., 100 Next i End Sub

If条件判断

Sub ConditionalCheck() Dim value As Integer value = Range("A1").Value If value > 10 Then MsgBox "The value is greater than 10." Else MsgBox "The value is 10 or less." End If End Sub

4. 高级功能

创建图表

Sub CreateChart() Dim chartObj As ChartObject Set chartObj = ActiveSheet.ChartObjects.Add(Left:=100, Width:=375, Top:=50, Height:=225) chartObj.Chart.SetSourceData Source:=Range("A1:B10") chartObj.Chart.ChartType = xlColumnClustered End Sub

筛选数据

Sub FilterData() Range("A1").AutoFilter Field:=1, Criteria1:=">10" ' 对第一列进行筛选，只显示大于10的值 End Sub

使用函数

Function SumRange(rng As Range) As Double SumRange = Application.WorksheetFunction.Sum(rng) End Function

你可以在Excel的VBA编辑器中使用上述代码片段。为了运行这些宏，你需要按Alt + F11打开VBA编辑器，然后在相应的模块中粘贴代码，并按F5键或点击“运行”按钮来执行它们。

请根据你的具体需求调整这些代码。如果你有更具体的任务或问题，欢迎进一步提问！