Klaus123 Novice
07. januar 2013 - 13:59 Der er 1 løsning

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
Klaus123 Novice
17. april 2013 - 16:43 #1
Lukker
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





CIO
It-chef i dybet: "Hele vores it-infrastruktur er jo bygget op fra bunden, og alt - inklusive mig selv - forsvinder jo, når vi er færdige i 2018"
Interview: Martin Lauritsen er it-chef på Metro-byggeriet i København, hvor han skal holde internettet i gang og industrispioner ude af 22 byggepladser i hovedstaden. Det er noget af en opgave.
Comon
Sådan installerer du Googles bil-system, Android Auto, på din smartphone
Android Auto har indtil nu krævet en bil med indbygget computer med touchskærm for at kunne fungere. Nu kan du installere systemet på din Android-telefon og benytte den som bil-computer og navigations-system. Se her, hvordan du gør.
Channelworld
Tidligere Atea-boss Claus Hougesen er færdig som direktør i 3A-it: Her er årsagen
Claus Hougesen er stoppet som administrerende direktør for 3A-it og har i stedet overladt posten til Preben Jensen, der ligeledes har en fortid hos Atea.
White paper
Hyperconverged infrastructure - Optimer datacentret med den enkleste og mest fremtidssikrede løsning
Mere integration betyder mindre arbejde for datacenteradministratorer - Læs hvordan i dette white paper. Dette white paper er skrevet af Computerworld for SEC Datacom