日记首页V1.0


	日记首页 \| 列表 \| 添加日记 \| 管理登陆


	标题：vba 求和 SUM

&nbsp;&nbsp;&nbsp;&nbsp; Cells(k, 10).Value = Application.WorksheetFunction.Sum(Range(Cells(k, 3), Cells(k, 8)))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '行汇总。10列的k行为统计k行3列到8列，求和。<hr>&nbsp;&nbsp;&nbsp;&nbsp; Cells(ii, j).Value = Application.WorksheetFunction.Sum(Range(Cells(2, j), Cells(iii, j)))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '列汇总。<hr>Sub 合计() &nbsp; Application.ScreenUpdating = False &nbsp;&nbsp;&nbsp;&nbsp; Sheet1.Activate &nbsp;&nbsp;&nbsp;&nbsp; Dim x As Long &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; x = Sheet1.Range("A65536").End(xlUp).Row + 1 &nbsp;&nbsp;&nbsp;&nbsp; Cells(x, 13).Value = "=SUM(c1:h1000）" &nbsp;&nbsp;&nbsp;&nbsp; Cells(x, 12).Value = "总计：" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'MsgBox "合计完成！" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(x, 12).Font.Color = vbRed&nbsp;&nbsp; '设置字体颜色 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(x, 12).Font.Bold = True&nbsp;&nbsp; '加粗字体 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(x, 13).Font.Color = vbRed&nbsp;&nbsp; '设置字体颜色 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(x, 13).Font.Bold = True&nbsp;&nbsp; '加粗字体&nbsp; Application.ScreenUpdating = True End SubSub 求和() Application.ScreenUpdating = False &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; k = Range("a65536").End(xlUp).Row()&nbsp;&nbsp;&nbsp;&nbsp; '定位到A列最后一行，iii &nbsp;&nbsp;&nbsp;&nbsp; Cells(k, 10).Value = Application.WorksheetFunction.Sum(Range(Cells(k, 3), Cells(k, 8)))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '行汇总 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(k, 10).Font.Color = vbRed&nbsp;&nbsp; '设置字体颜色 &nbsp; '&nbsp;&nbsp;&nbsp;&nbsp; Cells(k, 10).Font.Bold = True&nbsp;&nbsp; '加粗字体 Application.ScreenUpdating = True End Sub