Em muốn sửa định dạng ở cột D như phiên bản gốc bên cột E, mọi người giúp em với (vì file rất lớn nếu gõ tay thì mất quá nhiều thời gian). Em xin cảm ơn ạ
em copy định rạng 1 ô ở cột E bằng công cụ.FORMAT PAINTER.rồi bôi vào cột D là được nhé.Em muốn sửa định dạng ở cột D như phiên bản gốc bên cột E, mọi người giúp em với (vì file rất lớn nếu gõ tay thì mất quá nhiều thời gian). Em xin cảm ơn ạ
Cụ thể là làm như thế nào vậy bạn? Mà sao trên thanh formular thì thấy xuất hiện kiểu ngày tháng : (01/01/2018)Xem ok chưa.
Bạn thử cho một ví dụ cụ thể, ID 43101 làm sao ra được 1/1 vậy. Phải chăng đổi từ số sang định dạng thời gian.Em muốn sửa định dạng ở cột D như phiên bản gốc bên cột E, mọi người giúp em với (vì file rất lớn nếu gõ tay thì mất quá nhiều thời gian). Em xin cảm ơn ạ
em copy định rạng 1 ô ở cột E bằng công cụ.FORMAT PAINTER.rồi bôi vào cột D là được nhé.
Dữ liệu của bạn dang là dạng text, mình chuyển nó dang sạng ngày thôi "d/m" chỉ hiện thị ngày và tháng.Cụ thể là làm như thế nào vậy bạn? Mà sao trên thanh formular thì thấy xuất hiện kiểu ngày tháng : (01/01/2018)
Bạn thử cho một ví dụ cụ thể, ID 43101 làm sao ra được 1/1 vậy. Phải chăng đổi từ số sang định dạng thời gian.
Nguyên thủy nó bên mail là 1/1 mình copy sang file excel thì nó lại nhảy thành 43101 mình muốn chuyển nó về lại định dạng ban đầu là 1/1 bạn à
Cái tiêu đề lẫn câu hỏi hơi khó hiểu rằng bạn đang muốn đổi định dạng là thời gian.Nguyên thủy nó bên mail là 1/1 mình copy sang file excel thì nó lại nhảy thành 43101 mình muốn chuyển nó về lại định dạng ban đầu là 1/1 bạn à
Một là bạn làm theo bài #9, đinh dạng trước cột D kiểu Text rồi mới Copy - Past Value vào.Nguyên thủy nó bên mail là 1/1 mình copy sang file excel thì nó lại nhảy thành 43101 mình muốn chuyển nó về lại định dạng ban đầu là 1/1 bạn à
F4=DAY(D4)&"/"&MONTH(D4)
Copy xuống.
Public Sub s_Gpe()
Dim Arr(), I As Long, R As Long, Txt As String
Arr = Range("D4", Range("D4").End(xlDown)).Value
R = UBound(Arr)
For I = 1 To R
Txt = Day(Arr(I, 1)) & "/" & Month(Arr(I, 1))
Arr(I, 1) = Txt
Next I
Range("D4").Resize(R).NumberFormat = "@"
Range("D4").Resize(R) = Arr
End Sub