EXCEL计数命令的宏运算

Question

尊敬的EXCEL高手们，这儿有一个问题，就是我要用鼠标对任意选定的单元格区域计数，或者对所选定的区域求和就行，这个过程得重复至少100次，因此用函数就显的太慢了，能不能有个宏命令，可以方便快捷实现呢？至少不用每次输入函数。先谢谢了。

Answer 1

有个问题，就是，如果你一次性选择，也即按下鼠标移动选择连续区域，然后放开鼠标的话，可以用下列代码：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then
MsgBox "单元格数量" & Target.Count & Chr(13) & _
    "单元格合计" & Application.WorksheetFunction.Sum(Target)
End If
End Sub

但是，如果你的选择区域是按住Ctrl然后用鼠标点击不连续的区域，这时候就不知道你的选择什么时候结束。那，数据依然是存在的，但是，何时提供给你呢？

追问

感谢你，我的工作表是要么单元格数值是1，要么是零，计数的结果是要计算：某个单元格方圆1，方圆2，方圆3个单元格，（也就是4，9，16，25，36，49，64，81，100（包括某个单元格本身）数值为1的个数。和扫雷有点类似。我的本意是彩票开奖结果中，比如要计算双色球某次开奖某个号码周边方圆N个单元格内，中奖号码的个数。这样用来辅助分析下次开奖结果。

追答

那，这个方圆，是你自己用鼠标划定的吧？现在的程序的合计数，应该就是你要的答案。只要稍稍改动一下就可以把相关的结果放到状态栏（也就是Excel窗口的左下角）
其实，如果你的数字都是1、0，你右键点击Excel窗口最底下的那条状态栏中的【数字】，学则求和就可以了，根本不需要宏命令