vba三条件按月份汇总

365074907

chxw68 发表于 2023-12-20 17:27
重新写了一段供楼主参考。

你好！感谢4楼你的回复！当选择“乙库-B类-二料”，点击“按钮”后，当月份未有发生额时会出现空行，请求你帮忙修改下程序，去掉月份中入出库没有发生的空行，然后在有发生的月份加上细实线。

365074907

chxw68 发表于 2023-12-20 17:27
重新写了一段供楼主参考。

你好！感谢4楼你的回复！当选择“乙库-B类-二料”，点击“按钮”后，当月份未有发生额时会出现空行，请求你帮忙修改下程序，去掉月份中入出库没有发生的空行，然后在有发生的月份加上细实线。

chxw68

修改好了。

365074907

chxw68 发表于 2023-12-26 16:48
修改好了。

13楼，高手，感谢您的回复，感谢您的帮助，思路清晰，编程高手，深表谢意！

ykcbf1100

365074907 发表于 2023-12-26 16:13
6楼：你好！首先感谢你的答复。i当选择“乙库-B类-二料”点击“汇总”后，月份中没有发生入出库，也固定 ...

我刚回来，等下看看。

yellowhawk

能用公式解决的问题，绝对不要用VBA
M6==SUM((数据源!$E$4:$E$37=$L6)*($O$2=数据源!$H$4:$H$37)*(数据源!$I$4:$I$37=$O$3)*(数据源!$J$4:$J$37=$O$4)*数据源!K$4:K$37)
横拖四列，下拖
至于库存，库存额，按规则写公式就是很容易的事了。

ykcbf1100

365074907 发表于 2023-12-26 16:13
6楼：你好！首先感谢你的答复。i当选择“乙库-B类-二料”点击“汇总”后，月份中没有发生入出库，也固定 ...

改好了。。。

365074907

您好！首先感谢您的（13楼）回复！不过还要麻烦您修改一下程序，原因是条件选择后数据源中没有此内容会出现下标越界问题，见图。谢谢！
   当选择“乙库-A类-二料”，点击“查询”按钮后，弹出标题“Microsoft Visual Basic”的对话框，内容为“运行时出现错误‘9’”  下标越界，点击“调试”，程序“ ReDim crr(1 To d.Count, 1 To 7)”会呈现黄底色。
以下三个原因都会出现下标越界：
  一是三个条件没有选择时即三条件为空时；
  二是数据源中第一条件内容里没有第二条件内容；
  三是数据源中第二条件内容里没有第三条件内容。
请求帮忙修改下程序：
  一是没有选择条件时点击“查询”按钮可有提示，“请至少选择一个条件”，否则退出程序。
  二是可以从数据源中选择三个条件输入：
      当选择第一条件后，在选择第二条件时，需匹配第一条件。
      当选择第二条件后，在选择第三条件时，需匹配第二条件。

365074907

ykcbf1100 发表于 2023-12-28 19:44
改好了。。。

三个条件月汇总如何避免出现错误或问题对话框，以及改为可按一个、二个、三个条件分别汇总
17楼：您好！首先感谢你的答复。
不过还会出现以下第1第2点问题，需恳请您帮助修改程序，以可达到第三第点要求！真是万分感谢！
1、当选择“乙库-B类-名称”，因数据源中没有此“名称”后，会出现“类型不匹配”对话框，是否可以在选择了数据源中没有此名称后，设定会显示数据源中没有此名称对话框，而不显示“类型不匹配”对话框。
2、当选择“乙库-B类-名称”后， 因数据源中没有“B类-名称”后，也会出现“类型不匹配”对话框，是否可以在选择了数据源中没有此B类名称后，会弹出数据源中没有此类别名称对话框。
3、当选择“库别”后， “类别-名称”内容上清空，点击“汇总”按钮后，会按库别选择内容汇总（见左上表）；当选择“库别-类别”后， “名称”内容上清空，点击“汇总”按钮后，会按库别、类别选择内容汇总（见左下表）。
4、当选择“库别”后， “类别-名称”内容上选“全部”，点击“汇总”按钮后，会按此库别全部内容汇总；当选择“库别-类别”后， “名称”内容上选“全部”，点击“汇总”按钮后，会按库别、类别选择后，会按名称“全部”内容汇总。