求助将伯恩斯抑郁表excel总和加起来，用vba做，求大神指点。。。。

Question

就统计个总分？
用excel 公式就可以了

Answer 1

用VBA代码肯定很容易搞定。也许用公式也行。
你把这个文档传上来看看啊。
可以发个到我的QQ邮箱，帐号：　Gem8013
@qq.com

Answer 2

http://download.csdn.net/download/u010810206/6378227
下载地址，求4楼大神做一下，用vba改写。谢谢

Answer 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ''确认变化的范围
    On Error Resume Next
    Dim iR As Long, iC As Long
    iR = Target.Row
    iC = Target.Column
    If iR > 3 And iR < 19 And iC > 1 And iC < 6 Then
        Range(Cells(iR, 2), Cells(iR, 5)).Font.Name = "Wingdings 2" ''确认字体
        Range(Cells(iR, 2), Cells(iR, 5)).FormulaR1C1 = "*" ''取消所有选中状态
        Target = "R" ''设置当前单元格为选中状态
        ''更新B19公式
        Range("b19").Formula = "=COUNTIF(C4:C18,""R"")+COUNTIF(D4:D18,""R"")*2+COUNTIF(E4:E18,""R"")*3"
    End If
End Sub

Answer 4

我的“帐号”后的，3个字母4个数字，加上域名后缀@qq.com，连起来不就是邮箱帐号了吗……
还看不懂……

Answer 5

我的“帐号”后的，3个字母4个数字，加上域名后缀@qq.com，连起来不就是邮箱帐号了吗……
还看不懂……不知道 On Error Resume Next 引发了多少“血案”………………

Answer 6

不知道 On Error Resume Next 引发了多少“血案”………………
我先点的是 9楼的引用啊，怎么引到我的回复了