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. >>> >>> >> > >
