Dear mang ujank,
berhubung semua formatting (Font Bolding, Kolor Font, Kolor Interior)
ternyata SAMA
maka perintah memformat cukup ditulis sekali.
berhubung (lagi) kriteria untuk 4 huruf pertama pada tiap cell, dari *"TN-A*"
sampai *"TN-Z"*
dapat pula dijaring dengan kriteria : *3 huruf pertama = "TN-"*
maka tidak perlu lagi ada pemilihan BANYAK CASE, cukup SATU logical test
dalam IF saja
Mungkin jadinya seperti ini :
Sub Mark_South()
Dim c As Range
For Each c In Range("D10:D300").Cells
If Left(c.Value, 3) = "TN-" Then
With c
.Interior.Color = RGB(0, 0, 255)
.Font.Color = RGB(255, 255, 255)
.Font.Bold = True
End With
End If
Next c
End Sub
2009/8/29 Sandy Warsito <[email protected]>
>
> Dear Suhu-suhu Excel yang budiman,
>
> Saya telah menulis code seperti di bawah dan sudah bekerja dengan baik,
> namun dengan listing seperti ini sepertinya akan kesulitan jika suatu saat
nanti
> perlu mengedit case-case nya. Please help untuk menyederhanakannya
> sehingga mengedit case akan lebih mudah.
> Makasih.
>
> '====================================
>
> Sub Mark_South()
> For Each c In Range("D10:D300").Cells
> Select Case Left(c.Value, 4)
> Case "TN-A"
> With c
> .Interior.Color = RGB(0, 0, 255)
> .Font.Color = RGB(255, 255, 255)
> .Font.Bold = True
> End With
> Case "TN-B"
> With c
> .Interior.Color = RGB(0, 0, 255)
> .Font.Color = RGB(255, 255, 255)
> .Font.Bold = True
> End With
> Case "TN-D"
> With c
> .Interior.Color = RGB(0, 0, 255)
> .Font.Color = RGB(255, 255, 255)
> .Font.Bold = True
> End With
> Case "TN-E"
> With c
> .Interior.Color = RGB(0, 0, 255)
> .Font.Color = RGB(255, 255, 255)
> .Font.Bold = True
> End With
> Case "TN-F"
> With c
> .Interior.Color = RGB(0, 0, 255)
> .Font.Color = RGB(255, 255, 255)
> .Font.Bold = True
> End With
> Case "TN-G"
> With c
> .Interior.Color = RGB(0, 0, 255)
> .Font.Color = RGB(255, 255, 255)
> .Font.Bold = True
> End With
> Case "TN-H"
> With c
> .Interior.Color = RGB(0, 0, 255)
> .Font.Color = RGB(255, 255, 255)
> .Font.Bold = True
> End With
> Case "TN-J"
> With c
> .Interior.Color = RGB(0, 0, 255)
> .Font.Color = RGB(255, 255, 255)
> .Font.Bold = True
> End With
> Case "TN-R"
> With c
> .Interior.Color = RGB(0, 0, 255)
> .Font.Color = RGB(255, 255, 255)
> .Font.Bold = True
> End With
> Case "TN-S"
> With c
> .Interior.Color = RGB(0, 0, 255)
> .Font.Color = RGB(255, 255, 255)
> .Font.Bold = True
> End With
> Case "TN-T"
> With c
> .Interior.Color = RGB(0, 0, 255)
> .Font.Color = RGB(255, 255, 255)
> .Font.Bold = True
> End With
> Case "TN-T"
> With c
> .Interior.Color = RGB(0, 0, 255)
> .Font.Color = RGB(255, 255, 255)
> .Font.Bold = True
> End With
> Case "TN-X"
> With c
> .Interior.Color = RGB(0, 0, 255)
> .Font.Color = RGB(255, 255, 255)
> .Font.Bold = True
> End With
> End Select
> Next c
> End Sub
> '==================
