Bardzo proszę o pomoc!

[pawel0116]

Witam wszystkich, jestem studentem 1. roku Energetyki, i mam taki przedmiot jak Informatyczne Podstawy Projektowania. Muszę zaznaczyć że nigdy wcześniej nie miałem programowania, nawet w Excelu.

 

Mój problem polega na tym, że na jutro muszę oddać dwa zadania referencyjne, z których jedno już mam niemalże skończone, a drugia troche zaczęte.

 

W pierwszym z nich (zaliczenie tłok 3 -> patrz załącznprogramik) po naciśnięciu przycisku "oblicz" wyskakuje mi błąd, który nie wiem skąd się bierze.

W drugim zadaniu (zaliczenie macierzy 4) mam napisać program, który będzie liczył macierze kwadratowe (mnożenie macierzyktóre pierwsza jest w arkuszu 1 a druga w arkuszu 2, w 3 arkuszu ma być wynik)

 

Bardzo proszę o sprawdzenie i poprawienie tych zadań, bo muszę to zdać jutro.

Postaram się odwdzięczyć za pomoc w taki sposób jaki będę tylko umiał.

Pozdrawiam zdesperowany Paweł

 

widzę że nie mam prawa do wysyłania plików xlsm

więc zrobię rzuty i dam do załącznika

 

tutaj błędny kod do załącznika zaliczenie tłok (problem jest na końcu kodu ZAZNACZYŁEM NA CZRWONO)

 

Dim D As Double

Dim S As Double

Dim H As Double

Dim T As Double

Dim P As Double

Dim Z As Double

Dim Y As String

 

 

Sub obliczanie_pracy()

 

D = Range("I5")

S = Range("I6")

H = Range("I7")

T = Range("I8")

P = Range("I9")

 

If Range("J5").Text = "dm" Then

D = D

Else

End If

If Range("J5").Text = "m" Then

D = (D / 10)

Else

End If

If Range("J5").Text = "cm" Then

D = (D * 10)

Else

End If

If Range("J5").Text = "mm" Then

D = (D * 100)

Else

End If

 

 

If Range("J6").Text = "dm" Then

S = S

Else

End If

If Range("J6").Text = "m" Then

S = (S / 10)

Else

End If

If Range("J6").Text = "cm" Then

S = (S * 10)

Else

End If

If Range("J6").Text = "mm" Then

S = (S * 100)

End If

 

 

If Range("J7").Text = "dm" Then

H = H

Else

End If

If Range("J7").Text = "m" Then

H = (H / 10)

Else

End If

If Range("J7").Text = "cm" Then

H = (H * 10)

Else

End If

If Range("J7").Text = "mm" Then

H = (H * 100)

End If

 

 

If Range("J8").Text = "K" Then

T = T

Else

End If

If Range("J8").Text = "C" Then

T = (T + 273)

Else

End If

 

 

If Range("J9").Text = "hPa" Then

P = P

Else

End If

If Range("J9").Text = "Pa" Then

P = (P / 100)

Else

End If

If Range("J9").Text = "kPa" Then

P = (P * 10)

Else

End If

If Range("J9").Text = "MPa" Then

P = (P * 10000)

Else

End If

If Range("J9").Text = "bar" Then

P = (P * 1000)

Else

End If

 

T1 = 273

T2 = 293

T3 = 373

T4 = 473

T5 = 673

T6 = 1273

T7 = 2273

 

If T = T1 Then

Y = 1.403

Else

End If

If T = T2 Then

Y = 1.4

Else

End If

If T = T3 Then

Y = 1.401

Else

End If

If T = T4 Then

Y = 1.398

Else

End If

If T = T5 Then

Y = 1.393

Else

End If

If T = T6 Then

Y = 1.365

Else

End If

If T = T7 Then

Y = 1.088

Else

End If

 

V1 = (3.14 / 4) * (D ^ 2) * H

V2 = (3.14 / 4) * (D ^ 2) * (H - S)

Z = V2 / V1

X = 2

 

'Pamiętaj o logarytmie

 

praca_izotermiczna = 83.1 * T * X

 

praca_adiabatyczna = ((P * V1) / (Y - 1)) * ((V1 / V2) ^ (Y - 1)) TEN WIERSZ JEST ŻÓŁTY, JEST TO BŁĄD RUN TIME ERROR TYPE MISMATCH

 

Range("I11") = praca_izotermiczna

 

Range("I12") = praca_adiabatyczna

 

End Sub

zadanie_3.pdf

[EdzioSkarpeta]

Stary, na tym forum jest sama dzieciarnia i deblistwo. Nie licz że ktoś Ci tutaj pomoże z takim czymś, co najwyżej dowiesz się czym jest hejt z ust gimbazjalisty. Nie warto