Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 带VBA的Sumifs_Excel_Vba_Worksheet Function_Sumifs - Fatal编程技术网

Excel 带VBA的Sumifs

Excel 带VBA的Sumifs,excel,vba,worksheet-function,sumifs,Excel,Vba,Worksheet Function,Sumifs,我尝试使用不同的VBA子系统,使用类别和日期范围将数据从[MasterRenamed]数据表拉入[p&L]表 当我第一个开始工作时,我无法弄清楚如何使它充满活力,也就是说,我一次只能做一件事。无论什么原因,我在第二次考试中完全失败了 我会上传工作簿,但可能是因为我是新加入论坛的,我还不能上传文档。我不设定任何特定的代码格式,只要它工作。我当然希望得到一些指导 谢谢你们两位的回复。我能够找到答案,并且相信我已经找到了一个相当好的解决方案,与我在网上找到的相比 此宏使用excel col k中的搜索

我尝试使用不同的VBA子系统,使用类别和日期范围将数据从[MasterRenamed]数据表拉入[p&L]表

当我第一个开始工作时,我无法弄清楚如何使它充满活力,也就是说,我一次只能做一件事。无论什么原因,我在第二次考试中完全失败了

我会上传工作簿,但可能是因为我是新加入论坛的,我还不能上传文档。我不设定任何特定的代码格式,只要它工作。我当然希望得到一些指导


谢谢你们两位的回复。我能够找到答案,并且相信我已经找到了一个相当好的解决方案,与我在网上找到的相比

此宏使用excel col k中的搜索列表来搜索数据集银行和信用卡对账单,并返回组合总计,如excel的本机合并函数,并沿列搜索列表向下搜索

子搜索和合并

将ws1设置为工作表

设置ws1=SheetsMasterRenamedx

ws1.选择

变暗lrow1的长度与lrow2的长度相同 '第一个lrow用于查找数据范围,第二个lrow用于查找列表

lrow1=RangeB&Rows.Count.EndxlUp.Row

lrow2=RangeK&Rows.Count.EndxlUp.Row

Dim rng1作为范围的查找列表

设置rng1=范围K1

stDate=RangeJ1'开始和结束日期

EndDate=Rangej2

将日期作为范围、类别作为范围、借方作为范围、贷方作为范围的数据范围

设置日期=SheetsMasterRenamedx.Range2:B&lrow1

设置类别=SheetsMasterRenamedx.范围C2:C&lrow1

设置借项=SheetsMasterRenamedx.Range2:E&lrow1

对于i=2至lrow2

mytotals=Application.WorksheetFunction.SumIfsDebits、日期、_


>=&stDate,Dates,请分享您所尝试的实际代码片段,以及它是如何不起作用的。截图会使任何人都很难复制代码。只需复制并粘贴问题中的代码,不要复制并粘贴到excel工作表中,然后复制并粘贴其中的一个片段!