Mr. Kid mah emang T.O.P dah.. hehemakasih banyak atas transfer ilmu nya selama
ini Mr. ;)
Pada Jum, 2 Mar 2018 pada 20:43, 'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]<belajar-excel@yahoogroups.com> menulis:
wkwkwk...
woles sajah...
kalo gak maklum, dah minta pensiun jadi moderator sejak dulu..
hahaha...
2018-03-02 20:32 GMT+07:00 Rian Sutarsa riansuta...@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
ehehe.. mohon di maklum Mr. masih dalam tahapan belajar.
Pada Jum, 2 Mar 2018 pada 19:38, 'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]<belajar-excel@yahoogroups.com > menulis:
walah
...hidden=true 'status hide adalah YA
kalau untuk membuat status hide jadi tidak, berarti kan jadi false toh ya...
Contoh baris kode untuk hide baris 1 Excel di sheet bernama Data :
Sheets("Data").range("a1"). entirerow.hidden=true 'pada sheet
bernama Data, di range A1, seluruh barisnya, status hidden menjadi true
duh gusti.....
paringono sabar...
2018-03-01 12:28 GMT+07:00 Rian Sutarsa riansuta...@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com >:
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 bunyi baris :
Sheet1.Range("A1:A10"). SpecialCells xlCellTypeBlanks
Tapi kok setelah pilih blank, kalau dikasih titik gak keluar tooltips, padahal
kan yang blank tadi mau diproses yang lain..
Kayaknya waktu milih SpecialCells bukan diikuti spasi deh, tapi pakai kurung
deh..
Dicoba ulanglah...
yess..... isi tooltips nya sama seperti kalau pakai spasi..
pilih blank, trus dapat baris kode
Sheet1.Range("A1:A10"). SpecialCells(xlCellTypeBlanks)
trus dicoba setelah tutup kurung diberi karakter titik....
wauw.... keluar tooltips lagi.. horee... akhirnya bisa deh memanfaatkan
tooltips.
wiii... isinya kaya tooltips nya range.....
wah.. kesempatan nih..
mau blok semua barisnya ahhh
dipilihlah EntireRow
dst
sampai selesai baris itu, lalu bisa mulai mengembalikan sheet1 menjadi
Sheets("Data") jika pengennya pakai Sheets("Data")
padahal pakai Sheet1 (nama asli [sesuai akta kelahiran si worksheet] di VBA
Object Explorer.
dan begitulah seterusnya setiap kali menyusun otomasi...
Regards,
Kid
On Thu, Mar 1, 2018 at 7:12 AM, Rian Sutarsa riansuta...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com > wrote:
saya blok A1 s..d A10 lalu tekan Ctr + klik Cell A2, A4:A7, A9 satu persatu.
begitukah?
Pada Kam, 1 Mar 2018 pada 6:46, 'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]<belajar-excel@yahoogroups.com > menulis:
Langkah-langkahnya bagaimana ?
On Thu, Mar 1, 2018 at 6:29 AM, Rian Sutarsa riansuta...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com > wrote:
ini pe er nya Mr. Kid, mohon koreksi bimbingannya
Pada Kamis, 01 Maret 2018 06:12:48 WIB, 'Mr. Kid'
mr.nm...@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com > menulis:
Coba buat sheet baru, lalu tulis data sebagai berikut di sheet1 :
A1 : isi dengan bunyi 'Header'
A3 : isi dengan bunyi 'Data 1'
A8 : isi dengan bilangan 123
A10 : isi dengan mengetikkan bunyi #N/A tekan Enter
Kemudian, blok cells A1 sampai A10.
pe er :
Dalam keadaan A1 sampai A10 terblok, bagaimana caranya memblok cells yang blank
? (cells A2,A4:A7,A9)
Langkah-langkahnya dikirim ke milis ya.....
Saya tunggu deh..
Regards,
Kid
On Wed, Feb 28, 2018 at 9:37 PM, Rian Sutarsa riansuta...@yahoo..com
[belajar-excel] <belajar-excel@yahoogroups.com > wrote:
emmm.. jadi begini Mr. saya mau hide cell a5 s.d a10 ketika kosong tanpa ada
data, dan unhide ketika terisi data. mohon solusinya Mr.
Pada Rab, 28 Feb 2018 pada 20:30, 'Mr. Kid' mr.nm...@gmail....com
[belajar-excel]<belajar-excel@yahoogroups.com > menulis:
Buat prosedur, lalu isi dengan baris kode yang dibutuhkan..
Contoh baris kode untuk hide baris 1 Excel di sheet bernama Data :
Sheets("Data")..range("a1"). entirerow..hidden=true 'pada sheet
bernama Data, di range A1, seluruh barisnya, status hidden menjadi true
Contoh baris kode untuk print area range C7 sampai Z19 di sheet bernama Data :
Sheets("Data").range("c7:z19") .printout 'pada sheet bernama Data,
di range C7:Z19, lakukan print
Begitu ?
On Wed, Feb 28, 2018 at 8:21 PM, Rian Sutarsa riansuta...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com > wrote:
bisa lebih dijelasin Mr. Kid? saya masih dalam tahapan belajar soal VBA
Pada Rab, 28 Feb 2018 pada 18:14, 'Mr. Kid' mr.nm...@gmail..com
[belajar-excel]<belajar-excel@yahoogroups.. com > menulis:
Wa'alaikumussalam wr wb
Hide :Sheets("nama sheet").range("a1").entirerow. . .. hidden=true
Print :Sheets("nama sheet").range("area range")..printout
Wassalamu'alaikum wr wbKid
Sent from my smart enough phone
On Feb 28, 2018, at 17:50, Rian Sutarsa riansuta...@yahoo.com [belajar-excel]
<belajar-ex...@yahoogroups..com > wrote:
Assalamu'alaikum para Master BeExcel, mohon bantuannya dan bimbingannya
mengenai Macro VBA Hide/Unhide cell otomatis plus button print nya... hehe...
terimakasih banyak sebelumnya..
Wassalam
#yiv9657681728 #yiv9657681728 -- #yiv9657681728ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9657681728
#yiv9657681728ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9657681728
#yiv9657681728ygrp-mkp #yiv9657681728hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv9657681728 #yiv9657681728ygrp-mkp #yiv9657681728ads
{margin-bottom:10px;}#yiv9657681728 #yiv9657681728ygrp-mkp .yiv9657681728ad
{padding:0 0;}#yiv9657681728 #yiv9657681728ygrp-mkp .yiv9657681728ad p
{margin:0;}#yiv9657681728 #yiv9657681728ygrp-mkp .yiv9657681728ad a
{color:#0000ff;text-decoration:none;}#yiv9657681728 #yiv9657681728ygrp-sponsor
#yiv9657681728ygrp-lc {font-family:Arial;}#yiv9657681728
#yiv9657681728ygrp-sponsor #yiv9657681728ygrp-lc #yiv9657681728hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9657681728
#yiv9657681728ygrp-sponsor #yiv9657681728ygrp-lc .yiv9657681728ad
{margin-bottom:10px;padding:0 0;}#yiv9657681728 #yiv9657681728actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9657681728
#yiv9657681728activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9657681728
#yiv9657681728activity span {font-weight:700;}#yiv9657681728
#yiv9657681728activity span:first-child
{text-transform:uppercase;}#yiv9657681728 #yiv9657681728activity span a
{color:#5085b6;text-decoration:none;}#yiv9657681728 #yiv9657681728activity span
span {color:#ff7900;}#yiv9657681728 #yiv9657681728activity span
.yiv9657681728underline {text-decoration:underline;}#yiv9657681728
.yiv9657681728attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv9657681728 .yiv9657681728attach div a
{text-decoration:none;}#yiv9657681728 .yiv9657681728attach img
{border:none;padding-right:5px;}#yiv9657681728 .yiv9657681728attach label
{display:block;margin-bottom:5px;}#yiv9657681728 .yiv9657681728attach label a
{text-decoration:none;}#yiv9657681728 blockquote {margin:0 0 0
4px;}#yiv9657681728 .yiv9657681728bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv9657681728
.yiv9657681728bold a {text-decoration:none;}#yiv9657681728 dd.yiv9657681728last
p a {font-family:Verdana;font-weight:700;}#yiv9657681728 dd.yiv9657681728last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9657681728
dd.yiv9657681728last p span.yiv9657681728yshortcuts
{margin-right:0;}#yiv9657681728 div.yiv9657681728attach-table div div a
{text-decoration:none;}#yiv9657681728 div.yiv9657681728attach-table
{width:400px;}#yiv9657681728 div.yiv9657681728file-title a, #yiv9657681728
div.yiv9657681728file-title a:active, #yiv9657681728
div.yiv9657681728file-title a:hover, #yiv9657681728 div.yiv9657681728file-title
a:visited {text-decoration:none;}#yiv9657681728 div.yiv9657681728photo-title a,
#yiv9657681728 div.yiv9657681728photo-title a:active, #yiv9657681728
div.yiv9657681728photo-title a:hover, #yiv9657681728
div.yiv9657681728photo-title a:visited {text-decoration:none;}#yiv9657681728
div#yiv9657681728ygrp-mlmsg #yiv9657681728ygrp-msg p a
span.yiv9657681728yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9657681728
.yiv9657681728green {color:#628c2a;}#yiv9657681728 .yiv9657681728MsoNormal
{margin:0 0 0 0;}#yiv9657681728 o {font-size:0;}#yiv9657681728
#yiv9657681728photos div {float:left;width:72px;}#yiv9657681728
#yiv9657681728photos div div {border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}#yiv9657681728
#yiv9657681728photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9657681728
#yiv9657681728reco-category {font-size:77%;}#yiv9657681728
#yiv9657681728reco-desc {font-size:77%;}#yiv9657681728 .yiv9657681728replbq
{margin:4px;}#yiv9657681728 #yiv9657681728ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv9657681728 #yiv9657681728ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9657681728
#yiv9657681728ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9657681728
#yiv9657681728ygrp-mlmsg select, #yiv9657681728 input, #yiv9657681728 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv9657681728
#yiv9657681728ygrp-mlmsg pre, #yiv9657681728 code {font:115%
monospace;}#yiv9657681728 #yiv9657681728ygrp-mlmsg *
{line-height:1.22em;}#yiv9657681728 #yiv9657681728ygrp-mlmsg #yiv9657681728logo
{padding-bottom:10px;}#yiv9657681728 #yiv9657681728ygrp-msg p a
{font-family:Verdana;}#yiv9657681728 #yiv9657681728ygrp-msg
p#yiv9657681728attach-count span {color:#1E66AE;font-weight:700;}#yiv9657681728
#yiv9657681728ygrp-reco #yiv9657681728reco-head
{color:#ff7900;font-weight:700;}#yiv9657681728 #yiv9657681728ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv9657681728 #yiv9657681728ygrp-sponsor
#yiv9657681728ov li a {font-size:130%;text-decoration:none;}#yiv9657681728
#yiv9657681728ygrp-sponsor #yiv9657681728ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv9657681728
#yiv9657681728ygrp-sponsor #yiv9657681728ov ul {margin:0;padding:0 0 0
8px;}#yiv9657681728 #yiv9657681728ygrp-text
{font-family:Georgia;}#yiv9657681728 #yiv9657681728ygrp-text p {margin:0 0 1em
0;}#yiv9657681728 #yiv9657681728ygrp-text tt {font-size:120%;}#yiv9657681728
#yiv9657681728ygrp-vital ul li:last-child {border-right:none
!important;}#yiv9657681728
