Dear Mas Sandy,
Saya coba bantu :
'======================================================
Sub Mark_South()
For Each c In Range("D10:D300").Cells
Select Case Left(c.Value, 4)
Case "TN-A", "TN-B", "TN-D", "TN-E", "TN-F", "TN-G", "TN-H", "TN-J",
"TN-R", "TN-S", "TN-T", "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
'======================================================
Kalau stringnya selalu diawali dengan string "TN-" maka bisa
disederhanakan lagi menjadi:
'======================================================
Sub Mark_South()
For Each c In Range("D10:D300").Cells
Select Case Mid(c.Value, 4,1)
Case "A", "B", "D", "E", "F", "G", "H", "J", "R", "S", "T", "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
'======================================================
Salam Sukses,
Marly Lumenta
________________________________
From: [email protected] [mailto:[email protected]] On
Behalf Of Sandy Warsito
Sent: Saturday, August 29, 2009 8:07 AM
To: [email protected]
Subject: ]] XL-mania [[ sederhanakan select case
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
'======================================================
