• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Font'a Göre 56 Koşullu Biçimlendirme

C

CAFERCİFTCİ

Katılım
5 Nisan 2009
Mesajlar
533
Excel Vers. ve Dili
2003-2007
Değerli arkadaşlar,
Font'a göre 56 koşullu biçimlendirme örneği istiyorum.Yardımcı olursanız sevinirim.Selamlar,saygılar...
 
Merhaba!!! sayın CAFERÇİFÇİ
Sayın Yurttaş bey'in excel dersanEsi bölümünde konunuz ile alakalı çalışmaları bulunmaktadır.saygılar!!!
 
Merhaba
Bir zamanlar siteden almıştım. Kimin çalışması olduğunu hatırlamıyorum ama çok güzel bir çalışma. Hazırlayanın eline sağlık.
 

Ekli dosyalar

Merhaba

Sayın M.Gür,
İlginize ve yardımınıza teşekkür ederim.Gerçekten güzel bir çalışma.İleride de yararlanmak üzere kaydettim.Ancak,sorumun cevabını tam olarak alamadım.56 koşullu biçimlendirme konusunda da yine siz yardımcı olmuştunuz.O mesajda intercolor yerine font yazılarak fonta göre de 56 koşullu biçimlendirme yapılacağını yazmıştınız.Ben ona bir örnek istiyorum.İyi akşamlar.
 
Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Kullanılan kod;

Kod: 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Select Case UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
        Case Is = "DENEME 1"
            Target.Font.ColorIndex = 1
        Case Is = "DENEME 2"
            Target.Font.ColorIndex = 2
        Case Is = "DENEME 3"
            Target.Font.ColorIndex = 3
        Case Is = "DENEME 4"
            Target.Font.ColorIndex = 4
        Case Is = "DENEME 5"
            Target.Font.ColorIndex = 5
        Case Is = "DENEME 6"
            Target.Font.ColorIndex = 6
        Case Is = "DENEME 7"
            Target.Font.ColorIndex = 7
        Case Is = "DENEME 8"
            Target.Font.ColorIndex = 8
        Case Is = "DENEME 9"
            Target.Font.ColorIndex = 9
        Case Is = "DENEME 10"
            Target.Font.ColorIndex = 10
        Case Is = "DENEME 11"
            Target.Font.ColorIndex = 11
        Case Is = "DENEME 12"
            Target.Font.ColorIndex = 12
        Case Is = "DENEME 13"
            Target.Font.ColorIndex = 13
        Case Is = "DENEME 14"
            Target.Font.ColorIndex = 14
        Case Is = "DENEME 15"
            Target.Font.ColorIndex = 15
        Case Is = "DENEME 16"
            Target.Font.ColorIndex = 16
        Case Is = "DENEME 17"
            Target.Font.ColorIndex = 17
        Case Is = "DENEME 18"
            Target.Font.ColorIndex = 18
        Case Is = "DENEME 19"
            Target.Font.ColorIndex = 19
        Case Is = "DENEME 20"
            Target.Font.ColorIndex = 20
        Case Is = "DENEME 21"
            Target.Font.ColorIndex = 21
        Case Is = "DENEME 22"
            Target.Font.ColorIndex = 22
        Case Is = "DENEME 23"
            Target.Font.ColorIndex = 23
        Case Is = "DENEME 24"
            Target.Font.ColorIndex = 24
        Case Is = "DENEME 25"
            Target.Font.ColorIndex = 25
        Case Is = "DENEME 26"
            Target.Font.ColorIndex = 26
        Case Is = "DENEME 27"
            Target.Font.ColorIndex = 27
        Case Is = "DENEME 28"
            Target.Font.ColorIndex = 28
        Case Is = "DENEME 29"
            Target.Font.ColorIndex = 29
        Case Is = "DENEME 30"
            Target.Font.ColorIndex = 30
        Case Is = "DENEME 31"
            Target.Font.ColorIndex = 31
        Case Is = "DENEME 32"
            Target.Font.ColorIndex = 32
        Case Is = "DENEME 33"
            Target.Font.ColorIndex = 33
        Case Is = "DENEME 34"
            Target.Font.ColorIndex = 34
        Case Is = "DENEME 35"
            Target.Font.ColorIndex = 35
        Case Is = "DENEME 36"
            Target.Font.ColorIndex = 36
        Case Is = "DENEME 37"
            Target.Font.ColorIndex = 37
        Case Is = "DENEME 38"
            Target.Font.ColorIndex = 38
        Case Is = "DENEME 39"
            Target.Font.ColorIndex = 39
        Case Is = "DENEME 40"
            Target.Font.ColorIndex = 40
        Case Is = "DENEME 41"
            Target.Font.ColorIndex = 41
        Case Is = "DENEME 42"
            Target.Font.ColorIndex = 42
        Case Is = "DENEME 43"
            Target.Font.ColorIndex = 43
        Case Is = "DENEME 44"
            Target.Font.ColorIndex = 44
        Case Is = "DENEME 45"
            Target.Font.ColorIndex = 45
        Case Is = "DENEME 46"
            Target.Font.ColorIndex = 46
        Case Is = "DENEME 47"
            Target.Font.ColorIndex = 47
        Case Is = "DENEME 48"
            Target.Font.ColorIndex = 48
        Case Is = "DENEME 49"
            Target.Font.ColorIndex = 49
        Case Is = "DENEME 50"
            Target.Font.ColorIndex = 50
        Case Is = "DENEME 51"
            Target.Font.ColorIndex = 51
        Case Is = "DENEME 52"
            Target.Font.ColorIndex = 52
        Case Is = "DENEME 53"
            Target.Font.ColorIndex = 53
        Case Is = "DENEME 54"
            Target.Font.ColorIndex = 54
        Case Is = "DENEME 55"
            Target.Font.ColorIndex = 55
        Case Is = "DENEME 56"
            Target.Font.ColorIndex = 56
        Case Else
            Target.Font.ColorIndex = 0
    End Select
End Sub
 

Ekli dosyalar

Günaydın

Sayın Korhan AYHAN Üstadım,
Çok teşekkür ediyorum.İstediğim tam olarak buydu diyebilirim.Yalnız bir de bu şekilde makro ile yazının şeklini (İtalik,Ariat,Times New Roman,Tahoma...v.b) de belirlemek mümkün mü acaba?Saygılarımla...
 
Ayşavkı' Alıntı:
Merhaba!!! sayın CAFERÇİFÇİ
Sayın Yurttaş bey'in excel dersanEsi bölümünde konunuz ile alakalı çalışmaları bulunmaktadır.saygılar!!!
Genişletmek için tıkla ...
Değerli Arkadaşım,
İlginize teşekkür ediyorum.Sağolsun Korhan AYHAN üstadım sorumun cevabını tam olarak vermiş.İyi günler iyi çalışmalar diliyorum...
 
Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Kullanılan kod;

Kod: 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    With Target
        Select Case UCase(Replace(Replace(.Value, "ı", "I"), "i", "İ"))
            Case Is = "DENEME 1"
                With .Font
                    .Name = "Arial"  'Yazı tipi
                    .Size = 12  'Yazı boyutu
                    .Bold = True  'Yazı kalınlığı
                    .Italic = True  'İtalik yazı
                    .Strikethrough = False  'Üstü çizili
                    .Superscript = False  'Üst simge
                    .Subscript = False  'Alt simge
                    .OutlineFont = False
                    .Shadow = False  'Gölgelendirme
                    .Underline = xlUnderlineStyleSingle  'Alt çizgi
                    .ColorIndex = 1  'Hücre yazı rengi kodu
                End With
            Case Is = "DENEME 2"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 2
                End With
            Case Is = "DENEME 3"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 3
                End With
            Case Is = "DENEME 4"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 4
                End With
            Case Is = "DENEME 5"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 5
                End With
            Case Is = "DENEME 6"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 6
                End With
            Case Is = "DENEME 7"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 7
                End With
            Case Is = "DENEME 8"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 8
                End With
            Case Is = "DENEME 9"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 9
                End With
            Case Is = "DENEME 10"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 10
                End With
            Case Is = "DENEME 11"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 11
                End With
            Case Is = "DENEME 12"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 12
                End With
            Case Is = "DENEME 13"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 13
                End With
            Case Is = "DENEME 14"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 14
                End With
            Case Is = "DENEME 15"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 15
                End With
            Case Is = "DENEME 16"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 16
                End With
            Case Is = "DENEME 17"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 17
                End With
            Case Is = "DENEME 18"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 18
                End With
            Case Is = "DENEME 19"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 19
                End With
            Case Is = "DENEME 20"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 20
                End With
            Case Is = "DENEME 21"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 21
                End With
            Case Is = "DENEME 22"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 22
                End With
            Case Is = "DENEME 23"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 23
                End With
            Case Is = "DENEME 24"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 24
                End With
            Case Is = "DENEME 25"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 25
                End With
            Case Is = "DENEME 26"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 26
                End With
            Case Is = "DENEME 27"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 27
                End With
            Case Is = "DENEME 28"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 28
                End With
            Case Is = "DENEME 29"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 29
                End With
            Case Is = "DENEME 30"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 30
                End With
            Case Is = "DENEME 31"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 31
                End With
            Case Is = "DENEME 32"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 32
                End With
            Case Is = "DENEME 33"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 33
                End With
            Case Is = "DENEME 34"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 34
                End With
            Case Is = "DENEME 35"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 35
                End With
            Case Is = "DENEME 36"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 36
                End With
            Case Is = "DENEME 37"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 37
                End With
            Case Is = "DENEME 38"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 38
                End With
            Case Is = "DENEME 39"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 39
                End With
            Case Is = "DENEME 40"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 40
                End With
            Case Is = "DENEME 41"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 41
                End With
            Case Is = "DENEME 42"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 42
                End With
            Case Is = "DENEME 43"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 43
                End With
            Case Is = "DENEME 44"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 44
                End With
            Case Is = "DENEME 45"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 45
                End With
            Case Is = "DENEME 46"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 46
                End With
            Case Is = "DENEME 47"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 47
                End With
            Case Is = "DENEME 48"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 48
                End With
            Case Is = "DENEME 49"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 49
                End With
            Case Is = "DENEME 50"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 50
                End With
            Case Is = "DENEME 51"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 51
                End With
            Case Is = "DENEME 52"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 52
                End With
            Case Is = "DENEME 53"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 53
                End With
            Case Is = "DENEME 54"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 54
                End With
            Case Is = "DENEME 55"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 55
                End With
            Case Is = "DENEME 56"
                With .Font
                    .Name = "Arial"
                    .Size = 12
                    .Bold = True
                    .Italic = True
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleSingle
                    .ColorIndex = 56
                End With
            Case Else
                With .Font
                    .Name = "Calibri"
                    .Size = 10
                    .Bold = False
                    .Italic = False
                    .Strikethrough = False
                    .Superscript = False
                    .Subscript = False
                    .OutlineFont = False
                    .Shadow = False
                    .Underline = xlUnderlineStyleNone
                    .ColorIndex = 0
                End With
        End Select
    End With
End Sub
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst