(Phần 1)Câu lệnh gọi tên các đối tượng và 1 số action với Range



Gọi tên để chuẩn bị thực hiện action:

  • Gọi tên file: Windows("ABCD.xlsx").Activate
  • Gọi sheet :Sheets("DEF").Select
  • Gọi vùng: Range("A3:CR1000").Select

Action thông dụng:

  • Xoá vùng dữ liệu được chọn:Selection.ClearContents
  • Copy vùng dữ liệu được chọn :Selection.Copy
  • Chỉ chọn vùng dữ liệu hiển thị (không chọn dòng ẩn): Selection.SpecialCells(xlCellTypeVisible).Select 
  • Sau khi chọn nơi để Paste, action copy, Paste vùng dữ liệu được chọn lên ô đã chọn : ActiveSheet.Paste
  • Sau khi copy, Paste Value lên nơi đã chọn: Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
  • Ẩn các cột từ D đến L: 
              Range("D4:L4").Select
    Selection.EntireColumn.Hidden = True
  • Đi đến dòng trống kế tiếp ở cột D
    Range("d1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, -1).Select

     

 


Nhận xét