Giúp sửa code sau khi copy value (1 người xem)

[minhtuan55]

Chào cả nhà GPE !

Em có dùng đoạn code sau đển copy dữ liệu từ C2:C4 sang bảng Data ( copy từ dọc sang ngang )

Sub copy()
Dim Arr()
Arr = Range("C2:C4").Value
Range("h50000").End(xlUp).Offset(1).Resize(, 3) = WorksheetFunction.Transpose(Arr)
Erase Arr
End Sub


Code từ copy rất là hay . Nhưng sao giá trị thời gian sau khi Copy nó không giống như lúc ban đầu. Ví dụ lúc ban đầu 19/12/2016 15:30:29 thì sau khi copy nó cũng giống như vậy 19/12/2016 15:30:29 mà em thử làm công thức 2 ô Bằng nhau thì nó bằng False. Em có gửi File mọi người giúp em với

 

[befaint]

Chào cả nhà GPE !

Em có dùng đoạn code sau đển copy dữ liệu từ C2:C4 sang bảng Data ( copy từ dọc sang ngang )
Code từ copy rất là hay . Nhưng sao giá trị thời gian sau khi Copy nó không giống như lúc ban đầu. Ví dụ lúc ban đầu 19/12/2016 15:30:29 thì sau khi copy nó cũng giống như vậy 19/12/2016 15:30:29 mà em thử làm công thức 2 ô Bằng nhau thì nó bằng False. Em có gửi File mọi người giúp em với

Sub copy()
Dim Arr(), tmp(), i As Long
Arr = Sheet1.Range("C2:C4").Value2
ReDim tmp(1 To UBound(Arr, 1))
For i = 1 To UBound(tmp)
    tmp(i) = Arr(i, 1)
Next i
Sheet1.Range("H50000").End(xlUp).Offset(1).Resize(, 3).Value = tmp
Erase Arr: Erase tmp
End Sub

Chỗ màu đỏ thì bỏ cái now() đi rồi mới so sánh.

 

[minhtuan55]

Sub copy()
Dim Arr(), tmp(), i As Long
Arr = Sheet1.Range("C2:C4").Value2
ReDim tmp(1 To UBound(Arr, 1))
For i = 1 To UBound(tmp)
    tmp(i) = Arr(i, 1)
Next i
Sheet1.Range("H50000").End(xlUp).Offset(1).Resize(, 3).Value = tmp
Erase Arr: Erase tmp
End Sub

Chỗ màu đỏ thì bỏ cái now() đi rồi mới so sánh.

em bỏ rồi mà a. e gõ thời gian giống y chan mà vẫn không bằng nhau. Chỉ khi nào e kích đúp vào thời gian vao cột H thì nó mới bằnhg nhau. Ý e la hỏi tai sao. e muốn dùng code của e cho no Ngắn gọn. a cho e hỏi làm sao khắc phục được

 

[befaint]

em bỏ rồi mà a. e gõ thời gian giống y chan mà vẫn không bằng nhau. Chỉ khi nào e kích đúp vào thời gian vao cột H thì nó mới bằnhg nhau. Ý e la hỏi tai sao. e muốn dùng code của e cho no Ngắn gọn. a cho e hỏi làm sao khắc phục được

Xem từng dòng, khác nhau chỗ nào thì tìm thấy cái cần tìm.

 

[minhtuan55]

Xem từng dòng, khác nhau chỗ nào thì tìm thấy cái cần tìm.

Anh ơi em thấy sau khi copy thì nó có thêm 1 dấu cách xen kẽ ở giữa nữa. chưa copy thì dd/mm/yyyy hh:mm sau khi copy thì dd/mm/yy hh:mm. Mong anh giúp em

 

[minhtuan55]

Xem từng dòng, khác nhau chỗ nào thì tìm thấy cái cần tìm.

anh ơi giúp em.với
em cảm ơn anh

 

[befaint]

Anh ơi em thấy sau khi copy thì nó có thêm 1 dấu cách xen kẽ ở giữa nữa. chưa copy thì dd/mm/yyyy hh:mm sau khi copy thì dd/mm/yy hh:mm. Mong anh giúp em

Chưa hiểu bạn yêu cầu gì? Cái đó chỉ là định dạng thôi mà
Format cells/ Custom: dd/mm/yyyy hh:mm:ss