帮忙看看这串代码有什么问题？感觉没问题，但运行提示我else没有if。

xqgg2007 · 发表于 2022-12-15 15:25

Sub 查询1()

Dim 寻找电影 As String
Dim 寻找位置 As Range

寻找电影 = InputBox("请输入你要寻找的电影")
Set 寻找位置 = Range("B3", Range("B3").End(xlDown)).Find(寻找电影)

If 寻找位置 Is Nothing Then MsgBox 寻找电影 & "找不到"
Else: MsgBox 寻找位置.Value & "所在的坐标在" & 寻找位置.Address
End If

End Sub

xqgg2007 · 发表于 2022-12-15 15:28

我怎么找不到我的贴子？

你地铁图 · 发表于 2022-12-15 19:50

then 后面的放到下一行

于箱长 · 发表于 2022-12-15 19:55

这句单起一行

xqgg2007 · 发表于 2022-12-16 12:18

谢谢，后来自己也试通了。

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

[求助] 帮忙看看这串代码有什么问题？感觉没问题，但运行提示我else没有if。