Mas Zainul & Mas Kid Terima kasih atas responnya, saya pelajari dahulu, Wasalam
On 8/27/14, 'Mr. Kid' [email protected] [belajar-excel] <[email protected]> wrote: > Wa'alaikumussalam Wr. Wb. > > mas Agus, > > Permasalahannya adalah mendapatkan si range yang sesuai kriteria pencarian > kah ? > > Misal : > Di A1 sampai AZ1 ingin dicari sebuah range tertentu, maka perlu loop dari > A1 sampai AZ1. Lalu cek apakah setiap range dari A1 sampai AZ1 sesuai > kriteria. Kalau sesuai, maka bisa menghentikan loop atau yang sesuai tadi > disimpan dulu (karena bisa jadi yang sesuai ada lebih dari 1 dan ingin > diambil semuanya). > > Cara loop dari A1 sampai AZ1, bisa : > dim rngCari > for each rngCari in range("a1:az1") > debug.print rngcari.value > next rngcari > > atau > dim lCol as long > for lCol = 1 to 25 > debug.print cells(1,lcol).value > next lcol > > Kasus lainnya : > Kalau akan loop sebanyak 100 kolom dimulai dari range G7 > dim lCol as long > for lcol=1 to 100 > debug.print range("g7").cells( 1 , lcol ).value > next lcol > > Kalau akan loop sebanyak 100 kolom dan 37 baris dimulai dari H5 > dim lCol as long, lRow as long > for lcol=1 to 100 > for lrow=1 to 37 > debug.print range("h5").cells( lrow , lcol ).value > next lrow > next lcol > > Semua yang ada di kasus lainnya di atas, sebenarnya melakukan loop dari > area range yang sudah jelas alamat rangenya. > 'dari range G7 sebanyak 100 kolom dan 1 baris > dim rngCari as range > for each rngcari in range("g7").resize(1,100) > debug.print rngcari.value > next rngcari > 'untuk kasus 100 kolom dan 37 baris dimulai dari H5 dicoba sendiri > > Untuk penggunaan *cells*, ada di link > http://b-excel.blogspot.com.au/2013/07/belajarvba-006-object-dalam-excel.html > bagian *Range* > Untuk loop (For Next ataupun For Each) mulai dari > http://b-excel.blogspot.com.au/2013/08/belajarvba-010-perulangan-1-for-next.html > Untuk merujuk range yang lebih dinamis, mulai dari > http://b-excel.blogspot.com.au/2013/09/belajarvba-011-range-03.html dan > pilih yang relatif sesuai untuk digunakan bersama bunyi script lain. > > Wassalamu'alaikum Wr. Wb. > Kid. > > > > > > > > 2014-08-27 12:10 GMT+10:00 Nang Agus [email protected] [belajar-excel] < > [email protected]>: > >> >> >> Asalamualaikum warahmatullah; >> >> Saya mau mencari alamat cell (Range) dengan vba, saya terbiasa >> menggunakan alamat range menggunakan syntax : Range("A1"), >> karena cekrip yang mau dibuat perintahnya membaca Range("A1") sampai >> Range("AZ1") berturut-turut satu persatu. (bukan A1:AZ1). Hal ini akan >> mudah jika digunakan Loop, namun saya kesulitan mengubah kolom >> berdasarkan huruf. >> Saya cari di >> http://b-excel.blogspot.com.au/2013/09/belajarvba-011-range-01-berdasar-alamat.html >> tidak ada, dapatkah ditambah? >> >> Bagaimanakah caranya menulis cekrip, mencari alamat Cell dengan >> menggunakan RC1? >> Tolong diubah cekrip saya di bawah ini. >> >> For itung = 1 to 100 >> Range("A1").Value = isine (itung) 'sudah saya coba dengan >> Cell(1,itung) tidak bisa >> Next itung >> >> Terima kasih >> Wasalamualaikum >> >> NangAgus >> >> >
