İ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ə bir mətn qutusuna çoxlu hüceyrələrin mətni necə bağlamaq olar?

Bir neçə hüceyrənin mətnlərini formula ilə yeni bir hüceyrəyə birləşdirmək asan ola bilər. Ancaq mətn qutusuna (ActiveX Control) birdən çox hüceyrə dəyərini necə birləşdirə bilirsiniz? Əslində, bu yazıda yer alan metod sizə nail olmaq üçün kömək edə bilər.

VBA kodu olan bir mətn qutusuna çoxlu hüceyrələrin mətnlərini birləşdirin


VBA kodu olan bir mətn qutusuna çoxlu hüceyrələrin mətnlərini birləşdirin


Aşağıdakı üsul, birdən çox hüceyrənin mətnlərini Excel-də bir mətn qutusuna birləşdirməyə kömək edə bilər.

1. Bir neçə hüceyrəni birləşdirmək istədiyiniz iş yerində, tıklayaraq bir mətn qutusu əlavə edin Developer > Taxmaq > Text Box (ActiveX Control). Ekran görüntüsünə baxın:

2. Sonra basın Developer > Taxmaq > Command Button (ActiveX Control) iş səhifəsinə bir komanda düyməsini əlavə etmək.

3. Daxil verilən komanda düyməsini sağ basın, sonra seçin Kodları baxın kontekst menyusundan. Ekran görüntüsünə baxın:

4. İçində Proqramlar üçün Microsoft Visual Basic pəncərədə, VBA kodunun altındakı orijinal kodu əvəz edin.

VBA kodu: Bir çox xananın mətn qutusuna birləşdirilməsi

Private Sub CommandButton1_Click()
    Dim xRg As Range
    Dim xCell As Range
    Dim xStr As String
    On Error Resume Next
    Set xRg = Application.Selection
    If xRg Is Nothing Then Exit Sub
    With Me.TextBox1
        .Text = vbNullString
        .MultiLine = True
        .WordWrap = True
        For Each xCell In xRg
            xStr = xCell.Value
            .Text = Me.TextBox1 & xStr & Chr(10)
        Next
    End With
End Sub

Qeyd: CommandButton1, daxil edilmiş komut düyməsinin adıdır. Xahiş edirik ehtiyacınız əsasında dəyişdirin.

5. Tıklayarak Dizayn rejimi söndürün Developer > Dizayn Moda.

6. Mətnləri bir mətn qutusuna birləşdirmək üçün lazım olan hüceyrələri seçin və sonra Command Button düyməsini basın. Sonra bütün seçilmiş hüceyrələrin məzmunu dərhal ekran görüntüsünün aşağıda göstərildiyi kimi mətn qutusuna birləşdirilir.


Related articles:



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.
  • To post as a guest, your comment is unpublished.
    allan · 12 days ago
    hola Como el boton puede tomarme las celdas visibles, ya que a veces oculto celdas y me las toma igual pero no quiero
  • To post as a guest, your comment is unpublished.
    allan · 12 days ago
    Muy bueno, Y si le quiero poner ; para separar los textos ¿cómo lo hago?