VBA 多工作表指定值累加

On_fire

VBA 多工作表指定值累加

*

文件有多个工作表, 工作表是变量!

*

1. 每个工作表的1~9行是标题行, 不参加计算

2. 工作表的A列是关键词 ( Key ) , 上到下的分隔线代表了关键词数据范围

3. 关键词Key对应数据范围内的M到Y列 (共13列的对应值)

*

代码逻辑如下,

1.      做个控件, 可输入两个Sheet的数/值, 如输入 Sheet[1], 或 Sheet[10]等等...

2.      按执行代码后, 顺序累加选中的工作表的对应值,

如Sheet[10]~ Sheet[12]指Sheet[ 10,11, 12 ]共3个表的累加

*

模拟结果如下

1.      Accu1是模拟结果文件 ( Result表, 模拟累加了Sheet10~12 的A列的关键词C, B及A )

2.      文件中已模拟添加一个Result工作表 ( Copy最后一张Sheet12 ),

用Sheet12的A列Key的顺序输出结果 ( 跟Vlookup的相似 )

比如:Result表的Y17格的18

= Sheet12的Y17格的7 + Sheet11的Y21格的6 + Sheet10的Y9格的5

*

有点难度, 恳请老师出手帮忙...感谢!!!

铁马1980

为啥我看到的都是色块

On_fire

铁马1980 发表于 2024-10-15 10:51
为啥我看到的都是色块

老师好, 请看看截图…

ykcbf1100

楼主的数据表真是少见啊，都是用颜色来代表的，难道统计时还要根据颜色来统计？你摸拟一点数据总比用颜色来代表数据更简单吧。你这个样子，估计没人会下手。

On_fire

ykcbf1100 发表于 2024-10-15 21:21
楼主的数据表真是少见啊，都是用颜色来代表的，难道统计时还要根据颜色来统计？你摸拟一点数据总比用颜色来 ...

老师好,

请看截图,

Result表的模拟结果,

只做了3个工作表的A列对应值( 每个表的O~Y列) 的相加/累加

这些对应值, 要到指定的表才能看到

On_fire

On_fire 发表于 2024-10-16 07:37
老师好, 请看截图, Result表的模拟结果, 只做了3个工作表的A列对应值( 每个表的O~Y列) 的相加/累加这些对 ...

推一下......

chxw68

楼主的问题跟天书一样，试着做了一下，合计还是楼主指定的那几张表。

chxw68

有两点楼主是不是描述错了？
1、每个工作表的1-8行是标题行，而不是1-9行。
2、数据范围是O:Y列，而不是M:Y列。

On_fire

chxw68 发表于 2024-10-29 18:35
楼主的问题跟天书一样，试着做了一下，合计还是楼主指定的那几张表。

褚老师,
感谢您, 是的, 计算逻辑就是这样…

请问能不能将下面这句,
For Each ws In Worksheets(Array("Trainers (7) ", "Trainers (8)", "Trainers (9)"))
做成一个输入[ 表代号 ]及执行代码的控件?
比如: 输入7, 再输入9, 按执行就出统计结果?

chxw68

修改好了。