[已解决]关于range（）的问题

kevin_zkf

如果e列小于零，则为a：d列之和，否则为零
sub 求和()
dim i as integer
for i = 1 to 100
if range（"e"&i）<0 then
range（"e"&i）=range（"a"&i）+range（"b"&i）+range（"c"&i）+range（"d"&i）
else
range（"e"&i）=0
end if
next i
end sub
以上，如何把
range（"a"&i）+range（"b"&i）+range（"c"&i）+range（"d"&i）
整成Range(“A1:D1”)这种形式？

最佳答案

月排行榜 / 总排行榜

天马

2011-3-6 21:41

Sub 求和()
    Dim i As Integer, s As Integer, t As Integer

    For i = 1 To 100
        s = 0
        If Range("e" & i) < 0 Then
            'Range("e" & i) = Range("a" & i) + Range("b" & i) + Range("c" & i) + Range("d" & i)
            For t = 1 To 4
                s = Cells(i, t) + s
                Range("e" & i) = s
            Next t

        Else
            Range("e" & i) = 0
        End If
    Next i
End Sub

跳转到最佳答案楼层

mn860429

1. Sub 求和()
   
2.     Dim i As Integer
   
3.     For i = 1 To 12
   
4.         If Range("e" & i) < 0 Then
   
5.             Range("e" & i) = Application.WorksheetFunction.Sum(Range("a1:d1").Offset(i - 1))
   
6.         Else
   
7.             Range("e" & i) = 0
   
8.         End If
   
9.     Next i
   
10. End Sub

复制代码

天马

Range("e" & i) = Range("a" & i & ":d" & i)

天马

Sub 求和()
    Dim i As Integer, s As Integer, t As Integer

    For i = 1 To 100
        s = 0
        If Range("e" & i) < 0 Then
            'Range("e" & i) = Range("a" & i) + Range("b" & i) + Range("c" & i) + Range("d" & i)
            For t = 1 To 4
                s = Cells(i, t) + s
                Range("e" & i) = s
            Next t

        Else
            Range("e" & i) = 0
        End If
    Next i
End Sub

nickmemy

对VBA不懂

kevin_zkf

回复 天马 的帖子

谢谢！正是我想要的代码~
看来我对多变量的代码掌握还有待提高{:812:}

kevin_zkf

回复 mn860429 的帖子

谢谢啦，学习了。