如何用vb实现一个弹出对话框？

Question

如题所述

Answer 1

32表示弹出的对话框上附带问号图标。

其它图标如下：

+0，或不加，表示弹出的对话框上不带图标，

+16，附带错误图标，需要向用户提示错误信息时使用，

+32，附带问号图标，需要向用户进行询问时可以使用，

+48，附带叹号图标，需要向用户提示注意或警惕信息时使用，

+64，附带信息图标，需要向用户弹出一些正常信息时使用。

代码如下：

Sub shishi()

Dim tf As Boolean

If Range("C1") = "马东锡" Then '如果C1的值="马东锡"

tf = True '作标记,true表示需要复制。

Else

If MsgBox("内容不一致，" & vbLf & "是否依然继续？", vbYesNo + 32) = vbYes Then

tf = True '作标记,true表示需要复制。

End If

End If

If tf Then

Range("C8:G8").Copy Range("A1") '复制C8:G8粘贴到A1

End If

End Sub