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.

687

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

IL - PerSut tykittää - Vaaralliset tappajat vankilaan jopa loppuelämäksi!!
Entistä rajumpi elinkautinen tulee – Vaaralliset tappajat vankilaan jopa loppuelämäksi Henkirikosten uusijat voidaan ja
04.11.2025 13:30Maailman menoa
173
22259
Some kuhisee Sanna Marinista: "Wau"
Sanna Marinia hehkutetaan. Muun muassa Jodelissa kommentoidaan The Sunday Timesin julkaisemaa kuvaa Marinista. Hän ant
04.11.2025 19:00Maailman menoa
74
9466
Sannalla tänään vuorossa The Daily Show
Eli nyt mennään jo satiirin puolelle. Tuohan on vähän kuten Lindströmin ohjelma Suomessa.
05.11.2025 07:32Maailman menoa
29
7460
Äärioikeistopurran nukke Petteri Lapanen paniikissa
Kun Suomen historian paras pääministeri antoi vankan lausunnon, kuinka "keskustelu politiikassa on käpertynyt lähinnä va
04.11.2025 15:31Maailman menoa
80
6305
SIELTÄ SE TULI: Kepu-Kurvinen: "Emme enää lähde punavihreään hallitukseen"
Nyt muuten nauretaan loppuviikko, että tähänkö kaatui Lindtmanin pääministerihaaveet. "Antti Kurvisen mukaan puolue ei
04.11.2025 10:04Maailman menoa
182
5930
Täysi ryöpytys Sanna Marinille ulkomailla.
https://www.iltalehti.fi/ulkomaat/a/f699d84f-fa53-4dba-8718-2c395017fc55 Sanna Marinin kirja saa todella tylyn vastaanot
05.11.2025 09:07Maailman menoa
34
4946
HS - Sanna Marinin kirja on priimaluokan vedätys!
Kirja-arvio|Toivo on tekoja tulisi ensisijaisesti nähdä maineen rahallisen hyödyntämisen voimaannuttavana merkkipaaluna.
04.11.2025 11:37Maailman menoa
108
4600
Minja Koskelan "istumista" kertovassa uutisessa ei sanottu persuista mitään
eli jälleen kerran äärivasemmistolainen valehtelee, hän kun väittää että juuri persut ovat lähetelleet Koskelalle vähemm
05.11.2025 11:27Maailman menoa
100
4359
Pekka Visuri: "Suomen on aika irrottautua Ukrainan sodasta"
Slava Ukraina-mölinät eivät enää auta. Ukraina on sotansa hävinnyt. Nyt tarvitaan poliittista selvänäköisyyttä, reaalipo
05.11.2025 05:26Maailman menoa
85
2026
Marin vetäs lopullisesti maton alta hallitusyhteistyöltä Kepun kanssa
Kurvinen on jo ennättänyt kommentoimaan, ettei Kepu ole koskaan enää kiinnostunut vasemmiston kanssa hallituspaikasta, k
04.11.2025 10:54Maailman menoa
77
1310

Tulos kaavasta 1 tai kaavasta 2

Vastaukset

sain tuon kaavan kirjoitti:

sitten kirjoitti:

tuo kirjoitti:

kukaan guru kirjoitti:

kunde kirjoitti:

Luetuimmat keskustelut

IL - PerSut tykittää - Vaaralliset tappajat vankilaan jopa loppuelämäksi!!

Some kuhisee Sanna Marinista: "Wau"

Sannalla tänään vuorossa The Daily Show

Äärioikeistopurran nukke Petteri Lapanen paniikissa

SIELTÄ SE TULI: Kepu-Kurvinen: "Emme enää lähde punavihreään hallitukseen"

Täysi ryöpytys Sanna Marinille ulkomailla.

HS - Sanna Marinin kirja on priimaluokan vedätys!

Minja Koskelan "istumista" kertovassa uutisessa ei sanottu persuista mitään

Pekka Visuri: "Suomen on aika irrottautua Ukrainan sodasta"

Marin vetäs lopullisesti maton alta hallitusyhteistyöltä Kepun kanssa

Maajussi-Villen morsioehdokas Maarit ei halunnut Villeä - Tämä totuus valkeni kuvauksissa!

Tätä ei nähty tv:ssä: AK lataa täyslaidallisen Selviytyjät-tiputtamisestaan!

Marin vetäs lopullisesti maton alta hallitusyhteistyöltä Kepun kanssa

Paljonko teillä jää niin sanottua käyttörahaa?

Tätä ei nähty tv:ssä: Johannes Brotherus lataa suorat sanat Käärijän "Vantaalainen" biisistä

MTV: Lisätietoa: Marko Anttila avaa yksityiskohtia tapaturmasta - Loukkaantuminen tapahtui näin!

Katsoitko? 100 litraa sahtia tuli tv:stä - Uusinta-ajat tässä!

Gallup: Mikä on sinun Elämäsi biisi - ja miksi?

Mitä olet tykännyt asteikolla 1-10 Johanneksen esityksistä Vain elämää -ohjelmassa?

Ilmoittaako 171 vai 172cm pituudeksi?