我想创建一段宏，实现下面的功能：自动填写非连续单元格的和、均值等？

FENGJUN

我想创建一段宏，实现下面的功能：按住CTL键，连续选择任意个不同行或列的单元，然后放开CTL键，在任一空白单元格内单击后，即可产生（自动填入）以上所有单元格值的和（或均值等）。
   枯坐数日竟然不能成功，大失自信，望不吝赐码。
  ufengjun70618@sina.com
　　　　　　　　　　　　　　　　　2003-01-19

FENGJUN

求助]如何编程：能自动填写非连续单元格的和，均值等？

各位兄弟，大家好！
我想创建一段加载宏，实现下面的功能：按住CTL键，连续选择任意个不同行或列的单元，然后放开CTL键，在任一空白单元格内单击后点击右键，使用快捷菜单命令，即可产生（自动填入）以上所有单元格值的和（或均值等）。（这一功能的前半部分通过查看右下脚的状态栏可以实现，但后半部分如何办？）
枯坐数日竟然不能成功，大失自信，望不吝赐码。

lufengjun70618@sina.com

以下的代码错在哪儿？

Sub SumTotal()

Dim iCurrentrange As Range
Set iCurrentrange = Selection
Dim Sanwer As Single
Sanwer = Application.Sum(Worksheets("Sheet1").iCurrentrange)
MsgBox Sanwer
ActiveCell.Offset(1, 1).Value = Sanwer
End Sub

Sub SumTotal1()

Dim iCurrentrange As Range
Set iCurrentrange = Selection
S = 0
For Each iCurrentrange In ThisWorkbook.Worksheets("Sheet1").iCurrentrange
S = S + iCurrentrange.Value
Next
MsgBox S
End Sub

FENGJUN

最经典的问题！最实际的问题！如何一段加载宏：能自动填写非连续单元格的和，均值等？
求助]如何编程：能自动填写非连续单元格的和，均值等？

各位兄弟，大家好！
我想创建一段加载宏，实现下面的功能：按住CTL键，连续选择任意个不同行或列的单元，然后放开CTL键，在任一空白单元格内单击后点击右键，使用快捷菜单命令，即可产生（自动填入）以上所有单元格值的和（或均值等）。（这一功能的前半部分通过查看右下脚的状态栏可以实现，但后半部分如何办？）
枯坐数日竟然不能成功，大失自信，望不吝赐码。

lufengjun70618@sina.com

以下的代码错在哪儿？

Sub SumTotal()

Dim iCurrentrange As Range
Set iCurrentrange = Selection
Dim Sanwer As Single
Sanwer = Application.Sum(Worksheets("Sheet1").iCurrentrange)
MsgBox Sanwer
ActiveCell.Offset(1, 1).value = Sanwer
End Sub

Sub SumTotal1()

Dim iCurrentrange As Range
Set iCurrentrange = Selection
S = 0
For Each iCurrentrange In ThisWorkbook.Worksheets("Sheet1").iCurrentrange
S = S + iCurrentrange.value
Next
MsgBox S
End Sub

Coin

[此贴子已经被作者于2003-2-3 12:45:22编辑过]