chuyển chuỗi ký tự thành thời gian bằng VBA

[ptdhuyen]

e có một vấn đề muốn a chị trong diễn đàn giúp đỡ.
e muốn chuyển chuỗi ký tự thành thời gian, ví dụ: 7-17 thành 07:00 và 17:00; 10-19 thành 10:00 và 19:00...
e có gửi file mong mọi người giúp đỡ ạ.
bình thường thì e sẽ sử dụng Filter rồi chuyển dần dần (đánh theo ký tự, nhưng số lượng e cần chuyển rất nhiều, làm thì rất mất thời gian). Mong mọi người giúp e 1 code để e có thể giảm thời gian cho vấn đề này.

 

[VetMini]

Làm các bước sau:
Bước 1: dùng "text to columns" để tách thành 2 cột. (tách theo dấu -)
Kết quả là sẽ có số đầu ở cột B và số thứ nhì ở cột C.
Bước 2: (cần chuyển số thành giờ)
- gõ số 24 ở một ô nào đó. Ví dụ ô D1
- chọn ô D1, copy (Ctrl+C)
- Chọn cả 2 vùng số vừa tách ra ở cột B và C.
- Home > Paste > Paste Special ---> chọn Divide
- Chuyển format thành [h]:mm

Chú: nói chuyện đừng có "e". Có lẽ bạn không biết từ "e" trong tiếng Việt có nghĩa là "ngại"?
.

 

[ptdhuyen]

Làm các bước sau:
Bước 1: dùng "text to columns" để tách thành 2 cột. (tách theo dấu -)
Kết quả là sẽ có số đầu ở cột B và số thứ nhì ở cột C.
Bước 2: (cần chuyển số thành giờ)
- gõ số 24 ở một ô nào đó. Ví dụ ô D1
- chọn ô D1, copy (Ctrl+C)
- Chọn cả 2 vùng số vừa tách ra ở cột B và C.
- Home > Paste > Paste Special ---> chọn Divide
- Chuyển format thành [h]:mm

Chú: nói chuyện đừng có "e". Có lẽ bạn không biết từ "e" trong tiếng Việt có nghĩa là "ngại"?
.

Em cám ơn anh ạ. Anh có thể giúp em bằng code được không Anh. Cái này em làm để chấm công ạ. Em cũng có tìm hiểu dùng hàm left và right nhưng ko được như em mong muốn ạ. Em cám ơn anh

 

[SA_DQ]

Bạn thử với hàm người dùng này:

Function STT(StrC As String, Optional KT As Boolean = True) As Double
 Const FC As String = "-"
 Dim VTr As Integer:                                Dim Hour_ As String
 
 VTr = InStr(StrC, FC)
 If KT Then
    Hour_ = Mid(StrC, VTr + 1, 2)
 Else
    Hour_ = Left(StrC, VTr - 1)
 End If
 STT = TimeSerial(CInt(Hour_), 0, 0)
End Function

Cách xài: Tại [D2] ta lập công thức =STT(A2, FALSE)

 

[batman1]

nhưng số lượng e cần chuyển rất nhiều

nhưng số lượng e cần chuyển rất nhiều

Cho dù hàng trăm nghìn dòng dữ liệu chăng nữa thì làm theo cách mà bác VetMini hướng dẫn mất nhiều nhất là 30 s. Nhiều nhất mới 30 s.