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 @@

Mn ơi, có nhóm nào về kế toán ở zalo thì add e vs ạ các anh chị cho em hỏi Cách replace xuống dòng zxczxczxczxc § Nội Quy § § Nội Quy § --- §0 - Trước khi đọc nội quy: quy định đưa ra là Có hàm nào làm cho chữ đậm hoặc nghiêng không nhi? Cách để tính nhanh khi nhảy lung tung tính tiền ăn mỗi bữa lỗi hàm trong wps excel giúp em giải câu excel ạ - Ở đây có ai nhận làm thuê bài tập excel ở trường không ạ, giúp mình vs ?? Xem thêm