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

-FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- ***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- KẾ TOÁN HÀNH CHÍNH SỰ NGHIỆP học ở đâu tại Hồ Chí Minh? Đào tạo chứng chỉ KẾ TOÁN VIÊN Trường Bồi dưỡng Cán bộ Tài chính-BTC ĐÀO TẠO KẾ TOÁN TRƯỞNG HÀNH CHÍNH SỰ NGHIỆP BỘ TÀI CHÍNH TPHCM Chuyên mục tặng phần mềm kế toán excel cho dân kế toán miễn phí mới nhất năm Mình có cái máy bị lỗi dấu chấm "." ở bên phím Numlock, khi chỉnh hệ thống Hỏi về cách chọn giá trị nhưng chỉ hiển thị thông tin nằm trong bảng đã chọn Tạo Hộp Thoại Search Thông tin Trông Ô Lấy nội dung của dòng bên trên ô selected Xem thêm