excel vba 输入框 在sheet1中弹出对话框输入一个数，在sheet2中弹出一个对话框确认那个数，并返回一个值。

Question

在sheet1中弹出对话框输入一个数，输入确定后在sheet2中弹出一个对话框确认那个数，输入数后确认并返回一个值。

Answer 1

我的做法是,新建一个模块,在这个模块里声明一个公有变量如:
Public a As Integer
然后,在sheet1的Worksheet_Activate()事件里写上代码:
Private Sub Worksheet_Activate()
a = InputBox("mmmm")
Worksheets("sheet2").Select
End Sub
然后在sheet2的Worksheet_Activate()事件里写上代码:
Private Sub Worksheet_Activate()
If InputBox("nnnnnn") = a Then Range("a1").Value = a
End Sub
你参考一下吧

追问

看不怎么明白。有点深奥。能否解析下。 复制上去也运行不了，可能参数没改，改了也不行。

追答

见图