Viivalla on väliä

Punainen_lanka

Moi. Mulla on Exceltaulukossa lukuja eri lähteistä ja eri sarakeotsikoilla merkattuna, esim. "Tapaturmat" "Tilastolliset ennusteet" "Frekvenssit"..ym.
Kysynkin, onko mahdollista esim. kaavalla tai VB-koodilla saada aikaan punainen jana kahden eri solun välille? Tällä olisi tarkoitus havainnoillistaa kahden tai jopa useamman lukuparin korrelaatiota. Aina parempi, jos voisi käyttää samaan aikaa eri värejä eri lukuparien välillä.

Kiitos vaivannäöstäsi!

11

293

    Vastaukset 11

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • EhdollinenMuotoilu
    • punaviiva

      No tässä esimerkiksi funktio, joka piirtää punaisen viivan kahden parametreinä annetun solun keskipisteiden välille. Paluuarvona tulee viivan pituus, kun en muutakaan järkevää palautettavaa keksinyt.. pituustarkastuksen laitoin sen vuoksi, ettei yhtä tai olematonta pistettä aleta piirtelemään. Sellainen tilannehan syntyy, jos sama solu on molempina parametreina.

      Tuosta varmaan säätämällä saat haluamasi. RGB-värithän voi lisätä parametreiksi myös, niin silloin saa funktiota kutsuessa valita värinkin.

      Käyttö siis esim:

      =punaviiva(C5;D5)

      Varsinainen koodi tässä:

      .

      Function punaviiva(mista As Range, mihin As Range) As Single

      Dim x1, y1, x2, y2, pituus As Single
      x1 = mista.Left mista.Width / 2
      y1 = mista.Top mista.Height / 2
      x2 = mihin.Left mihin.Width / 2
      y2 = mihin.Top mihin.Height / 2

      pituus = Sqr((x2 - x1) ^ 2 (y2 - y1) ^ 2)

      If (pituus > 1) Then
      With ActiveSheet.Shapes.AddLine(x1, y1, x2, y2).Line
      .ForeColor.RGB = RGB(255, 0, 0)
      End With
      End If

      punaviiva = pituus

      End Function

      • raunaviiva

      • Application.Volatile
        raunaviiva kirjoitti:

        Reunaviivoja voisi myös käyttää
        https://msdn.microsoft.com/en-us/library/office/ff822605.aspx

        Tuolla jotain säädetty
        http://stackoverflow.com/questions/13661965/conditional-formatting-using-excel-vba-code

        Onko funktion käyttö parempi kuin tapahtumien käyttö...
        Ainakaan koodin voi laittaa moduuleihin eikä työkirjaan tai tauluun?
        https://msdn.microsoft.com/en-us/library/office/ff838823.aspx

        Application.Volatile Method (Excel)

        Marks a user-defined function as volatile. A volatile function must be recalculated whenever calculation occurs in any cells on the worksheet. A nonvolatile function is recalculated only when the input variables change. This method has no effect if it's not inside a user-defined function used to calculate a worksheet cell.
        https://msdn.microsoft.com/en-us/library/office/ff195441.aspx

        http://excel.tips.net/T002013_Forcing_a_Macro_to_Run_when_a_Worksheet_is_Recalculated.html

        Tuolla voi määrätä laskettavaksi aina kun jokun solun arvoa lasketaa (~muutetaan).


    • Punainen_lanka

      Kiitos vastauksista. Mielikuvani kahta eri solua yhdistävästä punaisesta, tai muun värisestä janasta -ei tavoittanut teitä kunnolla.
      Ajatus yhdistävästä janasta solujen keskipisteestä toiseen taitaa olla helpoin toteuttaa ruutukopioimalla näkymä ja tehdä toisella työkalulla nuo yhdistävät viivat.
      Koodeja en saanut pienellä vaivalla toimimaan ja ne taisivatki olla enimmäkseen mallia; reunaviiva, eikä niinkään keskeltä-keskelle.

      Toki olen kiitollinen yrityksistänne ja otan edelleen vastaan toiveeni toteutuksia.
      Ideana siis solun keskeltä toisen solun keskelle jana. Tämä siis karkeana toiveena. :)

    • jotainviivoja
    • tässä-myös
    • Tuota, etkö voi vain piirtää siihen viivaa? Komennolla Lisää > Muodot löytyy suoraa ja vinkkeliä ja nuolenkärjellä ja ilman ja vaikka minkä laista. Ja väriäkin voi vaihtaa. Kun sen kerran lisää, niin alku ja loppu pysyy laitetussa solussa vaikka sitten lisäisi rivejä tai sarakkeita väliin.
      (minulla office 2010 - kai se löytyy muistakin)

    • Punainen_lanka

      Voi mahdotonta..! Ei ole totta, tuossahän se ratkaisu olikin. Kiitos "tattiaivo" tuhannesti! Kiitos myös nimierkille "tässä-myös", olin jo lämpenemässsä koirille, mutta tattiaivon Vinkki on ylivoimainen.
      Tietysti kaikille auttajille kiitos, pelastitte päiväni avuliaisuudella.

      • Punainen_lanka

        Korjaus: Olin siis jo lämpenemässsä koodille.. enkä koirille.. hehh, tablettini autotekstitys. ;D


      • Kai sitä jo tuskissaa rupeaa lämpenemään mille tahansa.
        Kiva, jos sain olla avuksi. En ollut ihan satavarma siitä, oliko tämä juuri se mitä kaipasit, mutta kun en osaa mitään monimutkaisia koiria kun ne menee pienen pääni yli ihan liian korkealta.


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

    Luetuimmat keskustelut

    1. Venäjä alkaa iskemään Suomen politiikkaan.

      Tässä on valtion ja koko länsiliiton päämiehet varoitelleet, että Venäjä alkaa talven aikana taas iskemään hybridisesti.
      Sinkut
      197
      1152
    2. Ajattelitko ikinä pyytää anteeksi?

      Tiedät kyllä mistä.
      Ikävä
      80
      747
    3. Muistelen lämmöllä

      Se oli vaikein päätös, jonka olen joutunut tekemään. En pidä valehtelusta, mutta näin sait päätöksen asioille. Rakasti
      Ikävä
      48
      702
    4. Uskon, että saataisiin kaikki selvitettyä

      Mutta yhteys on jäissä, minä olen jäässä, enkä osaa tai uskalla enää lähestyä. Se vaan on niin. Naiselta Jos ei ole hyvä
      Ikävä
      45
      611
    5. Tunnistan mun rakkaan

      Kirjoituksen heti kun se on täällä. Mä vaan tiedän sen ja tunnen 🤗
      Ikävä
      81
      591
    6. Hallituksen järjestämä spektaakkeli tuo vessanpyttykeissi

      Että olisi kymmenien kansanedustajien kodeissa käyty ihan tuosta vaan, eikä kukaan kansanedustaja kerro niin käyneen, va
      Maailman menoa
      189
      583
    7. Miten oletkin noin

      osaamaton kaikin tavoin :)
      Ikävä
      39
      559
    8. Sysmän "ilon päivä"

      Ja taas palaa hirveä määrä verorahoja, ihan turhaan soopaan. Eikö nämä jotka kuntapolitiikassa valittavat ja tuhoaa vaan
      Sysmä
      42
      559
    9. Tyrkytät ittees liian

      tasokkaille :)
      Ikävä
      46
      550
    10. Pakko myöntää mies

      En mä aina ihan rehellinen sulle ollut
      Ikävä
      106
      550
    11. Odotan tosi paljon et nähdään uudelleen

      Sinussa on piirteitä, jotka sai kiinnostumaan.
      Ikävä
      23
      543
    12. Teinipersu Bergbom lupasi ensimmäisenä euron bensaa

      Teinipersu julkaisi Tiktok-videonsa marraskuussa 2021. Videolla Bergbom viittaa bensan hintoja esittelevään kylttiin ja
      Maailman menoa
      290
      521
    13. Jos olen aiheuttanut pahaa, pyydän anteeksi

      Jos olen omalla kirjoittelullani aiheuttanut täällä jollekin pahaa mieltä tai sotkenut asioita, niin pyydän sitä anteeks
      Ikävä
      64
      499
    14. Vaihdevuodet ja psykoottinen käytös

      Estrogeenilla on suora yhteys aivojen välittäjäaineisiin, erityisesti serotoniiniin, joka säätelee mielialaa, impulssiko
      Suomussalmi
      46
      495
    15. Onko se loukkaavaa jos pelkkä seksi kiinnostaa?

      En tiedä olisiko meillä muuta yhteistä edes. En kyllä oikein osaa nähdä meitä menemässä naimisiin, paitsi ehkä jossain U
      Ikävä
      47
      494
    16. Joka ilta mietin

      sua❤️Mitä teet, missä meet? Kaipaatko yhtään? Yön tullen toivotan mielessäni sulle hyvää yötä ja aamuisin huomenet. Joka
      Ikävä
      27
      483
    17. Luottamus

      Luotan vain siihen mitä tapahtuu IRL. Anonyymipalstan vihjailut eivät merkitse minulle mitään.
      Ikävä
      91
      456
    18. Timo Vornanen.

      On siinäkin yksi täystampio. Eipä ihme, että persukannattajat sen eduskuntaan äänestikin.
      Maailman menoa
      32
      451
    19. Sofia ja Jeffrey yhdessä

      Sofia julkaisi instassa kuvan hänestä ja Jeffreystä kuvan, taustalla soi Happy birthday biisi ja Jeffrey kasvot peitetty
      Kotimaiset julkkisjuorut
      80
      435
    20. Kangasluoman kirjoitus Lapuan Sanomissa

      Ei voi kun nauraa. Nyt tämä henkilö ajaa säästöjä lakkauttamalla kouluja ja sitä myöten tapetaan sivukyliä. Kyseinen h
      Lapua
      54
      433
    Aihe