VBA编程中问题

'代码不全
Dim x As Integer, y As Integer
    ReadJJ = False'要看一下ReadJJ的定义
    For x = 2 To Sheet5.UsedRange.Columns.Count'循环第二列开始所有有数据的列
        If Ra.Value = "SJ-V" Then 'SJ-V 型号I'ra也要看具体定义，此句是判断Ra是否为SJ-V，如果是继续下面判断
            If valP = Val(Sheet5.Cells(2, x)) And ValV = Val(Sheet5.Cells(3, x)) Then判断工作表sheet5的第二行是否等于valp 且  第三行是否等于VALV，如果是执行以下赋值
                jijia = Val(Sheet5.Cells(5, x)) '基价 
                cengcha = Val(Sheet5.Cells(6, x)) '层差
                chaogao = Val(Sheet5.Cells(7, x)) '超高
                ReadJJ = True
                Exit For'退出循环
            End If

Dim x As Integer, y As Integer '定义两个整形变量 x,y
ReadJJ = False '赋值给ReadJJ 假，以做判断。
For x = 2 To Sheet5.UsedRange.Columns.Count ‘从第二列开始，到所使用列的循环
If Ra.Value = "SJ-V" Then 'SJ-V 型号 '如果Ra变量的值为SJ-V，那么。。。
If valP = Val(Sheet5.Cells(2, x)) And ValV = Val(Sheet5.Cells(3, x)) Then ’如果vaIP值为sheet5工作薄的第二行，第x列单元格，并且vaIV为sheet5的第三行，第x列的值，
jijia = Val(Sheet5.Cells(5, x)) '基价 '将sheet5中第五行第x列值赋给jijia
cengcha = Val(Sheet5.Cells(6, x)) '层差 '将sheet5中第6行第x列值赋给cengcha
chaogao = Val(Sheet5.Cells(7, x)) '超高'将sheet5中第7行第x列值赋chaogao
ReadJJ = True '并标记ReadJJ为真，
Exit For '跳出循环
End If