提取客户数据已实现，如何实现屏蔽指定客户

sh11105

在打印页面，点击“筛选日期”就会将“数据页面”对应日期的所以客户数据提取过来。
但是我想实现指定客户的数据不提取过来。

现在点了筛选日期，客户A、客户B、客户C都会提取过来。
我想在VBA中修改代码，只调用客户A和客户C，屏蔽掉客户B不调用过来，后续由于数据的增加，可能还需要屏蔽客户D、客户E等。

附件奉上，请大佬帮忙看看如何解决，谢谢！

以下是现在的代码

Sub shaixuanriqi()
   Sheet4.Activate
Sheet4.Range("A9:I400").ClearContents '清除单元格内容
Sheet4.Range("m1").ClearContents '清除单元格内容
    Dim d As Object, i, arr, brr()
        On Error GoTo CCC
        With Sheets("数据页面")
        arr = .Range("e2:m" & .Cells(.Rows.Count, "f").End(xlUp).Row)
        cont = Application.CountIf(.Range("f2:i" & .Cells(.Rows.Count, "f").End(xlUp).Row), [l2])
        ReDim brr(1 To cont, 1 To 9)
        End With
        k = 1
        For i = 1 To UBound(arr)
            If arr(i, 2) = [l2] Then
                For j = 1 To 9
                    brr(k, j) = arr(i, j)
                Next
                k = k + 1
            End If
        Next
         [a6].Resize(cont, 9) = brr
       ThisWorkbook.Save
CCC:
End Sub



出货单模板.zip (31.8 KB, 下载次数: 6)

2021-9-22 20:55 上传

点击文件名下载附件

zpy2

select rowid,* from 筛选数据页面明细表 where not 客户单位 in ('客户B')

sh11105

zpy2 发表于 2021-9-23 06:15
select rowid,* from 筛选数据页面明细表 where not 客户单位 in ('客户B')

谢谢大佬的办法。
不过能不能就在VBA代码的基础上增加修改，在打印页面点击“筛选日期”时就实现屏蔽指定客户呢

sh11105

zpy2 发表于 2021-9-23 06:15
select rowid,* from 筛选数据页面明细表 where not 客户单位 in ('客户B')

我网上搜到一些代码，改编出下面的打印代码，在打印页面使用时，会以A列来逐个打印筛选的内容，就是客户A客户B客户C。
能不能这段代码中增加代码屏蔽不打印“客户B”？

Sub C_打印()
   Sheet4.Activate
   Range("A7:A400").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
   Dim d, arr, i&, r&, y&
   Set d = CreateObject("Scripting.Dictionary")
   r = Cells(Rows.Count, 1).End(3).Row  
   arr = Range("A6:A" & r - 1)  
   y = UBound(arr)
   For i = 1 To y
      d(arr(i, 1)) = ""
   Next
   Range("5:5").AutoFilter
   For i = 1 To d.Count
   Application.Wait Now + TimeValue("00:00:02") '延迟2秒
        Selection.AutoFilter Field:=1, Criteria1:=Application.Index(d.keys, 0, i)
        Application.Wait Now() + CDate("00:00:02")   '延迟2秒
   'ActiveWindow.SelectedSheets.PrintPreview   '先打印预览(测试时启用/停用下一句)
   ActiveWindow.SelectedSheets.PrintOut   '后打印当前表(测试通过正式打印时启用/停用上一句)
   Application.Wait Now() + CDate("00:00:02")   '延迟2秒
   Next
   Selection.AutoFilter
   Application.Wait Now + TimeValue("00:00:02") '延迟2秒
   Application.Quit '退出excel
   Application.DisplayAlerts = False
End Sub

zpy2

sh11105 发表于 2021-9-23 11:32
我网上搜到一些代码，改编出下面的打印代码，在打印页面使用时，会以A列来逐个打印筛选的内容，就是客户A ...

https://blog.csdn.net/gordennizaicunzai/article/details/73695710

Selection.AutoFilter Field:=1, Criteria1:=Application.Index(d.keys, 0, i)

这句修改一下，2个条件筛选，应该差不多了。

sh11105

zpy2 发表于 2021-9-23 15:15
https://blog.csdn.net/gordennizaicunzai/article/details/73695710

Selection.AutoFilter Field:=1, ...

收到，谢谢大佬，我研究下