caranya sudah sering dicontohkan di milis yaitu setiap kali akan mengisi tabel, ketinggian tabel (tabel penampung data) di cek lagi dengan* property range.currentregion.*
*Tinggi tabel + 1* adalah *Index RowBaru* yg harus diisi denga data baru atau cara lain misal dari row paling bawah di kolom tertentu digerakkan ke atas mentok, mendapatkan cell terbawah berisi data, lalu turun 1 cell) begitulah kira kira *Be Excel... Be Tricky...* detilnya nanti akan siti suliskan, tapi mohon sabar, atau mungkin ada temans lain yg akan mendemonstrasikannya di sini.. ayok ayok... banyak posting banya rejeki.... 2011/4/10 Stein Berg <[email protected]> > > > Master STDEV(i) terimakasih pencerahannya, ini sangat berguna. > Kalo boleh ditambah setingnya, gimana VBAnya agar pengisian pada tabel > berurutan mengisi baris di bawahnya, walaupun numberrnya acak > seperti : > 2 John > 7 Barbara > 6 Stiven > (tidak loncat) > > Iwant2BeExceler > > Pada 10 April 2011 07:06, STDEV(i) <[email protected]> menulis: > > >> >> memasukkan data dari sebuah entry form ke tabel, jika akan dilakukan >> berulang-ulang >> dengan lokasi records yg selalu berubah, tidak dapat dilakukan dengan >> sekedar formula; >> harus dibantu olh pemrograman VBA >> >> banyak cara / kiatnya tetapi salah satu coding yg biasa-biasa saja; >> mungkin seperti ini >> (disederhanakan dari versi yg ada di Module pda wkbook lampiran) >> >> Private Sub Cmd_ENTRY_Click() >> ' coded by: siti Vi / 9 Apr 2011 / milis belajar-excel >> ' http://tech.groups.yahoo.com/group/belajar-excel/message/9240 >> ' -------------------------------------------------------------- >> >> Dim KwTabel As Range, R As Long ' deklarasi 2 peUbah >> Set KwTabel = Range("H11") ' inisialisasi Peubah >> R = CLng(Range("B2")) >> >> KwTabel(R, 1) = R ' nomor urut >> KwTabel(R, 2) = Range("C3") ' nama pembayar >> KwTabel(R, 3) = Range("A7") ' jumlah >> KwTabel(R, 4) = Range("C7") ' tgl kwitansi >> KwTabel(R, 5) = Range("C5") ' descripsi pymt >> >> ' otomatis naikkan #urut >> Range("B2") = Range("B2") + 1 >> >> End Sub >> >> '-------------------------- >> >> Private Sub Cmd_PRINT_Click() >> >> Me.PrintPreview >> ' kalau mau langsung cetak; gantilah dgn >> ' Me.PrintOut ' <<-- >> >> ' menghapus data di entry form sesudah di print >> ' Range("C3", "C5", "A7", "C7").ClearContents >> >> End Sub >> >> temans / members baru yg ketinggalan diskusinya bila menginginkan >> *file atachment post ini <http://www.box.net/shared/jd78ziqxn1>* masih >> dapat mengunduhnya di sini: >> http://www.box.net/shared/jd78ziqxn1 >> >> >> semoga bermanfaat (kalau dimanfaatkan ..) >> >> >>
