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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
