Định dạng dd/mm/yyyy cho cell

[spacemanforever]

Chào anh em GPE!
Hiện em có khó khăn mong mọi người hỗ trợ.
Nội Dung:
--Chuyển giá trị từ cell F6 qu cell I6 nhưng vẫn giữ nguyên định dạng dd/mm/yyyy
Thực hiện:
--Em tạo button NHAP2 để chuyển giá trị từ F6 qua I6.
Code:

Sub nhap2()
Range("I6") = Range("F6")
End Sub

===> Lúc này em kiểm tra định dạng F6 và I6 bằng công thức ISNUMBER() thì F6 --> True còn I6 ---> True. Nhưng hiển thị thì không giống như F6
(F6 hiển thị: 19/12/2010 nhưng I6 hiển thị: 40531)
Vậy: em phài làm như thế nào để I6 hiển thị như F6 sau khi nhấn button NHAP2.

Cho em hỏi đối với textbox thì em đã định dạng từ userform1:

Private Sub UserForm_Activate()
txt1 = Format(txt1, "dd/mm/yyyy")
dtp1 = Date
End Sub

Nhưng khi nhấn button NHẬP 1 vào cell D6 khi kiểm tra vẫn báo FALSE
Chân thành cảm ơn mọi người

 

[hoangdanh282vn]

Vì ô I6 được định dạng là general nên dữ liệu dạng ngày sẽ bị chuyển thành dạng số. Nếu muốn hiển thị dạng ngày tháng thì Bạn sửa code Sub nhap2 như sau :

Sub nhap2()
Range("I6") = Format(Range("F6"), "dd/mm/yyyy")
End Sub

Tuy nhiên Code trên chỉ làm cho dữ liệu trong ô I6 hiển thị dưới dạng ngày tháng, chứ định dạng thật của ô I6 vẫn là general. Muốn chuyển định dạng ô I6 sang ngày tháng thì bạn dùng code sau :

Sub nhap2()
Range("I6").NumberFormat = "dd/mm/yyyy"
Range("I6") = Range("F6")
End Sub

 

[spacemanforever]

Chào hoangdanh282vn!
Em đã sữa code sub nhap2(). Tuy nhiên khi kiểm tra lại ISNUMBER(I6) là FALSE.
Mong anh xem lại dùm

 

[hoangdanh282vn]

Chào hoangdanh282vn!
Em đã sữa code sub nhap2(). Tuy nhiên khi kiểm tra lại ISNUMBER(I6) là FALSE.
Mong anh xem lại dùm

Bạn chưa đọc kỹ bài rồi. Ở trên mình có nói rồi mà.

Tuy nhiên Code trên chỉ làm cho dữ liệu trong ô I6 hiển thị dưới dạng ngày tháng, chứ định dạng thật của ô I6 vẫn là general. Muốn chuyển định dạng ô I6 sang ngày tháng thì bạn dùng code sau :

Sub nhap2()
Range("I6").NumberFormat = "dd/mm/yyyy"
Range("I6") = Range("F6")
End Sub