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

Mình muốn đánh ra một bảng exel giống hệt bản trên giấy Chia sẻ bộ đôi ebook " Thôi miên bằng ngôn từ" và " Tử huyệt cảm xúc" -FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- 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 Cho mình hỏi mình đang muốn xuất dữ liệu từ website Chào các anh chị ạ. Có bạn nào có link down Schweser note CFA level 1 2018 cho mình xin với ạ. File Excel của em tăng đột ngột từ 2.1Mb lên 7.2Mb nhưng dữ liệu không có Hưỡng dẫn cách tra cứu mã số thuế online qua mạng HỌC KẾ TOÁN TRƯỞNG CẤP CHỨNG CHỈ CỦA BỘ TÀI CHÍNH Xem thêm