Ok saya coba otak atik, Tanks, *Be Excel.. Be Smart.*. Pada 10 April 2011 10:56, STDEV(i) <[email protected]> menulis:
> > > 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 ..) >>> >>> >>> >
