iki bold arasını italik yapmak

[tahsinanarat]

Aşağıdaki kodu denermisiniz.

Sub italikyap()
For a = 1 To [a65536].End(3).Row
For b = 1 To Len(Cells(a, "a"))
If Cells(a, "a").Characters(Start:=b, Length:=1).Font.Bold = False And ilk = 0 Then ilk = b
If Cells(a, "a").Characters(Start:=b, Length:=1).Font.Bold = True And ilk > 0 Then son = b
If ilk > 0 And son > 0 Then
Cells(a, "a").Characters(Start:=ilk, Length:=son - ilk).Font.FontStyle = "italik"
Exit For
End If
Next
ilk = 0
son = 0
Next
End Sub

Sayın leventm hocam, iki bold arasını, ilk boşluk ile ilk bold kelime arası olarak da düşünebiliriz, bu mantıkla bir cevabınız mümkün müdür, sizleride bu konuda daha fazla yormak istemezdim ama buna ihtiyacım var. Teşekkür ederim.

 

[tahsinanarat]

Sayın hocalarım cevaplarınızı bekliyorum

İlk iki bold kelime arasını italik yapmak istiyorum, sayın levent hocamın verdiği kodlarda üçüncü bir bold kelime olan satırlarda ikinci bold üle üçüncü bold kelime aralarını italik yapıyor, ilgilenirseniz çok sevinirim.

 

[tahsinanarat]

Cevap verecek kimse yokmu, bu kadar zor olduğunu sanmıyorum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub İKİ_BOLD_ARASINI_İTALİK_YAP()
    For X = 12 To [A65536].End(3).Row
    For Y = 1 To Len(Cells(X, 1))
    If Cells(X, 1).Characters(Start:=Y, Length:=1).Font.Bold = True Then
    If Mid(Cells(X, 1), Y + 1, 1) = " " Then
    İLK = Y + 1
    If İLK > 0 Then GoTo Devam
    End If: End If: Next
Devam:
    For Z = İLK + 1 To Len(Cells(X, 1))
    If Cells(X, 1).Characters(Start:=Z, Length:=1).Font.Bold = True Then
    SON = Z
    If SON > 0 Then GoTo Sonuç
    End If: Next
Sonuç:
    If İLK > 0 And SON > 0 Then
    If SON - &#304;LK <> 1 Then
    Cells(X, 1).Characters(Start:=&#304;LK, Length:=SON - &#304;LK).Font.FontStyle = "&#304;talik"
    End If: End If: Next
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[tahsinanarat]

Sn. COST_CONTROL istediğim bu, nasıl teşekkür etsem azdır, beni büyük bir uğraştan kurtardınız, eline koluna sağlık, allah sizden razı olsun, çok teşekkür ederim. Tahsin ANARAT