Gå til hovedindhold

Hvordan udskrives sider med sidetal med romertal?

Vi kan nemt indsætte det romerske sidetal i Word, men Excel understøtter ikke denne funktion for brugere. Nogle gange er vi nødt til at udskrive regnearkssiderne med romertal på sidetal. Hvordan kunne du løse dette job i Excel?

Udskriv sider med romertal med VBA-kode


pil blå højre boble Udskriv sider med romertal med VBA-kode

Der er ingen indbygget funktion, der giver dig mulighed for at udskrive siderne med sidetal med romertal, men du kan oprette en makro, der gør tricket. Gør følgende:

1. Åbn det regneark, du vil udskrive.

2. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

3. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Udskriv sider med romertal

Sub PrintRoman()
'Update 20140924
Dim xCount As Integer
Dim xIndex As Integer
xCount = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For xIndex = 1 To xCount
    Application.ActiveSheet.PageSetup.CenterFooter = Application.Roman(xIndex)
    Application.ActiveSheet.PrintOut from:=xIndex, To:=xIndex
Next
Application.ActiveSheet.PageSetup.CenterFooter = ""
End Sub

4. Tryk derefter på F5 tast for at udføre koden, og alle siderne i det aktive regneark vil blive udskrevet med de romerske sidetal.


Relaterede artikler:

Hvordan udskriver jeg hurtigt første side af hvert ark?

Hvordan udskrives den aktuelle side hurtigt i Excel?

Hvordan udskrives kommentarer hurtigt i Excel?

Hvordan udskrives data midt på siden?

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations