Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

trong file excel của mình có nhiều ô nhập là số nhưng đang hiển thị là text (

DocBuoc

trong file excel của mình có nhiều ô nhập là số nhưng đang hiển thị là text (có lựa chọn như ảnh), nhưng vì có nhiều sheet và nhiều ô ở các vị trí khác nhau nên mình muốn dùng code vba để chuyển nó sang số hết. Search trên mạng nó ra đoạn code:

Sub text_to_num()
Dim kq
kq = Range([c7], [aa65536].End(3)).Value
[c7].Resize(UBound(kq), UBound(kq, 2)) = kq
End Sub

nhưng mình không hiểu công thức trên ACE có thể giải thích hoặc sửa giúp mình sao cho mình có thể áp dụng vào file được không (mình cần là tất cả các ô ở các sheet nếu đang hiển thị là chữ như ảnh thì chuyển hết sang dạng số).

SonDoan

Sub text_to_num()
(Đây là thủ tục khai báo 1 chương trình có tên là Text_to_num)

Dim kq
(Khai báo biến kq dưới dạng variant)

kq = Range([c7], [aa65536].End(3)).Value
(Gán kq bằng giá trị vùng dữ liệu từ C7 đến AA65536)

[c7].Resize(UBound(kq), UBound(kq, 2)) = kq
(Gán trả lại vùng C7 đến AA65536 bằng đúng kq

End Sub
(Thông báo kết thúc chương trình)

Chương trình này tương ứng với việc copy value rồi paste ngược trở lại chính nó. Tận dụng tính năng tự động của Excel tự format là Number nếu như dữ liệu dạng số --> Nó sẽ tự convert hết số lưu dưới dạng text thành dạng số.

DucThanhNguyen

thêm 1 chút cho chính xác:
kq = Range([c7], [aa65536].End(3)).Value
(Gán kq bằng giá trị vùng dữ liệu từ C7 đến dòng cuối cùng có chứa dữ liệu ở cột AA, End(3) là cách viết tắt của End(xlUP))
=> xem bài tìm dòng cuối
https://www.hocexcel.online/vba-tim-dong-cuoi-cung-chua-du-lieu-trong-excel.html

NguyenNgocThuHien

Sub ConvertNumber()
Dim wb As Workbook
Dim ws As Worksheet
Dim vValue
Set wb = ActiveWorkbook
For Each ws In wb.Worksheets

    vValue = ws.UsedRange.Value
    ws.UsedRange.Value = vValue
Next

End Sub

NguyenNgocThuHien

thử cái code trên xem có khả thi không?

TrinhXuanTuyen

Đừng xoá bài này nha ad, để e ngâm cứu vs. Mấy sư phụ đừng xoá cmt nha @@

Em nhờ mọi người 1 ca khó với :( Em phải gửi Phiếu lương hàng tháng cho mọi Mình cần làm thuê bài tập excel ạ, giúp mình với Nhờ Mọi người giúp đỡ với giúp em giải câu excel ạ Cho em hỏi phần đơn giá em bị sai gì ạ ? Dùng hàm IF và hàm Vlookup Hàm tìm ngày trong khoảng thời gian xác định SANG DỮ LIỆU TỪ FILE 1 VÀO FILE 2 THEO THỨ TỰ. Cần các cao thủ về Mail merge trợ giúp ạ. ***Tặng phần mềm kế toán UNESCO Fee sử dụng vĩnh viễn các Version 6.0 - 5.1- Xem thêm