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
648
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
- 937558
- 403622
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘1021846- 241060
Taas ryssittiin oikein kunnolla
r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html32943Valtimon Haapajärvellä paatti mäni nurin
Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,27911Rakastuminenhan on psykoosi
Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk53807Olisinko mä voinut käsittää sut väärin
Nyt mä kelaan päässäni kaikkea meidän välillä tapahtunutta. Jos mä sit kuitenkin tulkitsin sut väärin? Se, miten sä käyt31732Tähän vaivaan ei auta kuin kaksi asiaa
1. Tapaaminen uudestaan tai 2. Dementia Anteeksi kun olen olemassa🙄60729Känniläiset veneessä?
Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v26662