MAKRO auf verdeckte Zeichenfolge Zeitformat in Minuten

Question

REFER IMAGE

Wie in diesem Bild I 1 Std 41 Min in 101 umwandeln möchten als minutes.kindly mich mit Makro-VBA zu helfen.

Answer 1

Wie Bryan Davies erwähnt, können Sie dies mit Formeln tun.

den ursprünglichen Text Angenommen wird immer, wie Sie in Ihrem Bild formatiert zeigten, soll die folgende Formel arbeiten: =(LEFT(A1,FIND("hr",A1)-1)*60)+MID(A1,FIND("hr",A1)+3,3) & " mins"

Natürlich, wenn Sie darauf bestehen, einen Makro auf, kann der folgende Code verwendet werden, die konvertieren aktive Zelle (das Makro funktioniert besser in dem Sinne, dass es flexiblere Formatierung (zB „1 hr10mins“ akzeptiert arbeitet mit dem Makro aber nicht mit der Formel)):

Sub ConvertToMins() 
    Dim mins As Integer 
    Dim SearchString As String 
    Dim hourLength As Integer 
    Dim minPos As Integer 

    mins = 0 
    SearchString = ActiveCell.Text 

    If InStr(1, SearchString, " h", vbTextCompare) <> 0 Then 
     hourLength = InStr(1, SearchString, " h", vbTextCompare) - 1 
    ElseIf InStr(1, SearchString, "h", vbTextCompare) <> 0 Then 
     hourLength = InStr(1, SearchString, "h", vbTextCompare) - 1 
    Else 
     Exit Sub 
    End If 

    mins = mins + (CDbl(Left(SearchString, hourLength)) * 60) 

    If InStr(1, SearchString, " m", vbTextCompare) <> 0 Then 
     minPos = InStr(1, SearchString, " m", vbTextCompare) - 2 
    ElseIf InStr(1, SearchString, "m", vbTextCompare) <> 0 Then 
     minPos = InStr(1, SearchString, "m", vbTextCompare) - 2 
    Else 
     ActiveCell.Value = CStr(mins) & " mins" 
     Exit Sub 
    End If 

    If IsNumeric(Mid(SearchString, minPos, 2)) = True Then 
     mins = mins + (CInt(Mid(SearchString, minPos, 2))) 
    Else 
     mins = mins + (CInt(Mid(SearchString, minPos, 1))) 
    End If 

    ActiveCell.Value = CStr(mins) & " mins" 
End Sub