VBA: Thay thế một phần của chuỗi thời gian

Question

Cột C có thời gian (được định dạng dưới dạng văn bản dưới dạng trang tính sẽ được xuất dưới dạng csv) theo định dạng HH: mm: ss.

C1, C2, C3 giá trị là of Time 09:15:00, 09:16:00, 09:17:00 tương ứng đến 15:29:00

Cần chỉ thay thế cuối cùng ": 00 "phần với ": 59"

--- cATCH --- Trong cột C sẽ có giá trị như 10:00:00 hay 11:00:00 hay 12:00:00

này có nghĩa là thay thế trực tiếp ": 00" bằng ": 59" sẽ làm hỏng giá trị của đồng hồ chính xác 10'o, đồng hồ 11'o, v.v.

Cột C sẽ được lấp đầy ith hàng ngàn điểm dữ liệu như vậy. Logic của tôi dưới đây sẽ không làm việc tôi đoán:

{

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") 

}

tôi biết mã trên là sai, nhưng đó là tất cả tôi có thể đưa ra.

yêu cầu để được giúp đỡ hoàn toàn logic này ..

EDIT: Chẳng phải khá công phu trong việc giải thích. Ngay cả những giá trị đầy đủ giờ cần phải Thay thế như: 10:00:59, 11:00:59, 12:00:59

Answer 1

Nếu giá trị không kết thúc với 00:00 sau đó cập nhật nó để :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 

chỉnh sửa, thay thế chỉ là cuối cùng00:

Dim cell As Range 

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

Answer 2

Bạn đang đi đúng hướng. Bạn chỉ cần tách chuỗi đầu tiên, thay thế trong nửa thứ hai và sau đó nối lại sau đó. Dưới đây là một chức năng có mục đích chung mà bạn có thể muốn tăng cường với một số lỗi xử lý:

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 

Chỉnh sửa: Ví dụ sử dụng:

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

Answer 3

Sử dụng chức năng phân chia và sau đó phân tích và sửa đổi.

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

bạn có thể sử dụng này:

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