Maaf kalo kurang sopan, 1 lagi recod yang sudah ada jangan tertimpa oleh yang baru, hanya bisa dihapus dengan cara manual saja agar kalo ada kesalahan saat entri (lupa mengubah sel B2 tidak menimpa yang lama.
Tanks Master Pada 10 April 2011 08:29, Stein Berg <[email protected]> menulis: > 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 ..) >> >> >> '------------------------------------------------------------------ >> >>> From: Stein Berg <[email protected]> >>> Subject: Kwitansi master >>> To: [email protected] >>> Received: Saturday, 9 April, 2011, 2:14 PM >>> >>> Selamat siang. >>> >>> Kami ingin mempunyai kwitansi master artinya bisa: >>> diisi langsung diprint >>> datanya langsung masuk ke tabel seperti pada lampiran >>> >>> Tank's >>> >>> >> > >
