Anh chị giúp mình In phiếu (1 người xem)

[vnlife2000]

Mong mọi người giúp tạo và in phiếu như sau:
-Khi nhấn IN thì Hiển thị thông báo in từ số phiếu nào đến số phiếu nào, trước khi in ra thông báo chọn OK hay hủy lệnh
-Số phiếuphụ thuộc vào cột Mã, tức đếm có bao nhiêu mã khác nhau trong cột Mã, ở ví dụlà có 10 mã tương đương sẽ có 10 phiếu. trướckhi in ra thông báo chọn OK hay hủy lệnh.
Cám ơn mọi người.

 

[vnlife2000]

Bài toán in phiếu trên mình đang vướng chỗ lọc trong một phiếu mong các bạn giúp
Khichọn một ô trong list validation thì dữ liệu trong bảng lọc theo giá trị tại ô hiện tại của list validation. Nhờ các bạn giúp code. Mình cảm ơn.

 

[HieuCD]

Bài toán in phiếu trên mình đang vướng chỗ lọc trong một phiếu mong các bạn giúp
Khichọn một ô trong list validation thì dữ liệu trong bảng lọc theo giá trị tại ô hiện tại của list validation. Nhờ các bạn giúp code. Mình cảm ơn.

bạn xem file lọc phiếu

 

[vnlife2000]

Bạn xem lại giúp mình, mình tăng thêm một cột, tại dòng Cell(i,4) giờ thành Cell(i,5) nhưng kg chạy bạn. Và nếu số dòng mình test 5000 thì cũng kg chạy bạn ah. Bạn xem lại giúp mình

 

[HieuCD]

Bạn xem lại giúp mình, mình tăng thêm một cột, tại dòng Cell(i,4) giờ thành Cell(i,5) nhưng kg chạy bạn. Và nếu số dòng mình test 5000 thì cũng kg chạy bạn ah. Bạn xem lại giúp mình

bạn chú ý điều chỉnh các con số màu đỏ

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, i As Long, R As Long
If Target.Address = "$I$2" Then
  Application.ScreenUpdating = False
[COLOR=#ff0000]  R = 5000[/COLOR]
  Rows("11:" & R).EntireRow.Hidden = False
  If Target.Value <> "" Then
    For i = 11 To R
      If Cells(i, [COLOR=#ff0000]5[/COLOR]) <> Target.Value Then
        If Rng Is Nothing Then
          Set Rng = Rows(i & ":" & i)
        Else
          Set Rng = Union(Rng, Rows(i & ":" & i))
        End If
    End If
    Next i
    Rng.EntireRow.Hidden = True
  End If
  Application.ScreenUpdating = True
End If
End Sub

 

[vnlife2000]

Mình thêm STT từ 1 khi lọc giúp mình với

 

[vnlife2000]

Giúp mình số thứ tự nhảy bắt đầu từ 1 khi ta chọn cột điều kiện lọc với bạn.

 

[HieuCD]

Giúp mình số thứ tự nhảy bắt đầu từ 1 khi ta chọn cột điều kiện lọc với bạn.

chỉnh lại chổ màu đỏ khi có thay đổi
B là cột với đặc điểm: dưới dòng dữ liệu cuối không có dũ liệu

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, i As Long, R As Long
If Target.Address = "$I$2" Then
  Application.ScreenUpdating = False
  R = 5000
  Rows("11:" & 5000).EntireRow.Hidden = False
  If Target.Value <> "" Then
    For i = 11 To R
      If Cells(i, 1) = "" Then Exit For
      If Cells(i, [COLOR=#ff0000]5[/COLOR]) <> Target.Value Then
        If Rng Is Nothing Then
          Set Rng = Cells(i, 1)
        Else
          Set Rng = Union(Rng, Cells(i, 1))
        End If
      Else
        k = k + 1
        Cells(i, 1) = k
      End If
    Next i
    Rng.EntireRow.Hidden = True
  Else
    Range("A11") = 1
    Range("A11:A" & Range("[COLOR=#ff0000]B60000[/COLOR]").End(xlUp).Row).DataSeries
  End If
  Application.ScreenUpdating = True
End If
End Sub

 

[HieuCD]

Mong mọi người giúp tạo và in phiếu như sau:
-Khi nhấn IN thì Hiển thị thông báo in từ số phiếu nào đến số phiếu nào, trước khi in ra thông báo chọn OK hay hủy lệnh
-Số phiếuphụ thuộc vào cột Mã, tức đếm có bao nhiêu mã khác nhau trong cột Mã, ở ví dụlà có 10 mã tương đương sẽ có 10 phiếu. trướckhi in ra thông báo chọn OK hay hủy lệnh.
Cám ơn mọi người.

bạn đưa file sát với thực tế để viết cho chuẩn
- cột nào cần in?
- phía dưới dữ liệu có các ô nào? như người tạo ...

 

[vnlife2000]

Code chạy chậm nếu như lọc 1 phiếu có 500 dòng, Bạn giúp mình Code lại chạy nhanh giống như mình chọn AutoFilter.

 

[HieuCD]

Code chạy chậm nếu như lọc 1 phiếu có 500 dòng, bạn có thể code nhanh hơn không ah

mình không thể viết chạy nhanh hơn khi không biết file thực sự có gì trong đó?

 

[befaint]

Bài toán in phiếu trên mình đang vướng chỗ lọc trong một phiếu mong các bạn giúp
Khichọn một ô trong list validation thì dữ liệu trong bảng lọc theo giá trị tại ô hiện tại của list validation. Nhờ các bạn giúp code. Mình cảm ơn.

Code cho module:

Sub Locc()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic
Dim z As Long, dk
With ActiveSheet
    .AutoFilterMode = False
    dk = .Range("I2")
    z = .Range("D" & .Rows.Count).End(xlUp).Row
    .Range("D9:D" & z).AutoFilter Field:=1, Criteria1:=dk
'    .Range("A1:D" & z + 3).Printout
    .Range("A1:D" & z + 3).PrintPreview
    .AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub

Code cho Sheet2:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$I$2" Then Locc: Target.Select
End Sub

 

[vnlife2000]

Cảm ơn bạn Hiếu nhiều, phần in mình đã làm được rồi bạn.

bạn đưa file sát với thực tế để viết cho chuẩn
- cột nào cần in?
- phía dưới dữ liệu có các ô nào? như người tạo ...

 

[vnlife2000]

Mình lọc một bảng dữ liệu gồm 5000 dòng, trong đó nếu có 500 dòng trùng thì phải đợi 10 giây nó mới hiển thị ra kq, còn trong khi mình dùng autofilter thì bấm vào là có kq ngay bạn ah.

mình không thể viết chạy nhanh hơn khi không biết file thực sự có gì trong đó?

 

[vnlife2000]

Mình dùng code bạn Hiếu ơi

bạn xem file lọc phiếu

 

[Ba Tê]

Mình dùng code bạn Hiếu ơi

Gặp trường hợp nay muốn lọc cột này, mai cột khác, thì lọc theo Advanced Filter, nhập tiêu đề cột muốn lọc, như trong file là tiêu đề dòng phụ (10)

 

[vnlife2000]

Họp thư bạn đầy rồi bạn Hiếu ơi.

bạn chú ý điều chỉnh các con số màu đỏ

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, i As Long, R As Long
If Target.Address = "$I$2" Then
  Application.ScreenUpdating = False
[COLOR=#ff0000]  R = 5000[/COLOR]
  Rows("11:" & R).EntireRow.Hidden = False
  If Target.Value <> "" Then
    For i = 11 To R
      If Cells(i, [COLOR=#ff0000]5[/COLOR]) <> Target.Value Then
        If Rng Is Nothing Then
          Set Rng = Rows(i & ":" & i)
        Else
          Set Rng = Union(Rng, Rows(i & ":" & i))
        End If
    End If
    Next i
    Rng.EntireRow.Hidden = True
  End If
  Application.ScreenUpdating = True
End If
End Sub

 

[vnlife2000]

Chào bạn Hiếu, khi mình chạy code thì báo lỗi như hình, khi debug thì tô vàng tại dòng: rsCon.Open szConnect . Nhưng bấm End thì vẫn chạy ra kết quả. và bạn giúp mình chỗ chú thích đoạn nào lấy dữ liệu từ các file con, vì số lượng các dòng của file con sẽ tăng lên theo các dòng màu trắng

Họp thư bạn đầy rồi bạn Hiếu ơi.

 

[vnlife2000]

Cảm ơn bạn Ba Tê code bạn chạy rất nhanh nhưng làm mất filter dòng mình cần lọc.

Gặp trường hợp nay muốn lọc cột này, mai cột khác, thì lọc theo Advanced Filter, nhập tiêu đề cột muốn lọc, như trong file là tiêu đề dòng phụ (10)

 

[Ba Tê]

Cảm ơn bạn Ba Tê code bạn chạy rất nhanh nhưng làm mất filter dòng mình cần lọc.

Không hiểu câu này:

... nhưng làm mất filter dòng mình cần lọc.

Bạn muốn nói làm mất các dòng "Người Tạo", "Người ..." dưới cuối trang?
Nếu đúng vậy thì bạn tìm trong code sửa lại dòng này:

R = Range("A11").End(xlDown).Row - 9           '<-------Thêm - 9'