Mohon maaf ada kesalahan sediit, harusnya cekrip berbunyi:Dear mas Husnul
mungkin seperti ini:
Private Sub WARNABIASA()
Dim WARNABIASA
If Label7.ForeColor <> &H80FF& Then Label7.ForeColor = &H80FF&
If Label1.ForeColor <> &HC0C0C0 Then Label1.ForeColor = &HC0C0C0
If Label2.ForeColor <> &HC0C0C0 Then Label2.ForeColor = &HC0C0C0
If Label3.ForeColor <> &HC0C0C0 Then Label3.ForeColor = &HC0C0C0
If Label9.ForeColor <> &H80FF& Then Label9.ForeColor = &H80FF&
If Label15.ForeColor <> &H80FF& Then Label15.ForeColor = &H80FF&
If Label11.ForeColor <> &H80FF& Then Label11.ForeColor = &H80FF&
If Label10.ForeColor <> &H80FF& Then Label10.ForeColor = &H80FF&
If Label12.ForeColor <> &H80FF& Then Label12.ForeColor = &H80FF&
If Label13.ForeColor <> &H80FF& Then Label13.ForeColor = &H80FF&
If Label14.ForeColor <> &H80FF& Then Label14.ForeColor = &H80FF&
If Label17.ForeColor <> &H80FF& Then Label17.ForeColor = &H80FF&
If Label5.ForeColor <> &HFF00FF Then Label5.ForeColor = &HFF00FF
If Label4.ForeColor <> &HFF& Then Label4.ForeColor = &HFF&
End Sub
Pada Selasa, 7 Juli 2015 10:48, "Nang Agus [email protected]
[belajar-excel]" <[email protected]> menulis:
Dear mas Husnul
mungkin seperti ini:
Private Sub WARNABIASA()
Dim WARNABIASA
If Label7.ForeColor <> &H80FF& Then Label7.ForeColor = &H80FF&
If Label1.ForeColor <> &HC0C0C0 Then Label1.ForeColor = &HC0C0C0
If Label2.ForeColor <> &HC0C0C0 Then Label2.ForeColor = &HC0C0C0
If Label3.ForeColor <> &HC0C0C0 Then Label3.ForeColor = &HC0C0C0
If Label9.ForeColor = &H80FF& Then Label9.ForeColor = &H80FF&
If Label15.ForeColor = &H80FF& Then Label15.ForeColor = &H80FF&
If Label11.ForeColor = &H80FF& Then Label11.ForeColor = &H80FF&
If Label10.ForeColor = &H80FF& Then Label10.ForeColor = &H80FF&
If Label12.ForeColor = &H80FF& Then Label12.ForeColor = &H80FF&
If Label13.ForeColor = &H80FF& Then Label13.ForeColor = &H80FF&
If Label14.ForeColor = &H80FF& Then Label14.ForeColor = &H80FF&
If Label17.ForeColor = &H80FF& Then Label17.ForeColor = &H80FF&
If Label5.ForeColor = &HFF00FF Then Label5.ForeColor = &HFF00FF
If Label4.ForeColor = &HFF& Then Label4.ForeColor = &HFF&
End Sub
salam
2015-07-06 6:03 GMT+07:00 HUSNUL FAIZIN [email protected]
[belajar-excel] <[email protected]>:
mohon dicontohkan mr. kid..!
2015-07-06 4:26 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel]
<[email protected]>:
Wa'alaikumussalam wr wb
Hai Husnul,
Coba setiap pengaturan warna diubah menjadi bersusunan :
IF si object warnanya <> nomor warna ini THEN
si object warnanya = nomor warna ini
ENDIF
Nanti jumlah baris kodenya akan menjadi banyak. Untuk menyederhanankannya, bisa
memanfaatkan SELECT CASE berdasar nama objectnya yang dikelompokkan per nomor
warna.
Jika akan lebih simple lagi, bisa memanfaatkan prosedur ber-input variabel.
Cara lainnya adalah dengan membuat class object dengan with events beserta
kelompok object nya. Supaya cukup dengan 3 prosedur events yang isinya
kode-kode yang pendek.
Wassalamu'alaikum wr wb
Kid
2015-07-04 23:49 GMT+07:00 HUSNUL FAIZIN [email protected]
[belajar-excel] <[email protected]>:
Assalamu'alaikum wr wb.
Mohon bantuan master koreksi dan penambahan script macro apa untuk membuat
Tulisan di userform agar tidak kelihatan "Bergetar" pada saat perpindahan mouse
(mungkin karena pengaruh pergerakan mousenya). untuk lebih jelasnya terlampir
userform yang dimaksud. terimakasih.
wassalam.
#yiv2118331717 #yiv2118331717 -- #yiv2118331717ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2118331717
#yiv2118331717ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2118331717
#yiv2118331717ygrp-mkp #yiv2118331717hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv2118331717 #yiv2118331717ygrp-mkp #yiv2118331717ads
{margin-bottom:10px;}#yiv2118331717 #yiv2118331717ygrp-mkp .yiv2118331717ad
{padding:0 0;}#yiv2118331717 #yiv2118331717ygrp-mkp .yiv2118331717ad p
{margin:0;}#yiv2118331717 #yiv2118331717ygrp-mkp .yiv2118331717ad a
{color:#0000ff;text-decoration:none;}#yiv2118331717 #yiv2118331717ygrp-sponsor
#yiv2118331717ygrp-lc {font-family:Arial;}#yiv2118331717
#yiv2118331717ygrp-sponsor #yiv2118331717ygrp-lc #yiv2118331717hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2118331717
#yiv2118331717ygrp-sponsor #yiv2118331717ygrp-lc .yiv2118331717ad
{margin-bottom:10px;padding:0 0;}#yiv2118331717 #yiv2118331717actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2118331717
#yiv2118331717activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2118331717
#yiv2118331717activity span {font-weight:700;}#yiv2118331717
#yiv2118331717activity span:first-child
{text-transform:uppercase;}#yiv2118331717 #yiv2118331717activity span a
{color:#5085b6;text-decoration:none;}#yiv2118331717 #yiv2118331717activity span
span {color:#ff7900;}#yiv2118331717 #yiv2118331717activity span
.yiv2118331717underline {text-decoration:underline;}#yiv2118331717
.yiv2118331717attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv2118331717 .yiv2118331717attach div a
{text-decoration:none;}#yiv2118331717 .yiv2118331717attach img
{border:none;padding-right:5px;}#yiv2118331717 .yiv2118331717attach label
{display:block;margin-bottom:5px;}#yiv2118331717 .yiv2118331717attach label a
{text-decoration:none;}#yiv2118331717 blockquote {margin:0 0 0
4px;}#yiv2118331717 .yiv2118331717bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv2118331717
.yiv2118331717bold a {text-decoration:none;}#yiv2118331717 dd.yiv2118331717last
p a {font-family:Verdana;font-weight:700;}#yiv2118331717 dd.yiv2118331717last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2118331717
dd.yiv2118331717last p span.yiv2118331717yshortcuts
{margin-right:0;}#yiv2118331717 div.yiv2118331717attach-table div div a
{text-decoration:none;}#yiv2118331717 div.yiv2118331717attach-table
{width:400px;}#yiv2118331717 div.yiv2118331717file-title a, #yiv2118331717
div.yiv2118331717file-title a:active, #yiv2118331717
div.yiv2118331717file-title a:hover, #yiv2118331717 div.yiv2118331717file-title
a:visited {text-decoration:none;}#yiv2118331717 div.yiv2118331717photo-title a,
#yiv2118331717 div.yiv2118331717photo-title a:active, #yiv2118331717
div.yiv2118331717photo-title a:hover, #yiv2118331717
div.yiv2118331717photo-title a:visited {text-decoration:none;}#yiv2118331717
div#yiv2118331717ygrp-mlmsg #yiv2118331717ygrp-msg p a
span.yiv2118331717yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2118331717
.yiv2118331717green {color:#628c2a;}#yiv2118331717 .yiv2118331717MsoNormal
{margin:0 0 0 0;}#yiv2118331717 o {font-size:0;}#yiv2118331717
#yiv2118331717photos div {float:left;width:72px;}#yiv2118331717
#yiv2118331717photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv2118331717
#yiv2118331717photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2118331717
#yiv2118331717reco-category {font-size:77%;}#yiv2118331717
#yiv2118331717reco-desc {font-size:77%;}#yiv2118331717 .yiv2118331717replbq
{margin:4px;}#yiv2118331717 #yiv2118331717ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv2118331717 #yiv2118331717ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2118331717
#yiv2118331717ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2118331717
#yiv2118331717ygrp-mlmsg select, #yiv2118331717 input, #yiv2118331717 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv2118331717
#yiv2118331717ygrp-mlmsg pre, #yiv2118331717 code {font:115%
monospace;}#yiv2118331717 #yiv2118331717ygrp-mlmsg *
{line-height:1.22em;}#yiv2118331717 #yiv2118331717ygrp-mlmsg #yiv2118331717logo
{padding-bottom:10px;}#yiv2118331717 #yiv2118331717ygrp-msg p a
{font-family:Verdana;}#yiv2118331717 #yiv2118331717ygrp-msg
p#yiv2118331717attach-count span {color:#1E66AE;font-weight:700;}#yiv2118331717
#yiv2118331717ygrp-reco #yiv2118331717reco-head
{color:#ff7900;font-weight:700;}#yiv2118331717 #yiv2118331717ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv2118331717 #yiv2118331717ygrp-sponsor
#yiv2118331717ov li a {font-size:130%;text-decoration:none;}#yiv2118331717
#yiv2118331717ygrp-sponsor #yiv2118331717ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv2118331717
#yiv2118331717ygrp-sponsor #yiv2118331717ov ul {margin:0;padding:0 0 0
8px;}#yiv2118331717 #yiv2118331717ygrp-text
{font-family:Georgia;}#yiv2118331717 #yiv2118331717ygrp-text p {margin:0 0 1em
0;}#yiv2118331717 #yiv2118331717ygrp-text tt {font-size:120%;}#yiv2118331717
#yiv2118331717ygrp-vital ul li:last-child {border-right:none
!important;}#yiv2118331717
