Function mioarray() Dim arr(9) mioarray = UBound(arr) End Function
Function mioarray() Dim arr(7) arr(0) = "Lunedì" arr(1) = "Martedì" arr(2) = "Mercoledi" arr(3) = "Giovedì" arr(4) = "Venerdì" arr(5) = "Sabato" arr(6) = "Domenica" mioarray = arr(UBound(arr) - 1) End Function
Public Function NumeroRigheDellIntervallo(IntervalloInInput) ... NumeroRigheDellIntervallo = ... End Function
Public Function NumeroRigheDellIntervallo(IntervalloInInput As Range) As Long NumeroRigheDellIntervallo = IntervalloInInput.Rows.Count End Function