Excel'de hücre değerine göre satır yüksekliğini nasıl değiştirebilirim?

Çalışma sayfasındaki satır yüksekliğini değiştirmek için, çoğu biz Row Height özelliğini kullanarak seçili satırın yüksekliğini ayarlayabiliriz. Ancak, bir sayı listesi varsa ve aşağıdaki ekran görüntüsünde gösterildiği gibi hücre değerlerine göre satır yüksekliğini ayarlamak istiyorsanız, bu görevi Excel'de nasıl çözebilirsiniz?

VBA kodu ile hücre değerine göre satır yüksekliğini değiştirme

VBA kodu ile hücre değerine göre satır yüksekliğini değiştirme

Hücre değerine göre birden fazla satır yüksekliğini aynı anda değiştirmek için doğrudan bir yol bulunmamaktadır, ancak aşağıdaki VBA kodu ile bu işi mümkün olduğunca hızlı bir şekilde tamamlayabilirsiniz.

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Hücre değerine göre satır yüksekliğini değiştirme:

Sub rowheight()
'Updateby Extendoffice
    Dim hgt As Variant
    Dim WorkRng As Range
    xTxt = ActiveWindow.RangeSelection.Address
    Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
        If H.Value > 15 Then
            hgt = H.Value
            H.EntireRow.Select
            Selection.rowheight = hgt
        End If
    Next H
End Sub

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve size satır yüksekliğini hücre değerlerine göre ayarlamak istediğiniz hücreleri seçmenizi hatırlatan bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:

4. Ve ardından Tamam düğmesine tıklayın, satır yüksekliği aşağıdaki gibi hücre değeriyle değişecektir:

Not: Yukarıdaki VBA kodunda, If H.Value > 15 Then ifadesi, hücre değeri 15'ten büyükse satır yüksekliğinin değiştirileceğini belirtir; hücre değeri 15'ten küçükse, satır yüksekliği varsayılan yükseklikte kalır. Bunu ihtiyaçlarınıza göre değiştirebilirsiniz.