Skip to main content

AccessTr.neT


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

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

Çözüldü #7
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

Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla
Çözüldü #8
Konu kodla çözümlenmiş sanırım. Maytas eline sağlık. Soruyu çözümlenmiş sorulara taşıyabilirsiniz.
FX-Etopla
Liste Kutusu Oluşturma
Cevapla
Çözüldü #9
Sn maytas teşekkürler..
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task