Excel'de satır yüksekliği, hücre değerine göre nasıl ayarlanır?
Bir çalışma sayfasında Satır Yüksekliği değiştirmek için çoğu kişi, seçili satırın yüksekliğini ayarlamak üzere Satır Yüksekliği özelliğini kullanabilir. Ancak bir sayı listesiniz varsa ve aşağıdaki ekran görüntüsünde gösterildiği gibi Satır Yüksekliği'ni hücre değerlerine göre ayarlamak istiyorsanız, bu görevi Excel'de nasıl halledebilirsiniz?
Hücre değerine göre Satır Yüksekliği'ni VBA koduyla değiştirme
Hücre değerine göre Satır Yüksekliği'ni VBA koduyla değiştirme
Birden fazla satırın yüksekliğini aynı anda hücre değerine göre değiştirmenin doğrudan bir yolu olmasa da, aşağıdaki VBA koduyla bu işlemi en kısa sürede gerçekleştirebilirsiniz.
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.
2. Ekle > Modül’e tıklayın, ardından aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Hücre değerine göre Satır Yüksekliği 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; hücre değerlerine göre satır yüksekliğini ayarlamak istediğiniz hücreleri seçmenizi hatırlatan bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Ardından TAMAM düğmesine tıklayın; satır yüksekliği, aşağıda gösterildiği gibi hücre değerine göre ayarlanmıştır:
Not: Yukarıdaki VBA kodunda, If H.Value > 15 Then satırı, hücre değeri 15’ten büyükse satır yüksekliğinin değiştirileceğini; 15’ten küçükse ise satır yüksekliğinin varsayılan değerde kalacağını belirtir. İhtiyacınıza göre bu kuralı özelleştirebilirsiniz.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar