VBA: max ja eomonth, mutta kaksi eri tulosta

Susivitonen

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?

3

365

Äänestä

    Vastaukset 3

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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.

      • kunde
        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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Viesti sinulle

      Tiedät että tunteet ja ajatukset ja meillä on vahva yhteys mistä molemmat tiedetään. Odotan sinua ☀️
      Ikävä
      54
      1074

    2. Mikä on totta mikä ei?

      Onko juoru vai ei että nimeltä mainitsematon henkilö on tehnyt naiselle/naisille jotain joka on väärin?
      Kuhmo
      17
      1049

    3. Olen kironnut sinut alimpaan helvettiin

      Hyvää matkaa.
      Ikävä
      82
      861

    4. Mitä sinulle on tapahtunut lapsena

      Kun olet noin sairas päästäsi? Pikkupojalle ( Miehen kehossa)
      Ikävä
      80
      769

    5. Haluan purkaa vielä tuntemuksia

      Tykkään sinusta kovin paljon❤️ olen surullinen tilanteestasi ja siitä mitä me olemme yhdessä joutuneet kokemaan. Tämä ei
      Ikävä
      21
      747

    6. Tunteiden käsittely kertoo ihmisestä.

      Kun puhutaan "tavallisesta" ihmisestä, joka on suht tasapainoinen eläjä, niin puhutaan oikeastaan taitavasta tunteiden k
      Sinkut
      206
      640

    7. Kyllä tiedän sun

      Likaiset pelit selän takana
      Ikävä
      59
      631

    8. Lopetetaanko tämä

      Juttu ja mennään eteenpäin? Pystytkö?
      Ikävä
      105
      627

    9. Persujen Puhoksen retki

      Perussuomalaiset olivat tehneet turistibussimatkan Puhokseen. Tosin raukat olivat niin peloissaan, etteivät uskaltaneet
      Perussuomalaiset
      201
      610

    10. Onko tuo joku katkera nainen oikeasti

      Joka sinua syyttää?
      Ikävä
      99
      582

    11. Jopa poliisi nauraa paskaista pelkuripersuille

      Puhoksessa jäi "isänmaantoivot" bussiin vapisemaan :-D https://www.is.fi/politiikka/art-2000012319632.html
      Maailman menoa
      263
      495

    12. Just saying

      Mies joka antaa naiselle turvallisen olon, on seksikäs. Ei kieroja kikkoja ja haluaa olla vain sen yhden naisen mies.
      Ikävä
      102
      488

    13. Pilkettä sunnuntain silmässä

      😉 Jos tästä ketjusta löytyisi yksi ihminen, joka saisi sut hymyilemään tänään… Millainen hän olisi? Ei tarvitse kerto
      Sinkut
      73
      471

    14. Tehdään yhdessä itsestämme

      Parhaat versiot❤️ Se vaatii molemmilta hyvää itsetuntoa!
      Ikävä
      39
      434

    15. Aika on tuonut järkeä

      Sä et tiedä musta kaikkea. Jos tietäisit, ymmärtäisit, miksi me ei sovita yhteen. Öljy ja vesi. En mä ole valehdellut,
      Järki ja tunteet
      42
      413

    16. Ketkä käy potkimassa ovia öisin?

      Enää ei naurata.
      Haapavesi
      5
      408

    17. Onko muka 21 vuoden ikäero paljon?

      🤔
      Rakkaus ja rakastaminen
      30
      407

    18. Voisin antaa sulle nyt

      Halin❤️
      Ikävä
      47
      400

    19. Persut eivät uskaltaneet tulla ulos

      Bussiin jäivät https://www.iltalehti.fi/politiikka/a/d7f9fc57-dca0-40b8-9cb1-156e5872dba9
      Perussuomalaiset
      144
      390

    20. Miten viikonloppu meni

      Mielestäsi? Tapasitko kaivatun? Jos, etenivätkö asiat?
      Ikävä
      29
      358
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt