Örneğimiz için form üzerine bir adet komut butonu ekleyelim ve şu kodları yazalım:

Public Class Form1

    Dim xl

    'Excell nesnesi tanımlıyoruz

    Dim range

    'Range nesnemizi tanımlıyoruz

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        If CInt(xl.Range("$A$1").value) > 10 Then

            xl.Range("$A$1").Font.Color = QBColor(2)

        Else

            xl.Range("$A$1").ClearFormats()

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Excel nesnesini oluşturuyoruz

        xl = CreateObject("Excel.Application")

        'Yeni bir çalışma kitabı ekliyoruz

        xl.Workbooks.add()

        'Excel sayfasını görüntülüyoruz

        xl.application.visible = True

        '1 nolu çalışma sayfasını aktif ediyoruz           

        xl.worksheets(1).Activate()

        'A1 hücresine değer yazıyoruz       

        xl.cells.Range("$A$1") = "15"       

    End Sub

End Class

xl.Range("$A$1").Font.Color = QBColor(2) komut satırında QBColor(2) komutunu kullanarak hücrenin yazı rengini yeşil olarak değiştirdik. QBColor komutunun aldığı tüm renk parametreleri şunlardır:

QBCOLOR ()

Projemizin linki:

http://www.volkanaktas.com/PrgDosya/vba/excelkosullubicimlendirme.rar