Assalamualaikum wr.wb
Mohon Maaf Mr. Kid ternyata setelah saya utak atik ud bisa bekerja sesuai
dengan yang saya inginkan....ter print sesuai data (ceklist) yang saya
inginkan, tanpa ikut lembaran yang lain...terima kasih banyak ilmunya...
Wassalamualaikum Wr.Wb
On Monday, October 16, 2017 10:19 AM, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai PaoPao,
Dari script buatan mas Nang, diketahui : (alangkah lebih baik bila disesuaikan
ulang dengann kondisi setempat)
1. checkbox1 untuk area baris 1 sampai 52. checkbox2 untuk area baris 6 sampai
10
3. checkbox3 untuk area baris 11 sampai 17
Langkah manual :Setiap kali user akan melakukan print, si user akan berurutan
melakukan hal berikut :1. Melakukan sesuatu terhadap area baris 1:5
(seakan-akan user mencentang checkbox1)
> area baris 1:5 di-unhide jika akan di-print, di-hide jika tidak di-print
2. Melakukan sesuatu terhadap area baris 6:10 (seakan-akan user mencentang
checkbox2)
> area baris 6:10 di-unhide jika akan di-print, di-hide jika tidak
di-print3. Melakukan sesuatu terhadap area baris 11:17 (seakan-akan user
mencentang checkbox3) > area baris 11:17 di-unhide jika akan di-print,
di-hide jika tidak di-print4. ke menu File -> Print -> print preview atau print
out sheet tersebut5. selesai print preview atau print out, unhide semua baris
lagi
Berhubung si pakai userform, berarti :> sebelum langkah 4 (misal langkah 3.9)
diisi dengan proses hide userform
> sesudah langkah 5 (misal langkah 5.1) diisi dengan proses show userform
Nah.... kalau MAU menuliskan langkah manual seperti di atas itu ke dalam suatu
lembar kertas, akan jadi lebih mudah menyusun script-nyagak bakal puyeng.
Dalam prosedur event click si tombol di userform :
'1. Melakukan sesuatu terhadap area baris 1:5 (seakan-akan user mencentang
checkbox1)
' > area baris 1:5 di-unhide jika akan di-print, di-hide jika tidak di-print
if checkbox1.value then rows("1:5").hidden=false else
rows("1:5").hidden=true endif
'2. Melakukan sesuatu terhadap area baris 6:10 (seakan-akan user mencentang
checkbox2)
' > area baris 6:10 di-unhide jika akan di-print, di-hide jika tidak
di-print if checkbox2.value then rows("6:10").hidden=false else
rows("6:10").hidden=true endif
'3. Melakukan sesuatu terhadap area baris 11:17 (seakan-akan user mencentang
checkbox3)' > area baris 11:17 di-unhide jika akan di-print, di-hide jika
tidak di-print if checkbox3.value then rows("11:17").hidden=false
else rows("11:17").hidden=true endif
'3.9. hide userform me.hide
'4. ke menu File -> Print -> print preview atau print out sheet tersebut
sheets("nama sheetnya").printpreview 'atau printout sesuai kebutuhan
'5. selesai print preview atau print out, unhide semua baris lagi
rows("1:17").hidden=false
'5.1. show userform me.show
Nah kan jadi terarah to...ealah, mbok yao dibikin simpel sajah, ndak perlu
membayang-mbayangkan seperti programmer hebat...cukup tulis semua langkah
manualnya, lalu buat script seperti urutan kerja manualnya.biasanya akan lebih
pas dibanding pakai mbayang-mbayangin laksana programmer.
Nanti, kalau sudah lancar, baru deh belajar lagi untuk menyederhanakannya,
seperti :
with sheets("nama sheetsnya") .rows("1:5").hidden=not checkbox1.value
.rows("6:10").hidden=not checkbox2.value .rows("11:17").hidden=not
checkbox3.value
me.hide .printpreview 'atau printout sesuai kebutuhan
.rows("1:17").hidden=false me.show
end with
jadi jelas tahapan belajarnya bukan ?
belajar capek nulis langkah manual -> belajar terjemahkan langkah manual ke
script -> belajar menyederhanakan script
Alhamdulillah, Allah Yang Maha Mendidik, telah mendidik kita bahwa penciptaan
alam semesta pun dilakukan bertahap, walaupun sebenarnya bisa mak cling jadi.
So, mari kita belajar bersama penuh semangat, secara bertahap, satu pijak ke
pijak berikutnya
Regards,Kid
On Mon, Oct 16, 2017 at 8:41 AM, paopao daeng daeng_pao...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com > wrote:
pak agus tetap gak bisa tercetak meskipun saya udah hidden rangenya...kalo
saya centang beberapa ceklist no. 1 dan no. 2, tidak bisa terprint menjadi satu
lembar, padahal saya mau tercetak stau lembar kertas kalo saya ceklist no. yang
saya inginkan....
On Thursday, October 12, 2017 4:40 PM, "nangagus nanga...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
Waalaikumsalam warahmatullah, Dear Pao-pao, Bagaimana jika perintahnya
diubah? pada waktu sebelum diprint, baris yang tidak akan diprint disembunyikan
dahulu, kemudian setelah diprint baris tersebut dimunculkan lagi. Mungkin
begini perintahnya: Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Me.Hide
Rows("6:16").Hidden = True
Sheet1.PrintOut
Rows("1:17").Hidden = False
End If
If CheckBox2.Value = True Then
Me.Hide
Rows("11:16").Hidden = True
Sheet1.PrintOut
Rows("1:17").Hidden = False
End If
If CheckBox3.Value = True Then
Me.Hide
Sheet1.PrintOut
End If
End Sub
Wasalamualaikum warahmatullahi wabarakatuh. NangAgus
On 11/10/2017 12:24, paopao daeng daeng_pao...@yahoo.com [belajar-excel]
wrote:
assalamualaikum.wr.wb dear para suhu "be excel"
Mohon Bantuannya... rumus untuk perintah macro untuk print otomatis beberapa
range yang ada dalam satu sheet. saya udah puyeng utak atik rumusnya g pernah
jadi2... jadi streess saya... maklum baru belajar dari group ini jg... file
terlampir terima kasih
#yiv7003535900 #yiv7003535900 -- #yiv7003535900ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7003535900
#yiv7003535900ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7003535900
#yiv7003535900ygrp-mkp #yiv7003535900hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv7003535900 #yiv7003535900ygrp-mkp #yiv7003535900ads
{margin-bottom:10px;}#yiv7003535900 #yiv7003535900ygrp-mkp .yiv7003535900ad
{padding:0 0;}#yiv7003535900 #yiv7003535900ygrp-mkp .yiv7003535900ad p
{margin:0;}#yiv7003535900 #yiv7003535900ygrp-mkp .yiv7003535900ad a
{color:#0000ff;text-decoration:none;}#yiv7003535900 #yiv7003535900ygrp-sponsor
#yiv7003535900ygrp-lc {font-family:Arial;}#yiv7003535900
#yiv7003535900ygrp-sponsor #yiv7003535900ygrp-lc #yiv7003535900hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7003535900
#yiv7003535900ygrp-sponsor #yiv7003535900ygrp-lc .yiv7003535900ad
{margin-bottom:10px;padding:0 0;}#yiv7003535900 #yiv7003535900actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7003535900
#yiv7003535900activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7003535900
#yiv7003535900activity span {font-weight:700;}#yiv7003535900
#yiv7003535900activity span:first-child
{text-transform:uppercase;}#yiv7003535900 #yiv7003535900activity span a
{color:#5085b6;text-decoration:none;}#yiv7003535900 #yiv7003535900activity span
span {color:#ff7900;}#yiv7003535900 #yiv7003535900activity span
.yiv7003535900underline {text-decoration:underline;}#yiv7003535900
.yiv7003535900attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv7003535900 .yiv7003535900attach div a
{text-decoration:none;}#yiv7003535900 .yiv7003535900attach img
{border:none;padding-right:5px;}#yiv7003535900 .yiv7003535900attach label
{display:block;margin-bottom:5px;}#yiv7003535900 .yiv7003535900attach label a
{text-decoration:none;}#yiv7003535900 blockquote {margin:0 0 0
4px;}#yiv7003535900 .yiv7003535900bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv7003535900
.yiv7003535900bold a {text-decoration:none;}#yiv7003535900 dd.yiv7003535900last
p a {font-family:Verdana;font-weight:700;}#yiv7003535900 dd.yiv7003535900last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7003535900
dd.yiv7003535900last p span.yiv7003535900yshortcuts
{margin-right:0;}#yiv7003535900 div.yiv7003535900attach-table div div a
{text-decoration:none;}#yiv7003535900 div.yiv7003535900attach-table
{width:400px;}#yiv7003535900 div.yiv7003535900file-title a, #yiv7003535900
div.yiv7003535900file-title a:active, #yiv7003535900
div.yiv7003535900file-title a:hover, #yiv7003535900 div.yiv7003535900file-title
a:visited {text-decoration:none;}#yiv7003535900 div.yiv7003535900photo-title a,
#yiv7003535900 div.yiv7003535900photo-title a:active, #yiv7003535900
div.yiv7003535900photo-title a:hover, #yiv7003535900
div.yiv7003535900photo-title a:visited {text-decoration:none;}#yiv7003535900
div#yiv7003535900ygrp-mlmsg #yiv7003535900ygrp-msg p a
span.yiv7003535900yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7003535900
.yiv7003535900green {color:#628c2a;}#yiv7003535900 .yiv7003535900MsoNormal
{margin:0 0 0 0;}#yiv7003535900 o {font-size:0;}#yiv7003535900
#yiv7003535900photos div {float:left;width:72px;}#yiv7003535900
#yiv7003535900photos div div {border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}#yiv7003535900
#yiv7003535900photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7003535900
#yiv7003535900reco-category {font-size:77%;}#yiv7003535900
#yiv7003535900reco-desc {font-size:77%;}#yiv7003535900 .yiv7003535900replbq
{margin:4px;}#yiv7003535900 #yiv7003535900ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv7003535900 #yiv7003535900ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7003535900
#yiv7003535900ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7003535900
#yiv7003535900ygrp-mlmsg select, #yiv7003535900 input, #yiv7003535900 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv7003535900
#yiv7003535900ygrp-mlmsg pre, #yiv7003535900 code {font:115%
monospace;}#yiv7003535900 #yiv7003535900ygrp-mlmsg *
{line-height:1.22em;}#yiv7003535900 #yiv7003535900ygrp-mlmsg #yiv7003535900logo
{padding-bottom:10px;}#yiv7003535900 #yiv7003535900ygrp-msg p a
{font-family:Verdana;}#yiv7003535900 #yiv7003535900ygrp-msg
p#yiv7003535900attach-count span {color:#1E66AE;font-weight:700;}#yiv7003535900
#yiv7003535900ygrp-reco #yiv7003535900reco-head
{color:#ff7900;font-weight:700;}#yiv7003535900 #yiv7003535900ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv7003535900 #yiv7003535900ygrp-sponsor
#yiv7003535900ov li a {font-size:130%;text-decoration:none;}#yiv7003535900
#yiv7003535900ygrp-sponsor #yiv7003535900ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv7003535900
#yiv7003535900ygrp-sponsor #yiv7003535900ov ul {margin:0;padding:0 0 0
8px;}#yiv7003535900 #yiv7003535900ygrp-text
{font-family:Georgia;}#yiv7003535900 #yiv7003535900ygrp-text p {margin:0 0 1em
0;}#yiv7003535900 #yiv7003535900ygrp-text tt {font-size:120%;}#yiv7003535900
#yiv7003535900ygrp-vital ul li:last-child {border-right:none
!important;}#yiv7003535900
