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

648

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


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

    Luetuimmat keskustelut

    1. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      93
      7558
    2. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      40
      3622
    3. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      102
      1846
    4. Missä olet ollut tänään kaivattuni?

      Ikävä sai yliotteen ❤️ En nähnyt sua tänään söpö mies
      Ikävä
      24
      1060
    5. Taas ryssittiin oikein kunnolla

      r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html
      NATO
      32
      943
    6. Valtimon Haapajärvellä paatti mäni nurin

      Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,
      Nurmes
      27
      911
    7. Rakastuminenhan on psykoosi

      Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk
      Ikävä
      53
      807
    8. Olisinko mä voinut käsittää sut väärin

      Nyt mä kelaan päässäni kaikkea meidän välillä tapahtunutta. Jos mä sit kuitenkin tulkitsin sut väärin? Se, miten sä käyt
      Ikävä
      31
      732
    9. Tähän vaivaan ei auta kuin kaksi asiaa

      1. Tapaaminen uudestaan tai 2. Dementia Anteeksi kun olen olemassa🙄
      Ikävä
      60
      729
    10. Känniläiset veneessä?

      Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v
      Nurmes
      26
      662
    Aihe