怎样使用VBA利用名称动态求和?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address="$E$2" Then
 ActiveWorkbook.Names.Add Name:="语文", RefersToR1C1:="=Sheet1!" &
      Range([b2], Range("b1048576").End(xlUp)).Address(, , xlR1C1)
 ActiveWorkbook.Names.Add Name:="数学", RefersToR1C1:="=Sheet1!" &
      Range([c2], Range("c1048576").End(xlUp)).Address(, , xlR1C1)
 ActiveWorkbook.Names.Add Name:="地理", RefersToR1C1:="=Sheet1!" &
      Range([d2], Range("d1048576").End(xlUp)).Address(, , xlR1C1)
MsgBox Target & "合计为：" & WorksheetFunction.Sum(Range(Target.Text))
End If
End Sub

5、在单元格E2下拉框中选择一个求和项目，程序将弹出该项目的汇总数据