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.

669

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

Persujen VigeIius noIasi taas itsensä
Kun uhriutui vuonna 2024 (siis persujen "vahtivuorolla") Tampereella aloittaneen perheryhmäkodin toiminnasta. ”Leviää k
19.09.2025 10:00Maailman menoa
150
3245
Persut ei kestä heidän johtajistaan tehtyä huumoria
Laajalti tiedostettu tosiasia on, että autoritaariset johtajat ja erinäiset diktaattorit eivät kestä heidän kustannuksel
18.09.2025 14:00Maailman menoa
70
2200
Kuka omistaa entisen Veljeskodin?
Kenellä on varaa pitää hiljattain remontoitua rakennusta tyhjillään? Tehdäänkö siitä Suomen kallein kirpputori vai mikä
18.09.2025 09:53Ähtäri
10
2177
Vasemmistoliitto peruisi sosiaaliturvan heikennykset
He palauttaisivat työttömyysturvan ja asumstuen suojaosat, eli saisi jälleen tienata 300 euroa kuukaudessa ilman tukien
19.09.2025 08:05Maailman menoa
73
1876
Jos voisit kysyä
Kaivatultasi vielä yhden kysymyksen, mikä se olisi? Aloitan: Mitä sinä halusit minusta?
19.09.2025 07:57Ikävä
155
1702
Oli kiva nähdä sut
vaikkakin kaukaa ja nopeasti. Tiedän kyllä tasan tarkkaan missä mennään, joten anteeksi jos pilasin päiväsi, ei ollut mi
19.09.2025 19:17Suhteet
24
1636
Kohtalokas laukaus
IL 20.9.25 "Ihminen kuoli baarin edustalla Kajaanissa Poliisi ei epäile tapauksessa rikosta." "Kajaanin keskustassa on k
20.09.2025 09:42Kajaani
12
1545
Työeläkkeen saamiseksi olisi tehtävä töitä
Meillä on Suomessa iso joukko ihmisiä, joilla olisi vielä työkykyä jäljellä, mutta joilta puuttuu arjesta mielekäs tekem
20.09.2025 10:25Maailman menoa
23
1238
Pesäpallo rulettaa
Hehkutin täällä aikaisemmin Mansen naisten joukkueen Suomen mestaruutta. Jostain kumman syystä kirjoitustani ei enää löy
19.09.2025 19:09Tampere
3
1153
Lamppu syttyi
Tiedätkö mitä mies, olen aivan yhtä rakastunut suhun. Kyllä. Koita jaksaa eiköhän me kohta nähdä ❤️
18.09.2025 16:31Ikävä
75
1095

Tulos kaavasta 1 tai kaavasta 2

Vastaukset

sain tuon kaavan kirjoitti:

sitten kirjoitti:

tuo kirjoitti:

kukaan guru kirjoitti:

kunde kirjoitti:

Luetuimmat keskustelut

Persujen VigeIius noIasi taas itsensä

Persut ei kestä heidän johtajistaan tehtyä huumoria

Kuka omistaa entisen Veljeskodin?

Vasemmistoliitto peruisi sosiaaliturvan heikennykset

Jos voisit kysyä

Oli kiva nähdä sut

Kohtalokas laukaus

Työeläkkeen saamiseksi olisi tehtävä töitä

Pesäpallo rulettaa

Lamppu syttyi

Ihan hyvä julkkiskattaus istahtaa sinisille sohville Vain elämää -ohjelmassa lauantaina, eikö?

GALLUP: Kuka naisjuontaja on suosikkisi: Susanna Laine, Vappu Pimiä, Ella Kanninen vai joku muu?

Orpon palkkio on vain 18745e kuukaudessa ensi vuonna

Mikä on mielestäsi ollut kautta aikain paras pari TTK-parketilla?

Muistatko? Näin Ensitreffit-Arttu aiheutti päänvaivaa maajussi-Stiinalle - Salasi tärkeää tietoa

Nukkumisesta

Tämä omenahillo sulaa suussa - Nämä vinkit takaavat maistuvan lopputuloksen!

Suomen hallitukset rahan tuhlaajana

Talk Show isäntä Jimmy Kimmel sai kenkää

Sininen väri OUT! Ensitreffit alttarilla Matti vaihtoi hiustyyliä - Katso tästä tyylikäs uusi ilme!