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

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

VBA foretag beregning med værdi fra inputbox

Oprettet den 28. februar 2015 kl. 18.33
JP9 giver 100 point for svar | Giv et svar »

Userform - hjæp til valg i lister

Oprettet den 28. februar 2015 kl. 08.52
hubertus giver 200 point for svar | Giv et svar »

Gengivelse af celle

Oprettet den 27. februar 2015 kl. 09.38
Klyde72 giver 30 point for svar | Giv et svar »






Computerworld

Teaser billede

Fyringsrunde i IBM Danmark: Medarbejdere mister jobbet onsdag

IBM Danmark skal igennem endnu en fyringsrunde, erfarer Computerworld.

CIO

Teaser billede

Google klar med 'Android for Work' - sådan vil Google få virksomhederne til at skifte til Android

Google ser store muligheder for indtjening, hvis selskabet kan få virksomhederne til at vælge Android som mobil-platform. Nu er selskabet klar med særlig 'Android for Work'-løsning.

Comon

Teaser billede

Stortest: Her er de bedste gratis antivirus-programmer

Kan gratis sikkerhedssoftware virkelig beskytte din pc? Svaret er ja, hvis du vælger det rette produkt. Læs her en test af de mest pålidelige gratis sikkerhedsprogrammer.

Channelworld

Teaser billede

Milliardhandel: Norsk kapitalfond køber dansk it-succes

Den succesfulde it-distributør EET Europarts får nye ejere, efter at den norske kapitalfond FSN har lagt et milliardbeløb på bordet.

White paper

Teaser billede

Sådan vælger du det bedste CMS

Læs her hvordan du vælger det CMS til web der både fra marketingafdelingens og udviklernes perspektiv giver den bedste kundeoplevelse.



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