Formula Excel Arrotondamento in VBA

Question

Domanda facile facile ma che mi sta facendo perdere tempo

Come faccio a trasformare la seguente formula in una Sub di Excel?

=SE(E10="tempo reale"; E10; SE(RESTO(MINUTO(E10);5)=0;E10;ARROTONDA.ECCESSO(E10*72;0,25)/72))

Grazie mille

Answer 1

Ciao kazikamuntu,

grazie del riscontro.

Quanto alla formula: 

=SE(E10="tempo reale"; E10;ARROTONDA.ECCESSO(E10;ORARIO(0;5;0)))

ho notato una particolarità della funzione di Excel ARROTONDA.ECCESSO che in un solo caso (su 1.440 minuti) restituisce un valore errato e arrotonda 00:45:00 a 00:50:00 invece di mantenere 00:45:00.

Answer 2

... o, meglio:

Public Function fn(ByVal v As Variant) As Variant

    Application.Volatile True

    Select Case VarType(v)

    Case vbDouble, vbDate

      fn = TimeSerial(Hour(v), 5 * ((Minute(v) - 1) \ 5) + 5, 0)

    Case vbEmpty

      fn = 0

    Case vbString

      If v = "tempo reale" Then

        fn = v

      Else

        fn = CVErr(xlErrValue)

      End If

    Case Else

      fn = CVErr(xlErrValue)

    End Select

End Function

EDIT:

Sostituire l'istruzione in grassetto con la seguente:

fn = TimeSerial(Hour(v), 5 * -Int(-Minute(v) / 5), 0)

Assolutamente perfetto maurizio!

grazie

Answer 3

... o, meglio:

Public Function fn(ByVal v As Variant) As Variant

    Application.Volatile True

    Select Case VarType(v)

    Case vbDouble, vbDate

      fn = TimeSerial(Hour(v), 5 * ((Minute(v) - 1) \ 5) + 5, 0)

    Case vbEmpty

      fn = 0

    Case vbString

      If v = "tempo reale" Then

        fn = v

      Else

        fn = CVErr(xlErrValue)

      End If

    Case Else

      fn = CVErr(xlErrValue)

    End Select

End Function

EDIT:

Sostituire l'istruzione in grassetto con la seguente:

fn = TimeSerial(Hour(v), 5 * -Int(-Minute(v) / 5), 0)

Answer 4

Ciao kazikamuntu,

la tua formula potrebbe essere scritta anche così:

=SE(E10="tempo reale"; E10;ARROTONDA.ECCESSO(E10;ORARIO(0;5;0)))

Quanto alla versione in Visual Basic anche se chiedi specificatamente una Sub mi associo all'interpretazione di Norman (che saluto), che propone una Function, del tipo definito dall'utente, e propongo:

Public Function fn(ByVal v As Variant) As Variant

    Application.Volatile True

    Select Case VarType(v)

    Case vbDouble

      fn = TimeSerial(Hour(v), 5 * ((Minute(v) - 1) \ 5) + 5, Second(v))

    Case vbEmpty

      fn = 0

    Case vbString

      If v = "tempo reale" Then

        fn = v

      Else

        fn = CVErr(xlErrValue)

      End If

    Case Else

      fn = CVErr(xlErrValue)

    End Select

End Function

Answer 5

Ciao kazikamuntu,

In un modulo standard, incolla la seguente UDF (funzione utente)

'==========>>

Option Explicit

'--------->>

Public Function TempoReale(rCell)

    Const sStr As String = "tempo reale"

    With rCell

        If .Value = sStr Then

            TempoReale = sStr

        ElseIf Minute(.Value) Mod 5 = 0 Then

            TempoReale = .Value

        Else

            TempoReale = Application.WorksheetFunction.Ceiling(.Value * 72, 0.25) / 72

        End If

    End With

End Function

'<<=========

La funzione va usata così

                 =TempoReale(E10)

===

Regards,

Norman