mohon maaf master Nang Bagus setelah saya tuliskan macro diatas masih
terjadi beberapa masalah:
1. mengalami debug ketika mouse digerakkan keluar are userform (event
mousemove).
2. tidak mengalami perubahan warna jika pake tanda <> pada ForeColor
tapi jika diganti
pake tanda =, maka bisa berganti (tapi masalah lagi jika mousenya
pindah menu,
maka warna tidak dapat kembali ke default (mohon solusi).
3. dan jika bisa mohon contoh penerapan penjelasan solusi (ke2 dan
ke3) yang diberikan
oleh mr. kid
Mohon maaf banyak pertanyaan
Wassalam.
On 7/7/15, Nang Agus [email protected] [belajar-excel]
<[email protected]> wrote:
> 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.
>>>>
>>>>
>>>
>>
>>
>
