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.

789

Äänestä

Vastaukset 7

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

Haluatko että unohdan sinut kokonaan
Siihen suuntaan ollaan menossa, nyt jo. Ja ehkä parempi näin, niin ei kulu energiaa hukkaan mahdottomuuteen. Ja vaikka j
08.09.2026 07:24Ikävä
86
1330
Haapaveden upea kurvikuningatar
No nyt on kyllä mahtava uutinen että Haapaveden rohkea ja toimelias nainen ja yrittäjä on päässyt finaaliin kurvikuninga
09.09.2026 09:24Haapavesi
79
849
Millä nimellä
kutsut kaivattuasi omassa mielessäsi?
08.09.2026 11:56Ikävä
42
844
Pisa-tulokset.....
Tuoreen tutkimuksen mukaan suomalaisten osaaminen on edelleen OECD-maiden keskitasoa parempaa. Kantaväestön oppilaiden
08.09.2026 11:10Maailman menoa
273
748
Uskaltaisitko ihana nuorempi nainen lähettää
WhatsApp -viestiä, jos sulla on mun numero. Olisin ihan haltioitunut... Tykkään ja kaipaan ❤️❤️
09.09.2026 17:46Ikävä
80
612
Meinasi nainen mennä pasmat sekaisin
Rupesin vapisemaan, kun huomasin sinut. Mutta sain sentään juuri ja juuri koottua itseni, etten ihan häpäissyt itseäni.
09.09.2026 17:27Ikävä
35
611
Sinulle viestiä
Me sitten oikeasti tutustutaan ensin!!
09.09.2026 19:45Ikävä
46
585
Jos ajattelit että
Annan anteeksi niin en anna.
08.09.2026 14:31Ikävä
35
568
Tiedät että on
Tunteita yhä ja edelleen. Ehkä molemmin puolin.
08.09.2026 11:42Ikävä
25
532
Kumpi teki aloitteen silloin joskus?
😊
08.09.2026 20:48Ikävä
37
532

Tulos kaavasta 1 tai kaavasta 2

Vastaukset 7

sain tuon kaavan kirjoitti:

sitten kirjoitti:

tuo kirjoitti:

kukaan guru kirjoitti:

kunde kirjoitti:

Luetuimmat keskustelut

Haluatko että unohdan sinut kokonaan

Haapaveden upea kurvikuningatar

Millä nimellä

Pisa-tulokset.....

Uskaltaisitko ihana nuorempi nainen lähettää

Meinasi nainen mennä pasmat sekaisin

Sinulle viestiä

Jos ajattelit että

Tiedät että on

Kumpi teki aloitteen silloin joskus?

Suomi meni ihan itse sössimään peruskoulunsa

Anni Ihamäki ja Ilkka-rakas vetivät tiukan rajan TTK:ssa: "Kyllä spekuloitiin"

Tunnistatko Martin Beckin ihka ekasta leffasta? Beck-elokuvat starttaavat tv:ssä

Huomasitko? Elämä Lapselle -konsertti tänään suorana tv:ssä - Aika kova kattaus huippuartisteja!

Suvi Teräsniska kertoi ikävän uutisen - Miten käy Elämäni biisin?

Mitä tehdä omenoista? Kerro suosikkileivonnaisesi!

Pisa-tulokset.....

Gallup: Kumpi parempi: julkkiskisaajat vai tavikset?

MOT: Nuoren Olivia Oraksen, 27 surullinen kuolema kauneusoperaatiossa :(

Öisin pimeydessä piilee vaara - Riku Rantala paljastaa Selviytyjät-kulissien takaa