Application.InputBox 预先选择意外的默认范围

excel

使用 Application.InputBox 预先选择意外的默认范围

在 excel VBA 中，我们经常需要与用户进行交互，以获取输入或提供信息。其中一个常见的交互方式是使用 Application.InputBox 函数，它可以显示一个输入框，允许用户输入数据。通常情况下，我们可以指定输入框的默认值，以便用户可以直接使用或修改。然而，有时候我们希望预先选择一个意外的默认范围，即限制用户的输入范围，以确保输入的有效性。下面我们将介绍如何在 Application.InputBox 中实现这个功能。

首先，让我们看一个简单的示例。假设我们要求用户输入一个整数，并将其加倍输出。我们可以使用 Application.InputBox 函数来获取用户的输入，并使用 InputBox 函数的 Type 参数指定输入框的类型为整数。此外，我们可以使用 Default 参数设置默认值为 0。这样用户在打开输入框时，会看到默认值为 0，可以直接修改为其他整数。

VBA
Sub DoubleInput()
    Dim inputVal As Integer
    inputVal = Application.InputBox("请输入一个整数：", "输入框示例", Type:=1, Default:=0)
    MsgBox "加倍后的结果为：" & inputVal * 2
End Sub

以上代码中，用户打开输入框后可以看到默认值为 0，然后可以直接修改为其他整数。这种方式非常方便，但有时候我们希望用户只能输入特定范围内的数值，以确保数据的有效性。在这种情况下，我们可以使用 Application.InputBox 的 Formula 参数来限制输入的范围。

接下来，让我们看一个更复杂的示例。假设我们要求用户输入一个介于 1 和 100 之间的整数，并将其加倍输出。我们可以使用 Application.InputBox 函数，并在 Formula 参数中指定输入值必须大于等于 1，小于等于 100。这样，用户在打开输入框时，会看到默认值为 1，且无法修改为小于 1 或大于 100 的值。

VBA
Sub DoubleInputInRange()
    Dim inputVal As Integer
    inputVal = Application.InputBox("请输入一个介于 1 和 100 之间的整数：", "输入框示例", Type:=1, Formula1:=">=1", Formula2:="<=100")</p>    MsgBox "加倍后的结果为：" & inputVal * 2
End Sub

以上代码中，我们使用 Formula1 参数指定输入值必须大于等于 1，使用 Formula2 参数指定输入值必须小于等于 100。这样，用户在打开输入框时，可以看到默认值为 1，并且无法修改为小于 1 或大于 100 的值。如果用户尝试输入不在指定范围内的值，excel 会弹出一个警告框，提示用户输入无效。

添加意外的默认范围

有时候，我们希望预先选择一个意外的默认范围，即限制用户的输入范围，并将超出范围的输入视为无效。要实现这个功能，我们可以在 Application.InputBox 的 Formula 参数中使用 AND 函数来设置多个条件。

下面是一个示例，假设我们要求用户输入一个介于 1 和 100 之间的奇数，并将其加倍输出。我们可以使用 Application.InputBox 函数，并在 Formula 参数中使用 AND 函数来设置输入值必须大于等于 1，小于等于 100，且为奇数。这样，用户在打开输入框时，会看到默认值为 1，并且无法修改为小于 1、大于 100 或非奇数的值。

VBA
Sub DoubleOddInputInRange()
    Dim inputVal As Integer
    inputVal = Application.InputBox("请输入一个介于 1 和 100 之间的奇数：", "输入框示例", Type:=1, Formula1:=">=1", Formula2:="<=100", _</p>        Default:=1, Formula3:="=AND(MOD(VALUE,2)=1,VALUE>=1,VALUE<=100)")</p>    MsgBox "加倍后的结果为：" & inputVal * 2
End Sub

以上代码中，我们使用 Formula3 参数来设置多个条件。通过使用 MOD 函数和 VALUE 函数，我们可以判断输入值是否为奇数。这样，用户在打开输入框时，可以看到默认值为 1，并且无法修改为小于 1、大于 100 或非奇数的值。如果用户尝试输入不在指定范围内或非奇数的值，excel 会弹出一个警告框，提示用户输入无效。

通过使用 Application.InputBox 函数的 Formula 参数，我们可以预先选择一个意外的默认范围，即限制用户的输入范围，以确保输入的有效性。无论是简单的范围限制，还是复杂的条件限制，都可以通过适当设置 Formula 参数来实现。这样，我们可以更好地与用户进行交互，并确保输入的数据符合我们的要求。