VBA: sostituzione parte della stringa temporale

Question

La colonna C ha il tempo (formattato come testo come foglio verrà esportato come csv) nel formato HH: mm: ss.

C1, C2, C3 valori sono di tempo 9:15:00, 9:16:00, 9:17:00, rispettivamente, fino a 15:29:00

necessità di sostituire solo l'ultimo ": 00 "parte con ": 59"

--- CATCH --- Nella colonna C ci saranno valori quali 10:00:00 o 11:00:00 o 12:00:00

Questo significa una sostituzione diretta ": 00" con ": 59" corromperebbe i valori di esatto 10'o orologio, 11'o orologio ecc.

La colonna C sarà riempita w con migliaia di tali dati. La mia logica di seguito non funziona credo:

{

Dim secrep As String 
LastRow = Cells(Rows.Count, "C").End(xlUp).Row 
Secsz = Range("C1:C" & LastRow).Select 
seczero = Right(Secsz, 2) 
secrep = Replace(Secsz, ":00", ":59") 

}

So che il codice di cui sopra è sbagliato, ma questo è tutto quello che potevo trovare.

richiesta di aiuto completo questa logica ..

EDIT: non era abbastanza elaborata per spiegare. Anche questi valori completi ore devono essere sostituisce quali: 10:00:59, 11:00:59, 12:00:59

Answer 1

Se il valore non termina con 00:00 aggiornare alla :59

Dim cell As Range 

For Each cell In Range("C1", Range("C1").End(xlDown)) 
    If Right$(cell.Value, 5) <> "00:00" Then 
     cell.Value = Left$(cell.Value, 6) & "59" 
    End If 
Next 

Modifica, per sostituire solo l'ultimo 00:

Dim cell As Range 

For Each cell In Range("C1", Range("C1").End(xlDown)) 
    cell.Value = Left$(cell.Value, 6) & "59" 
Next 

Answer 2

Sei sulla strada giusta. Hai solo bisogno di dividere prima la stringa, sostituirla nella seconda metà e poi concatenare in seguito. Ecco una funzione di general-purpose che si potrebbe desiderare di migliorare con un po 'di gestione degli errori:

Function ReplaceEnd(s As String, endCount As Integer, replaceWhat As String, replaceWith As String) 
    Dim baseString As String 
    Dim replaceString As String 

    baseString = Left(s, Len(s) - endCount) 
    replaceString = Right(s, endCount) 

    ReplaceEnd = baseString & Replace(replaceString, replaceWhat, replaceWith) 
End Function 

Edit: Esempio di utilizzo:

secrep = ReplaceEnd(Secsz, 3, ":00", ":59") 

Answer 3

Utilizzare la funzione split e poi analizzare e modificare.

Private Sub CommandButton1_Click() 
    Dim ws   As Excel.Worksheet 
    Dim lastRow  As Long 
    Dim szTimeParts() As String 
    Dim lRow   As Long 

    lRow = 1 
    lastRow = ws.Cells(ws.Rows.count, "C").End(xlUp).Row 

    Set ws = ActiveWorkbook.Sheets("Sheet1") 
    ws.Activate 

    'Loop through the rows 
    Do While lRow <= lastRow 

     'Make sure we have a value to read into our string 
     If ws.Range("C" & lRow).Value <> "" Then 
      szTimeParts = Split(Trim(ws.Range("C" & lRow).Value), ":") 
      If szTimeParts(1) <> "00" Then 
       ws.Range("C" & lRow).Value = szTimeParts(0) & ":" & szTimeParts(1) & ":59" 
      End If 
     End If 
     lRow = lRow + 1 
    Loop 

End Sub 

Answer 4

è possibile utilizzare questo:

Public Function AlterTime(rInputRange As Range) 

    Dim oCell As Range 

    For Each oCell In rInputRange.Cells 
     oCell = TimeSerial(Hour(oCell), Minute(oCell), 59) 
    Next oCell 

End Function