请教这段代码运行到tt模块 Label9.Caption显示引用无效是怎么回事

shenjianrong163

wjt_1221 发表于 2020-2-22 14:48
If Sheet3.Range("f" & i).Value = Sheet3.Range("g" & i).Value Then
现在问题解决，但这句判断有问题 ...

If Sheets("题目").Range("f" & i).Value = Sheets("题目").Range("g" & i).Value Then

wjt_1221

shenjianrong163 发表于 2020-2-22 16:34
If Sheets("题目").Range("f" & i).Value = Sheets("题目").Range("g" & i).Value Then

你好，为什么我改了还是一样的。选上正确或错误答案标签上都是显示的错误，语句判断的不对，

wjt_1221

零落0320 发表于 2020-2-22 15:10
我下载了你的附件，运行正常呀

运行正常，但是判断的不对，不知道该怎么弄了。标签上都是显示的错误，应该是选正确答案的时候显示正确，错误的时候才显示错误呀

excel海

你程序运行过程中都没调用tt过程,他当然就显示你手动运行的结果不会变

wjt_1221

excel海 发表于 2020-2-22 18:46
你程序运行过程中都没调用tt过程,他当然就显示你手动运行的结果不会变

Private Sub OptionButton1_Click()
Sheet3.Range("g" & Sheet2.SpinButton1.Value + 1) = "A"
Call tt
End Sub
点击选项的时候选择运行过程了，但显示的不对，一直都是错误

wjt_1221

Sub tt()
    With Sheet2
        For i = 2 To 6
            If Sheet3.Range("f" & i).Value = Sheet3.Range("g" & i).Value Then
                .Label9.Caption = "正确"
            Else
                .Label9.Caption = "错误"
            End If
        Next
    End With
End Sub

弄了半发现就是这个过程不对，但又不知道代码哪儿写的不对，点选的时候 .Label9.Caption 显示的结果一直是错误，应该选对正确答案的时候显示正确呀，为什么，那位老师给看看吧，谢谢了

excel海

1. 这样写
   
2. Sub tt()
   
3.     For i = 2 To 6
   
4.         If Sheet3.Range("f" & Sheet2.SpinButton1.Value + 1).Value = Sheet3.Range("g" & Sheet2.SpinButton1.Value + 1).Value Then
   
5.             Sheet2.Label9.Caption = "正确"
   
6.         Else
   
7.             Sheet2.Label9.Caption = "错误"
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码