如何解决如何在Excel中进行for循环?
我想知道您是否可以帮助我在Excel中进行循环?
我可以用Java或C来做,但是用Excel很难!!我看过一些入门教程,但是太复杂了!
S(i) and T(i) are to explain that I need to go from S3 to S32,and T3 to T32
{
INT C4 = Intro!B5
INT var = 0
FOR i = 3 to 32
IF S(i) = INTRO!A12 THEN
IF T(i) = 0 THEN
var = INTRO!B2
ELSE var = INTRO!B2 - T(i)
ENDIF
ELSE var = 0
ENDIF
C4 = C4 - var
i++
ENDFOR
}
这是我尝试过的方法,但是不起作用!
Sub title()
Dim i As Integer
Dim var As Integer
var.Value = 0
For i = 3 To 32
If Cells(4,3).Value = "C" Then
If Cells(i,19) = 0 Then
var = INTRO.Cells(2,2)
Else: var = INTRO.Cells(2,2) - Cells(i,20)
End If
Else: var = 0
Enf If
Cells(4,3) = Cells(4,3) - var
Next i
End Sub
解决方法
我基于您尝试的转换,有一些错误,但我想我已经全部清除了:
Sub title()
Dim i As Long,var As Long
var = 0
For i = 3 To 32
If Cells(4,3).Value = "C" Then
If Cells(i,19) = 0 Then
var = Sheets("INTRO").Cells(2,2).Value
Else
var = Sheets("INTRO").Cells(2,2).Value - Cells(i,20).Value
End If
Else
var = 0
End If
Cells(4,3) = Cells(4,3) - var
Next
End Sub
在VBA中,请使用Long而不是Integer并直接赋值,因为var = 0是变量而不是对象,所以var = 0而不是var.value = 0。
还有一个错字enf if
而不是end if
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。