İ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 Combo Box seçilmiş dəyərinə görə müəyyən bir iş kitabını necə açmaq olar?

Göründüyü ekran görünüşü kimi, mövcud iş kitabının bütün hesabat adlarını ehtiva edən bir Combo Box var. Və indi, Combo Box-da müvafiq hesabat adını seçərkən xüsusi bir iş səhifəsini açmaq istəyirlər. Necə nail olmaq olar? Bu yazıda istifadə edilən üsul sizə kömək edə bilər.

VBA kodu ilə Combo qutunun seçilmiş dəyərinə görə müəyyən bir iş səhifəsini açın


Asanlıqla Excel-də cari iş kitabının bütün hesabatı adlarını qeyd edin:

İş kitabınızdakı hesabat indeksini istifadə edərək, iş sənədlərini asanlıqla idarə etməyə kömək edir. İlə Sehife adlarının siyahısı yaradın faydası Excel üçün Kutoolsdaxilində mövcud iş kitabçası siyahısının bütün hesabatı adları ilə asanlıqla bir hesabat indeksi yarada bilərsiniz. İndi Index iş səhifəsində hesabat adını tıklayaraq tez bir şəkildə müəyyən bir işə keçə bilərsiniz. Aşağıdakı ekran görüntüsünə baxın:

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


arrow mavi sağ bubble VBA kodu ilə Combo qutunun seçilmiş dəyərinə görə müəyyən bir iş səhifəsini açın


Aşağıdakı VBA kodu, Excel-də Combo Box seçiminə əsasən müəyyən bir iş formasına girməyə kömək edə bilər. Xahiş edirik bunu edin.

Qeyd: Əgər Combo Box sizin iş səhifənizdə hər hansı bir hesabat adını içermiyorsa, bütün barmağı adlarını həmin Combo Box-a tez bir zamanda əlavə etmək üçün aşağıdakı ipucuya əməl edin. Bütün hesabat adlarını ehtiva edən bir Combo Box varsa, xahiş edirik buraya keçin 1 addım birbaşa.

Uc: Çalışma kitabınızda bir 1 Command Buttonu əlavə edin, sağ basın və seçin Kodları baxın sağ tıklayma menyusundan. Sonra aşağıdakı VBA kodu kopyalayın və yapışdırın Kodu pəncərəni basın və basın Dayandırmaq + Q düymələri bağlamaq üçün Proqram üçün Microsoft Visual Basic pəncərə. Daxil olunan Komut Düyməsini basın, sonra mövcud iş kitabının bütün hesabat adları avtomatik olaraq ComboBox1 əlavə olunacaq.

VBA kodu: asanlıqla bütün hesabat adlarını bir Combo Box daxil edin

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next

End Sub

Bütün hesabat adlarını ehtiva edən bir Combo Box varsa, xahiş etdiyiniz kimi edin.

1. Yandırın Dizayn Moda Altında Developer nişanı.

2. Səbət adları ilə birləşmə qutusuna sağ basın və sonra basın Kodları baxın sağ tıklayarak menyudan.

doc birləşmə qutusu açıq iş səhifəsi 12png

3. Sonra da Proqramlar üçün Microsoft Visual Basic pəncərə açılır, kod VBA kodunu aşağıdakı VBA kodu ilə əvəz edin.

VBA kodu: Combo Box'un seçilmiş dəyəri ilə xüsusi iş səhifəsini açın

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
    
End Sub

Qeyd: kodda ComboBox1, hesabat adlarını ehtiva edən bir qutunun adıdır.

4. Basın Dayandırmaq + Q düymələri bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərəni bağlayın və söndürün Dizayn Moda Altında Developer nişanı.

Hal-hazırda, Combo Box-da hər hansı bir işçi adı seçərkən müvafiq iş səhifəsi avtomatik olaraq açılacaqdır.


arrow mavi sağ bubbleƏlaqəli məqalələr:



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.
    Ahmad Naser · 1 years ago
    hi
    i just removed my excel file by converting it from 2016 to 2010. Then converting back to 2016 and put new password.
  • To post as a guest, your comment is unpublished.
    yaseen muhammad · 1 years ago
    perfectly working.if your sheet name different then change the sheet name also.without changing the sheet name code does not working. thanks for sharing .