[Nhờ Viết Code VBA] Thực hiện lệnh in nhanh trong Excell

Hi, Vẫn là về Code hỗ trợ in nhanh;
- Mình đang thực hiện công tác in ấn hồ sơ trên file Excell; Do đặc thù của file hồ sơ, trong quá trình in ấn phải thực hiện các thao tác như: xem danh mục để biết công việc trước sau, cái nào cần in trước in sau, rồi chọn sheet tương ứng để in, việc này tương đối mất thời gian và rất dễ nhầm lẫn với đầu việc nhiều.
- Mình có ý tưởng về một Code in nhanh cho trường hợp của mình, nhưng không biết viết Code ra làm sao. Kính chuyển anh em Xây dựng 360 trợ giúp
(Xem file ví dụ mình đính kèm) Vi Du T.xlsx (19.42 KB, Lượt tải về: 1280)

5/9/2015 09:40 Tải lên

Click to download

Ý tưởng như sau:
- Khi bấm nút in nhanh, Code sẽ thực hiện thao tác như sau:
1. Gán cho ô A1 của các Sheet A, B, C, D, E tương ứng với số thứ tự cần in trước in sau (Ô A1, cá nhân mình đang dùng để tìm, liên kết dữ liệu)
2. Thực hiện lệnh in các Sheet lần lượt theo số thứ tự tương ứng
- Xem file mình gửi kèm để rõ ràng hơn nhé !
Thanks

vantuan18nd gửi lúc 12/9/2015 11:31
Hi, Chào các bác
- Code trên: Khi in mà trong vùng B không có tên Sheet thì Code sẽ báo  ...

Khi chạy code, sẽ có hộp thoại hiện lên, với file của bạn thì cứ việc ok là được, nếu có thay đổi thì điều chỉnh lại thông số trong hộp thoại cho hợp lý

Bạn đọc bài sau để ứng dụng - dùng trực tiếp, rất hay:
TVEXCEL02 Print - Công cụ in ấn nhiều chức năng cho EXCEL

tranhoe gửi lúc 5/9/2015 11:11
Bạn đọc bài sau để ứng dụng - dùng trực tiếp, rất hay:
TVEXCEL02 Print - Công cụ in ấ ...

Cảm ơn anh, cái này rất hay.
Nhưng áp dụng vào trường hợp của mình thì không khả thi vì:
- Ví dụ như file của mình, Sheet A hoặc Sheet C có dữ liệu thay đổi đến 2 lần hoặc lớn hơn tùy bài toán. Nếu in theo cách trên thì chỉ in được trang in với ô A1 là giá trị "chết", trường hợp ô A1 thay đổi giá trị thì chỉ có cách nhập giá trị bằng tay và in ở lượt in tiếp theo, không thể in trong cùng 1 lượt in
- Xin giúp với ạ !

vantuan18nd gửi lúc 5/9/2015 11:52
Cảm ơn anh, cái này rất hay.
Nhưng áp dụng vào trường hợp của mình thì không khả  ...

Vậy thì dùng code này:

[Visual Basic] 纯文本查看 复制代码

Sub In_TaiLieu()
    Dim I As Integer, m As Integer, CS As Integer
    m = Range("B65000").End(xlUp).Row
    For I = 4 To m
        Range("B" & I).Select
        CS = ActiveCell.Offset(, -1).Value
        With Sheets(ActiveCell.FormulaR1C1)
            .Range("A1").Value = CS
            .PrintOut
        End With
    Next I
End Sub

File:   Vidu_In.xlsm (28.55 KB, Lượt tải về: 1279)

5/9/2015 15:32 Tải lên

Click to download

tranhoe gửi lúc 5/9/2015 15:29
Vậy thì dùng code này:
[mw_shl_code=vb,true]Sub In_TaiLieu()
    Dim I As Integer, m As Integer ...

Đoạn:
       Range("B" & I).Select
       CS = ActiveCell.Offset(, -1).Value

Sao chú không đổi thành

      CS = range("B"&I).offset(0,-1).value

Đây không phải là trau chuốt Code chú à, Thực sự đây là 1 thói quen xấu làm chậm quá trình thực hiện code.

Sửa lại thêm đoạn code
Đoan
      Sheets(ActiveCell.FormulaR1C1)
Sửa thành:
      Sheets(range("B"&I).value)

(nên để thuộc tính .value hơn là .FormulaR1C1 vì nếu trong ô là công thức chứ không phải giá trị thì code sẽ bị sai)

votinh3290 gửi lúc 5/9/2015 21:28
Đây không phải là trau chuốt Code chú à, Thực sự đây là 1 thói quen xấu làm chậm qu ...

Bái phục! Bái phục!"Nhất tự vi sư, bán tự vi sư" Chúc mừng thầy tranhoe nhận được học trò giỏi!
Trò không làm được mới nhờ Thầy giải giúp, Trò nhận bài giải chưa kịp cảm ơn mà Bạn của Trò đã sửa lưng Thầy một phát khiến Thầy la lên: "Lạy sư phụ"
Kiểu này thì "Cái chùa của Thầy, bán chùa cũng Thầy" rồi.
Hậu sinh khả úy! Thiện tai! Thiện tai!

votinh3290 gửi lúc 5/9/2015 21:28
Đây không phải là trau chuốt Code chú à, Thực sự đây là 1 thói quen xấu làm chậm qu ...

nên để thuộc tính .value hơn là .FormulaR1C1 vì nếu trong ô là công thức chứ không phải giá trị thì code sẽ bị sai

Xem lại cột B là tên sheets (chủ topic ghi rõ phải đặt tên sheet trùng với danh mục này): tên là giá trị (Value) hay là text (Formula)?
Bái phục 1000 lần.

tranhoe gửi lúc 5/9/2015 22:10
Xem lại cột B là tên sheets (chủ topic ghi rõ phải đặt tên sheet trùng với danh mục n ...

Không phải tự nhiên cháu lại sửa lại vậy đâu chú à. Thuộc tính .value trả về cái gì, tuộc tính .Formula trả vể cái gì???
Nói hay không bằng tự thử nghiệm! Tại ô B7, chú gõ công thức "=B4" thử xem, kết quả ô B7 vẫn hiển thị A nhưng Code của chú sẽ bị lỗi!

Cháu chỉ muốn trao đổi cùng tiến bộ, không có ý sửa lưng!!!

votinh3290 gửi lúc 5/9/2015 22:28
Không phải tự nhiên cháu lại sửa lại vậy đâu chú à. Thuộc tính .value trả về cái ...

Tôi thấy đây là vấn đề cỏn con, lặt vặt chả có gì cao siêu đáng để tranh luận qua lại làm chi. Sếp tôi có câu "thắng là thua, thua là thắng, thắng thua không quan trọng". Chúc vui!

Hi, Xin lỗi các anh vì xảy ra vấn đề trao đổi có phần gay gắt này
Code của Ad tranhoe viết em xài ngon lắm rồi, em không đòi hỏi gì hơn nữa.
Vấn đề: Nếu em thay cột B là cột I hoặc cột khác tùy form biểu của mình và ô A1 là ô A2 thì em phải thay ở chỗ nào ạ.
Xin trợ giúp !

Hi, Chào các bác
- Code trên: Khi in mà trong vùng B không có tên Sheet thì Code sẽ báo lối
- Sửa lại giúp em nhé !