Voiko excelillä tehdä sellaista systeemiä että tulos voi tulla vaihtoehtoisista kaavoista? Esim. P=I^2*R TAI P=U^2/R.
Tulos kaavasta 1 tai kaavasta 2
7
599
Vastaukset
- oikeen mene perille!
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
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
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
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
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ä?
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
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 Subexcel taidoilla saa tuota käyttöön. tulee vaan joku virhe ilmoitus...
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1302485En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois1091484- 1371317
Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3491246Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1091167Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.991055On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s46769Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet13751Ei koskaan saatu tuntea
Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee33730Palstan ylivoimaisesti suosituin keskustelunaihe
Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks252729