Saya ingin menambahkan sedikit tip untuk belajar macro (yang pernah saya
lakukan), yaitu dengan "merekam" apa yang akan kita lakukan. Setelah direkam,
coba dijalankan dengan menekan F8 (step by step) berkali - kali sambil
menikmati jalannya macro tersebut. Kalau sudah OK, baru kita edit lagi,
kemudian coba lagi.
Dengan merekam, melakukan langkah step by step (teken F8), mengedit, kemudian
mencoba lagi kita akan dapat mengembangkan variasi penulisan macro sehingga
menjadi semakin singkat dan hebat.
Selamat bermacro ria.
Salam,
Hendrik Karnadi
________________________________
From: siti Vi <setiyowati.d...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 28, 2010 16:47:47
Subject: Re: [belajar-excel] Belajar membuat perintah macro
sebetulnya hasilnya bukan 11
tetapi karena hasil dituliskan SELALU di cell A2 terus
Range("A1"). Offset(1, 0) = hasil
maka hasil sebelumnya terhapus olh hasil berikutnya
seharusnya, penulisan harus ikut berlari ke bawah
dari A2 ke A3 dst
anda harus punya variable pencacah / counter
misalnya
Private Sub CommandButton1_ Click()
Dim c As Range, n As Long
For Each c In Worksheets(" Sheet1"). Range("A1: A15")
If c.Value = "a" Then
n = n + 1
Range("A1"). Offset(n, 0).Value = c.Offset(0, 1).Value
End If
Next c
End Sub
----- Original Message -----
From: Edo Ymail
To: belajar-excel@ yahoogroups. com
Sent: Thursday, January 28, 2010 4:28 PM
Subject: [belajar-excel] Belajar membuat perintah macro
Dear master XL,
Saya sedang mencoba-coba untuk belajar membuat perintah macro sederhana,
yang saya coba buat adalah macro untuk membuat unique list dimana dari list
yang ada di Sheet 1 akan saya coba untuk ditampilkan di Sheet 2.
Adapun perintah macro yang saya buat adalah :
Private Sub CommandButton1_ Click()
Dim c As Range
For Each c In Worksheets(" Sheet1"). Range("A1: A15")
If c.Value = "a" Then
Range("A1"). Offset(1, 0).Value = c.Offset(0, 1).Value
End If
Next c
End Sub
Hasil yang saya harapkan adalah pada Sheet 2 cell A1 sampai kebawah adalah 1,
4, 1, 5, 11.
Tetapi dari perintah yang saya coba diatas hanya menghasilkan angka 11 di
Sheet2 cell A2.
Mohon bantuannya dimana kira-kira letak kesalahannya? Terima Kasih
Get your preferred Email name!
Now you can @ymail.com and @rocketmail.com.
http://mail.promotions.yahoo.com/newdomains/aa/
