Rabu, 09 Mei 2012

BELAJAR EXCEL MACRO

Langkah – langkah membuat Excel Macro Pada Ms.Excel  2007 :

Klik Start, pilih All Programs  -> Microsoft Office -> Ms.Excel  2007


Hingga muncul tampilan seperti  ini :


Lalu klik View -> Macros -> Record Macros


Setelah itu ketikkan Nama Judul Makro pada Macro Name, isi shortkeynya, pilih “This Workbook”, Lalu OK,seperti ini :

Jika sudah,klik View -> Macros -> View Macros

Maka akan muncul tampilan seperti  ini :


Lalu klik Run, makan akan muncul tampilan seperti ini :

Untuk menjalankan fungsi kode, pilih Menu Insert -> Module

Maka akan muncul module kosong seperti ini :

Jika sudah muncul tampilan seperti tampilan di atas, maka sekarang kita bisa mengisikan kode untuk membuat deret sesuai dengan pola deret yang di inginkan.
a. Misalnya deretan membentuk pola :

1
2              2
3              3              3
4              4              4              4
5              5              5              5              5

Maka kode yang digunakan adalah :

Sub For_next ()
Dim i, a, j, As Integer
a = InputBox (“Masukan Banyak Deret”)
For i = 1 To a
For j = 1 To i
Cells (i,j) = i
Next j
Next i
End Sub


Lalu untuk mengaplikasikan ke Ms. Excel, klik RunSub

Maka akan muncul tampilan seperti ini :

Setelah itu ketik banyaknya deret yang di inginkan,maka hasil nya akan seperti ini :

b. Misalnya deretan membentuk pola :
1              3              5              7              9              11
1              3              5              7              9
1              3              5              7
1              3              5
1              3
1


Pilih Menu Insert -> Module lagi

Maka akan muncul lagi module kosong yang kedua seperti ini :

Lalu kode yang di gunakan adalah :

Private Sub CommandButton4_Click()

n=InputBox(“Masukkan Banyak Deret”)
For  i = 1 To n
K = 1
For j = 1 To n – i + 1
ActiveSheet.Range(“a1”).Offset(i - 1, j - 1) = K
K = K + 2
Next j
Next i
End Sub


Lalu untuk mengaplikasikannya lagi ke Ms. Excel, klik RunSub

Maka akan muncul tampilan seperti ini :

Setelah itu ketik banyaknya deret yang di inginkan,maka hasil nya akan seperti ini :

1 komentar:

  1. Butuh bantuan donk gan
    saya ada data seprti ini

    Kode Warna Berat Panjang Lebar Stok
    (kg) (m) (m)
    11.001 hitam 2 0.3 0.2 ada
    11.004 merah 1 0.4 0.25 ada
    11.001 biru 1.5 0.25 0.25 tidak
    11.003 coklat 3 0.5 0.2 ada
    11.004 putih 2.4 0.4 0.2 tidak
    11.002 hijau 1.7 0.3 0.25 ada
    11.002 merah 2 0.15 0.3 ada
    11.003 kuning 3 0.25 0.2 ada
    11.001 coklat 2.8 0.3 0.35 tidak
    11.004 hitam 3 0.25 0.3 tidak
    11.003 hijau 1.5 0.3 0.25 tidak
    11.005 merah 3 0.4 0.2 ada
    11.005 kuning 2.4 0.25 0.2 tidak
    11.007 coklat 1.7 0.5 0.25 ada
    11.007 hitam 2 0.4 0.3 ada

    Saya ingin mengelompokkan data disamping ini ke dalam sheet lain
    sesuai dengan kodenya.
    Jadi :
    - Kode 11.001 akan masuk ke sheet 11.001 (data lainnya seperti warna, berat, panjang, lebar di baris yg sama juga akan ikut masuk sesuai dengan kode nya)
    - Kode 11.002 akan masuk ke sheet 11.002
    - Kode 11.003 akan masuk ke sheet 11.003
    - dst...

    Pertanyaan :
    1 Apakah hal ini bisa dikerjakan menggunakan macro excel (visual basic aplication excel) ?
    2 Bagaimana formula supaya hal itu berjalan dengan mudah ?
    3 Apakah juga bisa diaplikasikan apabila pengelompokkan data itu dimasukkan ke dalam file excel lain?

    Mohon penjelasan dan informasi nya

    Terima kasih banyak

    BalasHapus