1回答
我目前为InputBox做的是这样的：Dim Pass As String, OldPass As String, ws As Worksheet
Pass = Application.InputBox("Enter new password", Type:=2)
If Not Pass = vbNullStringws.Protect Password:=Pass, UserInterfaceOnly:
浏览 25提问于2017-08-01得票数 0
回答已采纳
2回答
首先，inputbox将要求用户输入一个值，然后在用户单击“确定”后提示第二个输入框。第二个输入框中的默认值将是第一个输入框中值右边的一个单元格的值。这就是我想要实现的，但是inputbox的问题是，“取消”按钮会抛出错误消息，或者不会以任何方式退出sub。
那么，在实现我的目标时，还有其他类似的方法吗？提前谢谢！
浏览 4提问于2013-04-22得票数 0
回答已采纳
如果您输入的数字不正确，则会弹出一个消息框，提示您重试或取消。如果你再次点击重试，它只是返回到第一个问题，而取消使inputbox = ""，然后继续退出sub，留下一个空单元格。但是，如果我输入一个数字，比如说33333，单击重试，现在输入22222 (这仍然是错误的)，然后这次单击取消，因为我想退出循环，它退出循环，但保留"22222“，而不是将单元格留空。Sub InputNum()
&#
浏览 67提问于2019-06-13得票数 0
回答已采纳
如果用户单击“取消”或关闭输入对话框而不是按“确定”，如何让程序知道停止。目前，用户可以按OK或Cancel，但程序仍在运行。str = InputBox(Prompt:="Enter Date MM/DD/YYY", _ Title:="Date Confirmation", Default:=Date)
浏览 19提问于2014-10-08得票数 37
回答已采纳
2回答
Sub CopyTemplate()
Dim rng As VariantDim tco As StringDim hi As String'Use the InputBox select row to insert copied cells'&
浏览 0提问于2015-12-12得票数 0
我从网站上找到了Macro的宏Dim search_string As String这是预期:我按下宏按钮，InputBox弹出，然后我键入关键字，它会自动打开Chrome搜索这些关键字。如果我错误地按下宏按钮，然后按“取消”或"X“关闭输入箱，Chrome将不会自动打开。
我在代码的中间添加了msg
浏览 1提问于2022-10-18得票数 -1
回答已采纳
我如何改变代码中的顺序，让它找到作业，然后如果offset(,4)中有成本中心值，它将提示另一个application.inputbox然后匹配特定的成本中心？我想我得走了Dim matched As Boolean
lJobCode = Applica
浏览 1提问于2019-07-22得票数 0
回答已采纳
当用户单击Inputbox下的“取消”按钮或“确定”按钮时，如何区分该操作。有两种情况：
cUsername = INPUTBOX("Username", "Please provide Login Name&qu
浏览 2提问于2017-11-13得票数 0
回答已采纳
但是，如果用户按“取消”，宏将在没有此信息的情况下执行，这会在数据中留下漏洞。这是我最好的猜测，但它并没有阻止用户取消并仍然执行： DoEvents
Loop
浏览 2提问于2017-07-19得票数 0
回答已采纳
6回答
我有以下代码：Set selectRange = Application.InputBox("Select your range", "Hello",, , , , , 8)如何避免此错误？
浏览 6提问于2013-10-26得票数 11
回答已采纳
我在我的Excel工作表上有一个命令按钮，它打开一个预加载了当前选定区域的application.inputbox，并将该区域中单元格的内容附加到这些单元格的注释中。我使用if/else语句检查是否单击了Cancel按钮，但它没有退出sub；无论我单击OK还是cancel，代码都会运行。我认为要么是取消按钮没有返回'false‘，要么是我的if语句被破坏了。代码如下：'This Sub</em
浏览 4提问于2015-08-04得票数 2
下面的代码复制主工作表并使用Application.Inputbox重命名它。checks duplicate names
Do While sName <> wks.Name wks.Name = sName Loop这可以正常工作，除非用户单击“取消用户不输入任何内容，然后单
浏览 1提问于2018-03-02得票数 1
回答已采纳
2回答
我遇到麻烦的地方是“取消”按钮。在任何时候，我希望用户能够点击“取消”并立即停止循环，但留在子中，因为我将在后面添加。As IntegerinputName = InputBox", vbOKCancel) Exit Do inputN
浏览 3提问于2014-06-26得票数 1
回答已采纳
如果Copier例程退出，我希望整个Private Sub退出。因此，永远不会调用DoDays例程。Sub Copier()Dim z As IntegerIf x = "", vbOKOnly + vbInformation, _
浏览 17提问于2017-08-31得票数 0
如何从InputBox实现“计数”？ Dim Prompt As String Dim DefValue AsCaption = "Tell me…" Sheets.Add(After:=Temp,Count:=NumSheets)
End Su
浏览 1提问于2018-09-14得票数 1
回答已采纳
如果用户在任何输入框中按下取消按钮，我希望能够退出。代码是：Dim a, b, c, d As IntegerDim a1, b1, c1, d1As Stringb = InputBox("Enter Denominator 1")
c = InputBox("
浏览 0提问于2012-01-01得票数 4
回答已采纳
我已经创建了一个按钮来移动带有以下代码的其他活页； myShts = ActiveWorkbook.Sheets.Count& " - " & ActiveWorkbook.Sheets(i).Name & " " & vbCr Dim mySht As Single
mySht = InputBox("Select Sheet to go to." &
浏览 2提问于2014-03-27得票数 0
回答已采纳
2回答
在我的代码中重要的部分：DoLoop 'do somethingEnd Sub
如果找到= true，则循环将停止并显示我的Inputbox (从循环
浏览 1提问于2013-11-26得票数 0
当用户单击InputBox窗体上的cancel时，我需要退出sub。另外，我需要InputBox来接受输入值。Dim UserCol As String If UserCol = False Then Exit Sub
' On cance
浏览 0提问于2013-08-02得票数 2
回答已采纳
2回答
在我的模块结束后不会关闭
、、、
("Please enter the station ID")'sDate = InputBox("Please enter START date in this format: 'yyyy-mm-dd'") sDate = Format(USGS.TextBox2Private <e
浏览 1提问于2017-05-04得票数 5
回答已采纳
云服务器
ICP备案
实时音视频
即时通信 IM
云直播
腾讯云开发者
