excel弹出输入值的对话框

Sub Macro1()

‘ Macro1 Macro


Dim jieguo As String, p As String, q As String
Dim c As Range
jieguo = Application.InputBox(prompt:=”请输入要查找的值:”, Title:=”查找”, Type:=2)

End Sub

 » 本站地址:http://www.gomoth.com

标签: