土木在线论坛 \ 工程造价 \ 土建工程造价 \ 水利水电工程施工企业对上结算报表--Excel系统

水利水电工程施工企业对上结算报表--Excel系统

发布于:2007-10-24 13:59:24 来自:工程造价/土建工程造价 [复制转发]
做为一名水利水电施工企业经营管理人员,经常要处理大量工程数据。特别是对上结算报表的编制,要有本月、本年、自开工等等累计数据,处理起来很麻烦,因此想编一个结合实际、适用性比较的 EXCEL 模板,各位同行有什么好的建议和经验欢迎在此留言,共同编制,以提高业务水平!!

同时欢迎加入水利水电工程施工造价群,群号:1953174
以下链接是本人编制的某引水式发电站工程对上结算报表,利用函数编制。

http://co.163.com/forum/content/212_928531_1.htm

打开密码:1953174

以下附件是利用自定义函数编制的水利水电工程施工企业对上结算报表--Excel系统,主要是方便计算自开工、和自年初累计的计算,欢迎有共同爱好者探讨和学习!!

[ 本帖最后由 wxvtang 于 2008-9-13 10:46 编辑 ]

申明:内容来自用户上传,著作权归原作者所有,如涉及侵权问题,请点击此处联系,我们将及时处理!

全部回复(6 )

只看楼主 我来说两句
  • auwen
    auwen 沙发
    新来报道 看到这个怎么下载啊
    2009-05-09 17:47:09

    回复 举报
    赞同0
  • wxvtang
    wxvtang 板凳
    '***************************************
    '*                                     *
    '*     计算自开工至上月末累计完成累计数据的自定义函数         *
    '*                                     *
    '***************************************

    Public Function Kglj(Mou As Double, c As Range)

    Dim a As Double
    Dim b As Double
    a = c.Row
    b = c.Column
    Kglj = WorksheetFunction.Sum(Range(Cells(a, b), Cells(a, b - 1 + Mou)))

    End Function


    '***************************************
    '*                                     *
    '*           计算自年初累计数据的自定义函数           *
    '*                                     *
    '***************************************
    Public Function Nclj(Mou As Double, c As Range)

    Dim a As Double
    Dim b As Double
    a = c.Row
    b = c.Column

    Select Case Mou
    Case 1 To 12
    Nclj = WorksheetFunction.Sum(Range(Cells(a, b), Cells(a, b - 1 + Mou)))

    Case 13 To 24
    Nclj = WorksheetFunction.Sum(Range(Cells(a, b + 12), Cells(a, b - 1 + Mou)))

    Case 25 To 36
    Nclj = WorksheetFunction.Sum(Range(Cells(a, b + 24), Cells(a, b - 1 + Mou)))

    Case 37 To 48
    Nclj = WorksheetFunction.Sum(Range(Cells(a, b + 36), Cells(a, b - 1 + Mou)))

    Case 49 To 60
    Nclj = WorksheetFunction.Sum(Range(Cells(a, b + 48), Cells(a, b - 1 + Mou)))
    End Select

    End Function


    '***************************************
    '*                                     *
    '*             计算本月数据的自定义函数            *
    '*                                     *
    '***************************************
    Public Function Byue(Mou As Double, c As Range)

    Dim a As Double
    Dim b As Double
    a = c.Row
    b = c.Column
    Byue = Cells(a, b - 1 + Mou).Value

    End Function

    [ 本帖最后由 wxvtang 于 2008-9-13 10:52 编辑 ]
    2008-09-13 10:51:13

    回复 举报
    赞同0
加载更多
这个家伙什么也没有留下。。。

土建工程造价

返回版块

21.85 万条内容 · 623 人订阅

猜你喜欢

阅读下一篇

河北的市政工程用什么软件做预算呀?

河北的市政工程用什么软件做预算呀?

回帖成功

经验值 +10