Tällainen lapsellisen helppo juttu osaavalle. Tarkoituksena olisi saada aikaiseksi Makro, mikä lukee läpi koko rekisterin.
Solussa B on päivämäärä, joka pitää ensin muuttaa elettäväksi vuodeksi.
B 09.11.1999 muutetaan C 09.11.2011
Seuraavaksi C 09.11.2011 vähennetään pois 4 kuukautta.
Vähennyksen jälkeen saatu tulos 09.07.2011 siirretään soluun D
Näiden operaatioiden jälkeen varsinainen asia:
E solussa on valmiina vertailu päivämäärä.
Makro vertailee C,D ja E solujen arvoja.
Siis:
B 09.11.1999 > C 09.11.2011
pp.kk pysyvät samana vain vvvv vaihtuu elettäväksi vuodeksi
tulos viedään soluun C
C 09.11.2011 > D 09.07.2011
vähennetään 4 kuukautta solusta C ja tulos viedään soluun D
IF C > E THEN G = ”Myöhässä”
IF D < E THEN G = ”Tulossa”
C 09.11.2011
D 09.07.2011
jos C on suurempi kuin E viedään soluun G ’Myöhässä’
jos D on pienempi kuin E viedään soluun G ’Tulossa’
Kunde neuvotko
8
161
Vastaukset
Sub Tarkista()
Dim vika As Long
Dim solu As Range
vika = Range("B65536").End(xlUp).Row
For Each solu In Range("B1:B" & vika)
solu.Offset(0, 1) = DateSerial(Year(Date), Month(solu), Day(solu)) ' c-solu
solu.Offset(0, 2) = DateSerial(Year(solu), Month(solu) - 4, Day(solu)) ' d-solu
solu.Offset(0, 2) = solu.Offset(0, 2).Value
Select Case True ' vertailu
Case solu.Offset(0, 1) > solu.Offset(0, 3) 'c>e
solu.Offset(0, 5) = "Myöhässä"
Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd- Jo on hankalaa
Kiitos vaivannäöstä. Tällaista herjaa:
Compile error:
Select Case without End Select
Lisäsin:
Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd - Jo on hankalaa
Jo on hankalaa kirjoitti:
Kiitos vaivannäöstä. Tällaista herjaa:
Compile error:
Select Case without End Select
Lisäsin:
Case solu.Offset(0, 2) < solu.Offset(0, 3) 'dsorry, siis lisäsin:
.
.
Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd - Jo on hankalaa
Jo on hankalaa kirjoitti:
sorry, siis lisäsin:
.
.
Case solu.Offset(0, 2) < solu.Offset(0, 3) 'dVieläkin sorry.
onko niin, että tämä Suomi24 saitti, sotkeutuu tuohon viimeiseen
Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd
riviin, eikä näytä koodista loppuja? Jo on hankalaa kirjoitti:
Vieläkin sorry.
onko niin, että tämä Suomi24 saitti, sotkeutuu tuohon viimeiseen
Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd
riviin, eikä näytä koodista loppuja?ei oo eka kerta kun foorumi sekoilee...
nytkin heittelee minne sattuu kun yrittää vastata tähän...
Sub Tarkista()
Dim vika As Long
Dim solu As Range
vika = Range("B65536").End(xlUp).Row
For Each solu In Range("B1:B" & vika)
solu.Offset(0, 1) = DateSerial(Year(Date), Month(solu), Day(solu)) ' c-solu
solu.Offset(0, 2) = DateSerial(Year(Date), Month(solu) - 4, Day(solu)) ' d-solu
Select Case True ' vertailu
Case solu.Offset(0, 1) > solu.Offset(0, 3) 'c>e
solu.Offset(0, 5) = "Myöhässä"
Case solu.Offset(0, 2) < solu.Offset(0, 3) 'dkunde kirjoitti:
ei oo eka kerta kun foorumi sekoilee...
nytkin heittelee minne sattuu kun yrittää vastata tähän...
Sub Tarkista()
Dim vika As Long
Dim solu As Range
vika = Range("B65536").End(xlUp).Row
For Each solu In Range("B1:B" & vika)
solu.Offset(0, 1) = DateSerial(Year(Date), Month(solu), Day(solu)) ' c-solu
solu.Offset(0, 2) = DateSerial(Year(Date), Month(solu) - 4, Day(solu)) ' d-solu
Select Case True ' vertailu
Case solu.Offset(0, 1) > solu.Offset(0, 3) 'c>e
solu.Offset(0, 5) = "Myöhässä"
Case solu.Offset(0, 2) < solu.Offset(0, 3) 'dno loppuosa sitten...
solu.Offset(0, 5) = "Tulossa"
Case Else
MsgBox "mitähän tässä tapauksessa?"
End Select
Next
End Subkunde kirjoitti:
no loppuosa sitten...
solu.Offset(0, 5) = "Tulossa"
Case Else
MsgBox "mitähän tässä tapauksessa?"
End Select
Next
End Subvois ylläpiito laittaa kooditagit näihin ohjelmointiosioihin...
- Jo ei hankalaa
kunde kirjoitti:
no loppuosa sitten...
solu.Offset(0, 5) = "Tulossa"
Case Else
MsgBox "mitähän tässä tapauksessa?"
End Select
Next
End SubHuomenta eli päivää sinne. Kiitos kokeilen jännittyneenä.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Sanna Marin vetänyt leukoja 11 kertaa
Tästähän oli joskus polemiikkia, kun muistaakseni lupasi kymmenen tai jotain vedellä. No nyt niin on, ainakin omien san1036352Suomalainen tutkimus paljasti oudon asian vasemmistolaisista - he häpeävät itseään
Kyllä, asia on faktaa. Suomalainen tutkimus osoittaa, että vasemmistolaisina itseään pitävät kansalaiset häpeävät itseää1182977Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa
Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri2822748- 1472693
Farmi Suomi: Kokeeko Frederik, 81, saman kohtalon kuin ikämies Danny?
Danny, musiikkineuvos Ilkka Lipsanen, nähtiin mukana Farmi Suomi -realityssä v. 2024. Danny teki yllätysratkaisun ja tuo372358Tyhmä persuväite = köyhä argumentti
Väite, että vasemmistopuolueita äänestäisivät vain “köyhät, tapatyöttömät tai heikoilla lahjoilla varustetut”, kertoo en712306Tiesitkö? Andy McCoy ja Pelle Miljoona saavat taiteilijaeläkettä - Tämän suuruinen eläke on
Ylimääräiset taiteilijaeläkkeet on jaettu ja 59 taiteilijaa sai sen. Taiteilijoiden keskimääräinen eläketulo jää hyvin a761760Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla
Frederik veti ns. herneen nenään ja päätti kostaa pehtoorille. Mitäs mieltä olet Frederikin "aamutoimista"? Lue jutt81705- 531613
Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."
Ellen Jokikunnaksen ja hänen puolisonsa Jari Raskin perheestä ja taloprojektista Italiassa kertova Unelmia Italiassa -sa41465