[已解决]批注中的数据求和怎样实现

gao1981

有样本，详细问题也在里面有表述

最佳答案

月排行榜 / 总排行榜

suye1010

2012-11-22 14:27

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. On Error Resume Next
   
3. Dim ac, CSum
   
4.     If Target.Row > 1 And Target.Column = 15 And Not Target.Comment Is Nothing Then
   
5.         For Each ac In Split(Target.Comment.Text, Chr(10))
   
6.            If ac <> "" Then CSum = CSum + Val(Split(ac, "日 ")(1))
   
7.         Next
   
8.         Target = CSum
   
9.     End If
   
10. End Sub

复制代码

跳转到最佳答案楼层

suye1010

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. On Error Resume Next
   
3. Dim ac, CSum
   
4.     If Target.Row > 1 And Target.Column = 15 And Not Target.Comment Is Nothing Then
   
5.         For Each ac In Split(Target.Comment.Text, Chr(10))
   
6.            If ac <> "" Then CSum = CSum + Val(Split(ac, "日 ")(1))
   
7.         Next
   
8.         Target = CSum
   
9.     End If
   
10. End Sub

复制代码

gao1981

真的非常感谢版主，试了一下很好用，解了燃眉之急啊

czh6215260

请问楼上的，怎么操作？批注怎么求和？

czh6215260

楼上的和版主，请教怎么具体操作？

czh6215260

gao1981 发表于 2012-11-23 00:47
真的非常感谢版主，试了一下很好用，解了燃眉之急啊

您是怎么操作的？代码看不懂啊。求具体操作

cccilvia

suye1010 发表于 2012-11-22 14:27

帮忙解决个问题 您好  您在吗  请问能不能

avel

czh6215260 发表于 2013-7-18 09:25
楼上的和版主，请教怎么具体操作？

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     On Error Resume Next
   
3.     Dim a As Variant
   
4.     Dim i As Integer, x As Long
   
5.     With Target
   
6.         If Not .Comment Is Nothing Then
   
7.             a = Split(.Comment.Text, "kg")
   
8.             For i = 0 To UBound(a)
   
9.                 x = x + Val(Right$(Replace(a(i), " ", String(99, " ")), 99))
   
10.             Next
    
11.         End If
    
12.         If x > 0 Then .Value = x
    
13.     End With
    
14. End Sub

复制代码