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

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

kun svar hvis det er fra 1 til 2.

Oprettet den 19. december 2014 kl. 18.21
2hans giver 200 point for svar | Giv et svar »

Opsummering af totaler mellem 2 tabeller i Powerpivot

Oprettet den 19. december 2014 kl. 15.06
jesperdjensen giver 60 point for svar | Giv et svar »

Automatisk y-akse i graf

Oprettet den 19. december 2014 kl. 14.30
legut giver 60 point for svar | Giv et svar »

Seneste guides

Malwarebytes version 2.0.3.1025
Find ejeren af et vilkårligt domæne
Opret BOOTBAR USB pen ...





Computerworld

Teaser billede

På vejen hjem fra lufthavnen opdager jeg at min telefon via Bluetooth prøver at forbinde med min bil - og Bluetooth har aldrig været aktiveret på den telefon

På vejen hjem fra lufthavnen opdager jeg at min telefon via Bluetooth prøver at forbinde med min bil - og Bluetooth har aldrig været aktiveret på den telefon

CIO

Teaser billede

Skat sparer 100 millioner kroner med ny it-indkøbs-politik: Så enkelt kan det gøres

Med en spritny udbudsfabrik har Skat præsteret at spare 100 millioner kroner på it-driftsudbud. Læs her, hvordan Skat har strømlinet sine udbudsproces.

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

Faneflugt blandt Microsofts danske partnere: Fylder hylderne med Microsoft-rivalers produkter

Massevis af danske forhandlere af Microsofts klassiske økonomisystem C5 er begyndt at fylde hylderne med produkter fra Microsofts rivaler. "Det virker som om, at Microsoft mere eller mindre...

White paper

Teaser billede

Outsourcing af softwareudvikling

Hvordan vælger du den rigtige partner? Læs om geografi og kulturforskelle, samarbejde og vurdering af faglig kompetence og projektmodenhed.



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