Insira o formato “minutes: seconds” na célula, converta o Excel em segundos e informe na mesma célula

Question

Estou tentando fazer com que o Excel converta a entrada "mm: ss" no formato "ss" na mesma célula.

Por exemplo, quero que o usuário digite "1:21" (não a hora do dia, mas mm: ss) na célula A1 e faça com que o Excel converta em segundos e informe a solução na célula A1, a mesma célula. / p>

Estou assumindo que isso precisa ser programado no VBA, mas não tenho exposição suficiente para criar meu próprio programa.

    

Answer 1

Este código VBA deve funcionar:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler
    Application.EnableEvents = False
    theRow = Target.Row
    theColumn = Target.Column
    Dim section() As String
    theCharacter = ":"
    theValue = Target.Value
    pos = InStr(theValue, theCharacter)
    If pos <> 0 Then
        section() = Split(theValue, theCharacter)
        minutesValue = section(0)
        secondsValue = section(1)
        newValue = (minutesValue * 60) + (secondsValue)
        Target.Value = newValue
    End If
    Application.EnableEvents = True

ErrorHandler:
    Application.EnableEvents = True

End Sub

Abra o VBA / Macros com ALt + F11, clique duas vezes na planilha e cole o código no lado direito.

As células devem ser formatadas como texto para permitir que a macro encontre o caractere : .