Tulos kaavasta 1 tai kaavasta 2

täh?

2009-02-10 12:02:35

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

739

Äänestä

Vastaukset

oikeen mene perille!
2009-02-10 12:41:59
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
  2009-02-10 13:03:20
  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
  2009-02-10 19:30:43
  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
  2009-02-10 19:32:34
  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
  2009-02-11 13:12:02
  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
  2009-02-11 14:29:42
  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
  2009-02-14 21:09:21
  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

Suomalainen tutkimus paljasti oudon asian vasemmistolaisista - he häpeävät itseään
Kyllä, asia on faktaa. Suomalainen tutkimus osoittaa, että vasemmistolaisina itseään pitävät kansalaiset häpeävät itseää
13.03.2026 19:31Maailman menoa
144
4007
Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa
Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri
13.03.2026 13:27Maailman menoa
366
3084
Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla
Frederik veti ns. herneen nenään ja päätti kostaa pehtoorille. Mitäs mieltä olet Frederikin "aamutoimista"? Lue jutt
13.03.2026 10:03Tv-sarjat
14
2018
Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."
Ellen Jokikunnaksen ja hänen puolisonsa Jari Raskin perheestä ja taloprojektista Italiassa kertova Unelmia Italiassa -sa
13.03.2026 09:07Suomalaiset julkkikset
10
1715
Oho! Vappu Pimiä teki "röyhkeän" teon - Onko sopivaa paljastaa tämä MasterChef-sarjasta?
Vappu Pimiä on astunut MasterChef Suomi -keittiöön ja liittynyt ohjelman legendaariseen tuomaristoon Helena Puolakan ja
13.03.2026 09:04Tv-sarjat
5
1148
Kaste tulisi tehdä apostolisella tavalla Ap. t. 2:38 mukaan
Apostolit eivät kastaneet kolminaisuuden nimellä vaan Jeesuksen alkuperäisen käskyn mukaisesti: Ap. t. 2:38 Niin Pietar
14.03.2026 11:53Kaste
69
975
Mun kaikkialta häviäminen
Ei liity sinuun. Muista se. ❤️ Mua kiusataan enkä mä enää jaksa.
13.03.2026 00:52Ikävä
71
974
Kuhmossa rallit alkoi ennen aikojaan
Paettiin polliisia törkeästi? Se tuo rallikiima on näemmä saavuttanu paikalliset tommi mäkiset kiljupäissään auton rat
14.03.2026 10:55Kuhmo
23
861
Inhottaa ajatus siitä
Miten monia olet pannut.
13.03.2026 20:38Ikävä
71
839
Onko teillä
minkä tyyppisiä seksifantasioita kaivattunne kanssa?
13.03.2026 18:20Ikävä
44
804

Tulos kaavasta 1 tai kaavasta 2

Vastaukset

sain tuon kaavan kirjoitti:

sitten kirjoitti:

tuo kirjoitti:

kukaan guru kirjoitti:

kunde kirjoitti:

Luetuimmat keskustelut

Suomalainen tutkimus paljasti oudon asian vasemmistolaisista - he häpeävät itseään

Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa

Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla

Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."

Oho! Vappu Pimiä teki "röyhkeän" teon - Onko sopivaa paljastaa tämä MasterChef-sarjasta?

Kaste tulisi tehdä apostolisella tavalla Ap. t. 2:38 mukaan

Mun kaikkialta häviäminen

Kuhmossa rallit alkoi ennen aikojaan

Inhottaa ajatus siitä

Onko teillä

Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla

Eikö naiset ole katsoneet lämpömittaria.....???

Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."

Oho! Vappu Pimiä teki "röyhkeän" teon - Onko sopivaa paljastaa tämä MasterChef-sarjasta?

Sitra: Some pakkosyöttää nuorille oikeistolaista sisältöä

Farmi Suomi: Kokeeko Frederik, 81, saman kohtalon kuin ikämies Danny?

Tiesitkö? Andy McCoy ja Pelle Miljoona saavat taiteilijaeläkettä - Tämän suuruinen eläke on

Sähköautoa vaikea hankkia koska latauspisteet puuttuu

Hoksasitko? L/over-sarjan Jani Volanen on tämän TV-tähden isä!

Tykkäisitkö tällaisesta mökistä? Anni Ihamäki sai tv:ssä massiivisen remontin kesämökille