Vaellusrinkan gramman viilausta

vaellusopas

Moi.
Suoraan asiaan, eli mulla on Excel-taulukko vaelluskamoilleni tyyliin:
A-sarakkeessa ns. harakanvarvasruudut, joihin ruksaan "x":n kun kama on kerätty.
B-sarakkeessa on kamojen nimet
C-sarake on varattu kamojen painoille grammoina.
D-sarakkeessa on yksi solu varattu kamojen yhteispainolle, eli kaava laskee C-sarakkeen grammat tuohon soluun.
Tuossa siis simppeli lähtöasetelma.

Toiveena olisi, että D-sarakkeen soluun tulisikin ainoastaan niiden kamojen yhteispaino, joiden kohdalle olen laittanut ruksin (x ) A-sarakkeeseen.
Löytyisikö yksinkertaista LASKE.JOS...tjms kaavaa, joka toteuttaisi tuon toiveeni?

Selvennykseski, että pivot-taulukolla VÄLISUMMA-kaavalla osaan kyllä toteuttaa tuon, mutta koen sen hitaaksi ja liikaa tarkkuutta vaativaksi tyhjien rivien, otsikoiden, solujen ym.. hommaksi verrattuna, jos kaavalla saisi yksinkertaisesti vain ruksattua ja laskettua yhteen tiettyjen rivien solujen painot.

Tämä tulisi hyötykäyttöön myös muillekin kuin vain itselleni -reissun kamojen suunnittelussa.

Tänx jo etukäteen :))

13

329

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • vaellusopas

      Moi,
      Niinhän siinä kävi, että kun hieman taistelee, niin löytää toimivan kaavan tarpeisiini.
      Eli, tässä kaava, jolla toiveeni toteutuu:
      =SUMMA.JOS.JOUKKO(C5:C126;A5:A126;"x")
      Kaava summaa siis yhteen alueen: C5:C126 -vain ne luvut, joiden kohdalla on "x" alueella: A5:A126

      Toivottavasti tästä olisi muillekin hyötyä!
      Jos löytyy yksinkertaisempi kaava, otan sen ilolla vastaan.

    • Turbo-Urpo1

      Minä laitan tähän vielä LibreOffice Calc taulukkolaskenta ohjelmaa käyttäville, oman versioni, joka ei kyllä ole liialla älyllä pilattu. https://s25.postimg.cc/ljvp5mb7j/Retki-kamat.gif

      Aivan perus JOS() funktio ja SUMMA() fuktion käyttöä on höystetty omaperäisellä luvun muotoilulla, joka näkyy animaation lopussa. Tämän luvunmuotoilu jättää luvun pois, mutta tulostaa laadun erinlaisena positiivisille (OK) ja negatiivisille (UUPUU) luvuille.

    • vaellusopas

      Moikka,
      Innostuin lisäkehittämään vaelluskamaExcel-taulukkoani, jossa siis kaava laskee tarvikkeen painon vain niiltä riveiltä, joiden viereen olen merkannut X-ruksin.
      Innostuin siis selvittämään, miten hiirellä onnistuisi helposti vain klikkaamalla lisäämään X-ruksin soluun ja onnistuinkin löytämään sellaisen VB-koodin, vaikka en taitaja näissä olekaan.

      Nimimerkki "Kunde" on joskus räätälöinyt alla olevan koodin jollekin kysyjälle ja itse koodia muokkaamalla sain sen toimimaan siten, että X-ruksini tulevat ainoastaan A-sarakkeelle.
      Lisäominaisuutena solu värjääntyy vihreäksi.
      Tuon sain siis toimimaan siten, että muutin alueet VAIN A-saraketta silmälläpitäen.
      Tuplasuluissa tekemäni muutokset 4. ja 6. rivin lopussa.

      Jatkotoiveeni olisi saada tämä kaava muutettua siten, että se toimisi kolmella (jaetulla) sarakkeella. Eli alunperin kaikki X-ruksit tuli A-sarakkeeseen A4-A150, mutta nyt olen jakanut tarvikkeet kolmelle sarakkeelle, joiden X-ruksisarakkeet on: A4-A50, D4-D50 ja G4-G50.
      Onnistuuko tätä koodia muokkaamaan jotenkin, itse en onnistunut eikä taitoni riitä.

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim Solualue As Range
      If Target.Count = 1 Then
      Set Solualue = Range("E5:JX5") -----(("A4:A150"))-----
      For i = 7 To 33 Step 2
      Set Solualue = Union(Solualue, Range("E" & i & ":JX" & i)) -----(("A" & i & ":A" & i))-----
      Next
      If Not Intersect(Target, Range(Solualue.Address)) Is Nothing Then
      If Target.Interior.Color = vbGreen Then
      Target = ""
      Target.Interior.Pattern = xlNone
      Else
      Target.Interior.Color = vbGreen
      Target = "X"
      Target.HorizontalAlignment = xlCenter
      End If
      End If
      End If
      End Sub

    • vaellusopas

      Moikka,
      Innostuin lisäkehittämään vaelluskamaExcel-taulukkoani, jossa siis kaava laskee tarvikkeen painon vain niiltä riveiltä, joiden viereen olen merkannut X-ruksin.
      Innostuin siis selvittämään, miten hiirellä onnistuisi helposti vain klikkaamalla lisäämään X-ruksin soluun ja onnistuinkin löytämään sellaisen VB-koodin, vaikka en taitaja näissä olekaan.

      Nimimerkki "Kunde" on joskus räätälöinyt alla olevan koodin jollekin kysyjälle ja itse koodia muokkaamalla sain sen toimimaan siten, että X-ruksini tulevat ainoastaan A-sarakkeelle.
      Lisäominaisuutena solu värjääntyy vihreäksi.
      Tuon sain siis toimimaan siten, että muutin alueet VAIN A-saraketta silmälläpitäen.
      Tuplasuluissa tekemäni muutokset 4. ja 6. rivin lopussa.

      Jatkotoiveeni olisi saada tämä kaava muutettua siten, että se toimisi kolmella (jaetulla) sarakkeella. Eli alunperin kaikki X-ruksit tuli A-sarakkeeseen A4-A150, mutta nyt olen jakanut tarvikkeet kolmelle sarakkeelle, joiden X-ruksisarakkeet on: A4-A50, D4-D50 ja G4-G50.
      Onnistuuko tätä koodia muokkaamaan jotenkin, itse en onnistunut eikä taitoni riitä.

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim Solualue As Range
      If Target.Count = 1 Then
      Set Solualue = Range("E5:JX5") -----(("A4:A150"))-----
      For i = 7 To 33 Step 2
      Set Solualue = Union(Solualue, Range("E" & i & ":JX" & i)) -----(("A" & i & ":A" & i))-----
      Next
      If Not Intersect(Target, Range(Solualue.Address)) Is Nothing Then
      If Target.Interior.Color = vbGreen Then
      Target = ""
      Target.Interior.Pattern = xlNone
      Else
      Target.Interior.Color = vbGreen
      Target = "X"
      Target.HorizontalAlignment = xlCenter
      End If
      End If
      End If
      End Sub

    • vaellusopas

      Moikka,
      Innostuin lisäkehittämään vaelluskamaExcel-taulukkoani, jossa siis kaava laskee tarvikkeen painon vain niiltä riveiltä, joiden viereen olen merkannut X-ruksin.
      Innostuin siis selvittämään, miten hiirellä onnistuisi helposti vain klikkaamalla lisäämään X-ruksin soluun ja onnistuinkin löytämään sellaisen VB-koodin, vaikka en taitaja näissä olekaan.

      Nimimerkki "Kunde" on joskus räätälöinyt alla olevan koodin jollekin kysyjälle ja itse koodia muokkaamalla sain sen toimimaan siten, että X-ruksini tulevat ainoastaan A-sarakkeelle.
      Lisäominaisuutena solu värjääntyy vihreäksi.
      Tuon sain siis toimimaan siten, että muutin alueet VAIN A-saraketta silmälläpitäen.
      Tuplasuluissa tekemäni muutokset 4. ja 6. rivin lopussa.

      Jatkotoiveeni olisi saada tämä kaava muutettua siten, että se toimisi kolmella (jaetulla) sarakkeella. Eli alunperin kaikki X-ruksit tuli A-sarakkeeseen A4-A150, mutta nyt olen jakanut tarvikkeet kolmelle sarakkeelle, joiden X-ruksisarakkeet on: A4-A50, D4-D50 ja G4-G50.
      Onnistuuko tätä koodia muokkaamaan jotenkin, itse en onnistunut eikä taitoni riitä.

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim Solualue As Range
      If Target.Count = 1 Then
      Set Solualue = Range("E5:JX5") -----(("A4:A150"))-----
      For i = 7 To 33 Step 2
      Set Solualue = Union(Solualue, Range("E" & i & ":JX" & i)) -----(("A" & i & ":A" & i))-----
      Next
      If Not Intersect(Target, Range(Solualue.Address)) Is Nothing Then
      If Target.Interior.Color = vbGreen Then
      Target = ""
      Target.Interior.Pattern = xlNone
      Else
      Target.Interior.Color = vbGreen
      Target = "X"
      Target.HorizontalAlignment = xlCenter
      End If
      End If
      End If
      End Sub

    • vaellusopas

      Oho.. tulipas lähetyksiä! Yp poistakoot ylimääräiset.

    • vaellusopas

      No niin.. sainkin taas itse ratkaistua tämänkin ongelman. :)
      Alla siis viilailuni riveillä 5-10

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim Solualue As Range
      If Target.Count = 1 Then
      Set Solualue = Range("A4:A50")
      Set Solualue = Range("D4:D50")
      Set Solualue = Range("G4:G50")
      For i = 4 To 50 Step 1
      Set Solualue = Union(Solualue, Range("A" & i & ":A" & i))
      Set Solualue = Union(Solualue, Range("D" & i & ":D" & i))
      Set Solualue = Union(Solualue, Range("G" & i & ":G" & i))
      Next
      If Not Intersect(Target, Range(Solualue.Address)) Is Nothing Then
      If Target.Interior.Color = vbGreen Then
      Target = ""
      Target.Interior.Pattern = xlNone
      Else
      Target.Interior.Color = vbGreen
      Target = "X"
      Target.HorizontalAlignment = xlCenter
      End If
      End If
      End If
      End Sub

    • Kundepuu

      tossa putsattuna...

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim Solualue As Range
      If Target.Count = 1 Then
      Set Solualue = Union(Range("A4:A150"), Range("D4:D150"), Range("G4:AG150"))
      If Not Intersect(Target, Range(Solualue.Address)) Is Nothing Then
      If Target.Interior.Color = vbGreen Then
      Target = ""
      Target.Interior.Pattern = xlNone
      Else
      Target.Interior.Color = vbGreen
      Target = "X"
      Target.HorizontalAlignment = xlCenter
      End If
      End If
      End If
      End Sub

      keep EXCELing
      @Kunde

    • vaellusopas

      Maestro itse, kiitos Kunde putsatusta versiosta! :D Ainahan se on parempi asiallisesti siivotulla versiolla työskennellä.
      Tämä tulee ihan tämmöisenään porukalle käyttöön, eli tulee siis todellakin hyötykäyttöön.
      Tänks vielä kerran siivotusta versiosta!

      -vaellusopas

    • Kundepuu

      jos haluat esim. ruksin tms se onnistuu helposti.
      Tsekkaa lisää merkin code ja fontti ja muuta koodiin
      eli nyt Wingdings fontti ja ruksi merkki ja alhaalta luet Char code(vaihda mistä Symbol dec)

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim Solualue As Range
      If Target.Count = 1 Then
      Set Solualue = Union(Range("A4:A50"), Range("D4:D50"), Range("G4:G50"))
      If Not Intersect(Target, Range(Solualue.Address)) Is Nothing Then
      If Target.Interior.Color = vbGreen Then
      Target = ""
      Target.Interior.Pattern = xlNone
      Else
      Target.Interior.Color = vbGreen
      Target.Font.Name = "Wingdings 2"
      Target = Chr(80)
      Target.HorizontalAlignment = xlCenter
      End If
      End If
      End If
      End Sub

    • vaellusopas

      Moi Kunde, olin reissussa ja huomasin uuden postauksesi vasta nyt, kiitos tästä!
      Kokeilin koodiasi ja muotoilu antoi päheen harakanvarpaan, jolla ns. kuitataan keräämäni tarvike.
      En oivalla miten pääsen itse muotoiluun kiinni ja tarvittaessa vaihtamaan codea ja fonttia.

      Tein muuten sellaisen havainnon, ettei tuo laittamasi harakanvarvas-muotoilu tue haluamaani laskukaavaa mm. C3:ssa =SUMMA.JOS.JOUKKO(C4:C125;A4:A125;"x") -eli tuon ruksin kanssa on ongelmia, jos tilalla onkin muotoiltu harakanvarvas.
      Olisihan se tyylikästä käyttää tuollaista muotoilua, jos tuo SUMMA..kaava tunnistaisi sen. :)

      Olisiko VB:stä apua jopa korvaamaan tuo SUMMA-kaava?
      Tässä kaikkien kolmen sarakkeen kaavat, jotka laskevat niiden tarvikkeiden painoja, joissa on ruksi:
      C3:ssa =SUMMA.JOS.JOUKKO(C4:C125;A4:A125;"x")
      F3:ssa =SUMMA.JOS.JOUKKO(F4:F125;D4:D125;"x")
      I3:ssa =SUMMA.JOS.JOUKKO(I4:I125;G4:G125;"x")
      Ihanne olisi, jos näiden kolmen sarakkeen yhteenlasketut summat tulisivat suoraan esim. soluun K3.

    • jos haluat esim. ruksin tms se onnistuu helposti.
      Tsekkaa lisää merkin code ja fontti ja muuta koodiin
      eli nyt Wingdings fontti ja ruksi merkki ja alhaalta luet Char code(vaihda mistä Symbol dec)
      eli lissä merkki ja sieltä Wingdings ja sit ohjeen mukaan...
      koodissa code(80) vastaa P-kirjainta normaalitekstissä, mutta fontilla Wingdings2 se on se harakanvarvas
      eli omassa kaavassasi pitää vaihtaa X kirjain P kirjaimeksi...


      Keep EXCELing
      @Kunde

    • vaellusopas

      Nyt toimii harakanvarvas-muotoilulla taulukon laskenta.
      Tänks taas Kunde!

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

    Luetuimmat keskustelut

    1. Kuinkahan paljon taas itken tulevina öinä

      meitä ja sitä, miten kaikki meni. Miten rikki se repi sydäntä ja jäljelle jäi pysyvä suru. En vain pääse siitä, ei hetke
      Ikävä
      75
      9649
    2. Kitaristi Esa Pulliainen laihtunut

      Tietääkö kukaan minkä takia Esa Pulliainen on laihtunut lyhyessä ajassa ainakin 60 kiloa. Esa Pulliainen laihtunut 😳
      Laihdutus
      138
      5112
    3. Pienimäki ei anna haastatteluja

      medialle Ähtärin kunnan velka sotkuista, kertovat luotettavat lähteet.
      Ähtäri
      17
      3928
    4. Sinuun ei tehoa mikään

      Annan periksi. En vain jaksa tuulimyllyä vastaan taistella. Miehelle
      Ikävä
      37
      3731
    5. Onko Kuhmolaiset tyytyväisiä?

      Kun pääsivät eroon huijari Polvisesta?
      Kuhmo
      22
      3130
    6. Huomenta ja hyvää tiistaita

      Huomenta ja hyvää tiistaita. ❄️🐺☕❄️
      Ikävä
      88
      1951
    7. En tiedä mitä ajatella

      Petaatko perjantaille jotain. Ei meidän kannata minun sydän on viety. Se joka sen vei ei ole mieheni, etkä se ole sinä.
      Tunteet
      36
      1772
    8. Hyviä vinkkejä täällä

      Eli kaivattua vain kädestä kiinni ja jos vastustelee niin sanoo, että hei beibi beibi nyt mennään vaan. Näin he elivät e
      Ikävä
      17
      1637
    9. voitaisiinko unohtaa se sotku?

      Olisiko mahdollista aloittaa puhtaalta pöydältä vielä? Ikävä sua ****
      Ikävä
      16
      1609
    10. Naisten ulkonäkö, jos miehiä ei olisi?

      Mä meinasin ensiksi, että en aloittaisi tätä keskustelua, ainan nyt, mutta huomasin tossa toisessa ketjussa, että tämä s
      Sinkut
      245
      1599
    Aihe