单元格自动求和

linxiaoyun 2018.1.24 16:08 71 0
分享高效 Excel应用

在Excel中,框选满是数据的单元格,会在状态栏中显示数量、平均值以及和等相关信息。

在政府投资项目管理过程中,编制年度计划最为繁琐的事情是核对已安排投资(累计支付),财政管理口的表格数据还停留在excel表格上,尚未与项目管理直接对接。这也是政府各个部门信息化程度不高,难以融通的典型。

项目计划如下

支付数据如下

通过excel开发工具,右击工作表,选择查看代码,添加如下函数:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    r = Target.Rows.Count
   
    rr = Target.Row
    
    MsgBox (Int(Application.Sum(Range(Cells(rr, Range("M1").Column), Cells(rr + r - 1, Range("T1").Column))) / 10000))
End Sub

rr为取得所选Range(可以是合并的单元格)的首行号,r为所选Range的所有行数,通过如下命令得出目标单元格区域:

(Cells(rr, Range("M1").Column), Cells(rr + r - 1, Range("T1").Column))

其中,取M列的列号,用如下命令:

Range("M1").Column

其他说明:除以10000,以万为单位,int函数进行截断取整,sum函数求和。

Last Modified·2018年1月24日 17:35

暂无评论

您尚未登录,请先才能评论。