Tôi có ô có chứa ngày cũ. "05/11/09" Nó hiện được hiển thị là "11-MAY-09". Làm thế nào để sao chép-dán hoặc sử dụng VBA để có được chuỗi "11-MAY-09" vào ô bên cạnh nó (KHÔNG "05/11/09")?Làm cách nào để có được giá trị được hiển thị thay vì giá trị thực trong Excel?
Tôi không thể tìm ra nó ngoài việc tự lắp ráp các mảnh ngày.
Sử dụng chức năng Format.
Format("5/11/2009", "DD-MMM-YY")
này sẽ trở lại:
11-May-09
Nếu trường hợp quan trọng:
UCase(Format("5/11/2009", "DD-MMM-YY"))
lợi nhuận:
11-MAY-09
Tôi tin rằng bạn có thể sử dụng hàm TEXT để định dạng giá trị ngày theo sở thích của bạn.
Chuỗi định dạng "dd-mmm-yy" sẽ định dạng "05/11/09" là "11-MAY-09".
Hãy thử điều này:
Sub FormattedText()
Dim r As Range
On Error Resume Next
Set r = Application.InputBox(prompt:="Select cell", Type:=8)
If r.Count <> 1 Or r Is Nothing Then
Exit Sub
End If
On Error GoTo 0
ActiveCell = "'" & r.Text
End Sub
Nó sẽ đưa nội dung của một ô đã chọn (nhắc) trong tế bào hoạt động.
Bạn có thể nhấp chuột phải vào ô và đặt định dạng là Chung. Điều này sẽ cho phép bạn đặt một cái gì đó mà không có nó được tự động định dạng cho cái gì khác.
Để lưu bản thân khỏi việc sao chép và dán, bạn cũng sẽ muốn bắt đầu bằng cách đặt vào ngày bạn muốn và không định dạng và sau đó sao chép.
Trong VBA, bạn có thể làm điều này:
Range("B2") = Range("A2")
Range("B2").NumberFormat = "dd-mmm-yyyy hh:mm:ss" 'Date as 10-Jun-2005
Nếu bạn cần để lặp nó thì:
Range("B" & i) = Range("A"& i)
Range("B" & i).NumberFormat = "dd-mmm-yyyy hh:mm:ss" 'Date as 10-Jun-2005
Range("B1").Value = Range("A1").Text
Sử dụng .text của ô thay vì sửa đổi .value sẽ sao chép định dạng văn bản thay vì ngày tháng thô.
Chuck
Cách công nghệ thấp nhưng rất dễ dàng - dán vào Word, sau đó sao chép lại vào Excel! Có thể mất một thời gian với một tập tin lớn, tuy nhiên ... buts hoạt động tuyệt vời cho một lần sử dụng!
"Câu trả lời tương tự, nhưng với một chức năng khác nhau (mà đã làm việc cho tôi):
Public Function DisplayText(ByVal pRange As Range) As String
DisplayText = pRange.Text
End Function
Chỉ cần sử dụng =DisplayText(A1).Nếu bạn thay đổi định dạng tế bào chức năng này sẽ trở lại với văn bản hiển thị"
How can I get the displayed value of a cell in MS Excel (for text that was converted to dates)?