+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: hücre içerisindeki belirli değerlerin biçimlendirilmesi (/konu-hucre-icerisindeki-belirli-degerlerin-bicimlendirilmesi.html)
Sayfalar:
1
2
Cvp: hücre içerisindeki belirli değerlerin biçimlendirilmesi - maytas - 07/02/2010
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 SubCvp: hücre içerisindeki belirli değerlerin biçimlendirilmesi - nihatkr - 07/02/2010
Konu kodla çözümlenmiş sanırım. Maytas eline sağlık. Soruyu çözümlenmiş sorulara taşıyabilirsiniz.
Cvp: hücre içerisindeki belirli değerlerin biçimlendirilmesi - ercansahin - 07/02/2010
Sn maytas teşekkürler..