20. marts 2009 - 11:24Der er
6 kommentarer og 1 løsning
To værdier i en funktion
Jeg har en funktion som returnerer to værdier. Den ene returneres i cellen hvor funktionen er indtastet, den anden skal brugeren udpege via en inputbox.
Jeg troede at jeg kunne gøre således:
Public Function ToResultater(X As Double, Y As Double) As Double Dim Res2 As Double Dim rCel As Range Dim Txt As String Txt = "Der er to resultater." & vbCr & _ "Udpeg en celle hvor det andet resultat skal indsættes."
ToResultater = X * Y Res2 = X / Y Set rCel = Application.InputBox(Txt, "Udpeg destinationscelle", , , , , , 8) rCel.Value = Res2
der vestemmer det di skriver som Værdinummer,hvad der kommer tilbage, så her skal du have formlen 2 steder, med hver sin Værdinummer.
Public Function ToResultater(X As Double, Y As Double, Værdinummer As Integer) As Variant Dim Res(1) As Double Res(0) = X * Y Res(1) = X / Y If Værdinummer <= UBound(Res) Then ToResultater = Res(Værdinummer) Else ToResultater = "forkert Værdinummer ( 0 til " & UBound(Res) & ")" End If End Function
Hej Kabbak Tak for din kommentar. Det er dog ikke helt det jeg havde drømt om - jeg vil meget gerne have funktionaliteten med den brugerudpegede destinationscelle. Ka' du klare den?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
