GIẢI PHÁP CÔNG NGHỆ CHUYÊN NGHIỆP

Uy tín - Tận tâm - Trách nhiệm

⭐ SẢN PHẨM NỔI BẬT

📦 Người bán: nhập hàng

Ghi phiếu nhập từ nhà cung cấp. Nhập số tiền bằng chữ số, ví dụ 3900000. Không tự thay đổi sản phẩm đang trưng bày.

🏷️ In nhãn thông số / bảo hành máy đã nhập

Nhập mã quản trị để tải phiếu nhập từ Google Sheet. Chọn phiếu, thêm máy vào danh sách, sửa thông số và serial rồi xem trước khi in. Không in giá nhập hoặc thông tin nhà cung cấp.

Mặc định chỉ chọn dòng Máy / sản phẩm; có thể tải phụ kiện bằng ô dưới. Số lượng in lấy từ phiếu, giới hạn 500 nhãn mỗi lượt. Serial nhập riêng từng dòng, không tự suy đoán từ cấu hình.

Thông tin cửa hàng và bảo hành

Bảo hành trên nhãn là cam kết với người mua, cần kiểm tra riêng với bảo hành nhà cung cấp. Cỡ 100 × 62 mm là bố trí ngang của nhãn 62 × 100 mm; máy in cần hỗ trợ xoay đúng hướng. Khi in chọn tỷ lệ 100%, tắt đầu/chân trang; khổ giấy trong trình điều khiển phải khớp.

THÔNG TIN ĐẶT HÀNG

Sản phẩm:

Giá:

Fix Lỗi Excel Tự Chuyển Điểm Số Thành Ngày Tháng (VBA)

Trong quá trình nhập điểm thi (ví dụ: 5.6, 6.5), Excel thường tự động hiểu nhầm thành ngày tháng (5/6 hoặc 6/5). Đây là giải pháp VBA tối ưu giúp bạn chuyển đổi hàng loạt về số thực mà không làm ảnh hưởng đến các dữ liệu đã đúng sẵn.

VBA Code (Excel Macro) 

Sub ChuyenDoiDiemHonHop()

    Dim cell As Range

    Dim ketQua As Double    

    Application.ScreenUpdating = False    

    For Each cell In Selection

        If Not IsEmpty(cell) Then

            ' Kiểm tra nếu là định dạng Ngày tháng

            If IsDate(cell.Value) And IsNumeric(cell.Value) = False Then

                ' Chuyển Ngày thành phần nguyên, Tháng thành thập phân

                ketQua = Day(cell.Value) + (Month(cell.Value) / 10)

                cell.Value = ketQua

            ' Nếu là Text chứa số thì chuyển về số thực

            ElseIf VarType(cell.Value) = vbString Then

                If IsNumeric(cell.Value) Then cell.Value = CDbl(cell.Value)

            End If

            ' Định dạng hiển thị 1 chữ số thập phân

            cell.NumberFormat = "0.0"

        End If

    Next cell    

    Application.ScreenUpdating = True

    MsgBox "Hoàn thành xử lý dữ liệu!", vbInformation, "Thông báo"

End Sub

Các bước thực hiện:

  1. Mở file Excel bảng điểm, nhấn Alt + F11.
  2. Vào Insert -> Module và dán đoạn mã trên vào.
  3. Quay lại bảng tính, bôi đen vùng dữ liệu cần xử lý (bao gồm cả ô đúng và ô lỗi).
  4. Nhấn Alt + F8, chọn ChuyenDoiDiemHonHop và nhấn Run.
Lưu ý: Code này hoạt động thông minh, nó sẽ tự động bỏ qua các ô đã là số chuẩn và chỉ xử lý các ô bị lỗi định dạng ngày tháng.