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

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

Hjælp til flex i min møderegistrering ?

Oprettet den 18. april 2015 kl. 16.57
giffelgaffel giver 60 point for svar | Giv et svar »

Hvordan undertrykker man række og kolonne bogstaver og numre

Oprettet den 17. april 2015 kl. 19.53
per2edb giver 200 point for svar | Giv et svar »

Excel Wildcard

Oprettet den 17. april 2015 kl. 16.37
steen--madsen giver 30 point for svar | Giv et svar »






Computerworld

Teaser billede

Massefyring: CSC fyrer hver tredje medarbejder i Danmark

CSC står over for kæmpe fyringsrunde. Fyresedlerne bliver uddelt i næste måned.

CIO

Teaser billede

Ineffektiv og gammeldags: Har antivirus overhovedet nogen fremtid?

De traditionelle antivirus-løsninger bliver mere og mere ineffektive og kørt bag af dansen. Har de overhovedet en fremtid som beskyttelsesmiddel i virksomhederne?

Channelworld

Teaser billede

Jubel i dansk it-firma efter kæmpe-ordre: Skal levere et af verdens største ERP-systemer

Allerød-virksomheden Datacon skal levere et af verdens største ERP-systemer til global kunde.

White paper

Teaser billede

Brug migreringen fra Windows Server 2003 til at skabe værdi

Læs om fem overvejelser der viser dig hvordan migreringen fra Windows Server 2003 er din mulighed for at bringe værdi til forretningen.



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