Giúp đỡ về tách chuỗi và thực thi code sau tuần tự 5s một lần (1 người xem)

[hadoan-pap]

Chào các thầy và mọi người!

Em có 1 bài toán nhỏ rất mong mọi người hỗ trợ. Em có các đoạn chuỗi trong cột A, em muốn tạo nút bấm như trong file để sau khi bấm thì dữ liệu này được tách thành 2 cột B và C.

Và thêm 1 câu hỏi nữa là có cách nào để cứ sau khoảng 1 thời gian ( ví dụ là 5s ) thì đoạn code nó tự động chạy không?

Em xin cảm ơn ạ!

 

[befaint]

Chào các thầy và mọi người!

Em có 1 bài toán nhỏ rất mong mọi người hỗ trợ. Em có các đoạn chuỗi trong cột A, em muốn tạo nút bấm như trong file để sau khi bấm thì dữ liệu này được tách thành 2 cột B và C.

Và thêm 1 câu hỏi nữa là có cách nào để cứ sau khoảng 1 thời gian ( ví dụ là 5s ) thì đoạn code nó tự động chạy không?

Em xin cảm ơn ạ!

 

[phulien1902]

Chào các thầy và mọi người!

Em có 1 bài toán nhỏ rất mong mọi người hỗ trợ. Em có các đoạn chuỗi trong cột A, em muốn tạo nút bấm như trong file để sau khi bấm thì dữ liệu này được tách thành 2 cột B và C.

Và thêm 1 câu hỏi nữa là có cách nào để cứ sau khoảng 1 thời gian ( ví dụ là 5s ) thì đoạn code nó tự động chạy không?

Em xin cảm ơn ạ!

Bạn thử:

Sub abc()
    Dim a, i&
    With Sheets(1).Range("A1").CurrentRegion.Resize(, 3)
        a = .Value
        For i = 1 To UBound(a, 1)
            a(i, 2) = Format(a(i, 1), "yyyy/m/d")
            a(i, 3) = Format(a(i, 1), "hh:mm:ss")
        Next
        .Value = a
    End With
End Sub

 

[hadoan-pap]

Bạn ơi nút bấm đó để input code vào, bấm nút xong thì nó sẽ tách chuỗi từ cột A thành cột B và C như mình có ví dụ trong file đó

 

[hadoan-pap]

Bạn thử:

Sub abc()
    Dim a, i&
    With Sheets(1).Range("A1").CurrentRegion.Resize(, 3)
        a = .Value
        For i = 1 To UBound(a, 1)
            a(i, 2) = Format(a(i, 1), "yyyy/m/d")
            a(i, 3) = Format(a(i, 1), "hh:mm:ss")
        Next
        .Value = a
    End With
End Sub

Bạn check lại giup mình với nhé . Mình thử không thấy được và code có lỗi.

 

[hadoan-pap]

Bạn ơi nút bấm đó để input code vào, bấm nút xong thì nó sẽ tách chuỗi từ cột A thành cột B và C như mình có ví dụ trong file đó

 

[phulien1902]

Bạn ơi nút bấm đó để input code vào, bấm nút xong thì nó sẽ tách chuỗi từ cột A thành cột B và C như mình có ví dụ trong file đó

Bạn xem File dưới nhé

 

[hadoan-pap]

Bạn xem File dưới nhé

Cảm ơn bạn nhé! Làm thế nào để cứ sau 5s tuần tự thi nút đó nó tự động được click nhỉ? Hay nói cách khác là thực thi code

 

[excel_lv1.5]

Cảm ơn bạn nhé! Làm thế nào để cứ sau 5s tuần tự thi nút đó nó tự động được click nhỉ? Hay nói cách khác là thực thi code

Bạn thêm 3 dòng này vào cuối đoạn code của bạn @phulien1902:

 Dim settime
 settime = Now + TimeValue("00:00:05")
 Application.OnTime settime, "abc"

Bạn co thể đưa nó vào sự kiện workbook_open để tự động cập nhập .