Question

Excel vba Worksheet_SelectionChange事件

我用该事件进行单元格的求和，用了Application.worksheetfuction.Sum (Selection)
但是有个问题，例如：A1单元格内的值是10，那么，按住ctrl键，然后鼠标左键选择A1单元格3次，那么，sum的值就会变成30。但是EXCEL自带的状态栏 “求和”中，不会重复相加。

同样的，一次选取A1：B2，然后按住ctrl键再次选取A1:B2，那么Selection.address的值就会变成A1:B2,A1:B2

有什么办法能只获取选择的区域Selection，重复的选区不计算在内？

Answer 1

个人宏工作簿，是为宏而设计的一种特殊的具有自动隐藏特性的工作簿。第一次将宏创建到个人宏工作簿时，会创建名为"PERSONAL.XLS"的新文件。如果该文件存在，则每当EXCEL启动时会自动将此文件打开并隐藏在活动工作簿后面（在"窗口"菜单中选择"取消隐藏"后，可以很方便地发现它的存在。）如果你要让某个宏在多个工作簿都能使用，那么就应当创建个人宏工作簿，并将宏保存于其中。个人宏工作簿保存在"XLSTART"文件夹中。具体路径为：C:\WINDOWS\Profiles\Application Data\Microsoft\Excel\XLSTART。可以以单词"XLSTART"查询。
注意：如果存在个人宏工作簿，则每当EXCEL启动时会自动将此文件打开并隐藏。因为它存放在XLSTART文件夹内。
练习,将保存一个简单的宏到个人宏工作簿,该宏为文本加下划线并改为斜体,步骤如下:
1)建立一个名为"HOUR2"的工作簿，选择"工具"-"宏"-"录制新宏",显示"录制新宏"对话框.
2)输入"格式化文本"作为宏名.
3)从"保存在"下拉框中选择"个人宏工作簿".
4)单击"确定"按钮.现在进入录制模式.
5)单击"斜体"工具栏按钮.一段时间内,鼠标出现沙漏,特别是在第一次创建个人宏工作簿时,因为EXCEL在创建该工作簿.
6)单击"下划线"按钮.
7)停止录制.
刚才已经保存了一个宏到个人宏工作簿,现在可以在任何工作簿中使用该宏.可按如下步骤操作:
1)关闭所有EXCEL工作簿.
2)任意打开一个EXCEL文件.(EXCEL自动将个人宏工作簿同时打开并隐藏.)
3)在A3中输入你的名字.
4)选择"工具"-"宏",显示宏对话框.现在可以在宏列表中看到"格式化文本"这个宏.
5)选择"格式化文本"宏,并执行.现在A3单元格中,你的名字变为斜体字还带有下划线.选择"窗口"-"取消隐藏",可以将PERSONAL.XLS显示出来,其中没有任何文字,但通过VBA编辑器可以在其中的模块中找到"格式化文本"这个宏.在VBA编辑器中可以对该宏进行直接编辑或者删除.如果PERSONAL.XLS中一个宏都没有,在启动EXCEL时仍会打开PERSONAL.XLS,这也许是EXCEL存在的一个小毛病.
另外,站长团上有产品团购,便宜有保证

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Application.Union(Target, Target)
[b1] = Application.WorksheetFunction.Sum(Target)
End Sub