Halo Mr. Kid
Saya masih tidak faham jawaban no.1, 2, dan 4
yang no.1 , apakah pakai datatype? kalau pakai itu di vba ms. excel kok tidak
ada? dan penempatan variabel apakah saat crt / pcs change?
yamg no.2 sudah browsing tapi masih tidak faham, soalnya kasusnya agak berbeda.
yang no.5 jg tidak faham.
terutama no.1 itu yang paling susah faham, Mohon maklum masih beginner....
Terima kasih.
Ratri Risyanto
From: Mr. Kid
Sent: Monday, March 03, 2014 3:03 PM
To: BeExcel
Subject: Re: [belajar-excel] Re: Mods: Menyimpan data ListView ke Excel
Hai Ratri,
gugur satu tumbuh seribu ya...
1. di Excel, pakai formula Sum yang dimulai dari baris header sampai 1 baris
sebelum baris total. Baris terakhir sebelum baris total dikorbankan sebagai
dummy baris kosong.
di UserForm, berikut alurnya :
i. buat variabel (jumlah variabel disesuaikan dengan kebutuhan) berscope public
sebagai penyimpan nilai total.
ii. buat sebuah prosedur penghitung total yang didalamnya berisi proses :
> a. set variabel total dengan 0
> b. loop per item dalam listview jika ada item dalam listview
> c. isi variabel total dengan penambahan nilai yang ada pada item listview
yang sedang aktif ditunjuk oleh loop
> d. selesai loop, tulis isi variabel total ke textbox yang membutuhkan
2. coba jalan-jalan bertemu combobox yang ada disini.
3. sebelum proses hapus, lakukan cek jumlah item dalam listview. Jika listview
tidak ada itemnya, maka keluar dari prosedur. Properti yang dapat digunakan
adalah ListItems. Properti listitems memiliki properti Count yang menunjukkan
jumlah item dalam listview.
4. buat alur proses pengubahan nilai di listview, mulai mengambil data dari
item yang terpilih ke controls diluar listview. Kemudian siapkan tombol untuk
simpan ke listview (menulis nilai hasil edit ke listview). Proses diakhiri
dengan menjalankan event click milik simpan ke excel yang dibuat tempo lalu.
5. alurnya adalah blok mulai 1 baris diatas baris total, perluas menjadi
sebanyak baris tambahan yang dibutuhkan, lakukan insert row
6. pada prosedur sub event click tombol print beri baris kode berikut :
nama_object_userform_anda.hide
sheets("nama sheetnya").range("area range yang akan diprint").printout
'ganti printout jadi printpreview jika ingin preview dulu
nama_object_userform_anda.show
Wassalam,
Kid.
2014-03-03 1:01 GMT+07:00 Ratri Risyanto <[email protected]>:
Dh,
Terima kasih banyak tanggapan dan jawabannya Mr. Kid atas pertanyaan saya
(yang banyak sekali..!!!)
Sangat membantu sekali dan sudah saya terapkan, dan berhasil...!!!
Kali ini saya mau tanya banyak lagi.. sbb:
1. Bagaimana caranya memunculkan total CRT dan PCS (di tabel excel) secara
otomatis saat penginputan, juga pada form, di textbox tot crt, dan tot pcs
2.Bila saya merubah sistem input (yg mulanya dari prdcd) ke label cmbsup
(nama supplier) dan mau saya ganti jd combobox (txsupco dan cmbsup
bagaimana caranya agar saat saya input di cmbsup (sdh jd combobox) di
cmbprdcd hanya muncul nama barang dari supplier tsb. (sesuai data di sheet
prodmast)?
3. Saat saya klik tombol “Hapus” pada saat listview kosong, muncul pesan
error. bagaimana caranya agar tdk terjadi “pesan error” tsb? dan bisa
memunculkan msgbox “data sudah kosong”
4. Bila sistem input saya rubah lagi, bagaimana saat input data di listview
tersimpan, data di excel juga bisa tersimpan? dan saat edit data di listview,
data diexcel pun ter-edit juga?
5. (baik pakai sistem input no.4 atau yg sudah ada) misal table input di
sheet “SJ” dibuat minimal 5 row input (sesuai file attach) tapi saya mau input
lebih, misal 10 row, apa bisa table tsb bisa menambahkan row otomatis
untuk kekurangannya, tanpa menghapus / menindih (replace) “total”, “pengirim”,
dan “penerima”?
6. terakhir... bagaimana cara memunculkan form print (ctrl+p) saat diklik
tombol “print”.
(file attachment)
Demikian pertanyaan saya, mohon maaf bila pertanyaannya terlalu banyak, Saya
tunggu tanggapan dan jawabanya, bila Mr. Kid atau para Master lainnya berkenan..
Terima kasih banyak sekali lagi.. Salam para Master semuanya.
Hs,
Ratri Risyanto
From: Mr. Kid
Sent: Sunday, March 02, 2014 6:16 PM
To: BeExcel
Subject: Re: [belajar-excel] Re: Mods: Menyimpan data ListView ke Excel
Hai Ratri,
1. bagaimana membuat textbox no (textbox1) bisa memunculkan nomor urut
otomatis saat penginputan
>> pindahkan baris pengesetan textbox1 yang melalui event activate milik
userform ke event initialize milik userform
>> tambahkan pada event click tombol penyimpan ke listview dengan :
textbox1.text=nama_listviewnya.listitems.count+1
2. bagaimana caranya data di listview tersimpan di range ini, dengan
menggunakan tombol "simpan ke excel"?
>> pada event click si tombol penyimpan beri baris kode :
dim rng as range, lIdx as long, lCol as long
set rng = sheets("nama sheetnya").range("alamat cell pertama penulisan")
for lidx=1 to nama_listviewnya.listitems.count
rng.cells(lidx,1).value=nama_listviewnya.listitems(lidx).text
for lcol=1 to nama_listviewnya.listitems(lidx).listsubitems.count
rng.cells(lidx,lcol+1).value=nama_listviewnya.listitems(lidx).listsubitems(lcol)
next lcol
next lidx
3. bagaimana bisa menghapus data (clear contents) di range biru otomatis
tanpa menghapus range ungu
>> letakkan baris kode berikut dalam prosedur yang membutuhkan
dim lRec as long, rng as range, lCol as long
set rng=sheets("nama sheetnya").range("alamat cell penulisan nomor pertama")
lcol= 27 'ganti 27 dengan jumlah kolom dari area range yang akan dibersihkan
lrec=application.worksheetfunction.count( rng.entirecolumn )
if lrec>0 then
rng.resize( lrec , lcol ).clearcontents
endif
Wassalam,
Kid.
On Sat, Mar 1, 2014 at 1:29 AM, Ratri Risyanto <[email protected]> wrote:
From: Ratri Risyanto
Sent: Friday, February 28, 2014 1:31 PM
To: EXCEL GROUP
Subject: SIMPAN DATA LISTVIEW KE EXCEL?
Yth: All Masters Excel
Bagaimana caranya menyimpan data listview ke excel? file terlampir...
Mohon bantuannya...
Terima kasih.
Hk,
Ratri Risyanto
