iki bold arasını italik yapmak

tahsinanarat

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,164
Excel Vers. ve Dili
Ofis 2019 Türkçe
Altın Üyelik Bitiş Tarihi
27-05-2028
Aşağıdaki kodu denermisiniz.

Kod:
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

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,164
Excel Vers. ve Dili
Ofis 2019 Türkçe
Altın Üyelik Bitiş Tarihi
27-05-2028
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

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,164
Excel Vers. ve Dili
Ofis 2019 Türkçe
Altın Üyelik Bitiş Tarihi
27-05-2028
Cevap verecek kimse yokmu, bu kadar zor olduğunu sanmıyorum
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod:
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

Altın Üye
Katılım
14 Mart 2005
Mesajlar
2,164
Excel Vers. ve Dili
Ofis 2019 Türkçe
Altın Üyelik Bitiş Tarihi
27-05-2028
Sn. COST_CONTROL istedi&#287;im bu, nas&#305;l te&#351;ekk&#252;r etsem azd&#305;r, beni b&#252;y&#252;k bir u&#287;ra&#351;tan kurtard&#305;n&#305;z, eline koluna sa&#287;l&#305;k, allah sizden raz&#305; olsun, &#231;ok te&#351;ekk&#252;r ederim. Tahsin ANARAT
 
Üst