İ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 sütun başlığına əsaslanan bir sütun seçmək üçün necə?

Şübhəsiz, birdən çox sütun olan böyük bir iş var və indi sütun başlığı adı əsasında xüsusi sütun seçmək istəyirik. Böyük bir iş səhifəsində sütunla sütunu tapmaq üçün çox vaxt sərf edəcəyik, bu yazıda, bu işi Exceldə həll etmək üçün sürətli bir üsul təqdim edəcəyəm.

VBA kodu ilə sütun başlığı adı əsasında bir sütun seçin


VBA kodu ilə sütun başlığı adı əsasında bir sütun seçin


Aşağıdakı VBA kodu müəyyən bir üst adın adı əsasında sütunları seçməyə kömək edə bilər, xahiş edirik bunu edin:

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: Sütun başlığı adı əsasında sütunu seçin:

Sub FindAddressColumn()
'Updateby Extendoffcie
    Dim xRg As Range
    Dim xRgUni As Range
    Dim xFirstAddress As String
    Dim xStr As String
    On Error Resume Next
    xStr = "Name"
    Set xRg = Range("A1:P1").Find(xStr, , xlValues, xlWhole, , , True)
    If Not xRg Is Nothing Then
        xFirstAddress = xRg.Address
        Do
            Set xRg = Range("A1:P1").FindNext(xRg)
            If xRgUni Is Nothing Then
                Set xRgUni = xRg
            Else
                Set xRgUni = Application.Union(xRgUni, xRg)
            End If
        Loop While (Not xRg Is Nothing) And (xRg.Address <> xFirstAddress)
    End If
    xRgUni.EntireColumn.Select
End Sub

Qeyd: Yuxarıda göstərilən kodda, A1: P1 sütunları seçmək istədiyiniz mövzuların üçündür və "ad"Kitabında xStr = "Ad" əsaslı sütunları seçmək istədiyiniz başlıq adıdır. Xahiş edirik onları ehtiyacınıza dəyişdirin.

3. Kodu kopyalayıp yapıştırdıktan sonra, basın F5 bu kodu çalıştırmak üçün düyməsini basın və xüsusi başlıq adına malik olan bütün sütunlar bir an seçilmişdir, ekran görünüşünə baxın:



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.