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

Äänestä

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

      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

      • tattiaivo

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Olen nainen pahoillani, että tykkään sinusta niin paljon, että

      Haluaisin panna sua. Tuntuu vaan siltä, että olet sen suhteen ihan haluton. Ei minulle riitä pelkkä ystävyyssuhde.
      Ikävä
      89
      1428

    2. Puukotus Kajaanissa

      Kuka puukotti ja ketä? https://yle.fi/a/74-20247765 Vähemmän yllättäen päihteet mainittu
      Kajaani
      47
      973

    3. Liikenneonnettumuus

      Linkkari ja ruotsibiili törmäsivät linkku oli redun opetusajossa
      Ylitornio
      14
      855

    4. Mieti oikeasti

      Ollaan lähes tuntemattomia, mutta samalla on tämä erityinen vuosien tilanne takana, joka on ollut monella tapaa väärin.
      Ikävä
      40
      828

    5. Taasko sä vedit

      Suojamoodin päälle? Miehelle
      Ikävä
      92
      731

    6. Pahin tapa satuttaa toista

      On jättää toinen vaille mitään vastausta. Erityisen kipeää se tekee sillon jos toinen ghostaa.
      Ikävä
      81
      730

    7. Tiedoksi yhdelle naiselle

      että mies lähestyy kaikin tavoin jos on kiinnostunut! 🙋🏻‍♂️
      Ikävä
      46
      718

    8. kene ajoi "kolarin"?

      "Punkaharjulla Luston ja Tuppuranmäen välillä sattui tiistaina aamupäivällä liikenneonnettomuus. Poliisin mukaan Savonl
      Savonlinna
      17
      717

    9. Minulla on joskus ikävä sinua ja ajattelen sinua joskus.. edelleen

      Olin joskus niin rakastunut sinuun. Olin onnellinen, että kohdattiin ja kun vain tiesin sinun olevan olemassa. Täytit aj
      Ikävä
      27
      677

    10. Mitä söpö

      Mies mietit?
      Ikävä
      59
      662

    11. Tulisitko huomenna mun luo?

      🤗
      Ikävä
      66
      653

    12. Alkaa jotenkin nyt kuvio hahmottuu täällä

      Sellainen vaikutelma tästä alkaa tulla, että täällä on joku pieni porukka, joka tuntee toisensa tai ainakin pelaa samaan
      Ikävä
      97
      641

    13. Miten uskallan sua nähdä

      Kun vaikutat suuttuneelta :(
      Ikävä
      45
      634

    14. Taas henkirikos

      Kuka lienee nyt asialla.
      Ilomantsi
      10
      608

    15. Nainen, tässä olen kahden vaiheilla

      Toinen pitäisi valita ja kummassakin on hyvät ja huonot puolensa. Toinen olisi sellainen pysyvä mutta työläs. Toinen taa
      Ikävä
      56
      585

    16. Jos kaivattusi on

      Varattu niin miksi et antaisi asian olla hänen suhteen. Miksi ylipäätään vielä jatkat?
      Ikävä
      47
      566

    17. Hyvä on sitten, jos et sitä s*ksiä halua kanssani.

      Rakastetaan vaan toisiamme, voin käydä muualla tyydyttämässä fyysisenpuolen tarpeet. Puhumalla tämäkin olisi selvinnyt.
      Ikävä
      129
      547

    18. Minä kyllä odotan nainen

      että sinun kanssa voisin jutella asioista ihan oikeasti.
      Ikävä
      43
      544

    19. Kylän tielle remonttia?

      Mitäköhän kylän tielle ruvetaan tekemään ku laitettu tuommoset töpsät muutamien suojateitten kohille?
      Hyrynsalmi
      13
      522

    20. Suloinen ja herkkä

      Toiset huomioiva, räväkkä, yllättävä. Ei sellaisesta voi olla pitämättä.
      Rakkaus ja rakastaminen
      31
      515
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt