Jak dostosować wysokości wierszy w zależności od zawartości komórki?

Mam tabelę z jedną kolumną i ponad 200 wierszami. Chcę dostosować wysokość tych rzędów w zależności od ich zawartości.

Na przykład, gdy komórka ma mniej niż 10 znaków, wiersz musi mieć 25 pikseli, a jeśli ma więcej lub 10 znaków, wiersz musi mieć 50 pikseli.

Te zdjęcia mogą wyjaśnić, co chcę zrobić:

do

Jest to oparte na twoim niejasnym pytaniu! Opublikowałem również opcję dynamiczną

Option Explicit
Sub ChangeRowsColsInPixels()
  Dim r As Range

  For Each r In ActiveSheet.UsedRange

    Dim length As Integer
    length = Len(r.Value)
    If length > 0 Then
        If length < 10 Then     
            r.RowHeight = 25
        End If

        If length >= 10 Then
            r.RowHeight = 50
        End If
    End If

  Next r

End Sub

Jak dodać VBA w MS Office?

Nie pytałeś o wyrównanie tekstu w komórce, ale jak możesz middle align, zakładam, że to wystarczy

Wygląda na to, że nie chcesz podejmować żadnych działań, jeśli liczba znaków wynosi od 10 do 20

Przed

Po

I z Middle Align

Jako drugie rozwiązanie do mojego drugiego postu , zaoferuje to bardziej dynamiczne podejście, w którym wysokość będzie aktualizowana na podstawie liczby znaków (nie zostało to odpowiednio przetestowane pod kątem górnych limitów / maksimów, a więc z długim długim łańcuchem / wartość, prawdopodobnie zgłosi wyjątek, więc dodałem sztywny limit, który wydaje się być mniejszy niż limit w programie Excel 2010)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim r As Range
  Dim defaultHeight As Integer
  defaultHeight = 25

  Dim maxHeight As Integer
  maxHeight = 399

  For Each r In ActiveSheet.UsedRange

    Dim length As Integer
    length = Len(r.Value)
    If length > 0 Then
        Dim heightToUse As Double
        heightToUse = defaultHeight + length
        If (heightToUse > maxHeight) Then
            r.RowHeight = maxHeight
        Else
            r.RowHeight = heightToUse
        End If
    End If

  Next r

End Sub

Pamiętaj, aby dodać go do konkretnego arkusza roboczego, ponieważ uruchamia się on i ponownie oblicza w miarę wprowadzania nowych wartości

Jak dodać VBA w MS Office?

Przed

Po (z Middle Alignna karcie Wyrównanie wstążki)