Mengintip Bahasa Makro Excel

Panji Ryan Widhi
0
Kali ini dapet sedikit sentilan makro dari seorang temen, melihat dia bisa membuat tools untuk pekerjaannya, saya jadi tertarik juga untuk sedikit mengintip makro excel tsb. Tujuannya ya jelas agar bisa mempermudah dan mempercepat suatu pekerjaan yang diulang-ulang saban hari.
Banyak sekali syntax di makro VBA yah, oleh karena itu saya hanya ingin mengambil sesuai kebutuhan saja. Langsung saja saya catat syntax" dasar di VBA :

  • memindahkan kursor ke cell tertentu misal ke C1 : Range("C1").Select
  • mengetik suatu kata di cell yang aktif misal deg long : ActiveCell.FormulaR1C1 = "Deg long"
  • mengcopy range tertentu misal dari range A2 sampai A15 : Range("A2:A15").Select
                                                                                                Selection.Copy
  • paste hasil copy ke cell tertentu misal ke E1 : Range("E1").Select
                                                                         ActiveSheet.Paste
  • menghilangkan bekas copy : Application.CutCopyMode = False
  • memberikan formula : ActiveCell.FormulaR1C1 = "=RC[-6]+(RC[-5]/60)+(RC[-4]/3600)"
keterangan di atas adalah formula (6 cell di sebelah kiri cell aktif )+ (5 cell di sebelah kiri cell aktif dibagi 60) + (4 cell di sebelah kiri cell aktif dibagi 3600), cell aktif maksudnya adalah kursor terakhir di mana cell dipilih sedang berada
  •  meneruskan formula ke bawah dengan cell tertentu misal I2 sampai J15 : Selection.AutoFill Destination:=Range("I2:J15")
  • menghapus isi cell yang di select : Selection.ClearContents
  • memberikan tampilan informasi contoh : MsgBox "sudah selesai :)"
  • menambah tulisan di cell A1 : Cells(1, 1) = "Cell"  , di B1 : Cells(1, 2) = "NCell_1" , di C1 : Cells(1, 3) = "NCell_2" , dst *1,1 artinya baris 1 kolom 1
  •  menampilkan pilihan yes no : Msg = "Sudah Update GCELL?"
          Style = vbYesNo + vbQuestion + vbDefaultButton2
          response = MsgBox(Msg, Style)
            If response = vbYes Then
      MsgBox ("type whatever you want")
            Else
          Sheets("active gcell").Select
          End
           Msgbox digunakan untuk menampilkan pesan saja tanpa ada proses setelahnya. 

  •  membuka browser untuk memasukkan file yang kita inginkan dan menampilkannya : 
        openfile = Application.GetOpenFilename(FileFilter:="Excel files (*.xls),*.txt", Title:="Select the files to import :")
    If openfile = False Then
' They pressed Cancel
MsgBox "hellooo? you did not select a file"
Exit Sub
Else
Workbooks.Open Filename:=openfile
End If 


 
....lanjut nanti saya mau pulang dulu :p
Tags

Posting Komentar

0Komentar

Silahkan berkomentar yang baik di sini :) (no junk)

Posting Komentar (0)

Search Another