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

Klaus123
Klaus123 (5.010 point. Point ude: 200)


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

problemer med faneblade

Oprettet den 2. juli 2015 kl. 15.03
torbenlind giver 60 point for svar | Giv et svar »

Formelhjæp

Oprettet den 2. juli 2015 kl. 13.11
boro23 giver 30 point for svar | Giv et svar »

Hjælp til mail makro i excel

Oprettet den 2. juli 2015 kl. 12.40
TheresaD giver 60 point for svar | Giv et svar »






Computerworld

Teaser billede

Finn Helmer: "Jeg har penge til mad til engang i næste uge, men så er det også slut"

Dette er historien om en mand, som tjente 330 millioner kroner, mistede dem alle sammen igen, blev snydt og bedraget, og som nu sidder i et hul med bundløs gæld. Men han sidder der med et smil,...

CIO

Teaser billede

Skal du hoppe med på Microsofts store opgraderings-tog?

ComputerViews: Det er slut med de kæmpestore system-fornyelser med års mellemrum fra Microsofts side. Istedet forsøger selskabet at sætte gang i løbende og vedvarende opgraderinger. Du kan...

Comon

Teaser billede

Prøvekørt: Her er Microsofts splinternye Surface-computer - til noget lavere pris end Surface Pro 3

Prøvekørt: Microsoft er klar med en helt ny Surface-computer, der bliver billigere end den nuværende Surface 3 Pro, selv om de er ret ens. Vi har prøvekørt den nye maskine. Se vores dom her.

Channelworld

Teaser billede

BREAKING: Danske it-folk idømt lange fængselsstraffe for momssvindel i million-klassen

Tre tiltalte skal flere år i fængsel for svindel med moms i den tidligere it-forhandler Multimedia World.

White paper

Teaser billede

Hvilken rolle spiller datacenteret i fremtidens hybride IT-virkelighed?

Hvordan sikres sikkerhed, performance og netværkskapacitet til at understøtte de hybride løsninger? Få svarene i dette white paper



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