İ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ə birləşdirilmiş hüceyrələrin satır hündürlüyünə avtomatik olaraq necə uyğunlaşmaq olar?

Excel-də, satırın hündürlüyünü istifadə edərək, hüceyrə məzmununa uyğun olaraq düzəldə bilərsiniz Avtoyuqluq Satırın hündürlüyü xüsusiyyət, ancaq bu funksiya birləşən hüceyrələri tamamilə görməyəcəkdir. Yəni, tətbiq edə bilməzsiniz Avtoyuqluq Satırın hündürlüyü Birləşdirilmiş hüceyrələrin satır hündürlüyünün ölçüsünü dəyişmək üçün birləşdirilmiş hüceyrələr üçün təkər hündürlüyünü əllə düzəltməlisiniz. Bu yazıda bu problemi həll etmək üçün bəzi tez üsulları təqdim edə bilərəm.

VBA kodu ilə birləşdirilmiş hüceyrələrin satır hündürlüyünə avtomatik sığdır


arrow mavi sağ bubble VBA kodu ilə birləşdirilmiş hüceyrələrin satır hündürlüyünə avtomatik sığdır


Aşağıdakı ekran görüntüsü kimi bəzi birləşən hüceyrələri ilə bir iş var və indi bütün məzmunu keçirmək üçün hüceyrə satır boyu ölçüsünü dəyişdirmək lazımdır varsayalım, aşağıdakı VBA kodu birdən çox birləşən hüceyrələrin satır boyuna avtomatik uyğun kömək edə bilər, xahiş edirik göstərildiyi kimi:

doc-autofit-birləşən-hüceyrələr-1

1. Basıb saxlayın ALT + F11 düymələri və açar Proqramlar üçün Microsoft Visual Basic.

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

VBA kodu: Birdən çox birləşən hüceyrələrin avtomobillərə uyğunluğu
Option Explicit
Public Sub AutoFitAll()
  Call AutoFitMergedCells(Range("a1:b2"))
   Call AutoFitMergedCells(Range("c4:d6"))
    Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
  Dim tHeight As Integer
  Dim iPtr As Integer
  Dim oldWidth As Single
  Dim oldZZWidth As Single
  Dim newWidth As Single
  Dim newHeight As Single
  With Sheets("Sheet4")
    oldWidth = 0
    For iPtr = 1 To oRange.Columns.Count
      oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
    Next iPtr
    oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
    oRange.MergeCells = False
    newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
    oldZZWidth = .Range("ZZ1").ColumnWidth
    .Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
    .Range("ZZ1").WrapText = True
    .Columns("ZZ").ColumnWidth = oldWidth
    .Rows("1").EntireRow.AutoFit
    newHeight = .Rows("1").RowHeight / oRange.Rows.Count
    .Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
    oRange.MergeCells = True
    oRange.WrapText = True
    .Range("ZZ1").ClearContents
    .Range("ZZ1").ColumnWidth = oldZZWidth
  End With
End Sub

Qeydlər:

(1.) Yuxarıda göstərilən kodda yalnız yeni surətlərini əlavə edə bilərsiniz AutoFitMergedCells çağırın (Range ("a1: b2")) istədiyiniz kimi bir neçə dəfə skript yazmaq və birləşdirilmiş hüceyrələri dəyişdirmək lazımdır.

(2.) Və mövcud iş səhifəsinin adını dəyişdirməlisiniz Sheet4 istifadə olunan hesabatın adına.

3. Sonra basın F5 bu kodu çalıştırmak üçün anahtarı seçin və indi bütün birləşən hüceyrələr öz hüceyrə məzmununa avtomatik olaraq baxıldığını görə bilərsiniz, ekran görüntüsünü görə bilərsiniz:

doc-autofit-birləşən-hüceyrələr-1


Əlaqədar məqalə:

Excel-də sütun genişliyini avtomatik olaraq necə uyğunlaşdırmaq olar?



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ı

<p >



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ı

</ p >

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.
  • To post as a guest, your comment is unpublished.
    saravanan · 6 months ago
    not working , ye password set in your code not working in your code
  • To post as a guest, your comment is unpublished.
    dougs · 8 months ago
    I believe the reason that the row heights do not calculate properly is related to these lines of code
    For iPtr = 1 To oRange.Columns.Count
    oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
    Next iPtr
    oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth

    The variable OldWidth gets set to the sum of the column widths in the range, but for some reason it gets reset to only the width of the first two columns. The first 3 lines of code are therefore made redundant by the 4th line. When I removed the line it was much better, but the other issue I found was that you have to make sure that the font and font size of the temporary cell (ZZ1 in the example code) must match the font and size of the merged cells; otherwise, text will not wrap in the same way as the merged cells wrap and may not be the correct height.
  • To post as a guest, your comment is unpublished.
    tomoharu · 10 months ago
    I made add-in for Auto fit row height of multiple merged cells.
    Please use this, if you want to autofit row hight.
    [Release Ver2.6 · toowaki/AutoFitRowEx · GitHub]
    https://github.com/toowaki/AutoFitRowEx/releases/tag/2.6.2
    • To post as a guest, your comment is unpublished.
      ABC · 10 months ago
      This is pretty helpful, thanks!
  • To post as a guest, your comment is unpublished.
    Krishna · 1 years ago
    I am trying to understand the necessity of Line 19. You are assigning a value again to OldWidth. Can you please explain?
  • To post as a guest, your comment is unpublished.
    Chris · 1 years ago
    My code will not even run I just get a compile error when I try to call the AutoFitMergedCells - Expected Function or variable?