Megjegyzés: A webhely többi nyelvét a Google fordítja. Vissza az angol nyelvre
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Hogyan nyomtathat bizonyos oldalakat vagy munkalapot az Excel cellája alapján?

Megpróbált már kinyomtatni bizonyos oldalt vagy munkalapot az Excel cellája alapján? És hogyan lehet elérni? Az ebben a cikkben szereplő módszerek segítséget nyújtanak a részletek megoldásában.

Bizonyos oldal nyomtatása a cellaérték alapján, VBA kóddal
Bizonyos munkalap nyomtatása a cellaérték alapján, VBA kóddal


Bizonyos oldal nyomtatása a cellaérték alapján, VBA kóddal


Például azt szeretné, hogy egy bizonyos oldal, például az aktuális munkalap 1. oldala automatikusan kinyomtatódjon, amikor az 1. oldalszámot beírja az aktuális munkalap A1 cellájába. Ennek eléréséhez a következőket teheti.

1. Jelölje ki a nyomtatni kívánt oldalszámot tartalmazó cellát, majd nyomja meg az gombot más F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak. Ezután kattintson a gombra betétlap > Modulok.

2. Ezután a Microsoft Visual Basic for Applications ablak felbukkan, kérjük, másolja és illessze be a következő VBA kódot a Kód ablak.

VBA kód: Oldal nyomtatása a cellaérték alapján

Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then
        xPage = .Value
    Else: MsgBox "Please specify a cell and enter a page in cell"
        Exit Sub
    End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
    ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
    Exit Sub
End If
End Sub

3. nyomja meg F5 gombot a kód futtatásához. A felbukkanóban Kutools for Excel párbeszédpanelen kattintson a Igen gombra az adott oldal kinyomtatásához, vagy kattintson a gombra Nem gombot a párbeszédpanelből való kilépéshez, ha nem akar nyomtatni. Lásd a képernyőképet:

Ezután megnyílik az aktuális munkalap bizonyos oldalának előnézete, kattintson a gombra gombot a nyomtatás megkezdéséhez.


Bizonyos oldal nyomtatása a cellaérték alapján, VBA kóddal

Tegyük fel, hogy az aktív munkalapot szeretné kinyomtatni, ha a lap B2 cellájának értéke megegyezik a 1001. számmal. Ezt a következő VBA kóddal érheti el. Kérjük, tegye a következőket.

1. Kattintson a jobb gombbal a Lap fül amelyet a cellaérték alapján szeretne kinyomtatni, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.

2. Ezután a Microsoft Visual Basic for Applications megjelenik az ablak, kérjük, másolja és illessze be a következő VBA kódot a Kód ablakba.

VBA kód: Munkalap nyomtatása a cellaérték alapján

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
    If xCell.Value = 1001 Then
        xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
        If xYesorNo = vbYes Then
          ActiveSheet.PrintOut
        Else
           Exit Sub
        End If
End If
End Sub

Megjegyzések: Igény szerint megváltoztathatja a cella és a cella értékét a kódban.

3. nyomja meg más + Q bezárni Microsoft Visual Basic for Applications ablak.

Amikor beírja az 1001 számot a B2 cellába, a Kutools for Excel megjelenik a párbeszédpanel, kattintson a gombra Igen gombot a nyomtatás megkezdéséhez. Vagy kattintson a gombra Nem gombot a párbeszédpanel közvetlen nyomtatás nélküli kilépéséhez. Lásd a képernyőképet:

Tipp: Ha közvetlenül nem egymás után következő oldalakat szeretne kinyomtatni, például az aktuális munkalap 1., 6. és 9. oldalát, vagy csak az összes páros vagy páratlan oldalt szeretné kinyomtatni, próbálja ki a A megadott oldalak nyomtatása segédprogram pf Kutools for Excel az alábbi képernyőképen látható. Mehetsz 30 nap alatt ingyenesen letöltheti a szoftvert korlátozás nélkül.


Kapcsolódó cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Super Formula Bar (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
Say something here...
symbols left.
You are guest
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.
    Ryan · 1 years ago
    This was very helpful! Is there a way to print multiple pages? For example, if cell A1 = 5, print pages 1-5.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Ryan,
      If you want to print consecutive pages such as 1-5 in a worksheet based on a cell value, please specify a cell such as A1 as Text formatting, type 1-5 into it, keep this cell selecting, and then run the below VBA code.

      Sub Print_Pages()
      Dim xPage As String
      Dim xYesorNo As Integer
      Dim xI As String
      Dim xPArr() As String
      Dim xIS, xIE, xF, xNum As Integer
      xPage = ActiveCell.Value
      xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
      If xYesorNo = vbYes Then
      xPArr() = Split(xPage, "-")
      If UBound(xPArr) = 0 Then
      If IsEmpty(xPage) And IsNumeric(xPage) Then
      MsgBox "Please specify a cell and enter a page in cell"
      Exit Sub
      End If
      xNum = Int(xPage)
      ActiveSheet.PrintOut from:=xNum, To:=xNum, preview:=True
      ElseIf UBound(xPArr) = 1 Then
      On Error GoTo Err01
      xIS = Int(xPArr(0))
      xIE = Int(xPArr(1))
      If xIS < xIE Then
      For xF = xIS To xIE
      ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
      Next
      Else
      For xF = xIE To xIS
      ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
      Next
      End If
      Else
      MsgBox "Please enter the valid data", vbOKOnly, "Kutools for Excel"
      Exit Sub
      End If
      Else
      Exit Sub
      End If
      Exit Sub
      Err01:
      MsgBox "Please enter the correct page scope", vbOKOnly, "Kutools for Excel"
      End Sub
      • To post as a guest, your comment is unpublished.
        Manny · 5 months ago
        Thank you. I have the same issue I want to print pages based on cell value. Lets say variable changes i.e page 1-5 and then some time 2-6. So I have a field which will calculate and will put that in text format as suggested.But for some reason it doesnt work for me. It doesnt prints any pages.
        Can you please advise