excel vba 无模式窗体 无法暂停进行数据输入

大家好，我想用鼠标将单元格值拾趣到窗体的textbox中，如图所示。但是程序一直运行不暂停窗体程序如下：Sub 提取单元格()完成1.Show 0End Subsheet下面程序如下：Private Sub Worksheet_SelectionChange(ByVal Target As Range)完成1.TextBox1 = Target.ValueEnd Sub“完成”命令按钮程序如下：Private Sub 确定1_Click()MsgBox "文字框里输入的内容是：" & TextBox1.ValueEnd Sub当前我的问题是：无模式窗体“完成1” 无法暂停和拾取数据，一直往后运行，我想达到的目的是：我用窗体“完成1“显示后，我用鼠标拾趣完了数据，点击”完成“按钮，再继续运行其他语句。求大师指点！！！！！！

给你个以前做的，在选定范围内生成指定区间的随机数。先选定范围，然后点按钮以你的截图确定按钮PrivateSubCommandButton1_Click()DimrnAsRange,a%,b%a=TextBox1.Valueb=TextBox2.ValueForEachrnInrange("d4:g12")rn.Value=(Rnd()*(b-a)+a)rn.NumberFormatLocal="0.000"NextUnloadMeEndSub取消按钮PrivateSubCommandButton2_Click()UnloadMeEndSub追问

你好，能给我截个图吗？
我对这个程序比较陌生，现在整个程序显示出来就是一句话，没有断开的地方，我不能使用。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f7fvmfvsfsvpvvv77s.html