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
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
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
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
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 :
Butuh bantuan donk gan
BalasHapussaya 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