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

wjt_1221 · 发表于 2020-2-22 03:40

本帖最后由 wjt_1221 于 2020-2-22 14:03 编辑

Sub tt()

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
运行到 .Label9.Caption = "正确" 显示引用无效

哪位老师给看看吧，我现在把附件传上

蓝桥玄霜 · 发表于 2020-2-22 09:25

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。

wjt_1221 · 发表于 2020-2-22 11:26

本帖最后由 wjt_1221 于 2020-2-22 14:05 编辑

蓝桥玄霜发表于 2020-2-22 09:25
没有附件不能测试代码。
建议上传Excel表格附件来说明问题。

附件已经上传了，请老师看看，谢谢啦

wjt_1221 · 发表于 2020-2-22 14:11

哪位老师帮忙看看，代码哪儿出错了。谢谢啦

shenjianrong163 · 发表于 2020-2-22 14:33

wjt_1221 发表于 2020-2-22 14:11
哪位老师帮忙看看，代码哪儿出错了。谢谢啦

改为这样：

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

复制代码

mmwwdd · 发表于 2020-2-22 14:41

Sub tt()

For i = 2 To 6
With Sheets("考试界面")
If Sheet3.Range("f" & i).Value = Sheet3.Range("g" & i).Value Then

.Label9.Caption = "正确"
Else
.Label9.Caption = "错误"
End If
End With
Next

End Sub

wjt_1221 · 发表于 2020-2-22 14:48

shenjianrong163 发表于 2020-2-22 14:33
改为这样：

If Sheet3.Range("f" & i).Value = Sheet3.Range("g" & i).Value Then
现在问题解决，但这句判断有问题，显示一直是错误，该怎么写呢。谢谢

零落0320 · 发表于 2020-2-22 15:02

本帖最后由零落0320 于 2020-2-22 15:12 编辑

。。。。。。

wjt_1221 · 发表于 2020-2-22 15:04

零落0320 发表于 2020-2-22 15:02
应该是大小写判断问题

不过选那个，都显示的是错误，应该是判断语句哪儿出问题了，但是不知道怎么改了

零落0320 · 发表于 2020-2-22 15:10

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

我下载了你的附件，运行正常呀

		自动登录	找回密码
密码			免费注册

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

最新热点 /1