*Pengumuman* Di Sheet "ES" telah disediakan sebuah Tombol sederhana. Si Tombol akan bekerja dengan 2 aturan khusus. Sedangkan Aturan Khusus (syarat-syarat) itu SAMA SEKALI TIDAK mengikuti permintaan pak aswar munaf, tetapi mengikuti aturannya sendiri; ya-i-tu :
1. *MenDeleted semua EmptyRows*, yaitu BARIS (bukan Kolom) yg kosong; Sebuah baris dinyatakan kosong jika di baris itu (=256 cells) tidak ada satu pun data -nya. EmptyRow di-evaluasi dari Kolom B, row demi row dikunjungi, sambil ditest apakah kosong, jika kosong >>diDelete. Tetapi khusus untuk kasus ini, evaluasi cukup pada Cell di kolom B saja. Kolom B berisi data [NomorJurnal], kesimpulan si Tombol: "jika NomorJurnal tidak ada, berarti baris ybs = bukan Ayat Jurnal (dan oleh-karena-itu si baris harus di-Sikat! atau di-Lenyap!-kan )" 2. *Mendelete Row yang : data di Kolom H:K-nya jika di-SUM) / dijumlah = 0*. IF(SUM(Hn:Kn)=0, Then GituLoch, Else YaGituDeh) Setiap row dikunjungi , Kolom H:K diEvaluasi jumlahnya; jika jumlah = 0, ROW yg sedang dikunjungi tsb >>diDelete. (oiya..hampir lupa: semuanya harus serba jelas 'kan:) Si Tombol hanya akan bekerja pada sheet yg diberi nama "ES" saja; Struktur tabel harus sama dgn contoh yg dikirim ke milis (workbook Delete.XLS"), nama workbook boleh diganti; Area-data berada di kolom B s/d L; Data-pertama harus ada di B2; ada/tidak-nya data di tiap cell pada kolom B menentukan apakah row = empty / not empty; Cells di kolom H:K harus berisi data Bilangan (termasuk 0) atau Blank *Truzz kalau ada cells di Kolom H:K berisi ErrorValues? Bgmana?* Mo di-apa-"in"? Ada 2 kemungkinan tindakan logis: = diganti menjadi 0, agar: bila ke-empatnya = Err, Row tbs ikut terDeleted. = di-'cuekin' saja, tidak perlu di Evaluasi dgn: SUM(H:K)=0 (karena malah akan memicu munculnya ErrorMessage yg malu-malu-in). Row jelex ini sebaiknya diberi interior color = yg menyolok !! Si Tombol pilih Opsi kedua. Oiya (lagi..): "Delete" yg dimaksudkan di sini adalah hasil sebuah metoda yg terdapat pada menu Edit > Delete ketika di sheet ada Row(s) utuh yg ter-Selected. Di komputer siti, hal yg terjadi = Selected Row(s) lenyap, Rows di bawahnya ter-Shifted ke atas, sementara di dasar sheet muncul row(s) baru sebanyak row(s) yg lenyap. ( Untuk tindakan spti itu Si Tombol keberatan jika sekedar disebut = 'menghapus nilai 0'. ) (Lampiran *.ZI_ harap di rename menjadi ZIP dulu) * ---------------------------- Pengumuman : Selesai -------------------------- * NB (nambah bo' ) Sebetulnya 'betapa inginnya' siti ( eh.. Si Tombol dinq..) mengikuti syarat / permintaan seperti ditulis oleh pak aswar, tetapi : "menghapus nilai 0 dan menghapus kolom yg tidak diperlukan" sungguh sebuah frasa-terlalu-pendek yg sulit disimpulkan maksud-dan-tujuan-nya, terutama dlm hubungannya dgn olah-data di sheet ES itu. kalau diikuti jangan-jangan malah 'salah-delete'... kan reVot... lha wong "tidak diikuti" saja : juga bisa salah delete.., apalagi "diikuti"... (.. lho..? kebolak yaaa.?...) *__* ~_~ maafkan siti... smg, 30jun2008 ttd, siti Vi wk.komandan jaga hansip, pos 3, kampung bluwek, desa bluewater. 2008/6/27 satia nugra-ha <[EMAIL PROTECTED]>: > >> Cara manualnya, >> 1. tekan Ctrl+H, >> 2. klik: Op*t*ions>>, >> 3. isi Fi*n*d what: dengan nilai 0 (Nol), >> 4. isi R*e*place with: [blank] >> 5. klik centang: Match *c*ase >> 6. klik centang: Match entire cell c*o*ntents >> 7. klik: Replace All >> 8. Hasil, cell dengan nilai 0 (nol) niscaya akan terhapus semua, tapi di >> i04-HY tidak menjadi i4-HY, atau 30/04/2008 --> 3/4/28, karena no 5 & 6 >> diisi (dicentang) >> segini dulu kali, kalau ngehapus kolom mungkin manual atau ada yang bisa >> bantu?? >> thx >> satia >> >> >> ----- Original Message ----- >> From: aswar munap >> Dear XL mania... >> Tolong aku dunk..gimana cara menhapus nilai 0 dan *menhapus kolom yg >> tidak diperlukan.*..karena ini sangat merepotkan saya karena begitu >> banyak data yg akan di hapus tiap bulannya...terima kasih.. >> Thank before..... >> > >
