Set r = Application.InputBox(prompt:="你的提示", Type:=8)请注意：这里用的是Excel的InputBox方法，而不是VBA的InputBox函数 。具体参数含义，自己看帮助吧。
