Khối Lệnh With-End With Trong VBA - VietTuts

Trang chủ » Câu Lệnh Set Trong Vba » Khối Lệnh With-End With Trong VBA - VietTuts

Có thể bạn quan tâm

Sub trong VBA Mảng (Array) trong VBA

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
  • Ví dụ khối lệnh With-End With trong VBA

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ả:

Ví dụ khối lệnh With-End With trong VBA Sub trong VBA Mảng (Array) trong VBA

Từ khóa » Câu Lệnh Set Trong Vba