Tuntuu 'hauskalta', kun kysellään Excelin

Henskeli..

ongelmista yleensä. Vastauksina on suurpiirteisiä, minusta tuntuu, tai tiettyyn soluun kohdistuvista asioista,

Minä olen saanut ainoastaan Kundelta rattkaisut asioihin, joten kalvetkaa harrastelijat. Leikki sikseen, mutta tietämys kunniaan. (puhuu 30 vuotta atk-alalla ollut ja vasta excelin makroihin joutunut tai päässyt)

Tarvitsisin Excelin MACRO ohjelman:
(Taustaa: Soluja on A -> AK. Data on numeerista, tekstitietoa ja päivämääriä.
Tarkoituksena on, että kun taulukko avataan, niin tulee tyhjä näyttö,
mihin syötetään vaihtelevan mittainen merkkisarja, sisältäen mitä merkkejä tahansa.
Näin:
-tyhjä näyttö, jonka johonkin soluun (vaikka G 3) syötetään vaikkapa tieto OTR87-6
-makro rupeaa etsimään taulukosta EXCELIIN.xls, solusta C vastaava tietoa
-tiedon löydyttyä makro ottaa käsittelyyn solun AC (pvmtieto) ja vähentää siitä pois neljä kuukautta
-syötetty tieto, AC ja laskennallinen, miinus neljä kuukautta tulos tuodaan tyhjälle näytölle, sekä solussa T oleva pvm tieto. Samaiselle näytölle tulisi lisäilmoitus (Ylittynyt), jos elettävä päivä on sama tai suurempi, kuin solussa AC oleva pvm tieto. Edellisen lauseen ilmoitus näytölle toteutuisi vain jos solun T arvo ei sovi solun AC ja sen miinustettuun neljä kuukautta arvojen raameihin.

7

174

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ymmärsiköhän nyt oikein...

      aktiivisessa taulukossa
      solu G3 = hakuehto etsitää EXCELIIN.xls sarakkeesta C
      solu H3 = Exceliin.xls solu hakuehdon riviltä AC-sarakkeen tieto
      solu I3 = Exceliin.xls solu hakuehdon riviltä AC- sarakkeen tieto - 4 kk
      solu J3 = Exceliin.xls solu hakuehdon riviltä T-sarakkeen tieto
      jos J3>=H3 niin solu K3= ylittynyt muuten =""

      mutta sitten...
      Edellisen lauseen ilmoitus näytölle toteutuisi vain jos solun T arvo ei sovi solun AC ja sen miinustettuun neljä kuukautta arvojen raameihin...
      mielestäni ristiriita edellisen väittämän kanssa...
      mutta tosssa tähän astinen koodi ilman ilmoitusta...

      taulukon moduuliin...

      Private Sub Worksheet_Change(ByVal Target As Range)
      On Error Resume Next
      Application.ScreenUpdating = False
      Application.EnableEvents = False
      If Not Intersect(Target, Range("G3")) Is Nothing Then
      HakeeSuljetusta
      End If
      Application.ScreenUpdating = True
      Application.EnableEvents = True
      End Sub

      moduuliin...

      Sub HakeeSuljetusta()
      Dim wb As Workbook
      Dim Löydetty As Range
      Set wb = Workbooks.Open("C:\Exceliin.xls", True, True)
      Set Löydetty = EtsiJaSiirrä(ThisWorkbook.Worksheets("Sheet1").Range("G3"), Range("C:C"))
      With ThisWorkbook.Worksheets("Sheet1")
      .Range("H3") = DateSerial(Year(Löydetty.Offset(0, 26)), Month(Löydetty.Offset(0, 26)), Day(Löydetty.Offset(0, 26)))
      .Range("I3") = DateSerial(Year(Löydetty.Offset(0, 26)), Month(Löydetty.Offset(0, 26)) - 4, Day(Löydetty.Offset(0, 26)))
      .Range("J3") = DateSerial(Year(Löydetty.Offset(0, 17)), Month(Löydetty.Offset(0, 17)), Day(Löydetty.Offset(0, 17)))
      If .Range("J3") = .Range("I3") Then
      .Range("K3") = ""
      Else
      .Range("K3") = ""
      End If
      End With
      wb.Close False
      Set wb = Nothing
      End Sub
      Function EtsiJaSiirrä(Hakuehto As Variant, HakuAlue As Range) As Range
      Dim solu As Range
      Dim EkaOsoite As String
      Worksheets("Sheet1").Activate
      With HakuAlue
      Set solu = .Find( _
      What:=Hakuehto, _
      LookIn:=xlValues, _
      LookAt:=xlWhole, _
      SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, _
      MatchCase:=False, _
      SearchFormat:=False)
      If Not solu Is Nothing Then
      Set EtsiJaSiirrä = solu
      EkaOsoite = solu.Address
      Do
      Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu)
      Set solu = .FindNext(solu)
      Loop While Not solu Is Nothing And solu.Address EkaOsoite
      End If
      End With
      End Function

      • hENSKELI..

        สวัสดี
        Kunde

        Ajatuksessani on, varmaankin ristiriita. Mutta jos viitsit, niin yritän selittää konkreettisesti (vanha Cobol -mies selittää)

        Kysymys koskee autojen katsastusta. Esimerkiksi, jos auton hankintapäivä on 23.02.2007, auton voi katsastaa hankinta-aika miinus neljä kuukautta.
        Tässä tapauksessa katsastusaika olisi 23.10.2010 - 23.02.2011

        -kun annetaan tyhjään näyttöön rekisteritunnus OIJ-275 (solu G 3)
        macro lukee taulukkoa 'exceliin.xls' ja hakee solusta C vastaavan rivin
        -( kohta1) tuodaan sinne tyhjälle näytolle soluun H 5, solun exceliin.xls taulukon solu AC
        -(kohta 2) miinustetaan äskeisestä AC solusta neljä kuukautta ja tuodaan tulos soluun F 5
        - toistetaan sama kuin kohdat 1 ja 2, sillä erolla, että vuosi on muutettu elettäväksi vuodeksi. Tiedot tuodaan kohtiin H 6 ja F 6
        -taas tuodaan tyhjälle näytölle taulukosta exceliin.xls solusta T (viimeien katastuspäivä) soluun G 8
        -soluun G 9 tuodaan elettävä päivämäärä
        -varsinainen juttu on laskea, onko auto katsastettu. Jos elettävä päivä huomioonottaen tarkastellaan viimeistä katsastuspäivää exceliin.xls solu T arvo ei sovi H 6 - F 6 välille tulee ilmoitus 'Katsastus suorittamatta. Muussa tapauksessa 'OK'

        Laittaisin tähän esimerkin, mutta kopioi - liitä ei oikein excelin taulukkoon tähän saittiin sovi.

        Kiitos jos viitsit


    • - toistetaan sama kuin kohdat 1 ja 2, sillä erolla, että vuosi on muutettu elettäväksi vuodeksi. Tiedot tuodaan kohtiin H 6 ja F 6
      eli nyt siis katsastusaika ton mukaan olisi esim H6=23.2.2011 ja F6=23.10.2011

      onkos tuolla Exceliin.xls T sarakkeessa pvm tälle vuodelle vai mikä pvm siellä on?

      ei mennnyt vieläkään jakeluun...

      • Henskeli..

        Moi,
        T sarakkeessa on viimeisen katsastuspäivän päivämäärä.

        Jos esimerkiksi ajatellaan tätä päivää 18.05.2011
        ja rekisteriotteessa(käyttöönottopvm) 17.05.2005, sen mukaan katsastusaika on 17.01.2011 - 17.05.2011, minkä aikana katastus on tehtävä.
        Katsotaan T sarakkeen viimeisin katsastuspvm. Jos se on vaikka 14.04.2010, niin tämän vuoden katsastus on myöhässä, koska katsastusaikajakso (4kk) on ylitetty yhdellä päivällä.


    • mitä tolla T sarakkeen tiedolla sitten on merkitystä?
      Mihin sitä tarvitaan?

      ei aukea mulle- ei sitten millään...

      • Henskeli..

        T-sarakkeeseen merkitään aina katasastuspäivämäärä. Jos auto katsastetaan huomenna, rekisteriotteeseen laitetaan se ko päivämäärä, jonka meidän toimistolla täydennetään Exceliin.xls taulukoon.

        Mistään muualta ei voi tietää onko auto katsastettu ajallaan vai ei. T sarakkakkeen tiedon mukaan tapahtuu asian päättely.


      • Henskeli.. kirjoitti:

        T-sarakkeeseen merkitään aina katasastuspäivämäärä. Jos auto katsastetaan huomenna, rekisteriotteeseen laitetaan se ko päivämäärä, jonka meidän toimistolla täydennetään Exceliin.xls taulukoon.

        Mistään muualta ei voi tietää onko auto katsastettu ajallaan vai ei. T sarakkakkeen tiedon mukaan tapahtuu asian päättely.

        eikös katsastaa voi myöhässäkin...
        lisäsin semmosen vaihtoehdon

        taulukon moduuliin...

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        If Not Intersect(Target, Range("G3")) Is Nothing Then
        HakeeSuljetusta
        End If
        Application.ScreenUpdating = True
        Application.EnableEvents = True
        End Sub
        moduuliin...

        Sub HakeeSuljetusta()
        Dim wb As Workbook
        Dim Löydetty As Range
        Set wb = Workbooks.Open("D:\Exceliin.xls", True, True)
        Set Löydetty = EtsiJaSiirrä(ThisWorkbook.Worksheets("Sheet1").Range("G3"), Range("C:C"))
        With ThisWorkbook.Worksheets("Sheet1")
        .Range("H5") = DateSerial(Year(Löydetty.Offset(0, 26)), Month(Löydetty.Offset(0, 26)), Day(Löydetty.Offset(0, 26)))
        .Range("F5") = DateSerial(Year(Löydetty.Offset(0, 26)), Month(Löydetty.Offset(0, 26)) - 4, Day(Löydetty.Offset(0, 26)))
        .Range("H6") = DateSerial(Year(Date), Month(Löydetty.Offset(0, 26)), Day(Löydetty.Offset(0, 26)))
        .Range("F6") = DateSerial(Year(Date), Month(Löydetty.Offset(0, 26)) - 4, Day(Löydetty.Offset(0, 26)))
        .Range("G8") = DateSerial(Year(Löydetty.Offset(0, 17)), Month(Löydetty.Offset(0, 17)), Day(Löydetty.Offset(0, 17)))
        .Range("G9") = Date
        'onko tämäpäivä katsastusajalla?-kyllä
        If .Range("G9") = .Range("F6") Then
        .Range("F15") = "OK"
        'onko tämäpäivä katsastusajalla?-ei
        Else
        'tulossa?
        If .Range("G9")


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

    Luetuimmat keskustelut

    1. En voi jutella kanssasi

      tietenkään, mutta täällä voin sanoa sinulle, että se sinun hiljaisuutesi ja herkkyytesi eivät ole heikkoutta. Ne ovat ih
      Tunteet
      26
      4170
    2. Oot nainen liian paksu minulle

      Joten en yhtään syty tästä suhteesta.
      Ikävä
      256
      3684
    3. No nyt! Linda Lampenius jakoi sensuellin kuvan itsestä - "Olematon mekko" saa hieraisemaan silmiä...

      Linda Lampenius täyttää tänään 55 vuotta. Eipä uskoisi kuvan perusteella. Onnea, onnea, onnea pop-artistille ja huippuvi
      Suomalaiset julkkikset
      28
      2094
    4. Mites teillä keskustelut soljuu?

      Oli tossa mun aloittamassa ketjussa eilen illalla aikamoinen show. Mutta toisaalta ainahan mä oon valitellut kun täällä
      Sinkut
      270
      1726
    5. Shokki! Marko Paanaselle ei riitä 100 000 euron budjetti - Vaatii kesken remontin näin paljon lisää!

      Hupsista, noinkos siinä sitten kävi, budjetti ei pitänytkään…! Eikä taida olla ihan eka kerta, näitähän sattuu... Onko
      16
      1492
    6. Pystyt sille toiselle

      Kertomaan ne salaisetkin asiat. Olette läheisiä. En tiedä kerrottu minusta. Tuskin kerrot. Puhutko sanaakaan. Toisaalta
      Ikävä
      8
      1429
    7. Venäjän rikollisen sodan juurisyyt

      Koska edellinen ketju Venäjän rikollisen sodan juurisyistä oli niin suosittu, että se tuli pikaisesti täyteen eikä sitä
      NATO
      407
      1332
    8. Annen grillin nousu ja konkka..

      Olipa se nopea grilli bisnes..Voi voi sentään mitäs nyt tilalle?
      Sotkamo
      50
      1219
    9. Kokoomus haluaa hoitaa flussat yksityisellä, jotta säästettäisiin rahaa ja aikaa

      Mies hakeutui Terveystalo Kamppiin flunssaoireiden takia helmikuisena sunnuntai-iltana. Diagnoosiksi kirjattiin influens
      Maailman menoa
      76
      1053
    10. Huominen haastattelu

      Huomenna 27.02 Torstaina. OLLI. SAHIMÄKI Järviradiossa haastateltavana kello 12:00 👏👏
      Ähtäri
      30
      1050
    Aihe

    Tarvitsemme suostumuksesi tarjotaksemme personoitua palvelua

    Palvelu ja sen kolmannen osapuolen toimittajat (72) keräävät henkilötietoja (esim. IP-osoite tai laitetunniste) käyttäen evästeitä ja muita teknisiä keinoja tietojen tallentamiseen ja lukemiseen laitteellasi tarjotakseen sinulle tarkoituksenmukaisia mainoksia ja parhaan mahdollisen asiakaskokemuksen.

    Palvelu ja sen kumppanit tarvitsevat suostumuksesi seuraaviin:

    Tarkoitukset

    Tarkkoja sijaintitietoja ja laiteominaisuuksia koskevia tietoja voidaan käyttää.

    Mainonta voidaan yksilöidä profiilin perusteella. Toimintaasi tässä palvelussa voidaan käyttää sinua koskevan profiilin luomiseen tai parantamiseen yksilöityä mainontaa varten. Mainonnan suorituskykyä voidaan mitata.

    Sisältö voidaan yksilöidä profiilisi perusteella. Toimintaasi tässä palvelussa voidaan käyttää sinua koskevan profiilin luomiseen tai parantamiseen yksilöityä sisältöä varten. Sisällön tehokkuutta voidaan mitata. Raportit voidaan luoda oman ja muiden toiminnan perusteella. Toimintasi tässä palvelussa voi auttaa kehittämään ja parantamaan tuotteita ja palveluita.

    Evästeet, laitteet tai vastaavat verkkotunnisteet (esimerkiksi kirjautumisperusteiset tunnisteet, satunnaisesti määritetyt tunnisteet, verkkopohjaiset tunnisteet) sekä muut tiedot (esimerkiksi selaimen tyyppi ja tiedot, kieli, näytön koko, tuetut tekniikat jne.) voidaan tallentaa laitteellesi tai lukea laitteellasi laitteen tunnistamiseksi joka kerta, kun se muodostaa yhteyden sovellukseen tai verkkosivustoon yhdessä tai useammassa tässä esitetyssä tarkoituksessa.

    Erityisominaisuudet

    Hyväksynnälläsi tarkkaa sijaintiasi (alle 500 metrin säteellä) voidaan käyttää tässä ilmoituksessa kuvattujen tarkoitusten tueksi.

    Hyväksynnälläsi tiettyjä laitettasi koskevia ominaisuuksia saatetaan pyytää ja käyttää erottamaan se muista laitteista (kuten asennetut fontit tai laajennukset, näyttösi resoluutio) tässä ilmoituksessa kuvattujen tarkoitusten tueksi.

    Hyväksymällä sallit tietojesi käsittelyn. Suostumuksesi koskee tätä palvelua, hyväksymättä jättäminen voi vaikuttaa asiakaskokemukseesi. Jotkut teknologiat saattavat perustella tietojen käsittelyä oikeutetulla edulla, voit vastustaa tätä tai muuttaa muita asetuksia klikkaamalla Asetukset linkkiä.

    Tietosuoja