Miten onnistuu reunaviivan (alareunan pisteviivan) kopioiminen 5 rivin välein automaattisesti?
Tarkoituksena helpottaa paperitulosteista lukua oikealta riviltä.
Rivejä reilu 500.
Ja jos onnistuu, niin muotoilu olisi A - M sarakkeissa.
Reunaviivan kopioiminen automaattisesti
5
264
Vastaukset
- mod.row
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- Librellä
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- Evoluutiomalli
Merkki solussa A1 kytkee viivoituksen päälle:
=AND($A$1="x"; MOD(ROW();5)=0)
Toimii myös Excelissä.
- oikeahiiri
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.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."
Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww675331- 573565
Suodatinpussin kastelemalla saa parempaa kahvia
Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap1502651Tidätkö nainen
että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o1052136Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.891822Onkohan sinulla kaikki hyvin?
Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...381277Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"
Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-211269En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois961228Huikeeta, mahtavaa, ihan mielettömän upeeta
Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M1951202- 1731136