2 Messages
Digest #4201
Messages
Fri Jun 2, 2017 8:09 pm (PDT) . Posted by:
"Nang Agus"
Dear Ari;
Sebaiknya diubah dahulu formula di kolom A, agar yang nampak dikolom
tersebut hanya baris yang ada datanya saja, sedangkan yang tidak ada
datanya dibuat kosong, misalnya di A27 dibuat
formula: =IF(OR(H27="",H27=0),"",MAX($A$26:A26)+1)
kemudian nilai tertinggi disimpan di A1 (untuk mempermudah saja, kalau
tidak disimpan juga tidak apa apa) dengan formula =MAX(A26:A40)
kemudian buat cekrip di sheet "Print surat" pada obyek Sheet, prosedur
change, dengan trigger, apabila cell L20 atau L22 diubah maka perintah
dijalankan, seperti di bawah ini.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim q As Integer
q = Range("A1")
'mengambil nilai maksimum di A1
If Target.Address = "$L$20" Or Target.Address = "$L$22" Then ' Jika
L20 atau L22 diubah kerjakan langkah di bawahnya.
Rows("25:41").Hidden = False
' jangan disembunyikan baris ke-25 sampai baris 41
Rows(26 + q & ":40").Hidden = True
' Sembunyikan baris ke- 26 + nilai maksimum sampai baris 40
End If
' Akhir Jika
End Sub
untuk pertanyaan kedua coba dibuat berdasarkan cekrip diatas, kalau masih
kesulitan dapat ditanyakan kembali,
Salam
NangAgus
2017-06-01 23:56 GMT-07:00 cheivory_bridge@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Yth. *Be-Exceler*
>
>
> *Assalaamu'alaikum Wr Wb*
>
>
> Mohon bantuannya untuk case terlampir.
>
>
> Terima Kasih
>
>
> *Wassalaamu'alaikum Wr Wb*
>
>
> *Ari*
>
>
>
Sebaiknya diubah dahulu formula di kolom A, agar yang nampak dikolom
tersebut hanya baris yang ada datanya saja, sedangkan yang tidak ada
datanya dibuat kosong, misalnya di A27 dibuat
formula: =IF(OR(H27="",H27=0),"",MAX($A$26:A26)+1)
kemudian nilai tertinggi disimpan di A1 (untuk mempermudah saja, kalau
tidak disimpan juga tidak apa apa) dengan formula =MAX(A26:A40)
kemudian buat cekrip di sheet "Print surat" pada obyek Sheet, prosedur
change, dengan trigger, apabila cell L20 atau L22 diubah maka perintah
dijalankan, seperti di bawah ini.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim q As Integer
q = Range("A1")
'mengambil nilai maksimum di A1
If Target.Address = "$L$20" Or Target.Address = "$L$22" Then ' Jika
L20 atau L22 diubah kerjakan langkah di bawahnya.
Rows("25:41").Hidden = False
' jangan disembunyikan baris ke-25 sampai baris 41
Rows(26 + q & ":40").Hidden = True
' Sembunyikan baris ke- 26 + nilai maksimum sampai baris 40
End If
' Akhir Jika
End Sub
untuk pertanyaan kedua coba dibuat berdasarkan cekrip diatas, kalau masih
kesulitan dapat ditanyakan kembali,
Salam
NangAgus
2017-06-01 23:56 GMT-07:00 cheivory_bridge@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Yth. *Be-Exceler*
>
>
> *Assalaamu&#
>
>
> Mohon bantuannya untuk case terlampir.
>
>
> Terima Kasih
>
>
> *Wassalaamu&#
>
>
> *Ari*
>
>
>
Sat Jun 3, 2017 5:11 am (PDT) . Posted by:
"Eira I Arie" cheivory_bridge
Terima Kasih Pak Nang atas responnya
Mohon maaf, dalam lampiran balasan, misalnya saat diubah L20 dengan dipilih "matakuliah 3" dan L22 tetap (27 Juni 2011 sampai dengan 06 Agustus 2011), maka hasilnya belum sesuai keinginan. Keinginannya dari perubahan tersebut adalah baris daftar nama mahasiswa yang isi berjumlah 7 baris (baris H26:H32 tampak), sedangkan baris H33:H40 terhidden.
Mohon bantuannya
Terima kasih
On Saturday, June 3, 2017 10:09 AM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Dear Ari;
Sebaiknya diubah dahulu formula di kolom A, agar yang nampak dikolom tersebut hanya baris yang ada datanya saja, sedangkan yang tidak ada datanya dibuat kosong, misalnya di A27 dibuat formula: =IF(OR(H27="",H27=0),"",MAX($A$26:A26)+1)
kemudian nilai tertinggi disimpan di A1 (untuk mempermudah saja, kalau tidak disimpan juga tidak apa apa) dengan formula =MAX(A26:A40)
kemudian buat cekrip di sheet "Print surat" pada obyek Sheet, prosedur change, dengan trigger, apabila cell L20 atau L22 diubah maka perintah dijalankan, seperti di bawah ini.
Private Sub Worksheet_Change(ByVal Target As Range)Dim q As Integerq = Range("A1") 'mengambil nilai maksimum di A1If Target.Address = "$L$20" Or Target.Address = "$L$22" Then ' Jika L20 atau L22 diubah kerjakan langkah di bawahnya.Rows("25:41").Hidden = False ' jangan disembunyikan baris ke-25 sampai baris 41Rows(26 + q & ":40").Hidden = True ' Sembunyikan baris ke- 26 + nilai maksimum sampai baris 40End If ' Akhir JikaEnd Sub
untuk pertanyaan kedua coba dibuat berdasarkan cekrip diatas, kalau masih kesulitan dapat ditanyakan kembali,
Salam NangAgus
2017-06-01 23:56 GMT-07:00 cheivory_bridge@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Yth. Be-Exceler
Assalaamu'alaikum Wr Wb
Mohon bantuannya untuk case terlampir.
Terima Kasih
Wassalaamu'alaikum Wr Wb
Ari
#yiv5136938706 #yiv5136938706 -- #yiv5136938706ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5136938706 #yiv5136938706ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5136938706 #yiv5136938706ygrp-mkp #yiv5136938706hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5136938706 #yiv5136938706ygrp-mkp #yiv5136938706ads {margin-bottom:10px;}#yiv5136938706 #yiv5136938706ygrp-mkp .yiv5136938706ad {padding:0 0;}#yiv5136938706 #yiv5136938706ygrp-mkp .yiv5136938706ad p {margin:0;}#yiv5136938706 #yiv5136938706ygrp-mkp .yiv5136938706ad a {color:#0000ff;text-decoration:none;}#yiv5136938706 #yiv5136938706ygrp-sponsor #yiv5136938706ygrp-lc {font-family:Arial;}#yiv5136938706 #yiv5136938706ygrp-sponsor #yiv5136938706ygrp-lc #yiv5136938706hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5136938706 #yiv5136938706ygrp-sponsor #yiv5136938706ygrp-lc .yiv5136938706ad {margin-bottom:10px;padding:0 0;}#yiv5136938706 #yiv5136938706actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5136938706 #yiv5136938706activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5136938706 #yiv5136938706activity span {font-weight:700;}#yiv5136938706 #yiv5136938706activity span:first-child {text-transform:uppercase;}#yiv5136938706 #yiv5136938706activity span a {color:#5085b6;text-decoration:none;}#yiv5136938706 #yiv5136938706activity span span {color:#ff7900;}#yiv5136938706 #yiv5136938706activity span .yiv5136938706underline {text-decoration:underline;}#yiv5136938706 .yiv5136938706attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5136938706 .yiv5136938706attach div a {text-decoration:none;}#yiv5136938706 .yiv5136938706attach img {border:none;padding-right:5px;}#yiv5136938706 .yiv5136938706attach label {display:block;margin-bottom:5px;}#yiv5136938706 .yiv5136938706attach label a {text-decoration:none;}#yiv5136938706 blockquote {margin:0 0 0 4px;}#yiv5136938706 .yiv5136938706bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5136938706 .yiv5136938706bold a {text-decoration:none;}#yiv5136938706 dd.yiv5136938706last p a {font-family:Verdana;font-weight:700;}#yiv5136938706 dd.yiv5136938706last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5136938706 dd.yiv5136938706last p span.yiv5136938706yshortcuts {margin-right:0;}#yiv5136938706 div.yiv5136938706attach-table div div a {text-decoration:none;}#yiv5136938706 div.yiv5136938706attach-table {width:400px;}#yiv5136938706 div.yiv5136938706file-title a, #yiv5136938706 div.yiv5136938706file-title a:active, #yiv5136938706 div.yiv5136938706file-title a:hover, #yiv5136938706 div.yiv5136938706file-title a:visited {text-decoration:none;}#yiv5136938706 div.yiv5136938706photo-title a, #yiv5136938706 div.yiv5136938706photo-title a:active, #yiv5136938706 div.yiv5136938706photo-title a:hover, #yiv5136938706 div.yiv5136938706photo-title a:visited {text-decoration:none;}#yiv5136938706 div#yiv5136938706ygrp-mlmsg #yiv5136938706ygrp-msg p a span.yiv5136938706yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5136938706 .yiv5136938706green {color:#628c2a;}#yiv5136938706 .yiv5136938706MsoNormal {margin:0 0 0 0;}#yiv5136938706 o {font-size:0;}#yiv5136938706 #yiv5136938706photos div {float:left;width:72px;}#yiv5136938706 #yiv5136938706photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv5136938706 #yiv5136938706photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5136938706 #yiv5136938706reco-category {font-size:77%;}#yiv5136938706 #yiv5136938706reco-desc {font-size:77%;}#yiv5136938706 .yiv5136938706replbq {margin:4px;}#yiv5136938706 #yiv5136938706ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5136938706 #yiv5136938706ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5136938706 #yiv5136938706ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5136938706 #yiv5136938706ygrp-mlmsg select, #yiv5136938706 input, #yiv5136938706 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5136938706 #yiv5136938706ygrp-mlmsg pre, #yiv5136938706 code {font:115% monospace;}#yiv5136938706 #yiv5136938706ygrp-mlmsg * {line-height:1.22em;}#yiv5136938706 #yiv5136938706ygrp-mlmsg #yiv5136938706logo {padding-bottom:10px;}#yiv5136938706 #yiv5136938706ygrp-msg p a {font-family:Verdana;}#yiv5136938706 #yiv5136938706ygrp-msg p#yiv5136938706attach-count span {color:#1E66AE;font-weight:700;}#yiv5136938706 #yiv5136938706ygrp-reco #yiv5136938706reco-head {color:#ff7900;font-weight:700;}#yiv5136938706 #yiv5136938706ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5136938706 #yiv5136938706ygrp-sponsor #yiv5136938706ov li a {font-size:130%;text-decoration:none;}#yiv5136938706 #yiv5136938706ygrp-sponsor #yiv5136938706ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5136938706 #yiv5136938706ygrp-sponsor #yiv5136938706ov ul {margin:0;padding:0 0 0 8px;}#yiv5136938706 #yiv5136938706ygrp-text {font-family:Georgia;}#yiv5136938706 #yiv5136938706ygrp-text p {margin:0 0 1em 0;}#yiv5136938706 #yiv5136938706ygrp-text tt {font-size:120%;}#yiv5136938706 #yiv5136938706ygrp-vital ul li:last-child {border-right:none !important;}#yiv5136938706
Mohon maaf, dalam lampiran balasan, misalnya saat diubah L20 dengan dipilih "matakuliah 3" dan L22 tetap (27 Juni 2011 sampai dengan 06 Agustus 2011), maka hasilnya belum sesuai keinginan. Keinginannya dari perubahan tersebut adalah baris daftar nama mahasiswa yang isi berjumlah 7 baris (baris H26:H32 tampak), sedangkan baris H33:H40 terhidden.
Mohon bantuannya
Terima kasih
On Saturday, June 3, 2017 10:09 AM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Dear Ari;
Sebaiknya diubah dahulu formula di kolom A, agar yang nampak dikolom tersebut hanya baris yang ada datanya saja, sedangkan yang tidak ada datanya dibuat kosong, misalnya di A27 dibuat formula: =IF(OR(H27="",H27=0),"",MAX($A$26:A26)+1)
kemudian nilai tertinggi disimpan di A1 (untuk mempermudah saja, kalau tidak disimpan juga tidak apa apa) dengan formula =MAX(A26:A40)
kemudian buat cekrip di sheet "Print surat" pada obyek Sheet, prosedur change, dengan trigger, apabila cell L20 atau L22 diubah maka perintah dijalankan, seperti di bawah ini.
Private Sub Worksheet_Change(ByVal Target As Range)Dim q As Integerq = Range("A1") 'mengambil nilai maksimum di A1If Target.Address = "$L$20" Or Target.Address = "$L$22" Then ' Jika L20 atau L22 diubah kerjakan langkah di bawahnya.Rows("25:41").Hidden = False ' jangan disembunyikan baris ke-25 sampai baris 41Rows(26 + q & ":40").Hidden = True ' Sembunyikan baris ke- 26 + nilai maksimum sampai baris 40End If ' Akhir JikaEnd Sub
untuk pertanyaan kedua coba dibuat berdasarkan cekrip diatas, kalau masih kesulitan dapat ditanyakan kembali,
Salam NangAgus
2017-06-01 23:56 GMT-07:00 cheivory_bridge@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Yth. Be-Exceler
Assalaamu'
Mohon bantuannya untuk case terlampir.
Terima Kasih
Wassalaamu&#
Ari
#yiv5136938706 #yiv5136938706 -- #yiv5136938706ygrp-
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar