Oprettet man. d. 07. januar 2013 kl. 13:59:11

Klaus123
Klaus123 (3.410 point. Point ude: 0)


Find min og maks

Hej

Jeg har følgende kode og skulle gerne finde min og maks

Sub BeregnKote()
'
' BeregnKote Makro
'
'Dim st1 ' c
'Dim st2  ' e
'Dim kote1 ' d
'Dim kote2 ' f
'Dim r
'Dim retning
'Dim b
'Dim b1
'Dim b2

st1 = Range("B3").Value
st2 = Range("B4").Value
kote1 = Range("C3").Value
kote2 = Range("C4").Value
r = Range("B6")
retning = Range("B7").Text

If st1 > st2 Then
    MsgBox "Station 1 skal være lavere end station 2"
Else

absolut = Abs(st1 - st2)
r2 = r ^ 2
r42 = 4 * r ^ 2
c2 = st1 ^ 2
d2 = kote1 ^ 2
e2 = st2 ^ 2
f2 = kote2 ^ 2
ce2 = 2 * st1 * st2
df2 = 2 * kote1 * kote2

End If

b1 = (absolut * (r42 - c2 + ce2 - d2 + df2 - e2 - f2) ^ (1 / 2) + (c2 - ce2 + d2 - df2 + e2 + f2) ^ (1 / 2) * (kote1 + kote2)) / (2 * (c2 - ce2 + d2 - df2 + e2 + f2) ^ (1 / 2))
b2 = -((absolut * (r42 - c2 + ce2 - d2 + df2 - e2 - f2) ^ (1 / 2) - (c2 - ce2 + d2 - df2 + e2 + f2) ^ (1 / 2) * (kote1 + kote2))) / (2 * (c2 - ce2 + d2 - df2 + e2 + f2) ^ (1 / 2))

Select Case retning
Case "Konkav"
b = Application.WorksheetFunction.Min(b1, b2)
Case "Konveks"
b = Application.WorksheetFunction.maks(b1, b2)
Case Else
b = "fejl"
End Select

Range("A43") = b

'

End Sub

Skrevet ons. d. 17. april 2013 kl. 16:43:01| #1


Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   


Seneste spørgsmål

Hjælp til sum.hvis

Oprettet den 18. april 2014 kl. 12.39
MarianneF giver 30 point for svar | Giv et svar »

Problemer med sum hvis

Oprettet den 18. april 2014 kl. 12.09
MarianneF giver 30 point for svar | Giv et svar »

LOPSLAG som sætter tekst til højre og tal til venstre i...

Oprettet den 17. april 2014 kl. 15.35
ohansen1 giver 30 point for svar | Giv et svar »

Seneste guides

Malwarebytes version 2.0
Watermark et billede





Computerworld

Teaser billede

Afsløring: Det fedeste konsulenttrick er...

Klumme: Mogens Nørgaard har luret, hvad der er det allervigtigste konsulenttrick af dem alle.

CIO

Teaser billede

Kommunernes nye stærke it-boss: Her er mine planer

Efter en måned på posten har kommunernes nye stærke it-boss fået stillet skarpt på de kommunale it-udfordringer. Blandt andet fremhæver han, at vi nok vil se mere til kontroversielle offentlige...

Comon

Teaser billede

Test: HTC One M8 er en suveræn mobil og scorer topkarakter

I øjeblikket er der ingen tvivl om, hvem der er konge i Androidland. HTC scorer topkarakter med sin nye One M8, der er den bedste Android-mobil, som vi har haft på testbænken.

Channelworld

Teaser billede

It-milliardær: "Jeg er ikke nogen steder, hvor jeg ikke har kontrol"

It-milliardæren Ib Kunøe har ry for at være en af it-branchens hårde negle. I dette interview fortæller han, hvordan den militære baggrund og opvæksten som søn af en sønderjysk...

White paper

Teaser billede

It-modernisering og økonomi

Automatiserede værktøjer fra BluePhoenix hælper dig til at holde de økonomiske tøjler ved it-moderniseringsprojektet.


IT Kurser

Udgiver · © 2014 Computerworld A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger