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

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

Hjælp til makro

Oprettet den 3. september 2015 kl. 21.36
Josvto giver 30 point for svar | Giv et svar »

Søg med forslag

Oprettet den 3. september 2015 kl. 20.27
lehank giver 60 point for svar | Giv et svar »

VBA Søg efter præcis værdi og ikke andre der ligner.

Oprettet den 3. september 2015 kl. 15.14
KenneyD71 giver 15 point for svar | Giv et svar »

Seneste guides

Fjern reklamer i Edge - Windows 10
Download/import af tabeller - IE
Manual til casio ur





Computerworld

Teaser billede

Hackere angriber hundredetusindevis af jailbreakede iPhones: 225.000 Apple-konti hacket

Mere end 225.000 Apple-konti er havnet i hænderne på it-kriminelle, der bruger de mange konti til at handle ind på de bestjålne personers regning. Læs her, hvordan du kommer ud af hackernes klør.

CIO

Teaser billede

Stor mangel: Danske virksomheder kommer snart til at mangle denne type it-folk

Danske virksomheder står på spring for at komme i gang med store projekter inden for data-analyse - ikke mindst drevet af data fra de sociale medier. Men der er et problem: Der er ikke folk nok.

Comon

Teaser billede

Derfor er Nigeria-svindlerne så snot-dumme

Har du også undret dig over, hvorfor de såkaldte Nigeria-breve så åbenlyst bærer præg af at være fake?

Channelworld

Teaser billede

Nu slipper Microsoft salget af Surface fri: 40 danske it-forhandlere står klar

To år efter lanceringen af tablet-pc'en Surface er Microsoft nu endelig klar til at slippe salget til erhvervskunder løs.

White paper

Teaser billede

Microsoft Office 2013-kurser

Få det fulde udbytte med e-Learning fra Børsen Academy. Børsen Academy tilbyder markedets bredeste udvalg af e-Learning inden for Microsoft Office - på dansk, svensk, finsk og naturligvis også...



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