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.

628

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

Moikka rakas
Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa
06.05.2025 10:36Ikävä
70
17803
Mitä tapahtunut
Poliiseja monta autoa+panssariauto Porista kpäähän päin tänään klo n.20 kuka hurjistunut ?
07.05.2025 21:01Kankaanpää
45
5571
HS: Kuka vielä uskaltaa mennä sairaalan ensiapuun?
https://www.hs.fi/mielipide/art-2000011212025.html Tässä on hyvin ajankohtainen mielipidekirjoitus koskien Malmin sairaa
06.05.2025 11:00Maailman menoa
304
2980
Lakea konkurssiin. Asukkaat menettävät asuntonsa
Kuntarahoitus on tänään jättänyt konkurssihakemuksen lakean kaikista kiinteistö osakeyhtiöistä. Kassa on tyhjä, kaikki
07.05.2025 17:23Seinäjoki
45
2766
Gallup: kaivattusi syntymävuosi
Minä vuonna kaipaamasi henkilö on syntynyt?
07.05.2025 12:28Ikävä
181
2533
Nikkalassa vauhdilla nokka kohti taivasta
Mitähän Darwin sanoisi näistä 4 suomalaisesta, jotka kävivät Haparandan puolella näyttämässä, kuinka Suomi auto kulkee t
08.05.2025 12:57Tornio ja Haaparanta
9
2120
Missäpäin,,,
Lapuaa tapettu ihminen viime yönä ? Hurjaa touhua nykymeno täällä...
07.05.2025 13:02Lapua
25
1985
mahdollista, että olet ollut iltavuorossa
Ja kotiin päästyäsi tulit palstalle etsimään merkkiä minusta, jos kaipaat yhtään minua niin kuin minä sinua Ei mennyt k
07.05.2025 22:10Ikävä
12
1832
Ökyrikas Kurkilahti mussuttaa veroistaan
Pakeni aikoinaan veroja Portugaliin mutta joutui palaamaan takaisin kun Suomi teki verotussopimuksen Portugalin kanssa.
06.05.2025 09:45Maailman menoa
141
1752
Yhdysvalloissa työllisyys paranee, Suomessa työttömyys kasvaa, missä vika?
Miten tämä on mahdollista että 177 000 uutta työllistä tuli USAssa yhdessä kuukaudessa, vaikka Trump on ruorissa? Orpon
06.05.2025 10:08Maailman menoa
411
1658

Tulos kaavasta 1 tai kaavasta 2

Vastaukset

sain tuon kaavan kirjoitti:

sitten kirjoitti:

tuo kirjoitti:

kukaan guru kirjoitti:

kunde kirjoitti:

Luetuimmat keskustelut

Moikka rakas

Mitä tapahtunut

HS: Kuka vielä uskaltaa mennä sairaalan ensiapuun?

Lakea konkurssiin. Asukkaat menettävät asuntonsa

Gallup: kaivattusi syntymävuosi

Nikkalassa vauhdilla nokka kohti taivasta

Missäpäin,,,

mahdollista, että olet ollut iltavuorossa

Ökyrikas Kurkilahti mussuttaa veroistaan

Yhdysvalloissa työllisyys paranee, Suomessa työttömyys kasvaa, missä vika?

Perttu Sirviö laukoo täydestä tuutista - Farmi Suomi -kisaajista kovaa tekstiä "Pari mätää munaa..."

Sitä saa mitä tilaa Perussuomalaiset!

Ilouutinen! Eränkävijät Äijä-koira ja Aki palaavat tv:seen - Nämä julkkikset koirineen vieraina!

Tänään alkaa Tappava ase -klassikkoleffojen sarja TV:ssä - Kolahtaako?

HS: Kuka vielä uskaltaa mennä sairaalan ensiapuun?

Ökyrikas Kurkilahti mussuttaa veroistaan

Tykkäätkö halaamisesta?

Päivän horoskooppi, ole hyvä!

Kaisa Juuson avustaja sanoi.....

Avustettu itsemurha herättää vahvoja tunteita - Laillista Sveitsissä, ei Suomessa