AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

hücre içerisindeki belirli değerlerin biçimlendirilmesi

1 2
07/02/2010, 00:50

maytas

Merhaba.
Çalışma sayfasındayken Alt+F11 tıklayın, açılan boş VBE sayfasına alttaki kodları yapıştırın ve bunları çalıştırın.

Kod:
Sub Karakter_Ayarla()
    Dim Satir As Integer, Son As Integer, Harf As String, Say As Integer, Uzunluk As Integer
    Son = ThisWorkbook.Sheets("varalon dosya örneği").Range("A65536").End(xlUp).Row
    For Satir = 2 To Son
        Say = 0
        Uzunluk = Len(ThisWorkbook.Sheets("varalon dosya örneği").Range("A" & Satir))
        Do
            Say = Say + 1
            Harf = Mid(ThisWorkbook.Sheets("varalon dosya örneği").Range("A" & Satir), Say, 1)
        Loop Until IsNumeric(Harf) Or Say >= Len(ThisWorkbook.Sheets("varalon dosya örneği").Range("A" & Satir))
        Say = Say
        With Range("A" & Satir).Characters(Start:=Say, Length:=(Uzunluk - Say + 1)).Font
            .Size = .Size + 4
            .Bold = True
            .Color = vbRed
        End With
    Next
End Sub
07/02/2010, 01:35

nihatkr

Konu kodla çözümlenmiş sanırım. Maytas eline sağlık. Soruyu çözümlenmiş sorulara taşıyabilirsiniz.
07/02/2010, 03:12

ercansahin

Sn maytas teşekkürler..
1 2