Taulukossa on kirjoitettuna päivämäärä muotoon 10.10.1985.
Tämä pitäisi saada _luvuksi_ muotoon 101085. Excelin oma matematiikka ei tässä oikein toimi, kun se laskee päivät yhteen vuodesta 1900 asti. Kuinka onnistuu? (näitä on useita eikä ole aikaa kirjoittaa kaikkia käsin)
Päivämäärä luvuksi
Meio123
3
1077
Vastaukset
moduuliin...
Option Explicit
Function Pvmluvuksi(Solu As Range) As Double
Pvmluvuksi = CDbl(Day(Solu) & Month(Solu) & Format(Solu, "yy"))
End Function
Sub koe()
ActiveCell = Pvmluvuksi(ActiveCell)
ActiveCell.NumberFormat = "General"
End Sub
2 tapaa käyttää , joko
1. Aktivoi solu ja suorita makro Koe (tee nappi makrolle)
2. Solu mihin haluat tuloksen kirjoita kaava esim arvo solusta C1 =Pvmluvuksi(C1)
jos luvut esim tietyssä sarakkeessa, niin silloin voisi tehdä aluemakron ja ei tartteisi yksitellen napsutella
Keep EXCELing
@KundeHyvä ohjelmoitu funktio. Toinen vaihtoehto on funktioiden käyttö seuraavasti.
=POIMI.TEKSTI(TEKSTI(A1;"pp.kk.vv");1;2)&POIMI.TEKSTI(TEKSTI(A1;"pp.kk.vv");4;2)&POIMI.TEKSTI(TEKSTI(A1;"pp.kk.vv");7;2)
Kaava kopioidaan soluun B1 ja alkuarvo on solussa A1. Tämä toimii aina samalla tavalla, oli lähtöarvo 1.1.2001 tai 15.12.2009. Antaa siis tulokseksi 6 merkkiä pitkän merkkijonon.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
4 kuoli kolarissa
Kenen vastuulla tienhoito? Sohjoa ja vettä tie täynnä. Oliko säästetty tienhoidossa? Järkyttävä onnettomuus.27211129Suomea odottaa karu kohtalo
Mitäs menitte uhkailemaan ja leikkimään kovaa. Ei mitään mahdollisuuksia Venäjää vastaan.4133122Nainen, moraali on koetuksella sun kanssa
Koen nyt olevani rappiolla ja kyllä, omaa syytäni ja itsekontrollin puutetta, mutta olethan kyllä puoleensavetävä, ettei931768- 821575
- 671464
- 861046
Onko kenelläkään tästä tietoo?
https://www.haapavesi-lehti.fi/artikkeli/lukijalta-ilkka-repo-etsii-nimettoman-kirjeen-lahettajaa Olisi tärkeä saada te411001Se helpottaisi oloa jos
Se toinen tietäisi että molemmat tykkäämme toisistamme. Se on asia mikä vaivaa ja ahdistaa minua vaikka tilanne olisikin73917Ihastukselleni
Kun viimeksi nähtiin, niin sisälläni repesi myrsky ja salamat iskivät kuin rajuilma. En halunnut katsoa sinua, en halunn21873Ovatko miehet niin heikkoja ja lahjattomia, etteivät siedä tasa-arvoa?
Muutenhan ei ole mitenkään perusteltavissa, miksi miesten pitäisi saada etuoikeuksia ja etumatkaa. Sehän tarkoittaisi, e252858