Sudah 1 jam masih boleh coba yaaa :) Sub jajal() Dim a As Integer Dim b As Integer For a = 1 To 10 For b = 1 To 10 Cells(a, b).Value = b * a Next b Next a End Sub
mungkin masih kurang sederhana 2014-12-11 17:17 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] < belajar-excel@yahoogroups.com>: > > > Sudah 5 menit kok belum ada yang posting hasil karyanya ya.... > > > > 2014-12-11 21:10 GMT+11:00 hendrik karnadi hendrikkarn...@yahoo.com > [belajar-excel] <belajar-excel@yahoogroups.com>: > > >> >> Bagi yang merasa pemula dalam macro, mari kita iseng2 membuat macro kecil >> dengan looping untuk menghasilkan data di bawah ini : >> >> 1 2 3 4 5 6 7 8 9 10 2 4 6 8 10 12 14 16 18 20 3 6 9 12 15 18 21 24 >> 27 30 4 8 12 16 20 24 28 32 36 40 5 10 15 20 25 30 35 40 45 50 6 12 18 >> 24 30 36 42 48 54 60 7 14 21 28 35 42 49 56 63 70 8 16 24 32 40 48 56 >> 64 72 80 9 18 27 36 45 54 63 72 81 90 10 20 30 40 50 60 70 80 90 100 >> >> Usahakan jangan lebih dari 5 menit, sambil menunggu waktu pulang. >> >> Salam, >> HK >> >> > >