Miten Excel-taulukkoon saa joka kymmenennen rivin korostettua värillä? Rivejä riittää useampi tuhat, joten ei viitsisi käsipelillä.
Tämä taitaa olla aika yleinen taulukko formaatti, mutta kun ei osaa niin ei osaa :)
Kiitos etukäteen vaivannäöstäsi Excel-Expertti!
Tämä taitaa olla aika yleinen taulukko formaatti, mutta kun ei osaa niin ei osaa :)
Kiitos etukäteen vaivannäöstäsi Excel-Expertti!
Vastaukset 7
Vanhimmat
Nauhoita makro, joka korostaa joka kymmenennen rivin.
Näin se käy!
1. Maalaa 10. ja 20. rivi haluamallasi värillä.
2. Lisää juoksevat numerot/arvot taulukkoon riville 20 asti.
3. Valitse kaikki sarakkeet ensimmäisestä rivistä kahdenteenkymmenenteen asti.
4. Tartu valinnan oikean alakulman plusmerkistä ja vedä alas niin pitkälle kuin haluat (itse vetäisin 9999 asti).
5. Jos tarvitset muita merkkejä numeroiden lisäksi sarakkeisiin lisää "Format Cells" -toiminnolla (esim. #-merkki tai "id" jokaisen numeron eteen).
vastaappa siihen alkuperäiseen kysymykseen.
taulukko, tuhansia rivejä.
vasta omassa vastauksessas selvis että arvot on juoksevia, entä jos arvot on sekalaisia.
Tuhansia rivejä, mutta onneksi juokseva numero ja muut merkit samoja aina yhden sarakkeen joka rivillä.
Tee taulukkoon sheet1:een painike (CommandButton1 oletuksena) ja tuplaklikkaa sitä. Lisää alla oleva koodin pätkä aloitus- ja lopetusrivien väliin:
Private Sub CommandButton1_Click()(EI TÄTÄ RIVIÄ)
Dim Laskuri As Long
Dim Rivi As Integer
Dim RiviVali As Integer
Dim i As Integer
Laskuri = Sheet1.Range("J1").Value
Rivi = Sheet1.Range("I1").Value
RiviVali = Sheet1.Range("K1").Value
For i = 0 To Laskuri Step RiviVali
Sheet1.Rows(Rivi i).Select
With Selection
.Interior.ColorIndex = 3
End With
Next
End Sub (EI TÄTÄ RIVIÄ)
Soluun I1 tulee ensimmäisen maalattavan rivin numero.
Soluun J1 tulee koko alueen rivien lukumäärä (sinulla taisi olla tuhansia).
Soluun K1 tulee maalattavien rivien väli, eli luvulla 10 joka kymmenes rivi maalataan.
ps. Jos taulukkosi ei ole sheet1, joudut muuttamaan koodiin oikean sheetin.
Toimii kuin pommi.
Tee toinen painike, jolla saat kommaririvit pois.
Koodi on:
Private Sub CommandButton2_Click()
Dim Laskuri As Long
Dim Rivi As Integer
Dim i As Integer
Laskuri = Sheet1.Range("J1").Value
Rivi = Sheet1.Range("I1").Value
For i = i To Laskuri
Sheet1.Rows(i).Select
With Selection
.Interior.ColorIndex = xlColorIndexNone
End With
Sheet1.Range("A1").Select
End Sub
End With-rivin jälkeiselle riville sana Next niin toimii tuo poisto.