Birleştirilmiş hücredeki hücreleri;üst simge,alt simge,kalın yazı,italik..yazabilme

[orhan1071]

merhaba

birleştirdiğim hücrelerde, bazı hücrelerden çektiğim verinin üst simge olmasını istiyorum.
sanırım superscript fonksiyonu bu işi sağlıyor.

en basit şekliye bir vba kodu nasıl yazabilir bu iş için.

forumumuzdada araştırma yaptım.şu şekilde örnekler var.

Sub birlestir()
[b13] = [b8] & " VE " & [b9] & " " & [b10] & " TARİHİNDE İSTANBULA GİTTİLER"
ilk = InStr([b13], [b10])
son = Len([b10])
[b13].Characters(Start:=ilk, Length:=son).Font.FontStyle = "Kalın İtalik"
[b13].Characters(Start:=ilk, Length:=son).Font.Strikethrough = False
End Sub

bu örnekte örneğin [b8] hücresinin üst simge olduğu vba kodunu yazabilirmisiniz.

Sub birlestir()

[b13] = [b8] & " VE " & [b9] & " " & [b10] & " TARİHİNDE İSTANBULA GİTTİLER"

.....bu bölümde sadece [b8] hücresini üst simge yapabilecek vba kodu.....

End Sub

şimdiden teşekkürler.

 

[uzmanamele]

merhaba

bu şekilde dener misiniz

Sub birlestir()
[b13] = [b8] & " VE " & [b9] & " " & [b10] & " TARİHİNDE İSTANBULA GİTTİLER"
ilk = InStr([b13], [b10])
son = Len([b10])
[b13].Characters(Start:=ilk, Length:=son).Font.FontStyle = "Kalın İtalik"
[b13].Characters(Start:=ilk, Length:=son).Font.Strikethrough = False

üst = Len([b8])
With [b13].Characters(Start:=1, Length:=üst).Font
        .Superscript = True
    End With
End Sub

 

[orhan1071]

evet oldu.
Minnettar kaldım.bukadar kısa zamanda cevap almam ise beni utandırdı,teşekkür ediyorum.elinize emeğinize sağlık.
kolay gelsin.

 

[orhan1071]

bir sorum daha var bu kodun nasıl çalışığını anlayabilmem için;
verdiğiniz örneği [b10]'nunda üst simge olacak şekilde değiştirebilirmisiniz.

start:=1 değeri ile alakalı bir durum sanırım.

üst simge olcak hücre [b8] değilde, başka bir hücre olduğunda satart:=1,nasıl değişiklik gösterir.

 

[uzmanamele]

merhaba

b10'u üst simge yazmak için:

üst = Len([b10])

start_1 = Len([b8]) = x uzunluğunda olsun,
start_2 = & " VE " & [b9] & " " & = y uzunluğunda olsun
start = start_1+star_2+1 başlangıç sayısı olur, deneyiniz.

 

[orhan1071]

start:1'in neyi ifade ettiğini anladım.

hücre içerisinde üst simgemin yeri, birleştirilmiş metine çağırılan diğer hücrelerin veri uzunluğuna göre değişecek.

birleştirilen metin içerisine çağırılan hücrelerdeki verilerin uzunluğu değişkenlik gösterecek.bu nedenden hücre içerisinde üst simge olacak hücreyi bir aralıkta tarif etmemeliyim.

birleştitilmiş metin içerisine çağrılan o hücreyi herhangi bir karakter aralığına sığdırmadan,üst simge olarak gösterebileceğim bir vba koduna ihtiyacım var.

yardımcı olurmusunuz.

 

[orhan1071]

dosyamı eklesem düzenleyebilirmisiniz.