练习数组，为什么返回的是零呢，请大家帮忙。

numberwyh

小白学习数组，为什么返回的是零呢，请大家帮忙看看，谢谢。
Sub huizong()
Dim i, k
Dim str As Integer
Dim arr()

arr = Range("f1：p97")
str = Range("y4")
For i = 3 To 97
    If arr(i, 1) = srt Then
        k = k + arr(i, 5)
     End If
Next
Range("ac4") = k

End Sub

jiangxiaoyun

注意眼神，同时要学会用F8+本地窗口调试代码，if条件就从没成立过，k一直空白。
这些在本地窗口一清二楚。
说句不好听的，这些没必要发上来浪费彼此的时间。

jiangxiaoyun

一清二楚

numberwyh

jiangxiaoyun 发表于 2018-8-24 11:30
注意眼神，同时要学会用F8+本地窗口调试代码，if条件就从没成立过，k一直空白。
这些在本地窗口一清二 ...

谢谢您的指点，小白需要一个成长的过程，我们也在不断的更新和练习，也希望能快速成长起来，又学会一招。感谢。

numberwyh

jiangxiaoyun 发表于 2018-8-24 11:31
一清二楚

嗯嗯，正在学习中，能够帮忙找错十分感谢

microyip

最好在模块前面加声明变量需求

1. Option Explicit

复制代码

，这样有变量没声明或者写错了，都知道了

numberwyh

microyip 发表于 2018-8-24 12:55
最好在模块前面加声明变量需求，这样有变量没声明或者写错了，都知道了

嗯嗯，单独学习很枯燥，结合工作实例来练习感觉好多了，在一些细节上还是需要加强练习和学习。谢谢