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

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

Conditional formatting i en powerpivot genereret pivotchart

Oprettet den 30. september 2014 kl. 14.27
jesperdjensen giver 60 point for svar | Giv et svar »

Excel lukker ikke helt

Oprettet den 30. september 2014 kl. 14.06
fajens giver 30 point for svar | Giv et svar »

Konvertering Pivot til formler

Oprettet den 30. september 2014 kl. 11.29
bogr giver 60 point for svar | Giv et svar »






Computerworld

Teaser billede

Apple trækker iOS 8-opdatering tilbage - ødelægger iPhone

En splinterny opdatering til iOS 8 har udløst så mange klager, at Apple har trukket den tilbage igen.

CIO

Teaser billede

It-chefer kæmper med fortiden: Anses stadig mest som drifts-folk

De fleste it-chefer og CIO'er har for længst forstået, at it er nøglen til at skabe vækst og innovation i virksomheden. Desværre er det ikke nødvendigvis en erkendelse, man har i resten af...

Comon

Teaser billede

Test af 22 antivirusprogrammer: Her er det bedste til din maskine

En stortest af antivirus-programmer fortæller hvilket program, der yder den bedste beskyttelse mod de ondsindede koder, du møder på nettet lige netop nu. Her er oversigten.

Channelworld

Teaser billede

Buldrer frem: Dustin er kongen af dansk online-salg

Den svenske online-koncern stormer frem i Danmark og sætter sig på to titler i årets udgave af Computerworlds Top 100.

White paper

Teaser billede

Modernisering af legacy-it

Læs hvordan automatiserede værktøjer fra BluePhoenix kan understøtte modernisering af it, applikations- og databasemigrering samt test.



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