A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Gyorskeresés
Legfrissebb anyagok
- Bemutató Spyra: akkus, nagynyomású, automata vízipuska
- Bemutató Route 66 Chicagotól Los Angelesig 2. rész
- Helyszíni riport Alfa Giulia Q-val a Balaton Park Circiut-en
- Bemutató A használt VGA piac kincsei - Július I
- Bemutató Bakancslista: Route 66 Chicagotól Los Angelesig
Általános témák
LOGOUT.hu témák
- [Re:] [Sub-ZeRo:] Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- [Re:] eBay-es kütyük kis pénzért
- [Re:] [gban:] Ingyen kellene, de tegnapra
- [Re:] [sziku69:] Fűzzük össze a szavakat :)
- [Re:] [sziku69:] Szólánc.
- [Re:] [Luck Dragon:] Asszociációs játék. :)
- [Re:] [Brogyi:] CTEK akkumulátor töltő és másolatai
- [Re:] Elektromos rásegítésű kerékpárok
- [Re:] [bb0t:] Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- [Re:] [MikaVejneGI:] Acer Nitro 17 - A kis asztali gép
Szakmai témák
PROHARDVER! témák
Mobilarena témák
IT café témák
Téma összefoglaló
- Utoljára frissítve: 2023-11-13 08:31:56
LOGOUT.hu
Hozzászólások
Fferi50
őstag
Szia!
Eseménykezelő makróval oldható meg. A táblázat egy celláját "kinevezed" sorszámnak.
A Munkafüzet Before_Print eseménykezelőjében a cellában levő számot növeled eggyel.
VBA nézet (Alt F11) Thisworkbook kódlapjára beírod ezt:Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1").Value = Range("A1").Value + 1
End Sub
Így minden nyomtatás előtt növeli a sorszámot.
Az is megoldható, hogy a nyomtatás előtt megkérdezze, valóban nyomtatni szeretne-e.Private Sub Workbook_BeforePrint(Cancel As Boolean)
If MsgBox("Valóban nyomtatni szeretne?", vbQuestion + vbYesNo) = vbYes Then
Range("A1").Value = Range("A1").Value + 1
Else
Cancel = True
End If
End Sub
A fájlt makróbarátként kell menteni.
Üdv.
[ Szerkesztve ]
Mai Hardverapró hirdetések
prémium kategóriában
- - 44% OMEN by Hp 15"iPS 144Hz, 99% sRGB -- RTX3070-8G, Ryzen 7-5800, 16/512NVME WiFi6 2025/0317+SZLA
- ASUS TUF RTX 3070 8GB OC - eladó!
- iPad Pro 11" 2022 256GB M2 + Apple Pencil (2. gen) + Mous tok
- MECHANIC PCB repair PAD - 2. generációs kialakítás
- DC csatlakozós ventilátor kábel - 1 utas vagy 3 utas változat