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

***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- tại sao khi in có dòng mã bên dưới cuối trang và xóa như thế nào -FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- Bác nào có phần mềm hoặc file kiểm phiếu bầu cử nhanh bằng Excel không ạ ? Mình cần hỗ trợ từ các bạn Công thức lấy năm hiện tại để ghép vào tiêu đề bảng tính tính tiền ăn mỗi bữa Trả về giá trị nếu thuộc một trong các giá tri đưa ra CÔNG THỨC LIỆT KÊ SỐ PHIẾU GIAO HÀNG TRONG THÁNG CỦA CỬA HANG các anh chị cho em hỏi Xem thêm