Giúp conver giá trị text thành ngày (1 người xem)

[tueyennhi]

Cho em hỏi tại cột G và H em đang có giá trị dạng text, em muốn đổi sang dạng ngày tháng thì làm thế nào?

 

[thuhuonglee]

Cho em hỏi tại cột G và H em đang có giá trị dạng text, em muốn đổi sang dạng ngày tháng thì làm thế nào?

I8=--G8

 

[phihndhsp]

Cho em hỏi tại cột G và H em đang có giá trị dạng text, em muốn đổi sang dạng ngày tháng thì làm thế nào?

Copy ô trống, sau đó Paste special vào những ô cần chuyển đổi sang ngày, nhớ chọn chức năng Add trong Paste special là ok

 

[be_09]

Cho em hỏi tại cột G và H em đang có giá trị dạng text, em muốn đổi sang dạng ngày tháng thì làm thế nào?

Làm như hình để trả về số rồi Format > Date.

 

[tueyennhi]

Uh nhưng mình muốn dùng vba vì có nhiều lần phải làm thủ công như vậy cũng mất thời gian và nhiều lúc convert nó còn đơ.

For Each clls In Range("H8:H100")
     clls = clls.NumberFormat = "General"""
     clls.Value = clls.Value
     clls = clls.NumberFormat = "m/d/yyyy"
Next clls

Thử cách này thì không thấy được, không biết lỗi ở đâu.

 

[vanthinh3101]

Uh nhưng mình muốn dùng vba vì có nhiều lần phải làm thủ công như vậy cũng mất thời gian và nhiều lúc convert nó còn đơ.

For Each clls In Range("H8:H100")
     clls = clls.NumberFormat = "General"""
     clls.Value = clls.Value
     clls = clls.NumberFormat = "m/d/yyyy"
Next clls

Thử cách này thì không thấy được, không biết lỗi ở đâu.

Bạn sửa 1 chút đi nhé!

For Each clls In Range("H8:H100")
        clls = Val(clls)
        clls.NumberFormat = "m/d/yyyy"
Next clls

 

[tueyennhi]

Bạn sửa 1 chút đi nhé!

For Each clls In Range("H8:H100")
        clls = Val(clls)
        clls.NumberFormat = "m/d/yyyy"
Next clls

Đúng như ý mình muốn. Cảm ơn bạn nhé

Mình sửa thêm thế này để chỉ cần mở file ra là nó tiến hành chạy code luôn mà sao không được nhỉ?

Private Sub Workbooks_open()
Dim clls As Range
For Each clls In Range("H8:H100")
        clls = Val(clls)
        clls.NumberFormat = "m/d/yyyy"
Next clls
End Sub

 

[tueyennhi]

Mình làm lại được rồi nhé, copy lệnh Workbook_open thì không được nhưng tự đánh lại thì lại được