Belajar Membuat Macro MS Excel 2007: Mengendalikan Cell/ Range

1. Memilih cell pada worksheet yang aktif

Misalkan anda akan memilih cell "D5" pada Worksheet yang aktif, anda dapat menggunakan perintah seperti contoh berikut:

ActiveSheet.Cells(5, 4).Select

Atau

ActiveSheet.Range("D5").Select


2. Memilih cell pada worksheet yang lain pada workbook yang sama

Untuk memilih Cell "E6" pada worksheet yang lain pada workbook yang sama, anda dapat dapat menggunakan perintah seperti berikut:

Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)

atau

Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))

atau anda bisa mengaktifkan sheet2 terlebih dahulu kemudian menggunakan metode satu, seperti contoh dibawah ini:

Sheets("Sheet2").Activate  ActiveSheet.Cells(6, 5).Select


3. Memilih Cell di Worksheet yang berbeda workbook

Untuk memilih Cell "F7" pada worksheet yang berbeda workbook, anda dapat dapat menggunakan perintah seperti

Application.Goto (Workbooks("Book2.XLSX").Worksheets("Sheet1").Cells(7, 6))

atau

Application.Goto (Workbooks("Book2.XLSX").Worksheets("Sheet1").Range("F7"))


4. Memilih Range didalam Sheet Aktif
   Untuk Memilih Range "C2:D10" di sheet yang sedang aktif dalam workbook yang sama, anda dapat menggunakan salah satu contoh dibawah ini:
   
   ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select
   
   ActiveSheet.Range("C2:D10").Select
   
   ActiveSheet.Range("C2", "D10").Select
5. Memilih Range di sheet lain pada workbook yang sama
   untuk Memilih Range "D3:E11" di sheet yang lain pada workbook yang sama, anda dapat menggunakan salah satu contoh dibawah ini:
   
   Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3:E11")
   
   Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3", "E11")
6. Memilih Range Pada Workbook yang berbeda
   Untuk Memilih Range "E4:F12" di sheet yang berbeda workbook, anda dapat menggunakan salah atu contoh dibawah ini:
   
   Application.Goto Workbooks("BOOK2.XLSX").Sheets("Sheet1").Range("E4:F12")
   Application.Goto (Workbooks("Book2.XLSX").Worksheets("Sheet1").Range("E4", "F12"))





sumber: http://support.microsoft.com

Artikel Terkait