hücre içindeki yazının bir kısmını kalın yapmak

[tooba]

arkadaşlar ben hücre içindeki yazının sadece bir kısmını kalın yapmak istiyorum şunun gibi =A2&kalinyap("tooba") dediğimde hücre içinde a2 hücresi normal ve tooba yazısı kalın olsun. teşekkürler.

 

[Levent Menteşoğlu]

arkadaşlar ben hücre içindeki yazının sadece bir kısmını kalın yapmak istiyorum şunun gibi =A2&kalinyap("tooba") dediğimde hücre içinde a2 hücresi normal ve tooba yazısı kalın olsun. teşekkürler.

Formül içinde bunu yapamazsınız, yazı hücre içinde olmalıdır.

 

[alpi]

Sayın leventm bu işlemi gerçekleştirmek mümkündür aşağıdaki gibi bir kod işimizi görecektir
A1 hücresindeki metnin ilk beş harfini kalın yapar
Range("A1").Characters(Start:=1, Length:=5).Font.FontStyle = "Kalın"

 

[Levent Menteşoğlu]

Sayın leventm bu işlemi gerçekleştirmek mümkündür aşağıdaki gibi bir kod işimizi görecektir
A1 hücresindeki metnin ilk beş harfini kalın yapar
Range("A1").Characters(Start:=1, Length:=5).Font.FontStyle = "Kalın"

Sn alpi

Soruyu tekrar okumanızı öneririm.

=A2&kalinyap("tooba")

 

[alpi]

Sayın leventm soruyu tekrar okudum dediğiniz gibi
ve çözüm şekli aşağıdaki gibi oldu

Dim Baş As Integer
Dim Uzunluk As Integer
Range("A1") = Range("A1") & "Tooba"
Uzunluk = Len("Tooba")
Baş = Len(Range("A1")) - Uzunluk + 1
Range("A1").Characters(Start:=Baş, Length:=Uzunluk).Font.FontStyle = "Kalın"