做一个宏，对鼠标选中区域数据进行求和

zxyok

恳求各位大侠帮着解决一个问题：
1 做一个宏，当按下该宏的快捷键或运行该宏时，对当前鼠标已选中的区域数据进行求和。
2 在1的基础上，如果可以调用出windows自带的计算器，并将1中的求和值，粘贴到计算器中。如果这一条不好实现，做到把求和数值复制到剪贴版上，我手工粘贴到计算器中也好。

困难产生的缘由：
我们有很多的基础数据在excel表格中，需要对其进行各种分类、筛选等操作。excel可以显示出鼠标选中区域的求和值，但是不能把它直接复制到计算器中进行再加工。现在每次都是手工打开计算器，纯手工输入"excel中显示的鼠标选中区域的求和值"，而这种操作量很大，手工向计算器中输入时一旦出错，后面的数据就都over了，前面所有的工作就都白干了……
我对vba不了解，自己在网上查代码试了一天，无法达到前述的工作要求，所以在这里发贴向各位IT精英们求助。

MOY838840554

发附件。。。。看能不能一步解决

轩辕传说

表格本身就可计算,,为什么还要计算器.

香川群子

很容易做到的。

打开附件，自动更改Ctrl+C复制功能为：
对Ctrl+所选多重区域统计求和，和值复制进入剪贴板，可以任意Ctrl+V引用，并可用于其他引用软件如Windows计算器。
同时在Excel左下角的状态栏上显示该和值的千分位2位小数格式值。

注意：在其它打开的Excel文件中也是不能正常使用默认Ctrl+C功能，直到关闭此文件，才会恢复Ctrl+C的默认复制功能。

zxyok

轩辕传说 发表于 2019-1-18 17:06
表格本身就可计算,,为什么还要计算器.

需要对表内人工选定区域内的数据，粘贴到计算器中，进行再计算加工后，复制、粘贴到其他的应用中使用。但是又不能改变原excel表格中的的数据和格式和结构。

zxyok

香川群子 发表于 2019-1-18 17:29
很容易做到的。

打开附件，自动更改Ctrl+C复制功能为：

这位果然是高手，用如仅仅几条代码就能实现我的要求，非常非常的感谢！感谢您的帮助带给我们工作的极大帮助。

zxyok

网上果然有高手，非常感谢“香川群子”大侠， 短短几条代码，就解决了我们当前在工作中亟需解决的大问题。谢谢！

zxyok

香川群子 发表于 2019-1-18 17:29
很容易做到的。

打开附件，自动更改Ctrl+C复制功能为：

香川大侠你好，感谢你提供的解决方案为我们日常工作带来的巨大方便。现在在这段时间的应用中，有遇到了新的问题，想向您请教：当对数据进行一系列的筛选之后，前面的解决方案中，求和区域中实际上是包含隐藏数据的。我们绝大多数情况下，只是对晒选后（的可见）单元格进行求和。不知有没有办法，实现这个需求？

香川群子

改用Subtotal求和公式计算。

michaelaa

香川群子 发表于 2019-1-18 17:29
很容易做到的。

打开附件，自动更改Ctrl+C复制功能为：

老师能贴代码吗？这个excel版本太低了，打开之后代码都没了。