Muốn Copy toàn bộ text của ngày tháng đã định dạng thì làm thế nào

[Dauthivan]

Em có file có ô định dạng kiểu mà khi đánh là 01/1/2011 thì nó hiện ra là Nhu cầu vốn ngày 01 tháng 01 năm 2011, bây giờ em muốn copy toàn bộ nôi dung ra chỗ khác mục đích của em là nó hiện ra dưới dạng Text nội dung là Nhu cầu vốn ngày 01 tháng 01 năm 2011. Em có Copy dạng Value nhưng nó toàn hiện ra là 40544 vậy em phải làm thế nào để copy được nội dung chữ Nhu cầu vốn ngày 01 tháng 01 năm 2011 dưới dạng Text để em có thể sửa nội dung của nó ạh (ví dụ em sửa thành Đề nghị vốn ngày 01 tháng 01 năm 2011) . mà không phải đánh lại

 

[MonaLisa7775]

Bạn Vân ui, khi copy là ta copy cái nội dung chứa đựng trong ô, thì khi paste value cũng chỉ paste được cái nội dung. Nội dung là cái bạn đọc được trên thanh công thức đó, trường hợp này là ngày 01/01/2010

Còn những cái "Nhu cầu vốn ngày" nà, "tháng" nà, "năm" nà, chỉ là cái hiển thị, chứ hong có phải cái nội dung. Cái đó thì không phải Value nên paste value hông có ra. Cái hiển thị thì phải paste all hoặc paste format mới được.

copy được nội dung chữ ... dưới dạng Text để em có thể sửa nội dung của nó ạh

Bạn paste all đi, rồi sửa trong format đi, vì đây là hiển thị, mà hiển thị là do format mà có. Cụ thể tí tì ti là sửa format từ:

"Nhu cÇu vèn ngµy " dd" th¸ng "mm" n¨m "yyyy

Thành:

"§Ò nghÞ vèn ngµy " dd" th¸ng "mm" n¨m "yyyy

(UI mÑ ¬i, font kú qu¸!)

 

[Dauthivan]

Vâng, cái đó thì em có biết nhưng làm như vậy thì phức tạp quá, đúng là về bản chất nó là ngày 01/01/2011 nhưng em nghĩ nó đã hiển thị là Nhu cầu vốn ngày 01 tháng 01 năm 2011 thì về nguyên lý nhất định sẽ có thể copy được nội dung này ra được (thực ra em muốn học hỏi thêm về định dạng nên đặt tình huống vậy) chứ em tin các cao thủ sẽ làm được bởi như sư phụ Ndu có nói (có đầu vào tất sẽ làm được đầu ra, chỉ có điều mình chưa biết cách sử lý thôi ah).

 

[SA_DQ]

Bạn hãy chiêm nghiệm với macro sau

Option Explicit

Sub CopyFormatDate()
 Dim Format_ As String
 
 Format_ = [A2].NumberFormat
 [b4].Value = [A2].Value
 [b4].NumberFormat = Format_
  [A2].Copy Destination:=[B6]  'Bổ sung'

End Sub

 

[ptm0412]

CHị HYen ơi ời, Code của chị cũng là copy format, trong khi tác giả muốn copy cái text hiển thị bằng format cơ.
Nghĩa là nếu A2 format "Ngày "dd" tháng "mm" năm "yyyy, và giá trị của A2 là 01/01/2011, thì kết quả mong muốn sau khi xử lý là chuỗi "Ngày 01 tháng 01 năm 2011", giá trị chuỗi này đọc được trên thanh công thức, chứ không phải vẫn còn nguyên 01/01/2011 trên thanh công thức.

sư phụ Ndu có nói (có đầu vào tất sẽ làm được đầu ra, chỉ có điều mình chưa biết cách sử lý thôi ah).

Chỉ cần như vầy thôi:

Sub CopyDisplayedText()
 [B2] = [A2].Text
End Sub

 

[ndu96081631]

Vâng, cái đó thì em có biết nhưng làm như vậy thì phức tạp quá, đúng là về bản chất nó là ngày 01/01/2011 nhưng em nghĩ nó đã hiển thị là Nhu cầu vốn ngày 01 tháng 01 năm 2011 thì về nguyên lý nhất định sẽ có thể copy được nội dung này ra được (thực ra em muốn học hỏi thêm về định dạng nên đặt tình huống vậy) chứ em tin các cao thủ sẽ làm được bởi như sư phụ Ndu có nói (có đầu vào tất sẽ làm được đầu ra, chỉ có điều mình chưa biết cách sử lý thôi ah).

Tặng bạn file này tôi làm đã lâu lắm rồi, nó dùng hàm Macro 4 ---> Đúng yêu cầu của bạn luôn (rất vui vì có dịp mang ra.. phục vụ bạn)