[VBA/EXCEL] Funzioni e valori di ritorno

[Aki]

Ave populus,
nel vba di excel, ho questo listato:

sub MAIN()
   dim cod as string

   cod = DATO(1)
end sub

function DATO(col as integer) as string
   dim num as string

   num = Active.Cells(1, col)
end function

ma cod non viene valorizzato, è sempre uguale a "", mentre dovrebbe assumere il valore di ritono della funzione DATO; mentre num è perfettamente valorizzato

come mai?

[Jupy64]

ciao, devi dare il valore di ritorno alla funzione..

function DATO(col as integer) as string
   dim num as string

   num = Active.Cells(1, col)
   DATO=num
end function

[Aki]

Originariamente inviato da Jupy64
ciao, devi dare il valore di ritorno alla funzione..

function DATO(col as integer) as string
   dim num as string

   num = Active.Cells(1, col)
   DATO=num
end function

oki grassie