web-gelistirme-sc.com

Excel'deki bir hücreyi, sarılı metin içeriğine uyacak şekilde yüksekliğini otomatik olarak ayarlamak üzere nasıl alabilirim?

Excel'de kaydırılmış metin içeriğine sahip bir hücreye sahibim ve hücreyi biçimlendirmek istiyorum, böylece yüksekliği birkaç satır boyunca yayılabilecek içeriğe uyacak şekilde ayarlanacak. Bu davranışı nasıl başarabilirim?

microsoft-excelmicrosoft-excel-2007
20
Manga Lee

http://support.Microsoft.com/kb/149663 adresinden

Satırın yüksekliğini bir hücredeki tüm metne sığacak şekilde ayarlamak için şu adımları izleyin:

Satırı seçin.

Microsoft Office Excel 2003'te ve Excel'in önceki sürümlerinde, Biçim menüsünden Satır'ın üzerine gelin ve Otomatik Tamam'ı tıklatın.

Microsoft Office Excel 2007'de, Giriş sekmesini, Hücreler grubunda Biçimlendir'i ve ardından Otomatik Satır Yüksekliği'ni tıklatın.

Ayrıca, tüm satırlar seçildiğinde de çalışır

24
vaichidrewar

Deneyin

Sütunu seçin -> sütunu sağ tıklayın -> Hücreleri Biçimlendir -> Hizalama sekmesi -> Metni kaydır

10
hyperslug

Autofit'in birleştirilmiş hücrelerde çalışmadığını unutmayın. Manuel olarak yapmak zorundasın.

Bu Microsoft cevabına bakınız:

AutoFit özelliğini Excel'de birleştirilmiş hücreleri içeren satırlar veya sütunlar için kullanamazsınız

3
abruti

Otomatik olarak yapmazsa, imlecinizi satır sayıları arasındaki küçük çizginin üzerine getirin (ör: 1 ile 2 arasında) ve çift tıklatma, satırın boyutunu yeniden boyutlandırır (örnekte, doğrudan küçük çizginin yukarısında, 1:) böylece her şey görünür durumdadır (dikey açıdan).

2
Lance Roberts

12/28/2014 üstündeki tarih değerleri üstbilginin bu tarihte bir uyarı göstermesine neden olacağı için başlık sırasını yeniden boyutlandırmak için başlık satırını yeniden boyutlandırmak için aşağıdaki VB kodunu oluşturdum. Bir zaman çizelgesi, 2015'in 1. haftasına girecekti:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an Action when they are changed.
    Set KeyCells = Range("B2:B1500")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Change the height of the header row when one of the defined cdlls is changed
        Rows("1:1").EntireRow.AutoFit

    End If
End Sub
0
Mickg01

Makro biliyor musun? Aşağıdaki kodu

Application.ActiveCell.WrapText = Doğru

worksheet_SelectionChange alt rutininizin içinde.

0
Toc

Bir VBA çözümü aşağıdakileri kullanmaktır:

 Call Application.ActiveCell.AutoFit
0
richardtallent

Beklendiği gibi çalışmasını sağlayabilmemin tek yolu, tüm sayfayı CTRL-A ile vurgulamak, araç çubuğundaki "Metin Kaydır" düğmesini tıklayıp tekrar seçmektir. Başka hiçbir ayar değişmez, ancak her satır şimdi içeriği için "uygun" yüksekliktir.

0
simpleuser