Bls: Re: Re: Re: Re: [belajar-excel] VBA Hide/Unhide Cell Otomatis
waduh gimana ini mengakhiri tooltips nya Mr.? he Pada Kam, 1 Mar 2018 pada 8:15, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] menulis: oh begitu baiklah.. yuk disempatkan belajar fitur Excel yang dasar-dasar dulu... VBA kan untuk otomasi... kalau menerjakan secara manual (tanpa VBA) saja masih kurang optimum dalam memanfaatkan fitur Excel, hasil otomasi dengan VBA nya bisa tidak efisien atau terlalu rumit untuk dikembangkan. Untuk hide baris (bisa dikembangkan untuk hide kolom, unhide baris, unhide kolom) sudah bisa ya.. Untuk print juga sudah bisa kan ya... Masalah berikutnya adalah baris yang akan di-hide ada banyak dengan kriteria tertentu. Pada kasus ini, baris yang di-hide adalah yang cells di A1:A10 adalah blank (blank tidak sama dengan "" [nullstring]) Artinya, range yang ada di baris kode untuk hide haruslah merujuk ke A1:A10 yang blank. Oke... kalau begitu cari cara supaya bisa memilih cells yang blank di A1:A10 lebih dulu. Maka dicoba dulu dengan cara manual (BUKAN bersegera menggunakan VBA). Bahasa manusia dari prosesnya begini : "ke sheet yang diproses (misal sheet bernama Data), blok cells A1:A10, ke (goto) cells khusus (special) yang blank (Blanks)" Cara manual di worksheet-nya begini : 0. ke sheet yang beberapa barisnya akan diproses (misal sheet bernama Data) 1. blok cells A1:A10 2. pakai fitur Goto Special Blanks OK [tekan CTRL G -> klik Special -> pilih Blanks -> tekan OK] > didapatlah cells di A1:A10 yang blank. Kalau sudah bisa dan mencoba cara manualnya, dan berhasil sesuai kebutuhan, barulah disusun otomasinya (pakai VBA) : 0. ke sheet yang beberapa barisnya akan diproses (misal sheet bernama Data) bunyi dalam VBA :sheets("Data") 1. blok cells A1:A10 bunyi dalam VBA :range("a1:a10") 2. pakai fitur Goto Special Blanks OK [tekan CTRL G -> klik Special -> pilih Blanks -> tekan OK] bunyi dalam VBA :specialcells(xlCellTypeBlanks) Sudah dapat parts-nya, maka dikembalikan ke bahasa manusianya : "ke sheet yang diproses (misal sheet bernama Data), blok A1:A10, ke (goto) cells khusus (special) yang blank (Blanks)" sheets("Data").Range("A1:A10).SpecialCells(xlCellTypeBlanks) Dapat deh baris kode untuk memilih range yang blank di A1:A10, yaitu : sheets("Data").Range("A1:A10).SpecialCells(xlCellTypeBlanks) > Biasanya akan ada yang bilang begini : 'itu kan kalo sudah tahu VBA punya SpecialCells dan harus milih xlCellTypeBlanks, kalau belum tahu trus gimana mungkin bisa nyusun begitu' *** No Offense *** hmmm... betul juga ya... maksudnya, betul juga kalau gak pernah memperhatikan tooltips, gak akan merasakan manfaat tooltips, jadinya gak mau berusaha memunculkan tooltips, lalu asal bunyi dalam mencari alasan.. *** No Offense juga *** Begini : kalau di VBA menulis : (jangan lupa karakter titik nya dan tidak ada spasi) Sheets("Data"). toolstip tidak akan muncul. kalau begitu, untuk sementara pinjam dulu nama asli worksheet-nya. Sheets bernama Data, di VBA Object Explorer akan tampak memiliki nama Sheet1 misalnya, maka tulis begini : Berhubung butuh menggunakan cells atau range, maka cari dalam daftar yang bunyinya Cells atau Range (pilih yang cocok). aah.. ada bunyi Cells, maka klik cells, buka kurung. Muncul lagi tooltips-nya, kok gak bisa pakai alamat A1:A10 kalau pakai Cells, berarti gak bisa pakai Cells. Cari yang lainnya saja... lalu cari lainnya, dapatlah pilihan kedua (kalau tidak Cells berarti Range, karena cells dengan range merujuk ke isi worksheet tempat menulis data). Dipilihlah range lalu buka kurung, muncul lagi tooltips-nya, lalu diketik deh A1:A10 sebagai string. Jadinya didapat bunyi : Sheet1.Range("A1:A10") Begitu ketik karakter titik, muncul lagi tooltipsnya Tadi, kerja manualnya, pakai Goto lalu Special, berarti cari Goto atau cari Special nih Mulailah cari Goto dulu... horeee ketemu goto.. dipilihlah goto lalu ketik buka kurung atau spasi yang penting bisa muncul tooltip lagi loh kok Goto gak ada bunyi pilih-pilih Special nya dalam tooltip milik Goto.. waaah... brarti bukan pakai Goto nih.. Akhirnya coba kemungkinan kedua, yaotu Special Mulai cari kata special... waaah... gak ada Special, adanya cuma SpecialCells.. Coba sajalah, siapa tahu Goto Special di fitur Excel itu artinya SpecialCells.. eh kan di bahasa manusianya berbunyi 'ke cells khusus' ya... itukan bahasa sononya berbunyi Cells Special atau Special Cells.. kayaknya milih SpecialCells bener dah nih.. dicobalah SpecialCells lalu spasi atau buka kurung asal keluar tooltips.. dicobalah dulu pakai spasi, lalu muncul deh tuh tooltips waahh... ada bermacam-macam.. butuh yang blank nih, karena cara manualnya trus pilih blank... dicarilah pilihan yang ada bunyi blank.. yaiy... dapet bunyi xlCellTypeBlanks Dapet deh bunyi baris
Bls: Re: Re: Re: Re: [belajar-excel] VBA Hide/Unhide Cell Otomatis
alhamdulillah sukses Mr. lalu bagaimana cara unhid nya? he Pada Kam, 1 Mar 2018 pada 8:15, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] menulis: oh begitu baiklah.. yuk disempatkan belajar fitur Excel yang dasar-dasar dulu... VBA kan untuk otomasi... kalau menerjakan secara manual (tanpa VBA) saja masih kurang optimum dalam memanfaatkan fitur Excel, hasil otomasi dengan VBA nya bisa tidak efisien atau terlalu rumit untuk dikembangkan. Untuk hide baris (bisa dikembangkan untuk hide kolom, unhide baris, unhide kolom) sudah bisa ya.. Untuk print juga sudah bisa kan ya... Masalah berikutnya adalah baris yang akan di-hide ada banyak dengan kriteria tertentu. Pada kasus ini, baris yang di-hide adalah yang cells di A1:A10 adalah blank (blank tidak sama dengan "" [nullstring]) Artinya, range yang ada di baris kode untuk hide haruslah merujuk ke A1:A10 yang blank. Oke... kalau begitu cari cara supaya bisa memilih cells yang blank di A1:A10 lebih dulu. Maka dicoba dulu dengan cara manual (BUKAN bersegera menggunakan VBA). Bahasa manusia dari prosesnya begini : "ke sheet yang diproses (misal sheet bernama Data), blok cells A1:A10, ke (goto) cells khusus (special) yang blank (Blanks)" Cara manual di worksheet-nya begini : 0. ke sheet yang beberapa barisnya akan diproses (misal sheet bernama Data) 1. blok cells A1:A10 2. pakai fitur Goto Special Blanks OK [tekan CTRL G -> klik Special -> pilih Blanks -> tekan OK] > didapatlah cells di A1:A10 yang blank. Kalau sudah bisa dan mencoba cara manualnya, dan berhasil sesuai kebutuhan, barulah disusun otomasinya (pakai VBA) : 0. ke sheet yang beberapa barisnya akan diproses (misal sheet bernama Data) bunyi dalam VBA :sheets("Data") 1. blok cells A1:A10 bunyi dalam VBA :range("a1:a10") 2. pakai fitur Goto Special Blanks OK [tekan CTRL G -> klik Special -> pilih Blanks -> tekan OK] bunyi dalam VBA :specialcells(xlCellTypeBlanks) Sudah dapat parts-nya, maka dikembalikan ke bahasa manusianya : "ke sheet yang diproses (misal sheet bernama Data), blok A1:A10, ke (goto) cells khusus (special) yang blank (Blanks)" sheets("Data").Range("A1:A10).SpecialCells(xlCellTypeBlanks) Dapat deh baris kode untuk memilih range yang blank di A1:A10, yaitu : sheets("Data").Range("A1:A10).SpecialCells(xlCellTypeBlanks) > Biasanya akan ada yang bilang begini : 'itu kan kalo sudah tahu VBA punya SpecialCells dan harus milih xlCellTypeBlanks, kalau belum tahu trus gimana mungkin bisa nyusun begitu' *** No Offense *** hmmm... betul juga ya... maksudnya, betul juga kalau gak pernah memperhatikan tooltips, gak akan merasakan manfaat tooltips, jadinya gak mau berusaha memunculkan tooltips, lalu asal bunyi dalam mencari alasan.. *** No Offense juga *** Begini : kalau di VBA menulis : (jangan lupa karakter titik nya dan tidak ada spasi) Sheets("Data"). toolstip tidak akan muncul. kalau begitu, untuk sementara pinjam dulu nama asli worksheet-nya. Sheets bernama Data, di VBA Object Explorer akan tampak memiliki nama Sheet1 misalnya, maka tulis begini : Berhubung butuh menggunakan cells atau range, maka cari dalam daftar yang bunyinya Cells atau Range (pilih yang cocok). aah.. ada bunyi Cells, maka klik cells, buka kurung. Muncul lagi tooltips-nya, kok gak bisa pakai alamat A1:A10 kalau pakai Cells, berarti gak bisa pakai Cells. Cari yang lainnya saja... lalu cari lainnya, dapatlah pilihan kedua (kalau tidak Cells berarti Range, karena cells dengan range merujuk ke isi worksheet tempat menulis data). Dipilihlah range lalu buka kurung, muncul lagi tooltips-nya, lalu diketik deh A1:A10 sebagai string. Jadinya didapat bunyi : Sheet1.Range("A1:A10") Begitu ketik karakter titik, muncul lagi tooltipsnya Tadi, kerja manualnya, pakai Goto lalu Special, berarti cari Goto atau cari Special nih Mulailah cari Goto dulu... horeee ketemu goto.. dipilihlah goto lalu ketik buka kurung atau spasi yang penting bisa muncul tooltip lagi loh kok Goto gak ada bunyi pilih-pilih Special nya dalam tooltip milik Goto.. waaah... brarti bukan pakai Goto nih.. Akhirnya coba kemungkinan kedua, yaotu Special Mulai cari kata special... waaah... gak ada Special, adanya cuma SpecialCells.. Coba sajalah, siapa tahu Goto Special di fitur Excel itu artinya SpecialCells.. eh kan di bahasa manusianya berbunyi 'ke cells khusus' ya... itukan bahasa sononya berbunyi Cells Special atau Special Cells.. kayaknya milih SpecialCells bener dah nih.. dicobalah SpecialCells lalu spasi atau buka kurung asal keluar tooltips.. dicobalah dulu pakai spasi, lalu muncul deh tuh tooltips waahh... ada bermacam-macam.. butuh yang blank nih, karena cara manualnya trus pilih blank... dicarilah pilihan yang ada bunyi blank.. yaiy... dapet bunyi xlCellTypeBlanks Dapet deh bu