Be Excel Kasus yg menarik. Gimana kalau hasilnya disimpan pada tabel dengan file terpisah (membentuk file baru)?
Terimaksih 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 >> >> >
