İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də cell dəyərinə əsaslanan satırın hündürlüyünü necə dəyişdirmək olar?

Doc dəyişən satırın hündürlüyü 1

Bir iş yerində satırın hündürlüyünü dəyişdirmək üçün, çoğumuz seçilmiş satırın hündürlüyü təyin etmək üçün Satır Boyu xüsusiyyətini tətbiq edə bilər. Bir sıra siyahılarınız varsa və indi, satırın hündürlüyünə hücum dəyərlərinə əsaslanan göstərilən ekran görüntüsü kimi təyin etmək istəyirsinizsə, Excel-də bu vəzifəni necə həll edə bilərsiniz?

VBA kodu ilə hücum dəyərinə əsaslanan satırın hündürlüyünü dəyişdirin


arrow mavi sağ bubble VBA kodu ilə hücum dəyərinə əsaslanan satırın hündürlüyünü dəyişdirin

Birbaşa mobil dəyər əsasında birdən çox sıra yüksəkliklərini dəyişmək üçün birbaşa yol yoxdur, lakin aşağıdakı VBA kodu ilə bu işi mümkün qədər tez başa çatdırmaq üçün kömək edə bilər.

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Cell dəyərinə görə satır boyu dəyişdirin:

Sub rowheight()
'Updateby Extendoffice 20161123
    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. Sonra basın F5 bu kodu çalıştırmak üçün bir tuşa basın ve satır yüksekliğini hücre değerlerine göre ayarlamak istediğiniz hüceyrələri seçmenizi hatırlatmak üçün bir istek qutusu açılır, ekran görüntüsüne baxın:

Doc dəyişən satırın hündürlüyü 2

4. Və sonra basın OK düyməsi, satırın hündürlüyü aşağıdakı kimi dəyişildi:

Doc dəyişən satırın hündürlüyü 1

Qeyd: VBA kodundan yuxarıda, H.Value> 15 Sonra 15-dən çox olan hüceyrənin dəyəri, əgər xNUMX-dən az olan cell dəyəri, satırın yüksəkliyi qalacaqsa, satırın boyu dəyişdiriləcəkdir. Lazım olduğu kimi dəyişə bilərsiniz.



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.