[已解决]请教如何实现一个财务人员经常用到的功能

szwfn

财务人员经常需要圈选一块区域（全是数值格式），记下下方统计的求和值，填到另外的地方
我在想有没有办法写一段VBA，在Ctrl+C的时候就把（圈选单元格的）求和值拷入内存，再通过自定义快捷键的方式，仅粘贴一个求和值
平时会三脚猫录制一点excel宏，但是遇到这样的问题，还需要请教诸位专业人士，谢谢！

最佳答案

月排行榜 / 总排行榜

香川群子

2017-7-10 20:47

szwfn 发表于 2017-7-10 10:14
香川群子 早上好啊！
我按照你更新的代码，在不同的工作簿之间复制粘贴，能很好的工作。
用了好几个例 ...

很简单啊，代码改一下：

1. Sub myNumberCopy()
   
2.     With New DataObject
   
3.         .SetText WorksheetFunction.Sum(Selection.SpecialCells(xlCellTypeVisible))
   
4. '        .SetText "=SUM(" & Selection.SpecialCells(xlCellTypeVisible).Address(0, 0) & ")"
   
5.         .PutInClipboard
   
6.     End With
   
7.    
   
8.     t = WorksheetFunction.Sum(Selection.SpecialCells(xlCellTypeVisible))
   
9.     s = "=SUM(" & Selection.SpecialCells(xlCellTypeVisible).Address(0, 0) & ")"
   
10.     Application.StatusBar = Format(t, "#,###.00 ") & s
    
11. End Sub

复制代码

跳转到最佳答案楼层

爱疯

这样可以吗
看了再手动录入，如果结果不好记就先用公式求出来

szwfn

爱疯 发表于 2017-7-6 17:36
这样可以吗
看了再手动录入，如果结果不好记就先用公式求出来

你好 版主，
财务人员一般就是按照你所示的统计数据（求和，计数，平均）去记录求和数 然后再手填到别的区域
但是如果涉及大量这样的重复操作，而且合计数较大的话，又费时又容易出错，这时就需要有VBA来提高下效率，保证准确率
所以我在想有没有办法写一段VBA，在Ctrl+C的时候就把（圈选单元格的）求和值拷入内存，再通过自定义快捷键的方式，仅粘贴一个求和值

szwfn

爱疯 发表于 2017-7-6 17:36
这样可以吗
看了再手动录入，如果结果不好记就先用公式求出来

公式求出来后，再复制，再粘贴的话，就又多一个步骤了
大量重复劳动的话，就会很慢

爱疯

比如重复操作，每次具体的是做了什么操作？

建议上传所用到的数据文件，如果需要并给出一个模拟的结果，同时具体说明题意。

szwfn

你好 版主，

已经上传样本excel，请帮忙看下

香川群子

操作说明：
1.选中任意区域后、右键即可提取总和值s，并在左下角状态栏显示求和范围以及和值。
  可用Ctrl键进行同时选中复数个多重区域，然后右键，照样能统计并显示选中区域以及总和值。
2.点选任意空白区域后，双击即可自动输入这个总和值。
以上 EH 香川群子 2017/7/6

香川群子

增加功能。第2步粘贴时，如果是选中了空白单元格，那么双击以后输入和值。
如果选中了有任意其它内容的非空单元格，那么双击后输入=SUM()公式……这样的结果更好吧。

frankzhang21

楼主需要在代码窗口，点击工具-引用-浏览-fm20.dll-确定

更换电脑等需要重复上一步骤

具体操作：
选取你要求和的单元格，点击按钮，求和值就保存到剪切板了，然后在随便哪个单元格粘贴就可以

点击按钮后，复制的内容可以粘贴到别的应用程序，比如word和PPT

如果有没懂的地方，放心提问

szwfn

香川群子 发表于 2017-7-6 20:47
增加功能。第2步粘贴时，如果是选中了空白单元格，那么双击以后输入和值。
如果选中了有任意其它内容的非 ...

香川群子 你好啊
非常感谢啊，刚刚打开了用过了，设计的很周到。
能否有这样改下：

• “右键”变成某组快捷键，因为excel中右键有时候需要用到的；双击也能否变成某组快捷键，原因同理
• 整个代码能否做进类似个人宏簿里面，这样在打开任何工作簿时候，都随时能实现这个粘贴求和值的功能。包括从一个工作簿复制求和值，粘贴到另外的一个工作簿
  

再次感谢啊~