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
täh?
7789
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 7
Vanhimmat
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)
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.
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ä?
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...