|
楼主 |
发表于 2012-4-9 20:15
|
显示全部楼层
Sub 结算大表横向计算()
Dim i As Range
With ActiveSheet
Set i = ActiveSheet.Range("b65536").End(xlUp)
j = i.Row
For j = 8 To j
With Range("g8:g" & j)
.Formula = "=SUM(H8:L8)"
.Value = .Value '去公式
End With
With Range("f8:f" & j)
.Formula = "=SUM(G8,M8:P8,-S8,T8:U8)"
.Value = .Value '去公式
End With
With Range("w8:w" & j)
.Formula = "=SUM(V8+F8)"
.Value = .Value '去公式
End With
Range("f8:w" & j).NumberFormatLocal = "0"
.UsedRange.Borders.ColorIndex = 5
Next j
Set i = Nothing
End With
End Sub
'需要解决的问题1:仅第8行计算正确
'需要解决的问题2:Z列不等于下列内容的行,才赋值
'arr = Array(小计, 系统, 矿建, 土建, 安装, 设备, 其他, 总投资),
'If Z列<> = arr Then
|
|