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

91

    Vastaukset

    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

    • 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. Kela valvoo lasten tilejä.

      Tämä isoveli Kela kyttää jopa lasten yli 200,- euron rahat jotka on melko varmasti lahjaksi saatu. Se vaikuttaa perheen
      Yhteiskunta
      258
      2756
    2. Nainen, tervetuloa

      Tule luokseni eka vaikka viikoks tai pariksi. Saisin helliä, kannustaa ja tukea sua ja kokata lempi herkkujasi. Pääsisit
      Ikävä
      11
      1723
    3. Mitä haluaisit sanoa hänelle

      Nyt tällä hetkellä?
      Ikävä
      120
      1609
    4. TTK-tähti Saana Akiola paljasti tv-ohjelmassa tapahtuneen ahdistelun

      Olisko pitänyt suunnitella ulostulo paremmin? Nyt lehdet soittelevat kaikki 8 läpi ja kuusi sanoo ettei koskenut häntä.
      Maailman menoa
      16
      1502
    5. Elisa laskuttaa jo sähköpostilaskusta erikseen euron

      Paperilaskuista on otettu lisämaksua jo ajat sitten, mutta nyt Elisa ottaa euron siitä että lähettävät sähköisen laskun
      Maailman menoa
      96
      1355
    6. Oho! Susanna Laine kohtasi epäonnea lomareissulla Italiassa - Avaa tilannetta: "Vähän sahaavaa..."

      Ou nou! Tsemppiä kuitenkin loppulomaan Italiassa, Susanna Laine ja mahdollinen seuralainen! Lue lisää ja katso kuvat:
      Suomalaiset julkkikset
      7
      1200
    7. Väliämme on noin 6 km

      Niin lähellä ja niin kaukana. Sinä olet kotona, minä olen kotona. Olet jo unessa. Mutta kun herään, olet jo töissä ja vä
      Ikävä
      9
      973
    8. Odotatko vielä

      Häntä?????
      Ikävä
      61
      928
    9. Mikä biisi

      Kuvaa sinun ja kaivattusi tämänhetkistä tilannetta? Laittakaa biisejä tulemaan ❤️
      Ikävä
      56
      908
    10. Ensitreffit alttarilla Jyrki paljastaa hääyön intiimiasioista kameroiden sammuttua: "Fyysinen..."

      Ooo-la-laa… Ensitreffit alttarilla -sarjassa alkaa hääparien välillä ns. tunteet kuumenemaan. Lue lisää: https://www.s
      Ensitreffit alttarilla
      1
      905
    Aihe