oh gitu.... moga-moga masih semangat mengutak atik ya...
sudah pernah kenal datatype di cells Excel ? Kalau belum kenal, jalan-jalan kesini <http://excel-mr-kid.blogspot.co.id/2015/03/datatype-dalam-sebuah-cells.html> yang gak pake nanya-nanya. jadi, sampai disini, bisa diasumsikan sudah tahu tentang datatype di cells excel ya... coba diutak atik lagi yuk... sekalian praktek untuk mendapatkan keuntungan memahami tipe data di cells Excel. 1. kolom C pakai formula semua kan ya (kecuali header nya kali ya) > yang cells isi nama-nama, pastikan hasil formulanya bisa menghasilkan 2 tipe data, yaitu kalau *ada nilainya di sumber data, maka ambil nilai numerik* (langsung ke sumber datanya). Kalau *di sumber data tidak ada, isi dengan nilai bertipe text*. Contoh : misal ambil dari sheet 'myData' dengan formula yang puanjang ribet bikin mumet dan excel jadi lemot : =if( *formula_panjang_ambil_data* ="" , *""* , *formula_panjang_ambil_data* ) > yang cells isi kata-kata kelas itu sepertinya sum-suman yang putih di atasnya deh. Maka biarkan saja di sum begitu saja, ndak usah pakai sumif apalagi ififan. Pokoke sum aja. Jadi, yang *kata-kata kelas ini akan pasti menghasilkan tipe numerik*. > yang cells isi rata-rata juga diisi formula sum-sum an saja. Jadi yang *rata-rata ini juga bertipe numerik*. Sampai disini, yang kolom F mestinya dah bisa dihapus 2. menyesuaikan kode VBA. > ke VBE -> double click object sheet output tersebut -> ke blok prosedur event calculate nya -> lihat baris yang bunyinya begini : range("c1:c17").specialcells(*xlcelltypeblanks* ).entirerow.hidden=true *** perhatikan yang di-merah (warnanya sama dengan yang nomor 1 kan ya...) yang dimerah ini diganti bunyinya jadi begini : *xlcelltypeformulas , xltextvalues* jadi : special cells yang isinya formula menghasilkan nilai berupa text gampang kan ya.... dah selesai... ya gak ? ya tentu saja belum selesai, karena header nya adalah bertipe text... jadi, setelah baris : range("c1:c17").specialcells(*xlcelltypeblanks* ).entirerow.hidden=true berubah menjadi : range("c1:c17").specialcells(*xlcelltypeformulas, xltextvalues*).entirerow.hidden=true maka sekarang area range nya jangan menyertakan baris header, karena headernya bertipe text. Berarti mulainya bukan di C1 tapi di C2. Akhirnya, si baris tadi menjadi : range("c*2*:c17").specialcells(*xlcelltypeformulas, xltextvalues*).entirerow.hidden=true 3. sekarang boleh di-save Sepertinya begitu deh... Kalau ada yang kliru, silakan diutak atik sampe jadi akik yik... Wassalam, Kid 2015-11-27 13:06 GMT+07:00 'Dede Sulaeman' pmaho_l...@pinusmerahabadi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>: > > > Dear Mr Kid, > > > > Oh iya, itu sebagai bahan data yang diambi saja, karena file aslinya data > diambil dari sheet lain. Dan kolom C itu berformula semua makanya kondisi > ini range("c1:c17").specialcells(xlcelltypeblanks).entirerow.hidden=true > tidak > bisa dipakai karena hanya meng-hide cell yang kosong. > > Sedangkan kolom C yang sebenarnya berformula meskipun itu Blank/nullstring. > > Banyak bertanya akhirnya banyak tahu saya, mudah2an sih kedepannya dengan > banyak bertanya nggak malah bikin bingung yah. > > Dan untuk semua member ayoo jangan malu untuk bertanya “Malu bertanya > sesat dijalan” NGAK NYANYA-NANYA YA JALAN-JALAN. Hehehehe. > > > > Terima kasih sekali lagi Mr atas responnya. Dan mudah-mudahan penjelasan > saya tidak bikin bingung untuk para member lain yang ingin tahu. > > > > Salam, > > DD > > > > *From:* belajar-excel@yahoogroups.com [mailto: > belajar-excel@yahoogroups.com] > *Sent:* 27 November 2015 12:31 > > *To:* BeExcel > *Subject:* Re: [belajar-excel] Hide Row jika Cell Blank > > > > > > Alhamdulillah. > > btw, > > itu kok ada angka-angka di kolom F ? angka apa ya ? > > > > > > > 2015-11-27 11:18 GMT+07:00 'Dede Sulaeman' > pmaho_l...@pinusmerahabadi.co.id [belajar-excel] < > belajar-excel@yahoogroups.com>: > > > > Dear Mr Kid… > > > > Alhamdulillah… > > Amazing, setelah diotak-atik dibolak-balik sukses 100%, terima kasih atas > masukannya. File terlampir adalah bukti kesuksesannya. > > Semoga Anda selalu diberi kesehatan khususnya dan seluruh member group ini > umumnya. > > > > Salam, > > DD > > > > *From:* belajar-excel@yahoogroups.com [mailto: > belajar-excel@yahoogroups.com] > *Sent:* 27 November 2015 09:39 > > > *To:* BeExcel > *Subject:* Re: [belajar-excel] Hide Row jika Cell Blank > > > > > > hmmm... > > No.1 data hanya dilihat dan tidak diinput > No.3 yang dilakukan user hanya memilih outline number saja dan angka di > cell yang terlihat hanya ada angkanya > > Coba begini : > > 1. disebuah cells bantu diberi formula =Now() > lalu di atur format number custom diisi ;;; (3 bijik titik koma). > letak cells bantu dalam sheet output tersebut adalah bebas alias > dimana saja. > Kalau ingin lebih nyaman, jangan di area yang dikenai outline dan bila > perlu di-hide kolom atau barisnya. > > 2. semua event milik worksheet tersebut, yang bukan event calculate, > diberi tambahan baris kode : > > > di baris pertama setelah baris deklarasi variabel di setiap > prosedur event > > application.enableevents=false > > > di baris terakhir sebelum end sub di setiap prosedur event > > application.enableevents=true > > 3. di event calculate milik si worksheet, diisi baris kode berikut : > > Asumsi : > a. nama object dari worksheet bernama 'Sheet1' (di preview, tab > sheet nya bertuliskan begitu) adalah Sheet1 (biasanya, sheet pertama yang > masih ori peletakannya, akan diberi object name Sheet1) -> sesuaikan dengan > keadaan setempat > > b. kolom kuncinya adalah kolom C, misal range c1:c17 (di preview, > data terakhir di c16, lalu dilewatkan 1) -> sesuaikan dengan keadaan > setempat. > > c. kriteria yang di-hide adalah yang blank cells dan bukan yang > berisi nullstring alias hasil "" di formula > > if activesheet.name=sheet1.name then 'yang dikalkulasi adalah > sheet yang aktif [sesuaikan dengan keadaan setempat] > > on error resume next 'abaikan error > > application.enableevents=false 'turnoff responsif excel > terhadap suatu tindakan > > > range("c1:c17").specialcells(xlcelltypeblanks).entirerow.hidden=true > 'hide yang sesuai kriteria > > application.enableevents=true 'turnon responsif excel > terhadap suatu tindakan > > err.clear 'hapus error > > on error goto 0 'kembalikan trap error ke default setting > nya > > endif > > > > Selamat mencoba. > > Wassalamu'alaikum wr wb > > Kid > > > > > > 2015-11-27 8:02 GMT+07:00 'Dede Sulaeman' pmaho_l...@pinusmerahabadi.co.id > [belajar-excel] <belajar-excel@yahoogroups.com>: > > > > Dear : Mr. Kid > > > > Untuk pertanyaan : > > No.1 data hanya dilihat dan tidak diinput > > No.2 memilih outline karena file sudah berat dan untuk melihat cell yang > ada isinya lebih simple dibanding pivot, dikarenakan form sudah baku dan > memilih dengan outline lebih mudah untuk yang awam menggunakan excel ^_^. > > No.3 yang dilakukan user hanya memilih outline number saja dan angka di > cell yang terlihat hanya ada angkanya, karena Row terlalu banyak sehingga > lebih mudah user melihat angka dengan menggunakan outline. > > > > Mohon Bantuannya para suhu ^_^ > > > > Salam, > > DD > > > > > > > > *From:* belajar-excel@yahoogroups.com [mailto: > belajar-excel@yahoogroups.com] > *Sent:* 27 November 2015 07:46 > > > *To:* BeExcel > *Subject:* Re: [belajar-excel] Hide Row jika Cell Blank > > > > > > Hai DD, > > hmm... > > maaf ya, nambah nanyanya gpp kan ya... > > 1. sheet ini sebagai salah satu output untuk melihat-lihat data atau > sebagai area input data ? > > 2. kenapa memilih outline ? apa tujuan awalnya, sehingga memilih > menggunakan fitur outline ? > > 3. apa saja yang bisa dilakukan user terhadap outline tersebut ? > > > > Bukan masalah bisa atau tidak bisa, tetapi diperkirakan ada yang tidak pas > antara apa yang Anda inginkan dengan menfaat outline itu sendiri. Jadi, > kasus ini bukan sekedar bisa hide blank cells yang bisa diatur dengan hide > row. Pokok masalahnya justru bukan diproses hide/unhide nya. > > btw, bisa jadi dugaan saya yang tersebut di atas justru keliru. Akhirnya, > malah jadi kebanyakan bertanya daripada urun solusi. maaf ya. > > pertanyaan pertama tentang penggunaan pivot table di email lalu bukanlah > saran untuk menggunakan pivot table, tetapi lebih mengarah ke batasan > struktur dan memastikan tujuan utama kasus yang menyebabkan penghindaran > pemanfaatan proses yang lebih mudah dan lebih tepat guna. > > sedangkan rangkaian pertanyaan yang ini akan mengarah kemana ya... > wakakaka... mungkin karena kid lagi iseng... > > > > > > Wassalam, > > Kid > > > > > > 2015-11-27 7:23 GMT+07:00 'Dede Sulaeman' pmaho_l...@pinusmerahabadi.co.id > [belajar-excel] <belajar-excel@yahoogroups.com>: > > > > Dear Mr Kid, > > > > File lampiran yang lalu adalah sebagai contoh dari form asli, sedangkan > form asli sudah dibakukan sehingga tidak dapat untuk dirubah. > > Apakah macro memungkinkan bekerja dengan form seprti itu (bekerja saat > outline dipilih 2,3,dan4) > > > > Note: form Asli sebenarnya mencapai level 4 > > > > Salam, > > DD > > > > *From:* belajar-excel@yahoogroups.com [mailto: > belajar-excel@yahoogroups.com] > *Sent:* 26 November 2015 11:19 > *To:* BeExcel > *Subject:* Re: [belajar-excel] Hide Row jika Cell Blank > > > > > > Wa'alaikumussalam wr wb > > Hai DD, > > Boleh tahu kenapa tidak pakai Excel Pivot Table ? > > Wassalamu'alaikum wr wb > > Kid > > > > > > 2015-11-26 10:52 GMT+07:00 'Dede Sulaeman' > pmaho_l...@pinusmerahabadi.co.id [belajar-excel] < > belajar-excel@yahoogroups.com>: > > > > Dear BeExceller, > > > > Assalamu’alaikum Wr Wb... > > > > Mohon koreksinya trhadap sricpt macro pada file terlampir. > > Harapannya adalah pada saat saya klik Group OutLine no 2 dan 3, maka cell > kosong (Blank) terhidden otomatis. > > > > > > Wassalamu’alaikum Wr Wb... > > Salam, > > DD > > > > > > > > > > >
