RSS

EXCEL'de Belli Bir Koşula Göre Metin Rengini Değiştirme

31 Aug

Eğer elinizde epey birikmiş deney verisi varsa, bunlar bir EXCEL belgesindeki çeşitli sayfalara dağılmışsa ve bunları cinsiyete göre renk kodlarına ayırmanız, mesela kadın deneklerin rengini kırmızı yapmanız gerekiyorsa ne yaparsınız?

Çok hazzetmeseniz bile Alt-F11 ile VBA (Visual Basic for Applications) editörünüz ateşler ve kısa bir kod yazarsınız, ardından da Alt-F8 ile macro penceresini açıp ilgili prosedürü seçip çalıştırır ve tembelliğin keyfini çıkarırsınız:


Public Sub PutGenderColorCode()
    For nSheet = 7 To 13
        For nRow = 1 To Worksheets(nSheet).Rows.Count
        GenderCode = Worksheets(nSheet).Cells(nRow, 1)
        If isFemale(GenderCode) Then
            Worksheets(nSheet).Cells(nRow, 1).Font.Color = RGB(255, 0, 0)
        End If
        Next nRow
    Next nSheet
End Sub

Public Function isFemale(GenderCode)
    Dim FemaleSubjects(1 To 21)

    FemaleSubjects(1) = "M3"
    FemaleSubjects(2) = "M5"
    FemaleSubjects(3) = "M8"
    FemaleSubjects(4) = "M10"
    FemaleSubjects(5) = "M12"
    FemaleSubjects(6) = "M15"
    FemaleSubjects(7) = "M16"
    FemaleSubjects(8) = "M17"

    FemaleSubjects(9) = "NM1"
    FemaleSubjects(10) = "NM2"
    FemaleSubjects(11) = "NM3"
    FemaleSubjects(12) = "NM4"
    FemaleSubjects(13) = "NM5"
    FemaleSubjects(14) = "NM6"
    FemaleSubjects(15) = "NM7"
    FemaleSubjects(16) = "NM8"
    FemaleSubjects(17) = "NM12"
    FemaleSubjects(18) = "NM13"
    FemaleSubjects(19) = "NM14"
    FemaleSubjects(20) = "NM15"

    For Index = 1 To 21
        If StrComp(GenderCode, FemaleSubjects(Index)) = 0 Then
            isFemale = True
        End If
    Next Index
End Function

Advertisements
 
Leave a comment

Posted by on August 31, 2007 in EXCEL, General, Programlama, VBA

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

 
%d bloggers like this: