求助各位老师，MsgBox三个按钮代码写法

7016427 · 发表于 2018-10-11 20:03

要求：核对正确，按第一个按钮时，sheet1.[a1]=1；核对张数错误，按第二个按钮时，sheet1.[a1]=2；核对金额错误，按第三个按钮时，sheet1.[a1]=3，请问老师代码怎么写？

李甲 · 发表于 2018-10-11 20:23

首先，用MSGBOX传值不现实
其次，计数规则是什么

7016427 · 发表于 2018-10-11 20:29

李甲发表于 2018-10-11 20:23
首先，用MSGBOX传值不现实
其次，计数规则是什么

我是按用户窗体数据进行核对，按插件按钮时，弹出以上选项。

山菊花 · 发表于 2018-10-11 22:33

Dim n%
n = MsgBox("核对是否正确？" & vbLf _
& "是 —— 核对正确" & vbLf _
& "否 —— 核对张数错误 " & vbLf _
& "取消 — 核对金额错误 ", 35, "核对")

Sheet1.[a1] = IIf(n = 6, 1, IIf(n = 7, 2, 3))

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

[求助] 求助各位老师，MsgBox三个按钮代码写法

评分