Dear Mr Kid,
Terima kasih atas masukannya.
Saya jadi bisa mengembangkan macro dari bu guru STDEV(i) menjadi sbb:
Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
Dim r As Long
Dim lSheet As Long
sh.Tab.ColorIndex = 35
For lSheet = 1 To Sheets.Count
If sh.Name = Sheets(1).Name Then
Kolor = 16711935
For r = 6 To 38
If sh.Range("R" & r) > 0 Then
sh.Tab.Color = Kolor
Exit For
End If
Next r
Else
For r = 5 To 38
If sh.Range("M" & r) > 0 And IsEmpty(sh.Range("P" & r)) Then
sh.Tab.Color = 65535
Exit For
End If
Next r
End If
Next lSheet
End Sub
Regards
Herry Sutjipto
From: Mr. Kid <mr.nm...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, April 22, 2011 5:47 AM
Subject: Re: Fw: [belajar-excel] Memberi warna sheet-name
Wassalam.
Kid.
2011/4/22 Herry Sutjipto <herry...@yahoo.com>
>Dear mBak STDEV(i),
>
>Ternyata prtediksi mBak STDEV(i) tidak meleset.
>Saya perlu di sheet pertama kriterianya berbeda, yaitu di range R6:R38 "Jika
>dalam range tersebut nilainya ada yang > 0, maka background sheetmane nya
>diberi warna PINK"
>Saya coba kumpulan statement spt di bawah saya letak kan di sheet tsb,
>ternyata terpengaruh oleh kumpulan stament yang berada di sheet ThisWorkBook.
>
>Private Sub Worksheet_Deactivate()
> Dim Kolor, r As Long
> Kolor = 16711935
> Me.Tab.Color = xlAutomatic
> For r = 6 To 38
> If Range("R" & r) > 0 Then
> Me.Tab.Color = Kolor
>
> Exit For
> End If
> Next
>End Sub
>
>Mohon petunjuknya mBak STDEV(i) (bu guru).
>
>Regards
>Herry Sutji[to
>
>
>
>
>From: STDEV(i) <setiyowati.d...@gmail.com>
>
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, April 19, 2011 3:54 PM
>Subject: Re: Fw: [belajar-excel] Memberi warna sheet-name
>
>
>
>lho belum dengar to ??
>sebagai suster ngesot di rs kecil di bluewater...
>
>
>sambil "nyuntikin orang lewat" kan bisa mainan milis...
>nanti kalo bagian IT nya marah-marah, tinggal 'dijak tawuran' saja..
>
>
>lagi pula "suster" itu liburnya tiap pekan = 3½ hari... enak lho..
>
>
>maaf sudah OOT / brenti sampai di sini..
>
>
>
>
>
>On Tue, Apr 19, 2011 at 3:45 PM, Herry Sutjipto <herry...@yahoo.com> wrote:
>
>Dear mBak STDEV(i),
>>Mbak kerja dimana sih ???? dan kok sempat2nya melayani publik?
>>Terima kaaaaaasssssiiiiiiiihhhhhhh.
>>Regards
>>Herry Sutji[to
>>
>>From: STDEV(i) <setiyowati.d...@gmail.com>
>>Sent: Tuesday, April 19, 2011 3:27 PM
>>
>>Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
>> Dim r As Long
>> Sh.Tab.Color = xlAutomatic
>> For r = 5 To 38
>> If Sh.Range("O" & r) > 0 And IsEmpty(Sh.Range("P" & r)) Then
>> Sh.Tab.Color = 65535
>> Exit For
>> End If
>> Next
>>End Sub
>>
>>dua prosedur yg pernah dibuat di tiap module sheet 2 dan sheet 3
>>dihapus saja...
>>
>>
>>
>
>
Bisa dengan memberi cek nama sheet pada event di workbook-nya untuk melewatkan
proses pewarnaan.
Private Sub Worksheet_Deactivate(byval sh as object)
Dim Kolor, r As Long
if sh.name<>sheets(1).name then
Kolor = 16711935
Me.Tab.Color = xlAutomatic
For r = 6 To 38
If Range("R" & r) > 0 Then
Me.Tab.Color = Kolor
Exit For
End If
Next
endif
End Sub
