Excel'deki hücre değerine göre satır yüksekliği nasıl değiştirilir?
Bir çalışma sayfasındaki satır yüksekliğini değiştirmek için, çoğumuz seçilen satırın yüksekliğini ayarlamak için Satır Yüksekliği özelliğini uygulayabiliriz. Bununla birlikte, bir sayı listeniz varsa ve şimdi, satır yüksekliğini aşağıda gösterilen ekran görüntüsü gibi hücre değerlerine göre ayarlamak istiyorsanız, Excel'de bu görevle nasıl başa çıkabilirsiniz?
VBA kodu ile hücre değerine göre satır yüksekliğini değiştirin
VBA kodu ile hücre değerine göre satır yüksekliğini değiştirin
Aynı anda hücre değerine bağlı olarak birden çok satır yüksekliğini değiştirmenin doğrudan bir yolu yoktur, ancak aşağıdaki VBA kodu ile bu işi olabildiğince çabuk bitirmenize yardımcı olabilir.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Satır yüksekliğini hücre değerine göre değiştirin:
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve satır yüksekliğini hücre değerlerine göre ayarlamak istediğiniz hücreleri seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesi, satır yüksekliği hücre değeri tarafından aşağıdaki gibi değiştirildi:
not: Yukarıdaki VBA kodunda, H. değeri> 15 ise hücre değeri 15'ten büyükse satır yüksekliğinin değişeceğini, hücre değeri 15'ten küçükse satır yüksekliğinin varsayılan yükseklikte kalacağını belirtir. İhtiyacınız olduğu gibi değiştirebilirsiniz.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!