Zeilenhöhe automatisch Anpassen funktioniert nicht

So, heute ist mein schlechter Tag
Ich entdeckte, dass excel-Zeile automatisch Anpassen - funktioniert nicht

a = "Please"
b = "Do AutoFit"
range01.Value = a & vbNewLine & b  
range01.EntireRow.AutoFit // First and last line are horizontally cutted

Chr(10) statt vbNewLine - nicht helfen
Es funktioniert nur, wenn ich Schreibe ohne Zeilenumbruch:

range01.value = a & b
range01.EntireRow.AutoFit  //  works !!!  Thanks to Microsoft !

Haben Sie versucht, eine neue Höhe für die Zeile, dann die Einstellung automatisch anpassen?
Sie müssen sicherstellen, dass die Zellen, die Zeilenumbrüche haben "Zeilenumbruch" eingeschaltet ist. Lesen Sie diesen Artikel für weitere Infos: spreadsheetsmadeeasy.com/excel-insert-a-line-break-in-a-cell
Wrap Text ist Auf. Ich werde nun versuchen Jared ' s Vorschlag
Versuchen Sie es größer, als Sie brauchen, wie 50, dann anpassen. Ich bin mir nicht sicher, ob dies funktionieren wird, aber ich weiß, manchmal wird es automatisch schrumpfen statt wachsen größere. Man könnte auch hinzufügen, eine programmatische wrap-Aufruf wie @joseph4tw vorgeschlagen.
Alegro, jemanden Benachrichtigen, der kommentiert hat und Sie kommentieren möchten, zurück, verwenden Sie die @ plus-Benutzernamen, wie @joseph4tw. So bekommen Sie eine kleine Meldung. Tipp: Verwenden Sie tab nach der Eingabe @j und Sie werden eine Liste der passenden Kommentatoren, dann trifft enter wählen Sie Benutzername.

InformationsquelleAutor Alegro | 2012-08-26

excel vba

Stellen Sie sicher, dass die Zellen, die Zeilenumbrüche haben "Zeilenumbruch" eingeschaltet ist. Sie können schalten Sie es mit VBA etwa so:

Sub test1()
    Dim a As String, b As String
    a = "Please"
    b = "Do AutoFit"
    Range("A1").Value = a & vbNewLine & b
    Range("A1").WrapText = True
    Range("A1").EntireRow.AutoFit
End Sub

InformationsquelleAutor Joseph

Autofit funktioniert nicht auf verbundene Zellen. Meine Vermutung ist, dass das, was Sie zu tun versuchen.

Arbeiten, um dieses zu simulieren, anpassen auf eine Zelle mit der gleichen Breite wie das zusammengeführte Zelle und legen Sie die height-es gibt Sie.

Etwas wie dieses:

Dim YourString As String, a As String, b As String
Dim TempLoc as Range

a = "Please"
b = "Do AutoFit"
YourString = a & vbNewLine & b
Set TempLoc = range01.offset(0, 10) ' Given the column 10 columns to the right has the exact same witdh as your merged cell.

' Autofit a single cell to get correct height
With TempLoc
       .Value = YourString
       .WrapText = True
       .EntireRow.AutoFit
       .RowHeight = TempLoc.RowHeight
       .ClearContents
End With

Danke!!! Sehr nützlich zu wissen, dass autofit funktioniert nicht auf verbundene Zellen. Verbundene Zellen sind der Teufel Erfindung.

InformationsquelleAutor Julius Getz Mørk

2

Könnten Sie tun:
```
Private Sub Worksheet_Activate()
Worksheets("Sheet1").Range("A:A").EntireRow.AutoFit
End Sub
```
Dieser arbeitete für mich!
Diese einfache Linie funktioniert gut für meine Bedürfnisse, danke.

InformationsquelleAutor Todd
1

Löste ich ein Problem mit dieser - ich hatte eine Reihe mit zwei verbundenen Zellen sowohl mit multi-line-text mit Chr(10) Zeilenvorschubzeichen - mit Wrap-set AUF (aber keine Linien tatsächlich wickeln - nur die Chr(10)s führen, dass die neuen Linien). Autofit würde nicht funktionieren, wegen der verbundenen Zellen.

Den VBA-workaround war die Verwendung eines Ersatz-Zelle in der gleichen Zeile, und füllen Sie es mit der gleichen Anzahl von Chr(10) wie in einem (entweder) der multi-line-Zellen. Dann rufen Sie AutoFit für die Zelle jetzt mit der gleichen Anzahl von invisible line feeds. Stellen Sie sicher die schriftart und-Größe sind die gleichen in der Freizeit Zelle!
```
' make C36 spare cell contain the same number of Chr(10) as D36, using a Repeat function :
' (after counting Chr(10) by comparing the length before and after substituting Chr(10) with "")
Worksheets(1).Range("C36").Value = _
   Application.WorksheetFunction.Rept(Chr(10), _
     Len(Worksheets(1).Range("D36").Value) - Len(Replace(Worksheets(1).Range("D36").Value, Chr(10), "")))
Worksheets(1).Range("C36").Rows.AutoFit
```
Eine alternative Methode für die anderen Szenarien werden könnte, um eine zusätzliche, versteckte, Arbeitsblatt - legen Sie eine einzelne Zelle, um die gleiche Spaltenbreite wie Ihr verbundene Zellen, kopieren Sie den Inhalt über, rufen Sie autofit (die arbeiten sollten auf die individuellen Zelle), verwenden Sie dann die resultierende rowheight aus.

Geniale Lösung mit der verknüpften Zelle in der gleichen Zeile!

InformationsquelleAutor AjV Jsy
0

Eine Problemumgehung besteht darin, verkleinern Sie die Spaltenbreite ein wenig nach unten für die Spalte(s) sind, was die autofit problem, wählen Sie alle Reihen aus, die Sie ändern möchten, autofit die Zeilenhöhe durch Doppelklick auf eine der Zeilen-Separatoren, und schließlich automatisch die Spalte(N) aus dem ersten Schritt durch doppelklicken auf das Spaltentrennzeichen(s). Wahrscheinlich funktioniert am besten, wenn nur eine oder nur ein paar Spalten konsequent haben die meisten text in Ihren Zellen.

InformationsquelleAutor bryan s

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.