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

Klaus123
Klaus123 (6.125 point. Point ude: 400)


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

Beregning af samlet værdi for flere rækker ud fra...

Oprettet den 29. april 2016 kl. 21.49
scholesy giver 30 point for svar | Giv et svar »

Sammenkæde filter i pivotabeler

Oprettet den 29. april 2016 kl. 20.21
Gramstrup giver 60 point for svar | Giv et svar »

V tegn ved autokontrol af kolonneindhold?

Oprettet den 29. april 2016 kl. 15.48
Nytbrugernavn giver 30 point for svar | Giv et svar »

Seneste guides

Vælg den rigtige lommelygte.
Luk en tråd
Defraggler og din SSD.





Computerworld

Teaser billede

Apple, Google og Microsoft i skattely: Vi står i et moralsk dilemma

ComputerViews: Apple, Microsoft, HP, Oracle og Google er blandt de virksomheder, der har flest penge placeret i skattely. Det sætter os alle i et moralsk dilemma.

CIO

Teaser billede

Næste skridt i digitaliseringen: De 'levende' tjenester er lige på trapperne

Når du sætter dig ind i din bil og din smartphone siger "Tæt trafik: Der er 25 minutter til hjem", så er du en del af den it-revolution, som finder sted lige nu. Hør eksperten Mark Curtis...

Comon

Teaser billede

Se billederne: Her er et gratis open source-alternativ til Microsofts Office 365

Open 365 skal være den åbne kildekodes gratis alternativ til Microsofts eller Googles kontorløsninger til deling og redigering af dokumenter online samt synkronisering af filer i skyen. Se her,...

Channelworld

Teaser billede

KMD skiller sig af med sin mainframe-afdeling - 68 KMD-ansatte får ny arbejdsgiver

IBM overtager fra 1. juni den tekniske del af KMD's mainframe-forretning. Dermed får 68 KMD-medarbejdere ny arbejdsgiver.

White paper

Teaser billede

Den igangværende IT udfordring: Total tilgængelighed 24x7x365

Sådan håndterer du den voksende it-udfordring: Total tilgængelighed



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