Nhờ giúp đỡ câu lệnh in theo điều kiện.

[Pi-Pikachu]

Xin chào các bạn.
Nhờ các bạn giúp đỡ em câu lệnh in này với.


Em xin cảm ơn.

 

[huuthang_bd]

Kết hợp công thức và macro cho đơn giản.
--
Công thức mảng tại B3, copy ra B3:C6

=IFERROR(INDEX($E$3:$E$5;MATCH($A$1*8-8+ROW(A1)*2-2+COLUMN(A1);MMULT(IF(ROW($F$3:$F$6)>=TRANSPOSE(ROW($F$3:$F$6));1;0);$F$3:$F$6+0)-$F$3:$F$6+1));"")

Code in

Sub InIn()
    Dim i As Long
    Application.Calculation = xlCalculationAutomatic
    For i = 1 To Int((Application.Sum(Sheet1.Range("F3:F5")) - 1) / 8) + 1
        Sheet1.Range("A1").Value = i
        Sheet1.PrintPreview
    Next
End Sub

 

[Hoàng Tuấn 868]

Xin chào các bạn.
Nhờ các bạn giúp đỡ em câu lệnh in này với.

View attachment 285030
Em xin cảm ơn.

Bạn thử tham khảo. .

 

[BuiQuangThuan]

Nhờ các bạn giúp đỡ em câu lệnh in này với.

Thêm cách khách tham khảo:

Sub ABC()
    Dim sArr(), i&,  N&, c%, r%, ii&
    With Sheets("Sheet1")
        sArr = .Range("E3:F" & .Range("E" & Rows.Count).End(3).Row).Value
        For i = 1 To UBound(sArr)
            For ii = 1 To sArr(i, 2)
                If N = 0 Then .Range("B3:C6").ClearContents
                N = N + 1
                If N Mod 2 = 1 Then r = r + 1: c = 1 Else c = 2
                .Cells(r + 2, c + 1).Value = sArr(i, 1)
                If N = 8 Then N = 0: r = 0: .Range("B3:C6").PrintPreview
            Next
        Next
        If N > 0 Then .Range("B3:C6").PrintPreview
    End With
End Sub

 

[Hoàng Tuấn 868]

Thêm cách khách tham khảo:

Vụ này không cho chủ mà chỉ cho khách tham khảo nhỉ.

 

[BuiQuangThuan]

Vụ này không cho chủ mà chỉ cho khách tham khảo nhỉ.

2 nghĩa ấy anh. Cho thành viên tham khảo thôi. Chứ thớt chưa chắc đã sài đâu mà anh. Hihi

 

[Hoàng Tuấn 868]

2 nghĩa ấy anh. Cho thành viên tham khảo thôi. Chứ thớt chưa chắc đã sài đâu mà anh. Hihi

Nhiều cách tự nhiên lại khó chọn.

 

[BuiQuangThuan]

Nhiều cách tự nhiên lại khó chọn.

Đang tính làm rối loạn triều đình thớt luôn. .Chúc anh và mọi người giáng sinh an lành nhé

 

[Hoàng Tuấn 868]

Đang tính làm rối loạn triều đình thớt luôn. .Chúc anh và mọi người giáng sinh an lành nhé

Sao mảng cố định không gán cả mảng xuống mà lại đi gán từng ô.

 

[BuiQuangThuan]

Sao mảng cố định không gán cả mảng xuống mà lại đi gán từng ô.

Định đưa vào mảng. Thấy mảng có 8 phần tử. Nên lười. Cho xuống sheet luôn đỡ phải viết nhiều anh ạ

 

[Pi-Pikachu]

Kết hợp công thức và macro cho đơn giản.
--
Công thức mảng tại B3, copy ra B3:C6

=IFERROR(INDEX($E$3:$E$5;MATCH($A$1*8-8+ROW(A1)*2-2+COLUMN(A1);MMULT(IF(ROW($F$3:$F$6)>=TRANSPOSE(ROW($F$3:$F$6));1;0);$F$3:$F$6+0)-$F$3:$F$6+1));"")

Code in

Sub InIn()
    Dim i As Long
    Application.Calculation = xlCalculationAutomatic
    For i = 1 To Int((Application.Sum(Sheet1.Range("F3:F5")) - 1) / 8) + 1
        Sheet1.Range("A1").Value = i
        Sheet1.PrintPreview
    Next
End Sub

Bạn thử tham khảo. .

Thêm cách khách tham khảo:

Sub ABC()
    Dim sArr(), i&,  N&, c%, r%, ii&
    With Sheets("Sheet1")
        sArr = .Range("E3:F" & .Range("E" & Rows.Count).End(3).Row).Value
        For i = 1 To UBound(sArr)
            For ii = 1 To sArr(i, 2)
                If N = 0 Then .Range("B3:C6").ClearContents
                N = N + 1
                If N Mod 2 = 1 Then r = r + 1: c = 1 Else c = 2
                .Cells(r + 2, c + 1).Value = sArr(i, 1)
                If N = 8 Then N = 0: r = 0: .Range("B3:C6").PrintPreview
            Next
        Next
        If N > 0 Then .Range("B3:C6").PrintPreview
    End With
End Sub

Cảm ơn các bạn rất nhiều.