Eli miten saa pikanäppäimillä aloitettua esim. jonon 1,2...? Eli kun excel-taulukkoon on kirjoitettu ynsimmäiseen soluu 1 ja toiseen soluun 2, niin pelkästään näppäimistöllä tehtyä esim. lukujonon 1,2,3
,4,5,6,7,8,9,10? CTRL D kokeilin, mutta se muuttaa kaikki 1,1,1,1,1,1,1,1,1,1
Pikanäppäin peräkkäisen jonon tekemiseen
5
1227
Vastaukset
moduuliin...
Sub Automaattitäyttö()
'alkusolut = solut, joissaa on sarjantekoon tarvittavat tiedot eli aktiivinen solu ja sitä edeltävä solu ylöspäin
'voi olla myös vasemallla ,oikealla ylhäällä- pitää muuttaa offsetteja
'ActiveCell.Offset(9, 0)) nyt 10 solun sarja alaspäin- muuta lukua tarvittaessa
'liitä maro pikanäppäimeen TOOLS/MACRO/MACROS/OPTIONS ja liitä kirjain pikanäppäinyhdistelmaan SHIFT CTRL D
Dim Alkusolut As Range
Dim Täyttöalue As Range
Set Alkusolut = Range(ActiveCell, ActiveCell.Offset(-1, 0))
Alkusolut.Select
Set Täyttöalue = Range(ActiveCell, ActiveCell.Offset(9, 0))
Täyttöalue.Select
Alkusolut.AutoFill Destination:=Täyttöalue
End Suboikea koodi- noi select rivit oli vain testejä varten...
Dim Alkusolut As Range
Dim Täyttöalue As Range
Set Alkusolut = Range(ActiveCell, ActiveCell.Offset(-1, 0))
Set Täyttöalue = Range(ActiveCell, ActiveCell.Offset(9, 0))
Alkusolut.AutoFill Destination:=Täyttöalue
End Sub- Äkselli
kunde kirjoitti:
oikea koodi- noi select rivit oli vain testejä varten...
Dim Alkusolut As Range
Dim Täyttöalue As Range
Set Alkusolut = Range(ActiveCell, ActiveCell.Offset(-1, 0))
Set Täyttöalue = Range(ActiveCell, ActiveCell.Offset(9, 0))
Alkusolut.AutoFill Destination:=Täyttöalue
End SubTäytä solut yks ja kaks -> maalaa solut -> tartu reunasta -> vedä haluamasi määrä
- Jelppi
Äkselli kirjoitti:
Täytä solut yks ja kaks -> maalaa solut -> tartu reunasta -> vedä haluamasi määrä
Hiirellä joo saa, mutta näppiksellä jos sais nopeempaa työskentelyä vielä
Jelppi kirjoitti:
Hiirellä joo saa, mutta näppiksellä jos sais nopeempaa työskentelyä vielä
mun koodihan tekee just niin kuin halusit
SHIFT CTRL D
;-)
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht2394613Kuka rääkkää eläimiä Puolangalla?
Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii763055- 472463
Meneeköhän sulla
oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua451767- 281703
- 791451
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘851285PS uusimman gallupin rakettimainen nousija
https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden143965- 69948
Sellainen tunne sydämessä
Että nainen olet kaivannut minua. Tai sanonko että oikeastaan koet sitä samaa nostalgiaa, kaipuuta ja mukavia muistoja,86894