SummerDawn

在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

单元格自动求和

评论列表