hücredeki karakter fazlalığı

[sekand]

selamlar
a1:d10 (birleştirilmiş ) veri aralığına belli miktarda hücre yazıyorum .bu veriler hücrenin alabileceği karakter sayısında çok fazla.ama mutlaka verileri bu aralğıa atmam gerek.atıyorum hücrenin alabileceği karakter sayısı 1000 ise 1000.karakterden sonrası çıktıda görünmüyor. ne yapmam lazım
saygılar

 

[Levent Menteşoğlu]

Bunun için metni kaydır özelliğini kullanabilirsiniz. Hücreyi mouse ile seçin sağklik-hücre biçimlendir-hizalama-metni kaydır kutusunu işaretleyin. Daha sonra metne göre hücre boyutunu ayarlayabilirsiniz.

 

[sekand]

levent beybu şekilde yapmıştım ama bir sonuç vermedi aynı şekilde sorun devam ediyor
saygılar

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz

 

[balca]

Merhaba;
aşağıdaki kodlar işinize yarayabilir mi?
Sutun genisliğini Excel de varsayılan (8,43) olarak kabul ettim. Ama bana sorarsanız bu yöntem ile de tablonuzun görüntüsü pek güzel olmayacaktır. Hücre içinde 10 punto ile 10 adet karakterden fazla veri varsa makroyu çalıştırdıktan sonra hücre içindeki veri okunamayacak kadar küçük olacaktır. Ama madem böyle birşey yapmak istiyorsunuz, o halde aşağıdaki kod işinize yarayacaktır.
Sub Genislik_Kontrol()
Application.ScreenUpdating = False
Dim Font_Buyuk, Genislik As Single
ActiveCell.Columns.AutoFit
Genislik = ActiveCell.ColumnWidth
ActiveCell.ColumnWidth = 8.43

Do While Genislik > 8.43
Font_Buyuk = ActiveCell.Font.Size
ActiveCell.Font.Size = Font_Buyuk - 0.5
ActiveCell.Columns.AutoFit
Genislik = ActiveCell.ColumnWidth
ActiveCell.ColumnWidth = 8.43
Loop
Application.ScreenUpdating = True
'İLAVELER
Do While Genislik < 8.43
Font_Buyuk = ActiveCell.Font.Size
ActiveCell.Font.Size = Font_Buyuk + 0.5
ActiveCell.Columns.AutoFit
Genislik = ActiveCell.ColumnWidth
ActiveCell.ColumnWidth = 8.43
Loop

End Sub

 

[ALPEN]

Hücreye bir textbox koysaniz?

 

[sekand]

slmlar
bu aralar iş yoğunluğu nedeniyle pek sık uğryamıyorum ama yardımlarınız için teşekkürler galiba en mantıklı ve en kesin çözüm sayşın alpen in dediği gibi text ktoymak olacak
saygılar