Excelvba範例大全

Excel VBA (Visual Basic for Applications) 是一種強大的程式語言，它允許您自動化Excel任務，自定義工作表功能，甚至與其他應用程式集成。以下是一些Excel VBA的範例大全：

1. 自動填充數據：

```vba

Sub FillData()

Range("A1").Select ' 選擇起始單元格

Selection.AutoFill Destination:=Range("A1:A100"), Type:=xlFillDefault ' 自動填充到指定範圍

End Sub

```

2. 創建自定義函式：

```vba

Function AddTwoNumbers(num1 As Double, num2 As Double) As Double

AddTwoNumbers = num1 + num2

End Function

```

3. 在數據表中使用篩選：

```vba

Sub FilterData()

With ThisWorkbook.Sheets("Sheet1")

.Range("A1:B10").AutoFilter Field:=1, Criteria1:="Value" ' 對A列進行篩選，篩選值為"Value"

End With

End Sub

```

4. 創建自定義工具列按鈕：

```vba

Sub AddButtonToToolbar(ByVal ButtonCaption As String, ByVal TargetSheet As String, ByVal ButtonLocation As String)

With ThisWorkbook.VBProject.VBComponents(VbeProjectType.vbtabMicrosoftExcelUserForms)

.Item(VbeUserControlType.uitmAdd).CreateControl(TargetSheet, VbeControlOption.vcToolbar, ButtonLocation, , " ") ' 添加按鈕到自定義工具列

.ActiveControl.Caption = ButtonCaption ' 設定按鈕顯示的文本

End With

End Sub

```

5. 從其他檔案導入數據：

```vba

Sub ImportDataFromOtherFile()

Dim strFilePath As String ' 定義源檔案路徑

strFilePath = "C:\Temp\TestFile.xlsx" ' 設定源檔案路徑

ThisWorkbook.Sheets("Sheet1").Range("A1").CopyFromFile strFilePath, FileSpecType:=xlFSRef, FileSpec:="*", StartRow:=1 ' 從源檔案導入數據到當前工作表的第一行第一列

End Sub

```

以上只是一些基本的Excel VBA範例，實際上，Excel VBA的功能非常強大，可以用於各種複雜的自動化任務。如果您需要更具體的幫助，可以提供更詳細的任務描述。

以上就是【Excelvba範例大全】的相關內容，敬請閱讀。