关于点击按钮后对指定工作簿中对应单元格赋值问题

warton01 · 发表于 2018-8-9 12:30

诉求：在点击按钮打印后，根据属性2标识的内容来判断是否要将数据库中属性2的内容变更为***，当在写完代码后发现出现错误91代码，寻找了一天的问题了，始终无法找到问题，恳请解答，谢谢！附件已上传

以下为模块1代码：
Sub 打印()
With Sheets("打印页面")
If Range("o6") = "" Then
MsgBox "序号不得为空，请返回填写！"
Else
Set Rng = Sheets("数据库").Columns(1).Find(.[o6], , , xlWhole)
If Range("o8") = "是" Then
.PrintOut
Sheets("数据库").Cells(Rng.Row, 6) = "***"
MsgBox "已打印，属性2内容已屏蔽！"
Else
.PrintOut
MsgBox "已打印！"
End If
End If
End With
End Sub

凌空一羽 · 发表于 2018-8-9 12:55

文档1.zip (31.55 KB, 下载次数: 14)

warton01 · 发表于 2018-8-9 13:53

感恩，已经可以正常运作了

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

[求助] 关于点击按钮后对指定工作簿中对应单元格赋值问题