- WorksheetFunction Vd :
Range(“A3”).Value = Application.WorksheetFunction.Average(Range(“A1:A2”)) Range(“A3”).Value = “=AVERAGE(A1:A2)”
- ScreenUpdating (Cập nhật màn hình)
Giả sử có đoạn code sau :
Dim i As Integer For i = 1 To 10000 Range(“A1”).Value = i Next i
Thay bằng :
Dim i As IntegerApplication.ScreenUpdating = False For i = 1 To 10000 Range(“A1”).Value = i
Next iApplication.ScreenUpdating = True
Kết quả code chạy nhanh hơn .
- DisplayAlerts (Hiển thị cảnh báo)
VD : Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True
Không cho Excel hiển thị cảnh báo
- Calculation (Tính toán)
Vd :
Application.Calculation = xlCalculationManual Application.Calculation = xlCalculationAutomatic
- Range
VD :
Range(“B3”).Value = 2 Range(“A1:A4”).Value = 5 Range(“A1:A2,B3:C4”).Value = 10
- Cells
VD :
Cells(3, 2).Value = 2 Range(Cells(1, 1), Cells(4, 1)).Value = 5
- Khai báo một Range
Dim example As Range Set example = Range(“A1:C4”) example.Value = 8
- Workbooks.Add : Method Add của Workbooks tạo một workbook mới.
Thứ Năm, 31 tháng 3, 2016
VBA Excel - Tóm tắt Thuộc tính, đối tượng code ... thường sử dụng trong VBA
Penulis Shop online
Diterbitkan 06:05
Artikel Terkait
Đăng ký:
Đăng Nhận xét (Atom)
EmoticonEmoticon