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
'======================================================
