[已解决]怎么用代码实现？

dadasdas

只要选择数据，执行代码后把计数结果显示在H5，求和结果显示在I5，代码怎么写？
附件： book2.rar (1.69 KB, 下载次数: 23)

2013-1-24 10:12 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dpdmlym

2013-1-24 18:26

dadasdas 发表于 2013-1-24 10:49
F列有两处数据，选择上面一处数据结果显示在H5 I5，选择下面一处数据结果显示在H23 I23
能不能选择多少数 ...

看看这次的怎么样

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.   Set Target = Application.Union(Target, Target)
   
3.   If Target.Column = 2 Then
   
4.         p = Range("h65536").End(xlUp).Row + 1
   
5.         Cells(p, 9) = Application.WorksheetFunction.Sum(Target)
   
6.         Cells(p, 8) = Application.WorksheetFunction.Count(Target)
   
7.   End If
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

hwc2ycy

可以用函数解决嘛。

hwc2ycy

1. Sub test()
   
2.     [h5] = WorksheetFunction.Count(Range("f4:f21"))
   
3.     [i5] = WorksheetFunction.Sum(Range("f4:f21"))
   
4. End Sub

复制代码

E路人

1. Sub test()
   
2. Range("H5") = Application.Count(Range("F:F"))
   
3. Range("I5") = Application.Sum(Range("F:F"))
   
4. '公式：count(F:F) ; sum(F:F)
   
5. End Sub
   

复制代码

dadasdas

hwc2ycy 发表于 2013-1-24 10:15

里面的小数点能不能向左移个三位，比如5001为5.001,5002为5.002等

E路人

dadasdas 发表于 2013-1-24 10:24
里面的小数点能不能向左移个三位，比如5001为5.001,5002为5.002等

除以1000不就可以      

dadasdas

E路人 发表于 2013-1-24 10:26
除以1000不就可以

能不能用代码解决一下?

E路人

dadasdas 发表于 2013-1-24 10:33
能不能用代码解决一下?

1. Sub test()
   
2. Range("H5") = Application.Count(Range("F:F"))
   
3. Range("I5") = Application.Sum(Range("F:F"))/1000
   
4. '公式：count(F:F) ; sum(F:F)
   
5. End Sub
   

复制代码

dadasdas

E路人 发表于 2013-1-24 10:34

F列有两处数据，选择上面一处数据结果显示在H5 I5，选择下面一处数据结果显示在H23 I23
能不能选择多少数据，就计数 求和多少，每天区域数据不一样
附件：
book2.rar (4.34 KB, 下载次数: 4)

2013-1-24 10:49 上传

点击文件名下载附件

无聊的疯子

dadasdas 发表于 2013-1-24 10:49
F列有两处数据，选择上面一处数据结果显示在H5 I5，选择下面一处数据结果显示在H23 I23
能不能选择多少数 ...

怎么个选择法???

用鼠标来选择??  这样的话,选择以后,在状态栏就有你要的显示