Em muốn hỏi về vấn đề Format Cell

[nguyentung272]

Hiện tại em đang bị trục trặc khi sử dụng Format Cell, ở cột Biển số em đã định dạng là "70B1-"000"."00 nhưng hiện tại em muốn copy hoặc xuất ra một file hoàn chỉnh và muốn chỉnh Format Cell từ Custom về General vẫn giữ nguyên giá trị hiển thị chứ không phải giá trị đã nhập trước đó, mong các cao nhân chỉ bảo, em xin cám ơn rất nhiều

 

[vanle33]

@nguyentung272 :
Bạn thử cách này xem được không.
Công thức tại B4 ="70B1-"&LEFT(J4;3)&"."&RIGHT(J4;2) với J4 là 11111 (là biển số xe trước định dạng). Sau đó copy B4 đi và Paste Special/Values vào cell nào đó thì sẽ ra kết quả 70B1-111.11. Có thể định dạng 'cell nào đó' là General hay Text thì đều hiển thị là 70B1-111.11
J4 cần định dạng là Text nha.
ps: Biển số trên là cho xe máy hay ôtô thì luôn có 5 số sau dấu "-" phải không bạn?

 

[cantl]

Hiện tại em đang bị trục trặc khi sử dụng Format Cell, ở cột Biển số em đã định dạng là "70B1-"000"."00 nhưng hiện tại em muốn copy hoặc xuất ra một file hoàn chỉnh và muốn chỉnh Format Cell từ Custom về General vẫn giữ nguyên giá trị hiển thị chứ không phải giá trị đã nhập trước đó, mong các cao nhân chỉ bảo, em xin cám ơn rất nhiều

Đọc kỹ hướng dẫn sử dụng trước khi dùng!
Sản phẩm này không phải là KẾT, mà chỉ là bước trung gian, không có tác dụng thay thế KẾT.

Option Explicit
Sub zzz()
Dim I&
If ActiveCell = Range("B4") Then
For I = ActiveCell.Row To Cells(Rows.Count, 2).End(xlUp).Row
    Range("H" & I) = Range("B" & I).Text
Next
Else
    MsgBox "Phai dat con chuot tai --- B4 ---!" & vbCr & vbCr & vbCr & vbCr & vbCr & "          ----- LY DO ----- " & vbCr & vbCr & " NOI TINH YEU BAT DAU: B4!" & vbCr & vbCr & "NOI TINH YEU KET THUC: H8!" & vbCr & vbCr & "      --- HAY NHO NHE ---"
End If
End Sub

 

[Hoàng Tuấn 868]

mong các cao nhân chỉ bảo

Đọc kỹ hướng dẫn sử dụng trước khi dùng!
Sản phẩm này không phải là KẾT, mà chỉ là bước trung gian, không có tác dụng thay thế KẾT.

@cantl: Xin chúc mừng, vậy là đã nhận chức cao nhân rồi nhé.