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
168
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
IS: Väitöstutkimus - Pyöräilybuumi oli pelkkä kupla!
Pyöräilybuumista paljastui karu totuus Väitöstutkimuksen mukaan suuri suomalainen pyöräilyrenessanssi olikin vain pelkk51264Turussa Varissuolla bussikuski ajoi lapsen yli lapsi kuoli
Poliisi " Epäilee " kuskia törkeästä liikenneturvallisuuden vaarantamisesta ja törkeästä kuolemantuottamuksesta.1681183Milloin bikineistä
Tuli juhla tai esiintymis asu? Pikkasen harkintaa vois käyttää. Bikinit kuuluvat uimarannalle. No, mitä maailman tähdet1021045Mene perheinesi arkkiin - kasteelle !
Juutalaiset oli hyvin lapsirakkaita, mitään ehkäisyä ei käytetty. Perheissä oli paljon lapsia. Viiden koko perheen kast470987- 131884
Me, kaikki suomalaiset, emme pommita Pietaria
Vaikka Suomen tasavalta, yhdessä muun Euroopan sekä USA:n kanssa käykin hyökkäyssotaansa Venäjää vastaan, pommittaen nyt271879Olimmeko molemmat
ujoja ja hankalia, vai minä vain? Mietin, oliko se silloin epävarmuutta vai kiinnostuksen puutetta.71874Johanna Tukiainen ei suostu muuttamaan pois vuokra-asunnosta!
Seiska kertoi tänään, että Johanna Tukiainen ei ole suostunut poistumaan Helsingin Munkkisaarenkadun vuokra-asunnostaan.64786Mun on ikävä sua J ,
Mun on ikävä sua J, haluaisin tutustua paremmin (vaikka tämä aivan älytöntä onkin). Voitaisiinko nähdä ja jutella ihan45773Apostolit kastoivat eri tavalla kuin kirkko
Raamatussa on kaksi ristiriitaista kastekaavaa. Toinen ei voi olla oikea. Kumpi on alkuperäinen? "Menkää siis ja tehkää395753