Reunaviivan kopioiminen automaattisesti

Yksi tapa voisi olla käyttää ehdollista muotoilua. Eli kun rivinumero jaetaan vitosella ja jakojäännös on nolla, niin piirretään viiva.

Tuosta vähän soveltamalla saattaisi löytyä haluttu lopputulos:

https://support.microsoft.com/fi-fi/help/268568/how-to-use-conditional-formatting-to-shade-every-other-row-in-excel

Tekee muotoilut tulostukseen ja poistaa ne tulostuksen jälkeen
muuta alku ja loppuarvot sopiviksi samoin kuin viivalaji

tavalliseen moduuliin...

Sub Viivat()
Dim Alku As Long
Dim Loppu As Long
Alku = 5
Loppu = 20
For rivi = Alku To Loppu Step 5
With Range("A" & rivi & ":M" & rivi).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDash
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
End With
Next
End Sub

Sub ViivatPois()
Dim Alku As Long
Dim Loppu As Long
Alku = 5
Loppu = 20
Range("A" & Alku & ":M" & Loppu).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A1").Select
End Sub

ja ThisWorkbook (Tämä työkirja) moduuliin...

Private Sub Workbook_BeforePrint(Cancel As Boolean)

On Error Resume Next
Application.EnableEvents = False
Viivat
ActiveWindow.SelectedSheets.PrintOut
ViivatPois
Application.EnableEvents = True
Cancel = True
End Sub


Keep EXCELing
@Kunde

LibreOfficen Calcilla saa seuraavasti:

- valitaan haluttu solualue
- Format-valikosta Conditional Formatting -> Condition..
- Condition 1 -tyypiksi "Formula is", ja arvoksi =MOD(ROW();5)=0
- Apply Style pudotusvalikosta New Style..
- Cell Style -ikkunan Borders-välilehdeltä valitaan haluttu viivatyyppi

Piirrä 5 ja 10 riville haluttu reunaviiva. Valitse hiirellä solualue A5:M14. Tartu hiiren oikealla M14 solun oikeassa alanurkassa olevaan "kahvaan" ja vedä alaspäin niin pitkästi kuin tarvis, "päästä irti" ja avautuvasta valikosta valitse "Täytä vain muotoilu". Nyt sinulla on joka 5 rivillä sama reunamuotoilu.