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

Klaus123
Klaus123 (6.320 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

formel til at sammenlægge samme celle fra alle ark

Oprettet den 9. februar 2016 kl. 13.58
nmb22510 giver 60 point for svar | Giv et svar »

Rangering af værdier

Oprettet den 8. februar 2016 kl. 23.42
kasperorso giver 30 point for svar | Giv et svar »

Lopslag med flere returværdier

Oprettet den 8. februar 2016 kl. 19.50
Sag223 giver 30 point for svar | Giv et svar »

Seneste guides

Luk en tråd
Defraggler og din SSD.
Must-know genvejstaster til WordPress
Slettet





Computerworld

Teaser billede

Apple tilbagekalder opladere - kan give dig stød: Se om din egen oplader er berørt

Opladere til Mac, iPhone og iPad, der er solgt fra 2003 til 2015, kan give brugerne stød. Det får nu Apple til at love kunderne en gratis ny oplader.

CIO

Teaser billede

Kunderne risikerer at smutte: Derfor er (næsten gratis) test vigtig for din forretning

Klumme: Det er vigtigt at kende dine webapplikationers maksimale driftskapacitet og at vide, hvor flaskehalsene er, for ellers kan det koste kunder. Og nu kan du teste det hele - uden at det...

Comon

Teaser billede

Xbox ramt af syv timer langt nedbrud: Så fik kendt musiker nok

Frustrationer over gårsdagens lange nedbrud på Xbox-netværket har fået gangsterrapperen Snoop Dogg til at gå amok over for Microsoft og selskabets stifter Bill Gates. Se videoen her.

Channelworld

Teaser billede

Dansk hosting-firma udvider kraftigt: Har masser af ubesatte stillinger - og er klar til opkøb

Hostingfirmaet IT Relation fra Herning skovler penge ind og er klar til at finde checkhæftet frem, hvis der opstår i opkøbsmuligheder i hostingbranchen.

White paper

Teaser billede

Innovation gennem intelligent forretningsdrift

Intelligent Business Operations gør det muligt at transformere missionskritisk indsigt til den rette handling og derved styrke forretningen.



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