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

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

lopslag

Oprettet den 22. august 2014 kl. 10.44
busborg giver 30 point for svar | Giv et svar »

Excel 2010 fryser _tilsyneladende_ når skjult...

Oprettet den 22. august 2014 kl. 09.56
martin_92 giver 100 point for svar | Giv et svar »

Kan ikke få lov at indsætte hyperlink i Excel-ark

Oprettet den 22. august 2014 kl. 08.39
henrikw73 giver 30 point for svar | Giv et svar »

Seneste guides

Opret BOOTBAR USB pen ...
Undgå reklamerne på iPad





Computerworld

Teaser billede

Guide: Sådan laver du din egen private "Dropbox"-server med Raspberry Pi på et kvarter

Selv uden de store Linux-evner kan en nybegynder relativt nemt lave en Sync-server, som fungerer på samme måde som de kendte sky-tjenester, så længe man er væbnet med tålmodighed og gåpåmod.

CIO

Teaser billede

Her er læren af Windows 8.1: Sådan kan du undgå kaos næste gang

ComputerViews: Opgraderingen Windows 8.1 har givet store problemer for mange brugere. Problemet skal findes i en grundlæggende mangel, som du også selv bærer et ansvar for.

Comon

Teaser billede

Stor guide: Her er den nødvendige software til din studie-pc

Software til din studiecomputer kan koste dig over 10.000 kroner gennem uddannelsen, men du kan også klare dig ganske gratis. Her er en guide til den nødvendige software på både Mac og pc - og til...

Channelworld

Teaser billede

Den ukendte dansker i spidsen for Microsofts milliard-forretning

Interview: Ikke mange herhjemme kender 44-årige Microsoft-dansker Thomas Neergaard Hansen, der står i spidsen for en global forretning med en årlig omsætning på mere end 40 milliarder...

White paper

Teaser billede

Sikkerhed og KVM-switching

Få svar på de sikkerhedsspørgsmål, der opstår ved brug af KVM-switche, og få strategier til at imødegå problemerne.



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