Terimakasih master Nang Bagus dan Mr. Kid sudah solved dengan rumus dari master Nang Bagus. Jazakumullahu khairon katsiro' Wassalam.
On 7/8/15, Nang Agus [email protected] [belajar-excel] <[email protected]> wrote: > 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 > >
