İ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 hüceyrədə yazarkən anında filtrelənmiş axtarış necə ediləcək?

Bu yazı, Excel-də bir hüceyrədə yazarkən anında axtarış və filtre üçün bir metod təmin edir.

VBA kodu ilə yazarkən dərhal filtrelənmiş axtarış


VBA kodu ilə yazarkən dərhal filtrelənmiş axtarış


Aşağıda göstərilən ekran göründüyü kimi, müəyyən bir hüceyrədə yazarkən dərhal axtarış etmək və filtreləmək istədiyiniz bir Ad siyahısı var. Xahiş edirəm, onu almaq üçün aşağıdakıları yerinə yetirin.

1. Birincisi, siyahı məlumatları ilə bir masa yaratmaq və cədvəlin adını "ad". Xahiş edirik bütün siyahısı seçin, basın Taxmaq > Masa.

2. Açılışda Cədvəl yarat informasiya qutusuna basın OK. Ekran görüntüsünə baxın:

3. Əlavə etmək üçün masanın hər hansı bir hüceyrəsinə basın Layihə seksiyasını seçin və sonra masanın adını dəyişin ad ci Table Adı mətn qutusu. Ekran görüntüsünə baxın:

4. klik Developer > Taxmaq > Text Box (ActiveX Control) cədvəlin yuxarıdakı bir mətn qutusunu aşağıda göstərilən ekran görüntüsünə əlavə etmək üçün:

5. Mətn qutusuna sağ basın və vurun Properties, Bu Properties pəncərədə bir hüceyrə istinadını yazın LinkedCell Qutu.

6. Mətn qutusuna sağ basın və seçin Kodları baxın kontekst menyusundan. Sonra orijinal kodu aşağıdakı VBA kodu ilə əvəz edin Proqramlar üçün Microsoft Visual Basic pəncərə. Ekran görüntüsünə baxın:

VBA kodu: Excel-də yazarkən dərhal filtrelənmiş axtarış

Private Sub TextBox1_Change()
'Update by Extendoffice 2018/08/22
Dim xStr, xName As String
Dim xWS As Worksheet
Dim xRg As Range
    On Error GoTo Err01
    Application.ScreenUpdating = False
    xName = "Name"
    xStr = TextBox1.Text
    Set xWS = ActiveSheet
    Set xRg = xWS.ListObjects(xName).Range
    If xStr <> "" Then
        xRg.AutoFilter field:=1, Criteria1:="*" & xStr & "*", Operator:=xlFilterValues
    Else
        xRg.AutoFilter field:=1, Operator:=xlFilterValues
    End If
Err01:
Application.ScreenUpdating = True
End Sub

Qeyd: Kodda, TextBox1 Daxil olunan mətn qutusunun adı, Ad, cədvəl siyahısının adıdır. Siz onları ehtiyaclarınıza görə dəyişə bilərsiniz.

7. Basın Dayandırmaq + Q düymələri bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

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

İndi cədvəl siyahı mətn qutusuna daxil edilmiş dəyəri əsas götürərək anında axtarışa və filtrelenecektir. Ekran görüntüsü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.