Sepertinya sudah dicoba dan sudah memahami dampak dari proses yang namanya loop.
Jadi loop akan mengulang-ulang proses. Loop dengan For Next, akan menambahkan nilai dalam variabel yang digunakan pada baris For. Pada For lBaris=3 to 5000, maka nilai lBaris akan berubah dari 3 sampai 5000. Loop dengan For Next diawali baris For bla = bli to blo dan diakhir Next bla Script yang ada diantaranya akan diproses berulang-ulang. Ketika proses membutuhkan nilai-nilai yang turut bergerak dari 3 sampai 5000 yang tersimpan dalam lBaris, maka variabel lBaris bisa digunakan. Contoh proses IF pada baris : IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then rngdataku inginnya akan dicek dari cell pertama (range dibaris 3) sampai range terakhir di baris 5000. Pada baris IF diatas, menggunakan cells( row, col) Jadi row pada cells harus mulai dari 1, yaitu lbaris pertama dikurangi 2. Maka IF dalam For Next akan berbentuk : IF dttglhariini > dttglhariini-1 AND rngdataku.cells( lbaris - 2 ,1).value = "" then Sampai sini, maka proses loop dari range baris 3 sampai baris 5000 excel telah dilakukan. Kid. 2012/6/21 Kid Mr. <[email protected]> > cells( row_index , column_index ) > Nanti bisa diisi dengan varibale yang menyimpan data angka, kemudian nilai > dalam variabel itu diganti melalui suatu proses loop. > > Misal : > dim lBaris as long > for lBaris=3 to 5000 > > IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = > "" then > 'dst > next l > > > Kid. > > > 2012/6/21 Leonardo Endry widodo <[email protected]> > >> ** >> >> >> >> Kl sy coba artikan berarti untuk bagian rngdataku.cells(1,1).value = "" harus >> dilakukan berulang kali sampai ke rngdataku.cells(n,n) ??? >> atau bagaimana ? >> ------------------------------ >> *From:* Kid Mr. <[email protected]> >> *To:* [email protected] >> *Sent:* Thursday, June 21, 2012 4:30 PM >> >> *Subject:* Re: [belajar-excel] Menampilkan message alert dengan kriteria >> tertentu >> >> >> oops salah... >> >> jika variabel today diberi () maka menjadi variabel array. >> >> Andai yang dimaksud adalah menyimpan sebuah data tanggal dalam sebuah >> variabel, >> dim dtTglHariIni as date >> dttglhariini=date >> >> jika ingin menyimpan suatu object range dalam sebuah variabel, >> dim rngDataKu as range >> set rngdataku=range("e3:e5000") >> >> Kemudian, suatu kondisi IF dengan operator perbandingan *sebuah *nilai >> misal membandingkan cell e3 dulu : >> IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then >> dst >> >> Kid. >> >> 2012/6/21 Leonardo Endry widodo <[email protected]> >> >> ** >> >> Sudah dicoba ganti & dengan AND tetapi masih terdapat type mismatch >> pada tanda - >> Sub Test() >> Dim today() As Date >> Dim range As range >> >> If today() > today() - 1 and range("E3:e5000") = "" Then >> a = MsgBox("test") >> ElseIf today () > today() - 2 and range("e3:e5000") = "" Then >> b = MsgBox("test") >> Else: c = MsgBox("ok") >> >> End If >> End Sub >> >> ------------------------------ >> *From:* Kid Mr. <[email protected]> >> *To:* [email protected] >> *Sent:* Thursday, June 21, 2012 4:14 PM >> *Subject:* Re: [belajar-excel] Menampilkan message alert dengan kriteria >> tertentu >> >> >> Coba ganti & dengan AND >> >> Kid. >> >> 2012/6/21 Leonardo Endry widodo <[email protected]> >> >> ** >> >> Kakak" yg ganteng" dan cantik", mohon bantuannya untuk >> menampilkan message alert dengan kriteria tertentu >> Sample file dan keterangan lainnya include didalamnya. >> >> Terima Kasih. >> >> >> >> >> >> >> >> >> > >
