Nhờ sửa lỗi code không copy y nguyên định dạng format ngày giờ được

pinklove

Thành viên thường trực
Tham gia ngày
21 Tháng một 2008
Bài viết
309
Được thích
28
Điểm
685
Nhờ các bạn xem giúp mình, dữ liệu mình import vào ở sheet "goc", sau đó code sẽ copy sang sheet "TAM". Nhưng ở khi sang sheet "TAM" cột ngày tháng cứ tự chuyển thành định dạng "tháng/ngày/năm" chứ ko giữ nguyên mặc định như ở sheet "goc" dẫn đến kết quả bị sai lệch.
 

File đính kèm

batman1

Thành viên gắn bó
Tham gia ngày
8 Tháng chín 2014
Bài viết
2,503
Được thích
3,787
Điểm
560
Nguyên nhân do trong goc không là ngày tháng chuẩn. Theo Excel thì chúng là ngày tháng nhái, là text giả bộ ngày tháng.
 

batman1

Thành viên gắn bó
Tham gia ngày
8 Tháng chín 2014
Bài viết
2,503
Được thích
3,787
Điểm
560
Do file gốc xuất ra từ chương trình nó là thế rồi, bạn khắc phục giúp mình với
Nguyên nhân do trong goc không là ngày tháng chuẩn. Theo Excel thì chúng là ngày tháng nhái, là text giả bộ ngày tháng.
Trong trường hợp của bạn thử sửa thành
Mã:
dArr(k, j) = Format(sArr(i, j - 1), "dd/mm/yyyy hh:mm:ss")
Tôi nói là trong trường hợp của bạn vì mở trên máy tôi thì sau khi chạy code thì bên TAM có ngày tháng chuẩn nhưng nếu tôi tự gõ tay thêm ngày tháng chuẩn ở goc, còn các ngày tháng cũ vẫn để nguyên là text thì kết quả bên TAM là ngày tháng chuẩn cho dữ liệu cũ còn những ngày tháng tôi tự gõ chuẩn là ngày tháng bên goc khi sang TAM sẽ lại bị đổi vị trí ngày tháng. Nhưng tôi nghĩ là trên máy bạn khi bạn gõ tay thêm ngày tháng chuẩn thì khi sang TAM nó vẫn đúng, không bị đổi ngày tháng.

Nếu trên máy tôi mà muốn khắc phục để khi tự gõ thêm ngày tháng chuẩn và khi sang TAM vẫn chuẩn thì chỉ còn nước "biến" ngày tháng ở goc thành ngày tháng chuẩn thay vì để như cũ là tet giả bộ ngày tháng. Và để như cũ dArr(k, j) = sArr(i, j - 1)
--------
Bạn chuyển thành ngày tháng chuẩn ở goc như sau: chọ cột H -> thẻ Data -> Tet to column -> Next -> Next -> chọn Date -> chọn DMY -> Finish
 
Lần chỉnh sửa cuối:

pinklove

Thành viên thường trực
Tham gia ngày
21 Tháng một 2008
Bài viết
309
Được thích
28
Điểm
685
Nguyên nhân do trong goc không là ngày tháng chuẩn. Theo Excel thì chúng là ngày tháng nhái, là text giả bộ ngày tháng.
Trong trường hợp của bạn thử sửa thành
Mã:
dArr(k, j) = Format(sArr(i, j - 1), "dd/mm/yyyy hh:mm:ss")
Tôi nói là trong trường hợp của bạn vì mở trên máy tôi thì sau khi chạy code thì bên TAM có ngày tháng chuẩn nhưng nếu tôi tự gõ tay thêm ngày tháng chuẩn ở goc, còn các ngày tháng cũ vẫn để nguyên là text thì kết quả bên TAM là ngày tháng chuẩn cho dữ liệu cũ còn những ngày tháng tôi tự gõ chuẩn là ngày tháng bên goc khi sang TAM sẽ lại bị đổi vị trí ngày tháng. Nhưng tôi nghĩ là trên máy bạn khi bạn gõ tay thêm ngày tháng chuẩn thì khi sang TAM nó vẫn đúng, không bị đổi ngày tháng.

Nếu trên máy tôi mà muốn khắc phục để khi tự gõ thêm ngày tháng chuẩn và khi sang TAM vẫn chuẩn thì chỉ còn nước "biến" ngày tháng ở goc thành ngày tháng chuẩn thay vì để như cũ là tet giả bộ ngày tháng. Và để như cũ dArr(k, j) = sArr(i, j - 1)
Vẫn không được bạn ạ. Trên máy mình dù mình sửa lại định dạng trong file gốc thì nó vẫn xuất sai. Cái này nếu như ngày lớn hơn 12, tức lớn hơn tháng nso sẽ đúng. Còn ngày nhỏ hơn thì nó sẽ như thế.
 

batman1

Thành viên gắn bó
Tham gia ngày
8 Tháng chín 2014
Bài viết
2,503
Được thích
3,787
Điểm
560
Vẫn không được bạn ạ. Trên máy mình dù mình sửa lại định dạng trong file gốc thì nó vẫn xuất sai. Cái này nếu như ngày lớn hơn 12, tức lớn hơn tháng nso sẽ đúng. Còn ngày nhỏ hơn thì nó sẽ như thế.
Nếu bạn chọn sửa ở goc thì phải "ép" nó về ngày tháng chuẩn chứ không chỉ đơn giản là sửa lại định dạng. Về cách "ép" thì tôi có viết thêm ở bài trước.
 

batman1

Thành viên gắn bó
Tham gia ngày
8 Tháng chín 2014
Bài viết
2,503
Được thích
3,787
Điểm
560
Chép thay cái cũ
PHP:
Public Sub LDT_tam()
Dim sArr(), dArr() As String, i As Long, j As Long, k As Long
Trên máy tôi khi chỉ sửa như thế thì sau khi chạy code sẽ có ngày tháng nhái. Tức nhìn thì thấy đúng thứ tự ngày tháng năm nhưng thực chất là text, không cộng trừ được. Dữ liệu như thế chỉ nhìn cho đẹp mắt, không tính toán được.

Nói chung dữ liệu gốc nên chuyển về ngày tháng chuẩn. Chả nhẽ cứ lúc lúc lại xoay xở?

Ngoài ra trên máy tôi thì thậm chí 02/12/2019 08:29:26 nhìn cũng không là ngày tháng. Trên máy tôi nhìn ngày tháng phải là 2019-12-02 08:29:26

Mà nếu chỉ làm cho mình, sống với tiêu chí một mình một hòn đảo thì thế nào cũng được. Nhưng nếu là sống ở thời đại hợp tác toàn cầu, làm chuẩn cho dù mở ở máy nào, với thiết lập nào cũng đúng thì chỉ còn nước chuyển dữ liệu gốc về dạng chuẩn.
 
Lần chỉnh sửa cuối:

pinklove

Thành viên thường trực
Tham gia ngày
21 Tháng một 2008
Bài viết
309
Được thích
28
Điểm
685
1575278874950.png
Mình đã sửa theo cách ép của bạn đây mà vẫn ko được. hic
 

batman1

Thành viên gắn bó
Tham gia ngày
8 Tháng chín 2014
Bài viết
2,503
Được thích
3,787
Điểm
560
Mình đã sửa theo cách ép của bạn đây mà vẫn ko được. hic
Không phải "ép" như thế. Tôi đã viết rõ mà
Về cách "ép" thì tôi có viết thêm ở bài trước.
Bài trước
Bạn chuyển thành ngày tháng chuẩn ở goc như sau: chọ cột H -> thẻ Data -> Tet to column -> Next -> Next -> chọn Date -> chọn DMY -> Finish

Cách Format chỉ là thử "đối phó" nhưng tôi cũng đã viết là nó không dùng được vì trên máy tôi khi nhập ngày tháng chuẩn ở goc thì sang TAM nó bị đảo ngày tháng. Ngoài ra nếu ở các cột khác ở góc có SỐ thì SỐ đó sẽ bị chuyển thành dạng ngày tháng ................................. nhái. Vì thế tôi mới khuyên là "ép" ngày tháng ở goc về dạng chuẩn.
 
Lần chỉnh sửa cuối:

pinklove

Thành viên thường trực
Tham gia ngày
21 Tháng một 2008
Bài viết
309
Được thích
28
Điểm
685
À, bạn edit bài làm mình ko để ý. Để mình thử.
 

befaint

|||||||||||||
Tham gia ngày
6 Tháng một 2011
Bài viết
8,900
Được thích
10,267
Điểm
1,560
Trên mgáy tôi khi chỉ sửa như thế thì sau khi chạy code sẽ có ngày tháng nhái. Tức nhìn thì thấy đúng thứ tự ngày tháng năm nhưng thực chất là text, không cộng trừ được. Dữ liệu như thế chỉ nhìn cho đẹp mắt, không tính toán được.
Em làm theo đúng yêu cầu chủ topic thôi anh. Tức là kết quả cứ giống sheet "goc" là được.

Còn công thức của chủ thớt đang làm ở cột kế bên đó chưa chắc đúng (cho dù làm ngay với dữ liệu ở sheet "goc"). Bài này có nhiều rồi, chủ thớt tự tìm thôi.
 

HeSanbi

Thành viên tích cực
Tham gia ngày
24 Tháng hai 2013
Bài viết
1,103
Được thích
948
Điểm
560
Có hai cách cho bạn:

Cách 1: (Nhanh hơn nhưng phải xử lý một lần duy nhất)
Sửa dữ liệu ngày Sheet "goc" trước: bằng cách chạy Sub ChangeFormatDateWrong một lần duy nhất khi "goc" có dữ liệu.

Cách 2: (Tốt nhất)
Chuẩn hóa ngày tháng khi xử lý dữ liệu bằng cách sửa đổi trong Code:

---------------------
PHP:
If sArr(i, j - 1) Like "*/*/*:*:*" Then
    dArr(k, j) = FormatDateWrong(sArr(i, j - 1), "$2/$1/$3 $4")
Else
    dArr(k, j) = sArr(i, j - 1)
End If
Đoạn này chính là chuyển đổi vị trí ngày tháng năm: "$2/$1/$3 $4"
Bạn chỉ cần thay đổi vị trí $x với nhau, nếu phần mềm một ngày nào đó lại vô tình đổi vị trí ngày tháng ngược lại.
Hoặc Window có mặc định định dạng của ngày tháng năm là khác.
------------------

PHP:
Sub ChangeFormatDateWrong()
  Dim LR&, R As Range, Arr$(), T$
  Set R = ThisWorkbook.Sheets("goc").Range("H2")
  LR = R(Rows.Count - R.Row, 1).End(3).Row - R.Row + 1
  If LR > Application.Columns.Count Then LR = Application.Columns.Count
  T = VBA.Join(Application.Transpose(R.Resize(LR).Value), ",")
  T = FormatDateWrong(T, "$2/$1/$3 $4")
  Arr = Split(T, ",")
  R.Resize(LR).Value = Application.Transpose(Arr)
  Set R = Nothing: Erase Arr
  FormatDateWrong "", Terminate:=True
End Sub
Function FormatDateWrong(ByVal Text As String, _
                Optional ByVal AreaMove$ = "$2/$1/$3 $4", _
                Optional ByVal Terminate As Boolean = 0) As String
  Static RE As Object
  If RE Is Nothing Then
    Set RE = CreateObject("VBScript.RegExp")
  Else
    If Terminate Then Set RE = Nothing: Exit Function
  End If
  With RE
    .Global = True
    .Pattern = "(\d{1,4})\/(\d{1,4})\/(\d{1,4}) (\d{1,2}:\d{1,2}:\d{1,2})"
    FormatDateWrong = .Replace(Text, AreaMove)
  End With
End Function
 
Lần chỉnh sửa cuối:

befaint

|||||||||||||
Tham gia ngày
6 Tháng một 2011
Bài viết
8,900
Được thích
10,267
Điểm
1,560
Ngoài ra trên máy tôi thì thậm chí 02/12/2019 08:29:26 nhìn cũng không là ngày tháng. Trên máy tôi nhìn ngày tháng phải là 2019-12-02 08:29:26
Nếu có chỗ nào chưa giống như sheet "goc" thì cần chỉnh cột ngày đó trở về nguyên trạng "General". Hiện tại chủ thớt đang định dạng custom gì đó.
 

pinklove

Thành viên thường trực
Tham gia ngày
21 Tháng một 2008
Bài viết
309
Được thích
28
Điểm
685
Không phải "ép" như thế. Tôi đã viết rõ mà

Bài trước



Cách Format chỉ là thử "đối phó" nhưng tôi cũng đã viết là nó không dùng được vì trên máy tôi khi nhập ngày tháng chuẩn ở goc thì sang TAM nó bị đảo ngày tháng. Ngoài ra nếu ở các cột khác ở góc có SỐ thì SỐ đó sẽ bị chuyển thành dạng ngày tháng ................................. nhái. Vì thế tôi mới khuyên là "ép" ngày tháng ở goc về dạng chuẩn.
Vẫn ko được, sheet TAM của mình vẫn bị chuyển kiểu mm/dd/yyyy. Có cách nào nó copy y nguyên bên sheet goc sang ko ạ.
 

batman1

Thành viên gắn bó
Tham gia ngày
8 Tháng chín 2014
Bài viết
2,503
Được thích
3,787
Điểm
560
Nếu có chỗ nào chưa giống như sheet "goc" thì cần chỉnh cột ngày đó trở về nguyên trạng "General". Hiện tại chủ thớt đang định dạng custom gì đó.
Cái này tôi biết. Nhưng chuyển về General thì ở goc vẫn là text giả bộ ngày tháng và sau khi chạy code với chỉnh sửa của bạn thì ở TAM có ngày tháng nhái. Tức cũng là text giả bộ ngày tháng. Tuy ngày tháng không bị đổi chỗ nhưng ngày tháng kiểu đó không tính toán được.
 

befaint

|||||||||||||
Tham gia ngày
6 Tháng một 2011
Bài viết
8,900
Được thích
10,267
Điểm
1,560
Cái này tôi biết. Nhưng chuyển về General thì ở goc vẫn là text giả bộ ngày tháng và sau khi chạy code với chỉnh sửa của bạn thì ở TAM có ngày tháng nhái. Tức cũng là text giả bộ ngày tháng. Tuy ngày tháng không bị đổi chỗ nhưng ngày tháng kiểu đó không tính toán được.
Thôi thì chỉnh luôn dòng này:
PHP:
.Range("A5:J500").Clear
Em đã nêu ở trên là chỉ chỉnh theo đúng yêu cầu chủ thớt: " copy y nguyên bên sheet goc sang ", chứ không giải quyết việc khác.
 

batman1

Thành viên gắn bó
Tham gia ngày
8 Tháng chín 2014
Bài viết
2,503
Được thích
3,787
Điểm
560
Vẫn ko được, sheet TAM của mình vẫn bị chuyển kiểu mm/dd/yyyy. Có cách nào nó copy y nguyên bên sheet goc sang ko ạ.
Không được là thế nào?
Sau khi dùng text to column thì bạn hãy nhập công thức ở đâu đó
Mã:
=H16+1
Nếu có lỗi #VALUE! thì có nghĩa là bạn chuyển CHƯA THÀNH CÔNG. Và lúc đó đượng nhiên vẫn là TEXT và khi sang TAM thì bị đổi ngày tháng.

Nếu bạn muốn y nguyên như goc thì làm theo befaint. Nhưng tôi ý thức là bên TAM sẽ chỉ là TEXT giả bộ ngày tháng, không tính toán được.
 

pinklove

Thành viên thường trực
Tham gia ngày
21 Tháng một 2008
Bài viết
309
Được thích
28
Điểm
685
Cái này tôi biết. Nhưng chuyển về General thì ở goc vẫn là text giả bộ ngày tháng và sau khi chạy code với chỉnh sửa của bạn thì ở TAM có ngày tháng nhái. Tức cũng là text giả bộ ngày tháng. Tuy ngày tháng không bị đổi chỗ nhưng ngày tháng kiểu đó không tính toán được.
Mình không hề định dạng mà ở sheet TAM nó tự định dạng cột I dang custom. chỉnh lại cũng ko được.
Có hai cách cho bạn:

Cách 1: (Nhanh hơn nhưng phải xử lý một lần duy nhất)
Sửa dữ liệu ngày Sheet "goc" trước: bằng cách chạy Sub ChangeFormatDateWrong một lần duy nhất khi "goc" có dữ liệu.

Cách 2: (Tốt nhất)
Chuẩn hóa ngày tháng khi xử lý dữ liệu bằng cách sửa đổi trong Code:
Mình làm theo cách của bạn cũng ko được luôn. Không hiểu do setup gì trên máy không? Nhưng trên máy DATE mình set theo chuẩn rồi.
 
Top Bottom