Tag: inputbox

InputBox：只允许一定范围的值: 我想限制用户可以input的可接受值的范围。例如，我只想让0-100，如果他们input超过100，那么自动input默认值（如10）和创build一个popup消息，指出应用了默认值。以下是我到目前为止： Dim CO2PriceBox As Variant CO2PriceBox = InputBox("Please Enter CO2 Allowance Price ($/ton)", "Enter CO2 Allowance Price", 0) Range("C11").Value = CO2PriceBox

插入input框使代码更具交互性: 我目前正在研究下面的代码，它是通过Excel工作簿中的所有选项卡进行search，select定义的列“J”中的某个阈值以上的所有货币，如果符合条件，则包含更大阈值货币的行被粘贴一个名为“摘要”的新build标签。现在我的问题是：1.有没有机会使这个代码更具互动性？我想要做的是添加一个input框，用户input他的阈值（在我的例子1000000），这个阈值是用来循环所有标签。 2.得到一个像“select column contains currency”这样的input框会很棒，因为列J将不会被全部设置，也可能是另一个列（“I”，“M”等）那么所有的床单都是一样的。 3.是否有机会select工作簿中的某些工作表（STRG +“sheetx”“sheety”等），然后将其粘贴到我的循环中而忽略所有其他工作表？任何帮助，特别是对于问题1和问题2中的问题，我感激不尽。问题3只会是一件“好事”的事情 Option Explicit Sub Test() Dim WS As Worksheet Set WS = Sheets.Add WS.Name = "Summary" Dim i As Long, j As Long, lastRow As Long Dim sh As Worksheet With Sheets("Summary") .Cells.Clear End With j = 2 For Each sh In ActiveWorkbook.Sheets If sh.Name […]

从另一个工作簿VLOOKUP，但错误#value: 我从用户input，并使用这个input，我从另一个工作簿使用vlookup.However但我无法得到正确的价值，总是#value错误 Option Explicit Sub SıraNo() Dim ResimNo As Long Dim Calc As Integer Dim p As Integer Dim k As Integer Dim n As Integer Dim strVariable As Integer Dim wa As Workbook Dim twb As Workbook Set twb = ThisWorkbook Dim j As Integer Range("A2", Range("A2").End(xlDown)).Select Do If ActiveCell.Value = "" Then Exit Do […]

VBA – 使用InputBox的负数偶数: 我很新的VBA，我希望如果有人能帮助我这个：我必须编写一个要求用户使用input框input负偶数的下属。子程序还需要将99和input的数字之间的所有偶数和，并将结果显示在消息框中。它还必须包括validation初始input数字为负数的错误检查，如偶数和整数。这是我想出来的，但它似乎并没有正常工作： Option Explicit Sub NegativeEvenIneteger() Dim Sum As Double Dim NumberInput As Integer Dim x As Double NumberInput = InputBox("Please Enter a Negative Even Integer") If NumberInput >= 0 Then MsgBox ("ERROR, Input number must be Negative") If NumberInput Mod 2 = 0 Then MsgBox ("ERROR, Input number must be Even") […]

VBA Inbut框与循环: 我刚刚开始学习VBA（和一般编码），我面临的问题，我还没有find一个解决scheme。我想创build一个循环的input框，以便input框的输出将被打印到单独的单元格。例如，我想在input框中input数字“5”，输出将打印到单元格“A1”，而下一个input，比如说数字“9”将打印到单元格“A2”。到目前为止，我已经设法做到这一点，一切工作正常，除了最后一行，因为我不知道如何从这里继续。 Private Sub CommandButton1_Click() Dim myValue As Variant myValue = InputBox("Please insert number") Range("A1").Select ActiveCell.Value = myValue Range(ActiveCell) = Range(ActiveCell) + 1 End Sub 所有的帮助表示赞赏

excel vba：检查input框中的负数: 我正在使用一个input框从用户获取一个数字。我想避免不被允许的input和卡住负数。应该处理的唯一input是1到500之间的整数。我不明白为什么-1仍然被触发。这是我的代码到目前为止： LBefore = InputBox("lines?", "", ">>> insert number <<<", 11660, 9540) Select Case StrPtr(LBefore) Case 0 'Cancel pressed Exit Sub Case Else If (LBefore <> "") Then 'Check for numeretical value If IsNumeric(LBefore) Then cijfer = Abs(CByte(LBefore)) 'Check to see if value is in allowed range If (cijfer >= 1) And (cijfer […]

VBA InputBox运行错误（错误的variablestypes）重新运行InputBox: 嘿，伙计们，我要写我在VBA的第一个基本步骤，我遇到了以下问题。 Test1: qm = InputBox("Wie viele Quadrat Meter hat die Wohnung?" & vbLf & "Bitte geben sie die QM Zahl an.", Angabe) If IsError(qm) Then GoTo Test1 qm被定义为一个Integer ，= 0，下面有一个Select Case mutilple选项，它将qm从1-600改为一个数字。当InputBox运行时，我input一个像“嘿家伙”的Word，Excel给了我错误13（运行时错误13'：types错配）。我的目标是在崩溃时重新运行InputBox，并给用户一个新的机会给一个数字正确的input。（就像它崩溃，你会得到一个msgbox它说：“对不起你的input不可用，请重试”，它会跳回到味精框）我试图find堆栈溢出的适合的解释和谷歌search，但无法find解决scheme相同的问题。如果你能帮我解决问题，或者给我一个合适的解释，我会非常感激。

Excelinput框在input后重新打开: 在Excel中使用application.inputbox在单元格中保存date的macros。 inputdate后，格式正确的date出现在单元格中，然后input框再次打开。它似乎卡在这个怪异的循环。无论我input多less次，它都会再次提问。这是这段代码： Function freshSTART() redBOX.Cells(1).Value = Application.InputBox(prompt:="Enter todays date: ", Title:="TODAY'S DATE", Type:=1) redBOX.Cells(2).Value = Application.InputBox(prompt:="Enter customer's name: ", Title:="CUSTOMER NAME", Type:=2) redBOX.Cells(3).Value = Application.InputBox(prompt:="Enter travel out date: ", Title:="TRAVEL OUT DATE", Type:=1) redBOX.Cells(4).Value = Application.InputBox(prompt:="Enter travel back date: ", Title:="TRAVEL BACK DATE", Type:=1) redBOX.Cells(5).Value = Application.InputBox(prompt:="Enter number of technicians: ", Title:="TECHNICIANS", […]

复制范围由input框指示: 我正在寻找一种模式，可以复制Excel表格中的特定范围到新的表格。目前我有五列。第一列是一年。我想指出，例如一个inputinputbox应该复制哪一年。在B栏中，显示了一年中的几周。在列C到E，logging特定的数据。结果，我的工作表看起来像这样： Col A Col B Col C Col D ColE Year Week Amount time forecast 2000 1 368 2000w1 400 2000 2 8646 2000w2 8500 until… 2014 52 46546 2014w52 47000 在input框中，我想指出2014年应该复制到下一张表格。直到现在我写/编译了下面这个macros： Sub Copy_year() Dim Forecastyear As String Dim Rng As Range Forecastyear = InputBox("Enter a year to […]

如果在InputBox中按下取消，跳到下一步: 我目前正在运行一个macros，其input框代码如下所示： ActiveCell.Value = InputBox(Prompt:="Please enter the sample name", Title:="Sample name") 这对我在ActiveCell中没有任何文本的情况非常有用，但是如果已经有了文本，它会清除文本，如果我点击取消。我该如何改变这一点，如果我在这一步取消了取消，那么它会跳到下一步，而不是改变已经在单元格中的内容？我不希望它结束子，我只是想要它跳到代码中的下一行。感谢您的帮助。