In hàng loạt có điều kiện trong Excel

andyhop · 5/7/21

Mọi người cho mình hỏi
Mình có làm 1 file excel về viết và in nhật ký thi công.
mình đã viết VBA để in hàng loạt (chọn khoảng thời gian in) nhưng nó in hết toàn bộ ngày trong khoảng thời gian mình yêu cầu.
mình đang muốn là VBA chỉ cho in ngày có thi công, ngày trống thì ko in
Tks mọi người (Có file đính kèm)

Maika8008 · 5/7/21

Tôi sửa công thức tại J24 (Cái Spinner sẽ không hoạt động đúng nữa) và sửa code In

andyhop · 5/7/21

Maika8008 đã viết:
Tôi sửa công thức tại J24 (Cái Spinner sẽ không hoạt động đúng nữa) và sửa code In

sau mỗi lần in thì lại bị lỗi mất công thức ở ô J24, nên phím Scroll bar không hoạt động theo ý muốn nữa.

Maika8008 · 5/7/21

andyhop đã viết:
sau mỗi lần in thì lại bị lỗi mất công thức ở ô J24, nên phím Scroll bar không hoạt động theo ý muốn nữa.

Tôi nói rồi mà. Haha!

Thêm dòng này vào trước End Sub
Sheet15.Range("J24").FormulaR1C1 = "=RC[3]"

andyhop · 5/7/21

Maika8008 đã viết:
Tôi nói rồi mà. Haha!

Thêm dòng này vào trước End Sub
Sheet15.Range("J24").FormulaR1C1 = "=RC[3]"

ok đc rồi. tks bạn nha
vậy giờ chỉ muốn in những ngày có thi công, còn ngày không thi công thì ko in ra. Thì làm sao bạn?

Maika8008 · 5/7/21

andyhop đã viết:
ok đc rồi. tks bạn nha
vậy giờ chỉ muốn in những ngày có thi công, còn ngày không thi công thì ko in ra. Thì làm sao bạn?

Thay bằng Sub này

Rich (BB code):

Sub IN_NHAT_KY()
    Dim i As Long, printFrom As Long, printTo As Long
    With Sheet15
        printFrom = .Range("l8").Value
        printTo = .Range("l9").Value
        For i = printFrom To printTo
            .Range("J24").Value = i
            If .Range("C13") <> "" Then
                .PrintOut preview:=Flase
            End If
        Next i
        .Range("J24").FormulaR1C1 = "=RC[3]"
    End With
End Sub

andyhop · 6/7/21

Maika8008 đã viết:

Thay bằng Sub này

Rich (BB code):

Sub IN_NHAT_KY()
    Dim i As Long, printFrom As Long, printTo As Long
    With Sheet15
        printFrom = .Range("l8").Value
        printTo = .Range("l9").Value
        For i = printFrom To printTo
            .Range("J24").Value = i
            If .Range("C13") <> "" Then
                .PrintOut preview:=Flase
            End If
        Next i
        .Range("J24").FormulaR1C1 = "=RC[3]"
    End With
End Sub

Maika8008 đã viết:

Thay bằng Sub này

Rich (BB code):

Sub IN_NHAT_KY()
    Dim i As Long, printFrom As Long, printTo As Long
    With Sheet15
        printFrom = .Range("l8").Value
        printTo = .Range("l9").Value
        For i = printFrom To printTo
            .Range("J24").Value = i
            If .Range("C13") <> "" Then
                .PrintOut preview:=Flase
            End If
        Next i
        .Range("J24").FormulaR1C1 = "=RC[3]"
    End With
End Sub

Mình làm đc rồi. Tks bạn nhiều nha

kbw1 · 7/7/21

Maika8008 đã viết:
Tôi sửa công thức tại J24 (Cái Spinner sẽ không hoạt động đúng nữa) và sửa code In

Xin chào bạn!
Mình có 1 bài hỏi về in ấn,
Bạn xem giúp mình được không ạ.

andyhop · 22/7/21

Maika8008 đã viết:

Thay bằng Sub này

Rich (BB code):

Sub IN_NHAT_KY()
    Dim i As Long, printFrom As Long, printTo As Long
    With Sheet15
        printFrom = .Range("l8").Value
        printTo = .Range("l9").Value
        For i = printFrom To printTo
            .Range("J24").Value = i
            If .Range("C13") <> "" Then
                .PrintOut preview:=Flase
            End If
        Next i
        .Range("J24").FormulaR1C1 = "=RC[3]"
    End With
End Sub

Mình mới ghi thêm thêm VBA (Module 9), tự động ẩn dòng nếu phần nhân công trống.
Nhưng mình thử kết hợp 2 VBA (Module 1 và 9) để khi in hàng loạt thì sẽ chạy cả 2 đoạn VBA cùng 1 lúc nhưng không được.
Bạn giúp mình được ko?
Tks

befaint · 22/7/21

andyhop đã viết:
chạy cả 2 đoạn VBA cùng 1 lúc

Cái này không thể xảy ra nhé.

Chỉ có thể: 1 cái trước, 1 cái sau.

andyhop · 22/7/21

befaint đã viết:
Cái này không thể xảy ra nhé.

Chỉ có thể: 1 cái trước, 1 cái sau.

mình có thể lồng 2 đoạn VBA vào thành 1 VBA để chạy 1 lúc ko bạn?

befaint · 22/7/21

andyhop đã viết:
có thể lồng 2 đoạn VBA vào thành 1 VBA để chạy

Trả lời: Được

andyhop · 22/7/21

befaint đã viết:
Trả lời: Được

làm như thế nào vậy bạn?

VetMini · 22/7/21

befaint đã viết:
Trả lời: Được

Trả lời vầy người ta mới hiểu:
tl: đc . go try urself

befaint · 22/7/21

andyhop đã viết:
làm như thế nào vậy bạn?

Có thể tạm thế này:

Sub Chay2Sub()
call sub1
call sub2
End Sub

andyhop · 22/7/21

befaint đã viết:
Có thể tạm thế này:

Sub Chay2Sub()
call sub1
call sub2
End Sub

mình đã làm như vậy trong file. Nhưng nó chạy sub 1, xong mới chạy sub 2.
cái mình muốn là chạy 2 sub cùng 1 lúc

Hoàng Tuấn 868 · 22/7/21

andyhop đã viết:
mình muốn là chạy 2 sub cùng 1 lúc

Vậy làm hai file giống nhau trên hai máy tính rồi nhấn hai chuột cùng lúc trên hai sub là được thôi.

VetMini · 22/7/21

befaint đã viết:
Có thể tạm thế này:

Sub Chay2Sub()
call sub1
call sub2
End Sub

Thế là ka ô đê xê rồi.

Bạn nên bảo người ta cái mục pa-ra-leo pơ-ro-gơ-ram-ming ở đây có người chỉ dẫn rồi. Chịu khó tìm. Nếu khong biết cách tìm thì dẹp cái tư tưởng ấy đi và đừng thử. Bởi vì chỉ có thế mà không tìm được là chưa đủ trình độ để rớ vảo.

BuiQuangThuan · 22/7/21

andyhop đã viết:
mình có thể lồng 2 đoạn VBA vào thành 1 VBA để chạy 1 lúc ko bạn?

Mã:

Sub IN_NHAT_KY()
    Dim i As Long, printFrom As Long, printTo As Long, Rng As Range
    With Sheet15
        printFrom = .Range("l5").Value
        printTo = .Range("l6").Value
        For i = printFrom To printTo
            .Rows("18:43").EntireRow.Hidden = False
            .Range("j10").Value = i
            If .Range("c10") <> "" Then
                For Each Rng In .Range("B18:B43")
                    If Rng.Value = Empty Then
                        Rng.EntireRow.Hidden = True
                    End If
                Next
                .PrintPreview
            End If
        Next i
        .Range("J10").FormulaR1C1 = "=RC[3]"
    End With
    
End Sub

Bạn thử thay đoạn sub này bằng cho modul1 coi
và modul10 thì xóa dòng call andong đi xem có đúng ý không

Bài đã được tự động gộp: 22/7/21

andyhop đã viết:
mình đã làm như vậy trong file. Nhưng nó chạy sub 1, xong mới chạy sub 2.
cái mình muốn là chạy 2 sub cùng 1 lúc

Bạn viết được macro mà hỏi câu này thấy lạ lạ. Sao có thể chạy cùng 1 lúc được. Kể cả 1 sub của bạn. Nó cũng làm lần lượt theo code bạn viết mà.
Nói đơn giản. Nếu bạn paste dữ liệu vào ô nào đó xong bôi màu chính ô đó xảy ra cùng lúc thì câu bạn hỏi mới trả lời được

Maika8008 · 22/7/21

andyhop đã viết:
Mình mới ghi thêm thêm VBA (Module 9), tự động ẩn dòng nếu phần nhân công trống.
Nhưng mình thử kết hợp 2 VBA (Module 1 và 9) để khi in hàng loạt thì sẽ chạy cả 2 đoạn VBA cùng 1 lúc nhưng không được.
Bạn giúp mình được ko?
Tks

1/ Bạn thay sub sau vào Module1:

Rich (BB code):

Sub IN_NHAT_KY()
    Dim i As Long, printFrom As Long, printTo As Long
    With Sheet15
        printFrom = .Range("l5").Value
        printTo = .Range("l6").Value
        For i = printFrom To printTo
            Range("j10").Value = i
            If .Range("c10") <> "" Then
                An_Dong   'Sub An_Dong chen vao day
                .PrintOut preview:=Flase
            End If
        Next i
        .Range("J10").FormulaR1C1 = "=RC[3]"
    End With
End Sub

2/ Code trên để cho bạn biết cách chứ nó chạy chậm.
3/ Code của bạn: đã With Sheet15 rồi nhưng trong ruột vẫn cứ Sheet15.ABC_XYZ là thừa. Phải viết là .ABC_XYZ (dấu chấm thay cho Sheet15.)

In hàng loạt có điều kiện trong Excel

Thành viên mới

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên tích cực

Thành viên mới

|||||||||||||

Thành viên mới

|||||||||||||

Thành viên mới

Ăn cùng góc phố

|||||||||||||

Thành viên mới

Đăng ký hôm qua

Ăn cùng góc phố

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên gạo cội