Hücre içinde yazının bir kısmını italic yapma

[xander1982]

merhaba arkadaşlar,
Sitede araştırdım ama tam olarak istediğimi bulamadım,
Sizlere danışmak istedim

Excel de uzun bir tablom var
hücrelerin hepsinde TAlimat \ Instruction ......yazıyor
.... yerlerde farklı sayılar var. Hücre içirsinde sadece Instruction kısmını italic yapmak istiyorum. Macro yazmadan yapmak mümkünmüdür ?
değilse nasıl bir macro yazmam lazım ?

Teşekkürler

 

[Mehmet Şahin]

italic düzenleme

Merhaba,
aşağıdaki kodları bir modüle yapıştırıp, bir butona bağlayıp çalıştırınız.
Kayıtların Sheet1'de ve "A" sütununda olduğu varsayılmıştır.
İyi çalışmalar.

Sub renk_yap()
Dim yazi As String
Dim sh As Worksheet
Set sh = Sheets("Sheet1")
yazi = "INSTRUCTION"
sn = sh.Cells(65536, 1).End(xlUp).Row

 For i = 1 To sn
   If UCase(sh.Cells(i, "a")) Like "*" & yazi & "*" Then
    bas = WorksheetFunction.Find(yazi, UCase(sh.Cells(i, "a")), 1)
    bit = Len(yazi)
     For j = bas To bit + bas
       sh.Cells(i, "a").Characters(Start:=bas, Length:=bit).Font.Italic= True
     Next
   End If
 Next
 Set sh = Nothing
End Sub

 

[ikikan]

Chr(10) sonraki italik yapmak

Merhaba,
aşağıdaki kodları bir modüle yapıştırıp, bir butona bağlayıp çalıştırınız.
Kayıtların Sheet1'de ve "A" sütununda olduğu varsayılmıştır.
İyi çalışmalar.

Sub renk_yap()
Dim yazi As String
Dim sh As Worksheet
Set sh = Sheets("Sheet1")
yazi = "INSTRUCTION"
sn = sh.Cells(65536, 1).End(xlUp).Row

 For i = 1 To sn
   If UCase(sh.Cells(i, "a")) Like "*" & yazi & "*" Then
    bas = WorksheetFunction.Find(yazi, UCase(sh.Cells(i, "a")), 1)
    bit = Len(yazi)
     For j = bas To bit + bas
       sh.Cells(i, "a").Characters(Start:=bas, Length:=bit).Font.Italic= True
     Next
   End If
 Next
 Set sh = Nothing
End Sub

Kolay gelsin herkeze acaba "Chr(10)" sonrakileri italik ve karakterleri küçültmek mümkünmüdür ?

 

[Mehmet Şahin]

Merhaba,
örnek bir dosya ekleyip açıklama yaparsanız, daha hızlı çözüm bulunabilir.
İyi çalışmalar.