Rekisteröidy

Tuntuu 'hauskalta', kun kysellään Excelin

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.
7214
Äänestä

Muut lukivat myös

Vastaukset 7

Vanhimmat

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

Äänestä

  • สวัสดี
    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

    Äänestä

- 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...

Äänestä

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

    Äänestä

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

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

Äänestä

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

    Äänestä

  • 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")

    Äänestä

Luetuimmat keskustelut

  1. Älä unohda minuaNainen ethän unohda minua. Asiat olisivat voineet mennä toisin, olisi vain pitänyt uskaltaa lähestyä sinua kun annoit siihen mahdollisuuden. Olen pettynyt itseeni, ja se kyllä närästää. Naiselle Mieheltä
    Ikävä93 vastausta948 lukukertaa
  2. Eläkeikä nousee 70 vuoteen. Joudunko palaamaan työelämään?Nyt se on sitten päätetty, että eläkeikä Suomessa nostetaan 70 vuoteen. https://www.is.fi/politiikka/art-2000012324133.html Pääsin 67 vuotiaana eläkkeelle viime syksynä. Tarkoittaakohan tämä, että joudun palaamaan takai…
    Maailman menoa143 vastausta545 lukukertaa
  3. Nyt on nytTurha miettiä menneitä tapahtumia. Niitä ei saa tekemättömäksi. Tärkeintä on mitä tekee nyt ja tulevaisuudessa. Korjausliikkeetkin voi tehdä jos niihin tuntee tarvetta. Paluu tulevaisuuteenkin voi olla mahdollinen jos v…
    Ikävä53 vastausta511 lukukertaa
  4. Kadutko mies?Silloin kuin vielä yritin lähestyä, etkä tarttunut siihen. Asioista pitäisi voida aina keskustella.
    Ikävä31 vastausta443 lukukertaa
  5. Hyvää huomentaEräälle Naiselle ❤️‍🩹
    Ikävä54 vastausta387 lukukertaa
  6. Empaattiset ihmisetOnko empaattiset ihmiset, etenkin naiset antavaisempia, kun ns. tavikset? Kaverin puolesta kysyn Oisko niinku mahkui?
    Ikävä88 vastausta366 lukukertaa
  7. Niin haluaisin sut nähdä ja jutella!🙂
    Ikävä30 vastausta355 lukukertaa
  8. Perussuomalaiset nostamassa eläkeiän 70 vuoteenRiikka Purran johtama valtiovarainministeriö haluaa nostaa eläkeiän 70 vuoteen ja taloutta sopeutettaisiin ensi vaalikaudella 8–11 miljardilla eurolla. Perussuomalaisten johtama ministeriö ilmeisesti arvelee, että seits…
    Perussuomalaiset96 vastausta347 lukukertaa
  9. Onko tällainen kuvio teistä okOnko tällainen kuvio teidän mielestänne ihan normaali ja hyväksyttävä? Nainen seurustelee miehen kanssa, mutta pitää samaan aikaan läheistä yhteyttä toiseen mieheen kertomatta tälle toiselle, että on parisuhteessa. Tämä…
    Ikävä45 vastausta346 lukukertaa
  10. Tuntuu kuin olisin vaimosiSe on erikoista se.
    Tunteet56 vastausta341 lukukertaa
  11. Pitäisikö Vantaa liittää Helsinkiin.Mitä mieltä olette asiasta?
    Maailman menoa94 vastausta340 lukukertaa
  12. Moi kulta😍Eikös se ollut marraskuuta kun se meidän "flirttailu" alkoi silloin vuosia sitten? tarkoitan lähinnä niitä pitkiä katseita 🤩☺️ Kohta on siis maata mullistavien katseiden vuosipäivä 😘🤭
    Ikävä35 vastausta332 lukukertaa
  13. Haluatko ettäUnohdetaan toisemme?
    Ikävä36 vastausta330 lukukertaa
  14. Jos haluat viestin...Olen vielä tämän illan palstalla. Laita halutessasi vinkki, sinä komea keski-ikäinen mies 😗
    Ikävä39 vastausta326 lukukertaa
  15. TTK-juontaja Veronica Verho lataa suorat sanat tatuointien arvostelijoille: "Mä toivoisin, että..."Veronica Verho juontaa Tanssii Tähtien Kanssa -ohjelmaa yhdessä Ernest Lawsonin kanssa. ​Yksi puhuttaneimmista aiheista on ollut, miten suosikkijuontajan näyttävät tatuoinnit sopivat ohjelman pukuohjeistukseen ja tullaa…
    Kotimaiset julkkisjuorut21 vastausta323 lukukertaa
  16. Et nosta minua ylösOk ei se mitään. Vajoan syvempiin vesiin💔
    Ikävä35 vastausta321 lukukertaa
  17. Tunnut niinKaukaiselta jo.
    Ikävä32 vastausta320 lukukertaa
  18. Nyt kun kaikki on ohiToivon, että sulla menee hyvin ja pystyisin sinut kokonaan unohtamaan. Joskus on vaikeita hetkiä ja olen tosi pahoillani, miten sinua loukkasin ja loukkaan yhä. Se täytyy saada loppumaan.
    Ikävä28 vastausta315 lukukertaa
  19. Sut tahtoisinSinä senkin kusimutteri menit ja katkaisit kaiken yhteyden minuun. Tajuan nyt, että meidän roolit vaihtuivat ja sinä projektoit omia pelkojasi minuun. Anna minun välittää sinusta, älä työnnä mua pois. En oo vaatinut sul…
    Ikävä15 vastausta297 lukukertaa
  20. Anonyymipalstan ongelmaJoskus tämä palsta on kyllä melkoinen ihmiskoe. Yksi ihminen yrittää saada yhteyttä yhteen tiettyyn henkilöön ja antaa tunnisteitakin, mutta hetken päästä ketjussa on jo puoli Suomea vastaamassa kuin viesti olisi tarkoi…
    Ikävä75 vastausta293 lukukertaa

Kommentoi aloitusta

Henskeli.. kirjoitti:

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.

Anonyymi
5000

Ilmoita asiaton sisältö

  • Sisältää materiaalia, joka on loukkaavaa, herjaavaa, rasistista, uhkailevaa tai ahdistelevaa.

  • Materiaali sisältää nimiä, yhteystietoja tai muita henkilökohtaisia tietoja. Julkisuuden henkilöistä, julkisissa viroissa toimivista ihmisistä sekä yritysten vastuuhenkilöistä saa keskustella työhön liittyen. Myös yksityiselämään liittyvistä asioista voi keskustella siltä osin, kuin niistä on julkisesti kerrottu.

  • Sisältää lapsille haitallista tai heiltä kiellettyä materiaalia. Seksuaalinen sisältö on sallittua aiheeseen tarkoitetuilla palstoilla, joiden ikäraja on 18 vuotta.

  • Lainvastaista sisältöä voi olla mm. yksityiselämää loukkaavan tiedon levitys, kiihottaminen kansanryhmää vastaan, laiton uhkaaminen, alaikäisiin liittyvä seksuaalinen sisältö/grooming, petokset, identiteettivarkaudet, kunnianloukkaukset ja tekijänoikeusrikkomukset.

  • Sisältö ei liity palstan tai keskusteluketjun aiheeseen.

  • Viesti ei ole suomea tai ruotsia (pl. International Forums), se sisältää mainontaa, se sisältää tekijänoikeuksin suojattua materiaalia, se on massapostitus tai jokin muu syy.

Jaa keskustelu