请问这是什么原因，我按照其实很简单第2版弄的

xie1234567890 · 发表于 2018-7-13 17:25

按照《别怕，Excel VBA其实很简单》第2版，6.6.2 使用窗口录入数据结果提示“编译错误，子过程或函数未定义”

Private Sub CmdOk_Click()
Dim xrow As Long
xrow = rang("A1").CurrentRegion.Rows.Count + 1
Cells(xrow, "D").Value = 借阅人.Value
Cells(xrow, "A").Value = 文件扫码.Value
Cells(xrow, "B").Value = 文件名称.Value
借阅人.Value = ""
文件扫码.Value = ""
文件名称.Value = ""
End Sub

wangweihebtu · 发表于 2018-7-13 17:38

range，你写错了

lsc900707 · 发表于 2018-7-13 17:41

xrow = rang("A1").CurrentRegion.Rows.Count + 1
应为：
xrow = range("A1").CurrentRegion.Rows.Count + 1

xie1234567890 · 发表于 2018-7-13 21:26

lsc900707 发表于 2018-7-13 17:41
xrow = rang("A1").CurrentRegion.Rows.Count + 1
应为：
xrow = range("A1").CurrentRegion.Rows.Co ...

非常感谢您

xie1234567890 · 发表于 2018-7-13 21:26

wangweihebtu 发表于 2018-7-13 17:38
range，你写错了

非常感谢您

年轻人·老梦 · 发表于 2018-7-13 23:24

lsc900707 发表于 2018-7-13 17:41
xrow = rang("A1").CurrentRegion.Rows.Count + 1
应为：
xrow = range("A1").CurrentRegion.Rows.Co ...

大神，是否可以帮忙破解一下代码，附件已上传，谢谢

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

[已解决] 请问这是什么原因，我按照其实很简单第2版弄的