İ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ə hüceyrə dəyərlərinə əsasən xüsusi hesabatı çap etmək üçün necə?

Heç bir hüceyrə dəyərinə əsaslanaraq bəzi xüsusi təbəqələri çap etməyə çalışdınızmı? Bu yazıda, bu məsələ ilə bağlı bəzi nümunələr haqqında danışacağam, bu problemlə maraqlanırsan, davam edin.

VBA ilə bir hüceyrə əsasında yazdırın

VBA ilə bitişik hüceyrəyə əsaslanan hesabatı yazdırın


VBA ilə bir hüceyrə əsasında yazdırın


Sheet1-də Cell A2 əsasında Sheet1 və ya Sheet1 və ya hər iki səhifəni çap etmək istəyirik. Xahiş edirik, aşağıdakıları yerinə yetirin:

Bu halda, 1 daxil edin ilk hesabatı çap, ikinci hesabatı çap üçün 2 daxil edin və hər iki təbəqə çap 3 göstərir.

1. 1, 2 və ya 3 daxil edin, ilk hesabatda A1-ə ehtiyacınız var və basın Alt + F11 açmaq üçün açarlar Proqramlar üçün Microsoft Visual Basic pəncərə. Ekran görüntüsünə baxın:
1 hücresi ilə doc çap hesabatı

2. klik Taxmaq > Modulesvə kodu aşağıda qoyun Modules skript. Ekran görüntüsünə baxın:

VBA: Hüceyrə dəyərinə əsaslanan Çap Sətri

Sub PrintStuff()
'UpdayebyExtendoffice20180811
    Dim xRgVal As Variant
    Dim xSheets As Sheets
    Set xSheets = ActiveWorkbook.Worksheets
    xRgVal = xSheets(1).Range("A1").Value
    If (IsNumeric(xRgVal)) And (Len(xRgVal) = 1) Then
        Select Case xRgVal
            Case 1
                xSheets(1).PrintOut
            Case 2
                xSheets(2).PrintOut
            Case 3
                xSheets(1).PrintOut
                xSheets(2).PrintOut
            Case Else
                MsgBox "Enter1,2 or 3 into A1(1 print Sheet1 2 print Sheet2 3 print Sheet1 and Sheet2 ", , "KuTools For Excel"
                Exit Sub
            End Select
    Else
        Exit Sub
    End If
End Sub

2 hücresi ilə doc çap hesabatı

3. Basın F5 birbaşa hesabatı çap etdirmək üçün açar.


VBA ilə bitişik hüceyrəyə əsaslanan hesabatı yazdırın

Bir iş kitabında birdən çox təbəqə varsa və bu iş kitabından hüceyrə dəyərlərinə əsasən bir və ya bir neçə təbəqəni çap etmək istəyirsinizsə, aşağıdakıları edə bilərsiniz:

1. Adlı yeni bir hesabat yaradın İdarəetmə nüsxəsi istifadə etdiyiniz iş kitabında və S hesabatında bütün hesabatların adını qeyd edin (lazım olduğu təqdirdə nəzarət formasını daxil edin və ya istisna et). Ekran görüntüsünə baxın:
3 hücresi ilə doc çap hesabatı

2. Tipi "çap"Yazdırmaq istəyirsinizsə, hesabat adının yanında olan bitişik hüceyrədə. Ekrana baxın.
4 hücresi ilə doc çap hesabatı

3. Basın Alt + F11 düymələri təmin etmək üçün Proqramlar üçün Microsoft Visual Basic pəncərə və basın Taxmaq > Modules. Ekran görüntüsünə baxın:
5 hücresi ilə doc çap hesabatı

4. Aşağıdakı kodu Modula qoyun və basın F5 kodunu çalıştırmak üçün düyməsini basın.

VBA: Bitişik hüceyrəyə əsaslanan çap

Sub CreateControlSheet()
'UpdatebyExtendoffice20170811
    Dim i As Integer
    Dim xCSheetRow As Integer
    Dim xSName As String
    Dim xCSheet As Variant
    Dim xRgVal As String
    On Error Resume Next
    xSName = "Control Sheet"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xCSheet = ActiveWorkbook.Worksheets(xSName)
    xCSheetRow = xCSheet.Range("B65536").End(xlUp).Row
    For i = 2 To xCSheetRow
        xRgVal = xCSheet.Range("B" & i).Value
        If xRgVal = "Print" Or xRgVal = "print" Then
            If xCSheet.Range("A" & i).Value <> "" Then
                ActiveWorkbook.Worksheets(xCSheet.Range("A" & i).Value).PrintOut
            End If
        End If
    Next
    xCSheet.Delete
    ActiveWorkbook.Worksheets.Add
    ActiveSheet.Name = "Control Sheet"
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Sheet Name"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Print?"
    For i = 1 To ActiveWorkbook.Worksheets.Count
        Range("A" & i + 1).Value = ActiveWorkbook.Worksheets(i).Name
    Next
    Cells.Columns.AutoFit
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

6 hücresi ilə doc çap hesabatı

Kodu işlədikdən sonra, hesabatlar (lər) dərhal çap olunacaq və eyni zamanda yeni bir İdarəetmə Şkafı köhnəni əvəz edəcəkdir.

İpucu.Əgər Excel üçün Kutools'S Sehife adlarının siyahısı yaradın fayldan istifadə edə bilərsiniz, tez bir tıklaya bilən link ilə yeni bir hesabatda bütün hesabat adlarının siyahısını yarada bilərsiniz. 60 gündə məhdudlaşdırılmadan tam funksiyası, yükləyin və indi pulsuz bir sınaq versiyasını edin.


7 hücresi ilə doc çap hesabatı

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.