Käytössä Excel 2003 SP3, ja sillä kirjoitettu VBA-koodia. Analysis toolpak VBA (ATPVBAEN) on asianmukaisesti kytketty päälle.
Soluun A1 on kirjoitettu päivämäärä 6.8.2009. Funktio =EOMONTH(A1; -1) palauttaa Excelin puolelta asianmukaisesti 31.7.2009.
Ajetaan seuraavaa koodia:
Option Explicit
Sub testi()
Dim MaksimiPvm As Date
MaksimiPvm = Fix(Application.WorksheetFunction.Max(Range(Cells(1, 1), Cells(2, 1)))) 1
MsgBox "Päiväys on " & Format(eomonth(MaksimiPvm, -1), "dd.mm.yyyy")
End Sub
Sub AddMenu()
Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCutomMenu As CommandBarControl
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("Testi").Delete
On Error GoTo 0
Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")
iHelpMenu = cbMainMenuBar.Controls("Help").Index
Set cbcCutomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup, Before:=iHelpMenu)
cbcCutomMenu.Caption = "Testi"
With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "Aja testi"
.OnAction = "testi"
End With
End Sub
Sub DeleteMenu()
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("Testi").Delete
On Error GoTo 0
End Sub
Lisäksi ThisWorkbookin alle on kirjoitettu seuraavaa:
Private Sub Workbook_Activate()
Run "AddMenu"
End Sub
Private Sub Workbook_beforeclose(Cancel As Boolean)
Run "DeleteMenu"
End Sub
ONGELMA:
Kun koodi ajetaan Tools->Macro->Macros-valikon kautta, Msgbox tulostaa "Päiväys on 31.07.2009" kuten pitääkin. Mutta kun koodi ajetaan Exceliin ilmaantuneen Testi-valikon kautta, sama Msgbox tulostaakin "Päiväys on 30.06.2009". Jos päivämääräksi vaihdetaan solussa A1 5.8.2009, niin Macros-valikon kautta ajettuna koodi toimii edelleenkin kuten pitää, mutta Testi-valikon kautta ajettuna ilmoitus on nyt "Päiväys on 31.05.2009".
Ilmeisesti Excel menee jotenkin solmuun päivämääräasetusten kanssa (eli tulkitsee päivämäärän olevan amerikkalaisessa mm-dd-yyyy-formaatissa vaikkei se sitä olekaan). Milläköhän ilveellä tämänkin "ominaisuuden" saisi nyt estettyä, jottei makrokoodin käyttäjien tarvitsisi käynnistää koodia kömpelösti Macros-valikosta?
VBA: max ja eomonth, mutta kaksi eri tulosta
3
329
Vastaukset
virhettä pukkaa tolla rivillä
MsgBox "Päiväys on " & Format(eomonth(MaksimiPvm, -1), "dd.mm.yyyy")
muutin koodia ja nyt ainakin mun koneella toimii niinkuin pitääkin...
Sub testi()
Dim MaksimiPvm As Date
MaksimiPvm = Fix(Application.WorksheetFunction.Max(Range(Cells(1, 1), Cells(2, 1)))) 1
MsgBox "Päiväys on " & Format(Evaluate("=EOMONTH((A1), -1)"), "dd.mm.yyyy")
End Sub
Keep Excelling
@Kunde- Susivitonen
Ei tuosta koodista mitään käännösvirheitä tule, kunhan tarvittavat palikat (eli lähinnä tuo atpvbaen.xls:n referenssi) ovat paikallaan. Ongelma on se, että koodi ei siis toimi samalla tavalla riippuen siitä, millä tavalla rutiiniin "testi" on päädytty, ja ainakaan omasta mielestäni kirjastofunktioiden toiminta ei pitäisi riippua siitä, onko ohjelma käynnistetty Macros-valikosta vai käynnistämistä varten rakennetusta erillisestä valikosta.
Näyttäisi vahvasti siltä, että kyse on päivämääräformaattitietojen unohtuminen jossain vaiheessa käytettäessä Date-tyyppistä muuttujaa sekä application.worksheetfunction.max- ja eomonth-funktioiden yhdistelmää.
Korjaus
MsgBox "Päiväys on " & format(evaluate("=EOMONTH((A1), -1)", "dd.mm.yyyy")
antaisi tietysti oikean lopputuloksen tässä nimenomaisessa tilanteessa, mutta siitä jää pois tuo max-funktio (oikeaa dataa prosessoitaessa tarkoituksena on seuloa muutaman tuhannen rivin joukosta suurin päivämäärä, laskea edellisen kuukauden päättymispäivä sen perusteella ja verrata tätä arvoa loopissa kaikkien yksittäisten rivien eomonth-funktiolla muutettuun arvoon). Toimiakseen oikein tuo korjaus pitäisi kaiketi kirjoittaa muotoon
MsgBox Format(Evaluate("=EOMONTH(max(A1:A2), -1)"), "dd.mm.yyyy")
mutta jossa olisi kuitenkin se huono puoli, että, tuota evaluate-lausetta sen oikean koodin rakenteen vuoksi pitäisi toistaa muutama tuhat kertaa.
Jos taas kirjoitan rivit muotoon
Dim MaxDate As Date
MaxDate = Evaluate("=MAX(A1:A2)")
MsgBox "Date is " & Format(eomonth(MaxDate, -1), "dd.mm.yyyy")
eli tallennan tuon suurimman päiväyksen arvon muuttujaan, ja sovellan sille eomonth-funktiota erikseen, niin homma ei yllättävää kyllä toimi edelleenkään oikein silloin, kun koodi käynnistetään sieltä Exceliin rakennetusta test-menusta. Macros-menusta käynnistettynä ongelmia ei esiinny.
Kirjoitettuna muotoon
Dim MaxDate As Double
MaxDate = Fix(Application.WorksheetFunction.Max(Range(Cells(1, 1), Cells(2, 1)))) 1
MsgBox "Date is " & Format(eomonth(MaxDate, -1), "dd.mm.yyyy")
koodi taas yllättäen toimii oikein kummallakin käynnistystavalla, ts. kun max-funktiolla etsitty suurin päivämäärä tallennetaankin vääräntyyppiseen muuttujaan (double), kuukauden ja päivän sekoittumista keskenään ei esiinnykään.
Olen vahvasti sitä mieltä, että havaitsemassani tilanteessa kysymys on Excelin bugista. Susivitonen kirjoitti:
Ei tuosta koodista mitään käännösvirheitä tule, kunhan tarvittavat palikat (eli lähinnä tuo atpvbaen.xls:n referenssi) ovat paikallaan. Ongelma on se, että koodi ei siis toimi samalla tavalla riippuen siitä, millä tavalla rutiiniin "testi" on päädytty, ja ainakaan omasta mielestäni kirjastofunktioiden toiminta ei pitäisi riippua siitä, onko ohjelma käynnistetty Macros-valikosta vai käynnistämistä varten rakennetusta erillisestä valikosta.
Näyttäisi vahvasti siltä, että kyse on päivämääräformaattitietojen unohtuminen jossain vaiheessa käytettäessä Date-tyyppistä muuttujaa sekä application.worksheetfunction.max- ja eomonth-funktioiden yhdistelmää.
Korjaus
MsgBox "Päiväys on " & format(evaluate("=EOMONTH((A1), -1)", "dd.mm.yyyy")
antaisi tietysti oikean lopputuloksen tässä nimenomaisessa tilanteessa, mutta siitä jää pois tuo max-funktio (oikeaa dataa prosessoitaessa tarkoituksena on seuloa muutaman tuhannen rivin joukosta suurin päivämäärä, laskea edellisen kuukauden päättymispäivä sen perusteella ja verrata tätä arvoa loopissa kaikkien yksittäisten rivien eomonth-funktiolla muutettuun arvoon). Toimiakseen oikein tuo korjaus pitäisi kaiketi kirjoittaa muotoon
MsgBox Format(Evaluate("=EOMONTH(max(A1:A2), -1)"), "dd.mm.yyyy")
mutta jossa olisi kuitenkin se huono puoli, että, tuota evaluate-lausetta sen oikean koodin rakenteen vuoksi pitäisi toistaa muutama tuhat kertaa.
Jos taas kirjoitan rivit muotoon
Dim MaxDate As Date
MaxDate = Evaluate("=MAX(A1:A2)")
MsgBox "Date is " & Format(eomonth(MaxDate, -1), "dd.mm.yyyy")
eli tallennan tuon suurimman päiväyksen arvon muuttujaan, ja sovellan sille eomonth-funktiota erikseen, niin homma ei yllättävää kyllä toimi edelleenkään oikein silloin, kun koodi käynnistetään sieltä Exceliin rakennetusta test-menusta. Macros-menusta käynnistettynä ongelmia ei esiinny.
Kirjoitettuna muotoon
Dim MaxDate As Double
MaxDate = Fix(Application.WorksheetFunction.Max(Range(Cells(1, 1), Cells(2, 1)))) 1
MsgBox "Date is " & Format(eomonth(MaxDate, -1), "dd.mm.yyyy")
koodi taas yllättäen toimii oikein kummallakin käynnistystavalla, ts. kun max-funktiolla etsitty suurin päivämäärä tallennetaankin vääräntyyppiseen muuttujaan (double), kuukauden ja päivän sekoittumista keskenään ei esiinnykään.
Olen vahvasti sitä mieltä, että havaitsemassani tilanteessa kysymys on Excelin bugista.vaan ominaisuus. Kuten eilen vastasin samantapaiseen aikaongelmaan. Jos haluat, että koodisi toimii oiken käytä jenkkityylin päiväyksiä ja toimii. Mutta koska Excel tallentaa päiväykset numeroina, niin silloin helpompi tapa toimia "kansainvälisesti" on muuttaa päiväykset luvuiksi ja no problem.
Kuten itsekin totesit niin toimii lukuna...
Keep Excelling
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
IL - PerSut tykittää - Vaaralliset tappajat vankilaan jopa loppuelämäksi!!
Entistä rajumpi elinkautinen tulee – Vaaralliset tappajat vankilaan jopa loppuelämäksi Henkirikosten uusijat voidaan ja14914460Some kuhisee Sanna Marinista: "Wau"
Sanna Marinia hehkutetaan. Muun muassa Jodelissa kommentoidaan The Sunday Timesin julkaisemaa kuvaa Marinista. Hän ant226757Äärioikeistopurran nukke Petteri Lapanen paniikissa
Kun Suomen historian paras pääministeri antoi vankan lausunnon, kuinka "keskustelu politiikassa on käpertynyt lähinnä va456061SIELTÄ SE TULI: Kepu-Kurvinen: "Emme enää lähde punavihreään hallitukseen"
Nyt muuten nauretaan loppuviikko, että tähänkö kaatui Lindtmanin pääministerihaaveet. "Antti Kurvisen mukaan puolue ei1685660Onko rajojen kiinnipitäminen ihmisoikeuksien vastaista?
Maahanmuutosta puhutaan usein niin kuin kyse olisi vain numeroista ja rajoista. Kyse on kumminkin ihmisistä, jotka halua3124437HS - Sanna Marinin kirja on priimaluokan vedätys!
Kirja-arvio|Toivo on tekoja tulisi ensisijaisesti nähdä maineen rahallisen hyödyntämisen voimaannuttavana merkkipaaluna.634274Täysi ryöpytys Sanna Marinille ulkomailla.
https://www.iltalehti.fi/ulkomaat/a/f699d84f-fa53-4dba-8718-2c395017fc55 Sanna Marinin kirja saa todella tylyn vastaanot233944"Rauhanomainen" miekkari hesassa: "Eläköön aseellinen vastarinta" - lakana
Kyseessä on Suomen Palestiinalaisten yhdistyksen viime perjantaina järjestämä ”Hiljainen kynttiläkulkue Palestiinalaiste1083702Vanhat miehet eivät muista
Niinistö muistaa vain Marinin hölmistyneen ilmeen, mutta ei miksi möllötti sen näköisenä. Vanhanen taas ei muuten vaan293617Monella äärivasemmistolaisella C-paperit armeijasta
Kuinka kävisi sodan tullen noille? Puolustusvoimat huomauttaa, että C-luokituksen saaneiden sijoittumisesta sodan aikan692703