biçim değiştirmeden birleştirmek

[japoncaci]

merhaba
3 hücrede girdi var ben tek bir hücrede fakat biçimleri değişmeden birleştirmek istiyorum. yani a1 deki 12 puntadayken c1 deki 8 punta ve olmasını ve yazı sitillerinin de farklı olmasını istiyorum.

tek bir hücrede birleştirebiliyorum fakat yazı sitilleri ve büyüklükleri aynı oluyor.

bu konuda yardımcı olabilirseniz sevinirim.
teşekkürler...

 

[uzmanamele]

merhaba

bu kodlar işinizi görür mü?

Sub birlestir_buyuk_yaz()
Columns("D:D").ClearContents
ss = Range("a65536").End(3).Row
For i = 1 To ss
Cells(i, "d") = Cells(i, "a") & Cells(i, "b") & Cells(i, "c")
    ilk = Len(Cells(i, "a"))
    son = Len(Cells(i, "c"))
    Cells(i, "d").Characters(Start:=1, Length:=ilk).Font.Size = 10  'font değerini değiştiriniz
    Cells(i, "d").Characters(Start:=ilk + 4, Length:=son).Font.Size = 20 'font değerini değiştiriniz

Next
End Sub

 

[japoncaci]

yardımın için sağol.
fakat ben yanlış sordum:???:. formüllerden yapılabileceğini sanıyordum. makroyu şu an duyuyorum.

5 yan yana hücreyi birleştirmek istiyorum
a1 deki 12 boyuntunda "SimSun" fontu
c1 deki 10 boyuntunda "MS Mincho" fontu
e1 deki 8 boyutunda "Times New Roman" fontu

bana verdiğin kodda yazı ebatlarını değiştirebiliyorum fakat fontları değiştiremiyorum.

iki dosya ekledim. ilki birleştirmekistediğim dosya fakat japon karakterleri var.
jp karakterleri çıkmıyorsa ikinci dosyadan bana gösterebilirmisin.

teşekkürler..