Bir hücredeki çok karekteri birçok hücreye belli oranda sığdırmak

[mor45]

Bir hücredeki çok karekteri birçok hücreye belli oranda sığdırmak

ekteki dosyamada sayfa 1 deki A19 -A20-A21 hüçrelerindeki degerleri Dağılım çizelgesi sayfasındaki A11 -A12-A13-A14 hücereleriine sığaçak şekilde parağraf yapmak istiyorum.

 

[Ferhat Pazarçevirdi]

Merhabalar

Eğer Koyu ve Alt-Çizgi gibi şekillendirmeler sizin için önemli değilse;

"Dağılam Çizelgesi" adlı sheet'in A11:G14 aralığını birleştirin. (Menüden Biçim->Hücreler->Hücreleri Birleştir'den Metni Kaydır ve Hücreleri Birleştir işaretleyin)

Birleşmiş alana aşağıdaki formülü girin.

=Sayfa1!A19&" "&Sayfa1!A20&" "&Sayfa1!A21

Yaz tipini, Altçizgisiz ve Koyu değil yapın.

 

[mor45]

Koyu ve Alt-Çizgi gibi şekillendirmeler benim için önemli
formule dönüştürürsek inşallah olur.

 

[uzmanamele]

uzman arkadaşlarımız istediğiniz makroyu yazacaklardır.
ben şunu önersem; Fizik Tedavi ve Rehabilitasyon Anabilim Dalı Başkanlığı : cümlesi vurgu yapılması gereken metin ise, A11:G11 hücrelerini birleştirip bu hücreyi kalın ve altı cizili metin olarak işaretleyin ve Sayfa1!A19&Sayfa1!A20 formülünü yazın , A12:G14 hücrelerini birleştirin Sayfa1!A21 formülünü yazın ancak biçimlendirme yapmayın. bu durumda bir başlık ve altında bir paragraflık metin olur, istediğiniz biçim vurgusuna sağlanmış olur.

 

[Merhum İdris SERDAR]

ekteki dosyamada sayfa 1 deki A19 -A20-A21 hüçrelerindeki degerleri Dağılım çizelgesi sayfasındaki A11 -A12-A13-A14 hücereleriine sığaçak şekilde parağraf yapmak istiyorum.

Eğer diğer sayfaya metin olarak bir şekilde aktarılırsa ve kalın ve valtı çizgili olan sözcüklerin karekter sayıları sabit ise, örneğin A1 hücresinde yer alan bir metin için:

Sub Macro1()
Range("A1").Characters(Start:=4, Length:=5).Font.Bold = True
Range("A1").Characters(Start:=4, Length:=5).Font.Underline = True

End Sub

şeklindeki benzer bir kod işinizi belki görebilir. Bu kodla; A1 hücresindeki sözcüğün 4 harfinden başlayıp 5 harfininin kalın ve altı çizgili olmasını sağlıyor.

Ben daha değişik bir uygulama ile dosyanızı düzenledim. İşinize yarar mı? Bilmiyorum.

Dosyanız ekte.

.

 

[mor45]

sayın yurttaş
Karekter sayıları sabit değil,değişken başka bir bilim dalıda olabilir bu
onun için sizin dediniz olmuyor

 

[Merhum İdris SERDAR]

sayın yurttaş
Karekter sayıları sabit değil,değişken başka bir bilim dalıda olabilir bu
onun için sizin dediniz olmuyor

Eklediğim dosyadaki diğer yönteme ne diyorsunuz?

.

 

[omerceri]

Aşağıdaki kod işinize yarar mı ?
Sub yazdir()
a = Len(Sheets("Sayfa1").Range("A19") & " " & Sheets("Sayfa1").Range("A20"))
Sheets("Dağılam Çizelgesi").Range("A11").Value = Sheets("Sayfa1").Range("A19") & " " & Sheets("Sayfa1").Range("A20") & " " & Sheets("Sayfa1").Range("A21")
Sheets("Dağılam Çizelgesi").Range("A11").Font.Underline = xlUnderlineStyleNone
Sheets("Dağılam Çizelgesi").Range("A11").Font.Bold = False
Sheets("Dağılam Çizelgesi").Range("A11").Characters(Start:=1, Length:=a).Font.Bold = True
Sheets("Dağılam Çizelgesi").Range("A11").Characters(Start:=1, Length:=a).Font.Underline = True
End sub

 

[mor45]

Diğer yöntem iyi tek şey yazı karakteri değişiyor bunu sabitleyibilirmiyiz?

 

[mor45]

Aşağıdaki kod işinize yarar mı ?
Sub yazdir()
a = Len(Sheets("Sayfa1").Range("A19") & " " & Sheets("Sayfa1").Range("A20"))
Sheets("Dağılam Çizelgesi").Range("A11").Value = Sheets("Sayfa1").Range("A19") & " " & Sheets("Sayfa1").Range("A20") & " " & Sheets("Sayfa1").Range("A21")
Sheets("Dağılam Çizelgesi").Range("A11").Font.Underline = xlUnderlineStyleNone
Sheets("Dağılam Çizelgesi").Range("A11").Font.Bold = False
Sheets("Dağılam Çizelgesi").Range("A11").Characters(Start:=1, Length:=a).Font.Bold = True
Sheets("Dağılam Çizelgesi").Range("A11").Characters(Start:=1, Length:=a).Font.Underline = True
End sub

Bu yazdınız işlemi dosyaya nasıl aktaracağım.

 

[omerceri]

Örnek ekte