HELP_trộn nhiều thư vào trang A4 bằng label_lỗi ô trống

Liên hệ QC

tuanvbsp

Thành viên mới
Tham gia
10/8/11
Bài viết
6
Được thích
1
Mong các bác xem xét, đưa ra phương hướng xử lý cái lỗi này giúp em:
1. Khi tạo label trộn nhiều thư vào trang A4. trường hợp cột ngày nếu có ngày trống thì khi trộn ra là 12:00:00 AM, Cột số tiền nếu số tiền trống thì ra số 0
Các bác giúp em xử lý trường hợp nếu ô ngày hoặc ô số tiền trống bên dữ liệu trên file excel thì khi trộn trên word ra trống luôn ạ
Chân thành cảm ơn tất cả!
Loi o trong.png
 

File đính kèm

  • IN PHIEU PHAN KY TRA NO.docx
    22 KB · Đọc: 3
  • PHan ky tra no_TUAN.xlsx
    119.3 KB · Đọc: 4
Mong các bác xem xét, đưa ra phương hướng xử lý cái lỗi này giúp em:
1. Khi tạo label trộn nhiều thư vào trang A4. trường hợp cột ngày nếu có ngày trống thì khi trộn ra là 12:00:00 AM, Cột số tiền nếu số tiền trống thì ra số 0
Các bác giúp em xử lý trường hợp nếu ô ngày hoặc ô số tiền trống bên dữ liệu trên file excel thì khi trộn trên word ra trống luôn ạ
Chân thành cảm ơn tất cả!
Bạn nên đọc nội quy để hiểu:
Bài viết kia: HELP_trộn nhiều thư trong 1 trang A4 bằng label_Lỗi dữ liệu trống

A_Noiquy.GIF
 
Hãy xóa bài "kia" đi. Nếu không xóa được bài thì sửa bài bằng cách xóa nội dung, cùng lắm thì thay bằng vài dấu chấm.

Do trong các cột Y-AR có công thức. Nếu có công thức thì thậm chí cả khi trả về chuỗi rỗng (chuỗi rỗng cũng là chuỗi) thì sang Word sẽ được coi là 0.
Cách đơn giản nhất là thêm 1 sheet data1 và code. Khi cần trộn thư thì copy dữ liệu của sheet data và dán giá trị vào sheet data1. Tất nhiên trộn thư với dữ liệu nguồn là data1 thay cho data.

Mã:
Sub copyvalue()
Dim lastRow As Long, data()
    With ThisWorkbook.Worksheets("data")
        lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
        data = .Range("A1:AR" & lastRow).Value
    End With
    ThisWorkbook.Worksheets("data1").Range("A1:AR" & lastRow).Value = data
End Sub
Lưu ý:
1. Sau khi thêm sheet data1 thì định dạng cột Y-AH giống như data!Y-AH, và AI-AR giống như data!AI-AR.

2. Nên nhớ là không thể làm như sau: chọn A1:AR*** trong sheet data -> copy -> chọn A1 trong sheet data1 -> paste. Những ô trống bên data thì bên data1 không còn công thức nữa nhưng ô không là BLANK, và sang Word vẫn là 0. Tốt nhất nên chạy code trên, sẽ ít việc hơn.
 
Cảm ơn bác Batman1 đã hướng dẫn.
 
Web KT
Back
Top Bottom