Tulos kaavasta 1 tai kaavasta 2

täh?

Voiko excelillä tehdä sellaista systeemiä että tulos voi tulla vaihtoehtoisista kaavoista? Esim. P=I^2*R TAI P=U^2/R.

7

736

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • oikeen mene perille!

      Ymmärsin asian näin:
      Anna I,R ja U arvot vaikka soluihin C1, C2 ja C3:
      A1 kaava =JOS(C1=0;"";C1^2*C2)
      A2 kaava =JOS(C3=0;"";C3^2/C2)
      Nyt kun annat C-soluihin arvot näkyy vastaus A1 tai A2, riippuu siitä mitkä arvot olet antanut (I ja R tai U ja R)

      • sain tuon kaavan

        mahtumaan yhteenkin soluun. Eli
        A1 =JOS(C1=0;C3^2/C2;JOS(C3=0;C1^2*C2))
        Nyt vastaus näkyy A1:sessä riippuen siitä annoitko I ja R vai U ja R.

      • sitten
        sain tuon kaavan kirjoitti:

        mahtumaan yhteenkin soluun. Eli
        A1 =JOS(C1=0;C3^2/C2;JOS(C3=0;C1^2*C2))
        Nyt vastaus näkyy A1:sessä riippuen siitä annoitko I ja R vai U ja R.

        onko seuraavanlainen systeemi mahdollinen.

        P U I R
        MUUTTUJA
        TULOS

        Yllä olevalla yritän kuvata excel taulukkoa.
        Eli käytössä on kaavat P=I^2*R, P=U^2/R, P=U*I, I=NELIÖJUURI(P/R), I=U/R, U=NELIÖJUURI(P*R), U=I*R, R=U/I, R=P/I^2, R=P*U^2.
        Saako näillä eväillä tehtyä sellaista systeemiä, että laittaa muuttuja riville mitkä tahansa kaksi arvoa niin tulos riville tulee kaksi puuttuvaa arvoa, tai vaikka myös jo olemassa olevat arvot lukemisen helpottamiseksi.

      • tuo
        sitten kirjoitti:

        onko seuraavanlainen systeemi mahdollinen.

        P U I R
        MUUTTUJA
        TULOS

        Yllä olevalla yritän kuvata excel taulukkoa.
        Eli käytössä on kaavat P=I^2*R, P=U^2/R, P=U*I, I=NELIÖJUURI(P/R), I=U/R, U=NELIÖJUURI(P*R), U=I*R, R=U/I, R=P/I^2, R=P*U^2.
        Saako näillä eväillä tehtyä sellaista systeemiä, että laittaa muuttuja riville mitkä tahansa kaksi arvoa niin tulos riville tulee kaksi puuttuvaa arvoa, tai vaikka myös jo olemassa olevat arvot lukemisen helpottamiseksi.

        taulukon kuvaamis yritys oikein onnistunut noin eli P, U, I ja R tulis olla oikealla päin ja niiden alle muuttuja riville aina haluttu arvo...

      • kukaan guru
        tuo kirjoitti:

        taulukon kuvaamis yritys oikein onnistunut noin eli P, U, I ja R tulis olla oikealla päin ja niiden alle muuttuja riville aina haluttu arvo...

        osaa kertoa miten tuo tehdään vai sattuko mahdoton tehtävä?

      • kunde
        kukaan guru kirjoitti:

        osaa kertoa miten tuo tehdään vai sattuko mahdoton tehtävä?

        kyseessä ihan perusjuttu ja muutama kaava

        A1=P
        B1=U
        C1=I
        D1=R

        soluihin A2:D2 syötetään 2 arvoa...
        tulos soluihin A3:D3

        en jaksanut tarkistella kaavoja...

        moduuliin...

        Public Function IPR(P As Double, R As Double) As Double
        IPR = Sqr(P / R)
        End Function
        Public Function PUI(U As Double, I As Double) As Double
        PUI = U * I
        End Function
        Public Function PUR(U As Double, R As Double) As Double
        PUR = U * U / R
        End Function
        Public Function PIR(I As Double, R As Double) As Double
        PIR = I * I * R
        End Function

        Public Function UPR(P As Double, R As Double) As Double
        UPR = Sqr(P * R)
        End Function
        Public Function UIR(I As Double, R As Double) As Double
        UIR = I * R
        End Function
        Public Function RUI(U As Double, I As Double) As Double
        RUI = U / I
        End Function
        Public Function RPI(P As Double, I As Double) As Double
        RPI = P / (I * I)
        End Function
        Public Function RPU(P As Double, U As Double) As Double
        RPU = P * U * U
        End Function

        taulukon moduuliin...

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False

        If Not Range("A2") = "" And Not Range("D2") = "" Then
        Range("A3:D3") = ""
        Range("C3").Value = IPR(Range("A2"), Range("D2"))
        Range("B3").Value = UPR(Range("A2"), Range("D2"))
        Range("A3") = Range("A2")
        Range("D3") = Range("D2")
        Range("A2:D2") = ""
        End If

        If Not Range("B2") = "" And Not Range("C2") = "" Then
        Range("A3:D3") = ""
        Range("A3").Value = PUI(Range("B2"), Range("C2"))
        Range("D3").Value = RUI(Range("B2"), Range("C2"))
        Range("B3") = Range("B2")
        Range("C3") = Range("C2")
        Range("A2:D2") = ""
        End If

        If Not Range("B2") = "" And Not Range("D2") = "" Then
        Range("A3:D3") = ""
        Range("A3").Value = PUR(Range("B2"), Range("D2"))
        Range("B3") = Range("B2")
        Range("D3") = Range("D2")
        Range("A2:D2") = ""
        End If

        If Not Range("C2") = "" And Not Range("D2") = "" Then
        Range("A3:D3") = ""
        Range("A3").Value = PIR(Range("C2"), Range("D2"))
        Range("B3").Value = UIR(Range("C2"), Range("D2"))
        Range("C3") = Range("C2")
        Range("D3") = Range("D2")
        Range("A2:D2") = ""
        End If

        If Not Range("C2") = "" And Not Range("D2") = "" Then
        Range("A3:D3") = ""
        Range("A3").Value = PIR(Range("C2"), Range("D2"))
        Range("C3") = Range("C2")
        Range("D3") = Range("D2")
        Range("A2:D2") = ""
        End If

        If Not Range("C2") = "" And Not Range("D2") = "" Then
        Range("A3:D3") = ""
        Range("A3").Value = PIR(Range("C2"), Range("D2"))
        Range("C3") = Range("C2")
        Range("D3") = Range("D2")
        Range("A2:D2") = ""
        End If

        If Not Range("A2") = "" And Not Range("D2") = "" Then
        Range("A3:D3") = ""
        Range("B3").Value = UPR(Range("A2"), Range("D2"))
        Range("A3") = Range("A2")
        Range("D3") = Range("D2")
        Range("A2:D2") = ""
        End If



        If Not Range("A2") = "" And Not Range("C2") = "" Then
        Range("A3:D3") = ""
        Range("D3").Value = RPI(Range("A2"), Range("C2"))
        Range("A3") = Range("A2")
        Range("C3") = Range("C2")
        Range("A2:D2") = ""
        End If

        If Not Range("A2") = "" And Not Range("B2") = "" Then
        Range("A3:D3") = ""
        Range("D3").Value = RPU(Range("A2"), Range("B2"))
        Range("A3") = Range("A2")
        Range("B3") = Range("B2")
        Range("A2:D2") = ""
        End If
        If Application.WorksheetFunction.CountA(Range("A2:D2")) = 2 Then
        Range("A3:D3") = ""
        End If
        Application.EnableEvents = True
        End Sub
        Sub Resetoi()
        Application.EnableEvents = True
        End Sub

      • meikäläisen
        kunde kirjoitti:

        kyseessä ihan perusjuttu ja muutama kaava

        A1=P
        B1=U
        C1=I
        D1=R

        soluihin A2:D2 syötetään 2 arvoa...
        tulos soluihin A3:D3

        en jaksanut tarkistella kaavoja...

        moduuliin...

        Public Function IPR(P As Double, R As Double) As Double
        IPR = Sqr(P / R)
        End Function
        Public Function PUI(U As Double, I As Double) As Double
        PUI = U * I
        End Function
        Public Function PUR(U As Double, R As Double) As Double
        PUR = U * U / R
        End Function
        Public Function PIR(I As Double, R As Double) As Double
        PIR = I * I * R
        End Function

        Public Function UPR(P As Double, R As Double) As Double
        UPR = Sqr(P * R)
        End Function
        Public Function UIR(I As Double, R As Double) As Double
        UIR = I * R
        End Function
        Public Function RUI(U As Double, I As Double) As Double
        RUI = U / I
        End Function
        Public Function RPI(P As Double, I As Double) As Double
        RPI = P / (I * I)
        End Function
        Public Function RPU(P As Double, U As Double) As Double
        RPU = P * U * U
        End Function

        taulukon moduuliin...

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False

        If Not Range("A2") = "" And Not Range("D2") = "" Then
        Range("A3:D3") = ""
        Range("C3").Value = IPR(Range("A2"), Range("D2"))
        Range("B3").Value = UPR(Range("A2"), Range("D2"))
        Range("A3") = Range("A2")
        Range("D3") = Range("D2")
        Range("A2:D2") = ""
        End If

        If Not Range("B2") = "" And Not Range("C2") = "" Then
        Range("A3:D3") = ""
        Range("A3").Value = PUI(Range("B2"), Range("C2"))
        Range("D3").Value = RUI(Range("B2"), Range("C2"))
        Range("B3") = Range("B2")
        Range("C3") = Range("C2")
        Range("A2:D2") = ""
        End If

        If Not Range("B2") = "" And Not Range("D2") = "" Then
        Range("A3:D3") = ""
        Range("A3").Value = PUR(Range("B2"), Range("D2"))
        Range("B3") = Range("B2")
        Range("D3") = Range("D2")
        Range("A2:D2") = ""
        End If

        If Not Range("C2") = "" And Not Range("D2") = "" Then
        Range("A3:D3") = ""
        Range("A3").Value = PIR(Range("C2"), Range("D2"))
        Range("B3").Value = UIR(Range("C2"), Range("D2"))
        Range("C3") = Range("C2")
        Range("D3") = Range("D2")
        Range("A2:D2") = ""
        End If

        If Not Range("C2") = "" And Not Range("D2") = "" Then
        Range("A3:D3") = ""
        Range("A3").Value = PIR(Range("C2"), Range("D2"))
        Range("C3") = Range("C2")
        Range("D3") = Range("D2")
        Range("A2:D2") = ""
        End If

        If Not Range("C2") = "" And Not Range("D2") = "" Then
        Range("A3:D3") = ""
        Range("A3").Value = PIR(Range("C2"), Range("D2"))
        Range("C3") = Range("C2")
        Range("D3") = Range("D2")
        Range("A2:D2") = ""
        End If

        If Not Range("A2") = "" And Not Range("D2") = "" Then
        Range("A3:D3") = ""
        Range("B3").Value = UPR(Range("A2"), Range("D2"))
        Range("A3") = Range("A2")
        Range("D3") = Range("D2")
        Range("A2:D2") = ""
        End If



        If Not Range("A2") = "" And Not Range("C2") = "" Then
        Range("A3:D3") = ""
        Range("D3").Value = RPI(Range("A2"), Range("C2"))
        Range("A3") = Range("A2")
        Range("C3") = Range("C2")
        Range("A2:D2") = ""
        End If

        If Not Range("A2") = "" And Not Range("B2") = "" Then
        Range("A3:D3") = ""
        Range("D3").Value = RPU(Range("A2"), Range("B2"))
        Range("A3") = Range("A2")
        Range("B3") = Range("B2")
        Range("A2:D2") = ""
        End If
        If Application.WorksheetFunction.CountA(Range("A2:D2")) = 2 Then
        Range("A3:D3") = ""
        End If
        Application.EnableEvents = True
        End Sub
        Sub Resetoi()
        Application.EnableEvents = True
        End Sub

        excel taidoilla saa tuota käyttöön. tulee vaan joku virhe ilmoitus...

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Riikka Purran kaudella nousi bensan hinta yli 2 euron

      Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal
      Maailman menoa
      125
      4793

    2. Veli Sofia teki urosmehiläisen työn

      Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa
      Maailman menoa
      11
      3459

    3. Mitäs nyt sijoittajat?

      Pörssit laskevat maailmalla Iranin sodan takia ja muutenkin ovat olleet Trumpin vallan alla epävarmat. Ainoa, mikä on no
      Maailman menoa
      128
      3231

    4. Hjallis Harkimon, 72, Jasmine-rakas, 37, paljastaa suhteen alusta: "Vähän..."

      Liikemies, kansanedustaja Hjallis Harkimo ja tuottaja-juontaja Jasmine Pajari ovat pariskunta. He asuvat yhdessä Sipooss
      Suomalaiset julkkikset
      28
      2686

    5. Unisex-vessat

      Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu
      Tunteet
      82
      2414

    6. Jutta Larm, 52, haluaa kumota tämän piintyneen ikämyytin

      Oletko samaa mieltä? Jutta Larm on 52-vuotias ja tehnyt pitkän uran yrittäjänä. Hän haluaa kumota tämän piintyneen ikämy
      50 plus
      18
      1793

    7. Henri Alen tilittää yllättäen Vappu Pimiän uudesta MasterChef -pestistä: "Vaikka hän ei..."

      Vappu Pimiä on uusi MasterChef Suomi -tuomari. Hän liittyi uudella MasterChef Suomi -kaudella arvovaltaiseen tuomaristoo
      Suomalaiset julkkikset
      9
      1414

    8. Vastuun ottaminen omasta hyvinvoinnista

      Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh
      Henkinen hyvinvointi ja mielenterveys
      120
      1283

    9. Minkä kouluarvosanan 4-10 annat Beck-leffoille?

      Vähiin käy ennen kuin loppuu... Beck-elokuvia on tullut tv:stä jopa 2-3 viikossa. Nyt leffojen esitystiheys on muuttunut
      Elokuva
      10
      1249

    10. Jäit kiinni siitä

      että katselet minua. Käänsin pääni, minäkin etsin sinua, ja meidän katseemme kohtasivat. Eikä se haittaa - molemmat ky
      Ikävä
      4
      1218
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt