Aikojen vertailu Excelissä

T:OMH

Moi
Seuraavan lainen ongelma nousi esille raportti dataa käsitellessäni...
Miten saisi laskettua päivämäärä erotuksen ja erojen kappalemäärän.
Pieni esimerkki joka toivottavasti selkiyttää enemmän.
Sarakkeessa G on pyydetty aloitus aika ja sarakkeessa J on toteutunut aloitus aika [ J-G = ohi menneet päivät] . Erotuksena pitäisi olla kpl ohimenneetpäivät ja ettei homma olisi liian helppo pitäisi vielä saada nuo työpäivät listattua "alueittain" ero : Mennyt ohi -1päivää ; 1-2 päivää ; 2-3 Päivää ja 4-> päivää ohi menneet...
Ja taulukossa on rivejä "vasta" reilu 32000kpl joten en viitsisi kauhean montaa copy / paste juttua tehdä joka riville... vaan hakusessa olisi VBA scripti/Makro tms hässäkkä.

4

535

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      tarkoititko todella , että ohi 1pv , 1-2 pv, 2-3 pv ja yli 4 pv?
      vaiko 1,2,3 yli 4 pv?

      no mai pen rai tossa sulle molemmat versiot
      eli tulostukset soluihin N1:N4

      moduuliin...
      Sub Aikaerot()
      Dim vika As Long
      Dim solu As Range
      Dim Aikaero As Long
      On Error Resume Next
      Range("N1:N4") = ""
      vika = Range("G65536").End(xlUp).Row
      For Each solu In Range("G1:G" & vika)
      Aikaero = CDbl(solu.Offset(0, 3)) - CDbl(solu)
      Select Case Aikaero
      Case 1
      Range("N1") = Range("N1") 1
      Case 2
      Range("N2") = Range("N2") 1
      Case 3
      Range("N3") = Range("N3") 1
      Case Is > 3
      Range("N4") = Range("N4") 1
      End Select
      Next
      End Sub

      Sub Aikaerot2()
      Dim vika As Long
      Dim solu As Range
      Dim Aikaero As Long
      On Error Resume Next
      Range("N1:N4") = ""
      vika = Range("G65536").End(xlUp).Row
      For Each solu In Range("G1:G" & vika)
      Aikaero = CDbl(solu.Offset(0, 3)) - CDbl(solu)
      Select Case Aikaero
      Case 1
      Range("N1") = Range("N1") 1
      Case 2
      Range("N1") = Range("N1") 1
      Range("N2") = Range("N2") 1
      Case 3
      Range("N2") = Range("N2") 1
      Range("N3") = Range("N3") 1
      Case Is > 3
      Range("N4") = Range("N4") 1
      End Select
      Next
      End Sub

      Keep EXCELing
      @Kunde

    • T:OMH

      Kiitos. Nopeasta vastauksesta.

      Ja ruokahaluhan kasvaa syödessä... Jos haluan lukea usealta välilehdeltä (Sheet 1, Sheet 2...Sheet n) ja palauttaa tuloksen vaikka Sheet OHI välilehdelle...

      Silloin lienee ainoa vaihtoehto lukea ensin välilehtien nimet ja sijoitta ne "yksitellen tuon rivin Vika=Range arvoksi?

    • kunde

      toivottavasti ei tuu ähkyolo ;-)

      Sub Aikaerot()
      Dim vika As Long
      Dim solu As Range
      Dim Aikaero As Long
      Dim taulukot
      Dim i As Long
      On Error Resume Next
      Sheets("Ohi").Range("N1:N4") = ""
      taulukot = Array("Taul1", "Taul2", "Taul3")
      For i = LBound(taulukot) To UBound(taulukot)
      vika = Sheets(taulukot(i)).Range("G65536").End(xlUp).Row
      For Each solu In Sheets(taulukot(i)).Range("G1:G" & vika)
      Aikaero = CDbl(solu.Offset(0, 3)) - CDbl(solu)
      Select Case Aikaero
      Case 1
      Range("N1") = Sheets("Ohi").Range("N1") 1
      Case 2
      Range("N2") = Sheets("Ohi").Range("N2") 1
      Case 3
      Range("N3") = Sheets("Ohi").Range("N3") 1
      Case Is > 3
      Range("N4") = Sheets("Ohi").Range("N4") 1
      End Select
      Next
      Next
      End Sub
      Keep EXCELing
      @Kunde

      • T:OMH

        Kiitos Paljon,

        Nyt vain odotetaan laskenta tulosta....

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Sannalla tänään vuorossa The Daily Show

      Eli nyt mennään jo satiirin puolelle. Tuohan on vähän kuten Lindströmin ohjelma Suomessa.
      Maailman menoa
      88
      8077

    2. Tanskassa lain vaatimana Bovaer tappanut nautoja ja sairastuttanut

      Samaa myrkkyä myös Suomen lehmiin ollut tuloillaan, miten teidän tilalla? https://www.agriland.ie/farming-news/bovaer-m
      Maailman menoa
      90
      6084

    3. Ruotsalaisuuden Päivän virallinen liputuspäivä poistettava VÄLITTÖMÄSTI!

      Suomen valtion ja suomalaisuuden kannalta ei ole minkäänlaisia perusteita liputtaa virallisesti ruotsalaisuuden päivää,
      Maailman menoa
      87
      5567

    4. Täysi ryöpytys Sanna Marinille ulkomailla.

      https://www.iltalehti.fi/ulkomaat/a/f699d84f-fa53-4dba-8718-2c395017fc55 Sanna Marinin kirja saa todella tylyn vastaanot
      Maailman menoa
      68
      5501

    5. Minja Koskelan "istumista" kertovassa uutisessa ei sanottu persuista mitään

      eli jälleen kerran äärivasemmistolainen valehtelee, hän kun väittää että juuri persut ovat lähetelleet Koskelalle vähemm
      Maailman menoa
      113
      4740

    6. Pekka Visuri: "Suomen on aika irrottautua Ukrainan sodasta"

      Slava Ukraina-mölinät eivät enää auta. Ukraina on sotansa hävinnyt. Nyt tarvitaan poliittista selvänäköisyyttä, reaalipo
      Maailman menoa
      123
      2498

    7. Mikaela Nylander: Jos pakkoruotsi poistetaan, niin ruotsin kielen asema romahtaa

      (Nylander on vanha RKP:nen) Mutta niin heikossa vedossa muumiruotsi siis on Suomessa, että vain tekohengityksellä se pys
      Maailman menoa
      36
      2218

    8. Maajussi-Villen morsioehdokas Maarit ei halunnut Villeä - Tämä totuus valkeni kuvauksissa!

      Ohhoh, tekikö Maarit mielestäsi oikean ratkaisun Villen suhteen? Maajussi-Ville on herättänyt voimakkaita tunteita puol
      Maajussille morsian
      7
      1354

    9. Ei välimatka meitä erottanut

      Vaan välirikko ja väärinymmärrykset. Oikeastaan henkinen välimatka on meidän välillä pieni, näin uskon. Näen koko ajan e
      Ikävä
      5
      1349

    10. Kohta taas mesikämmeneen

      Onneksi kaupunki ostaa mesikämmenen, niin päästään taas tekemään rahaa
      Ähtäri
      44
      1190
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt