Khối lệnh With-End With trong VBA cho phép bạn thực hiện nhiều thao tác trên một đối tượng duy nhất. Đây là một cách khác để làm cho mã chạy nhanh hơn và hiệu quả hơn.
Nội dung chính
Cú pháp
With objectExpression
[statements]
End With
Trong đó:
objectExpression: Bắt buộc, nó là một biểu thức đối tượng.
statements: Không bắt buộc, một hoặc nhiều câu lệnh có thể tham chiếu đến các thành viên của đối tượng objectExpression.
Ví dụ khối lệnh With-End With trong VBA
Ví dụ 1: thiết lập màu background và giá trị cho range bằng khối lệnh With.
Sub WithExample()
With Range("B3")
.Interior.ColorIndex = 7
.Value = "Violet"
End With
End Sub
Ví dụ 2: hiển thị hộp thoại chọn file bằng khối lệnh With.
Public Sub selectInputFile()
Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
.InitialFileName = Application.ActiveWorkbook.path & "\"
.Filters.Clear
.Filters.Add "Excel 2007", "*.xlsx"
.Filters.Add "All Files", "*.*"
If .Show = True Then
SelectedFile = .SelectedItems(1)
End If
End With
End Sub
Kết quả:
