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
152
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
Yritystuet 10 mrd. vuodessa, eli yrittäjäriski valtiolla kuten kommunismissa
Pelkästään Viking Linen viinanhakuristeilyitä sponsoroidaan 20 miljoonalla eurolla vuosittain. Dieselin verotukikin on556613- 575803
Sture Fjäder haluaa tuensaajien nimet julki
Kokoomuspoliitikko haluaa yli 800 euroa kuukaudessa tukia saavien nimet julki. Ehkä olisi syytä julkaista myös kuvat? h1105139En saa sua mielestäni vaikka tekisin mitä
Mikä tähän auttaa.. ei mikään. Edes aika. Kaivan sut kohta vaikka kivenkolosta että saan kysyä haluatko sinäkin💛163883Luotathan siihen tunteeseen, joka välillämme on?
Uskothan myös, että se kestää tämän? Kaipaan sinua valtavasti. Vielä tehdään yhdessä tästä jotain ihmeellistä ja kaunist443783Riikka on siis suomalaisille velkaa 84 mrd
Jos kauhukabinetti istuu vaalikauden loppuun. Keskimäärin yli 20 miljardia uutta velkaa rikkaiden veronalennuksiin jokai1323480Onnettomuus
Hukkajärventiellä kolaroi lavetti ja henkilöauto. Uutista ei missään! Hys hys ollaanko hiljaa tästäkin?53350Sanna on suomalaisille siis velkaa 24 mrd euroa
Muistanette vielä kuinka Italian remonttirahoja perusteltiin sillä, että italialaiset ostaa suomalaisilta paidatkin pääl1702940- 252749
Maahanmuuttajat torjuvat marjanpoiminnan - "emme ole rottia"
Ruotsalaisen journalistin selvitys paljasti, miksi maahanmuuttajat kieltäytyvät työstä. Taustalla vaikuttavat kulttuuris522608