İ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ə açılan siyahıdakı bütün variantları necə çap etmək olar?

Heç bir Excel səhifəsində açılır siyahıdakı bütün variantları çap etməyə çalışdınızmı? Bu yazı, açılan siyahıdakı bütün variantları Excel-də ayrı çapa yazdırmaqdan bəhs edir.

VBA kodu ilə açılan siyahıdakı bütün variantları yazdırın


Asanlıqla Excel-də mövcud səhifələrdə müəyyən səhifələri çap edin:

İlə Xüsusi səhifələr çap faydası Excel üçün Kutools, asanlıqla mövcud iş səhifəsində göstərilən səhifələri asanlıqla çap edə bilərsiniz tək səhifələrBütün hətta səhifələr, yalnız yazdırın Cari səhifə, eləcə də ekran görüntüsünün aşağıda göstərildiyi kimi xüsusi səhifənin çapını çap etdirin.

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!


VBA kodu ilə açılan siyahıdakı bütün variantları yazdırın


Aşağıdakı VBA kodu iş yerindəki bir açılır siyahıdakı bütün variantları çap etməyə kömək edə bilər. Xahiş edirik bunu edin.

1. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərədə basın Taxmaq > Modules. Sonra aşağıdakı VBA kodunu Module pəncərəsinə kopyalayın. Ekran görüntüsünə baxın:

VBA kodu: Müəyyən bir açılan siyahıdakı bütün variantları ayrı çapa yazdırın

Sub Iterate_Through_data_Validation()
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgVList As Range
    Set xRg = Worksheets("Sheet1").Range("B8")
    Set xRgVList = Evaluate(xRg.Validation.Formula1)
    For Each xCell In xRgVList
        xRg = xCell.Value
        ActiveSheet.PrintOut
    Next
End Sub

Qeyd: Kodda, Sheet1 yazdırmaq istədiyiniz açılan siyahıdan ibarət olan iş adıdır. Və B8 hüceyrə açılır siyahıdan ibarətdir. Lazımlı olaraq onları əvəz edin.

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

Beləcə müəyyən bir iş səhifəsində göstərilən açılır siyahıdakı bütün seçimlər ayrı olaraq çap olunur.


Ə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.
    Juliette · 10 months ago
    Thank you for the post, this has helped me a lot. I was wondering if you had a way to do VBA to print Page 1 based on one drop-down selection and print Page 1 and 2 based on another drop-down selection? Thanks for any help you can provide.