Application.Inputbox [LEFT] 和 [TOP] 在 Excel Vba 中不起作用。为什么

excel

使用 Application.InputBox 函数来获取用户输入是 excel VBA 中常见的操作之一。然而，有时候我们可能会遇到一个问题，即在使用 [LEFT] 和 [TOP] 参数时，它们似乎不起作用。这是为什么呢？让我们来探讨一下。

首先，让我们了解一下 Application.InputBox 函数的基本用法。这个函数用于显示一个对话框，提示用户输入一个值，并将该值返回给它所在的变量。这个函数有多个可选参数，其中包括 [LEFT] 和 [TOP]。这两个参数用于指定对话框的左上角相对于屏幕或父窗口的位置。

然而，尽管我们在代码中指定了 [LEFT] 和 [TOP] 的值，但它们似乎不会影响对话框的位置。这是因为 [LEFT] 和 [TOP] 参数只对以 VBApplicationModal 或 vbSystemModal 模式显示的对话框起作用。如果我们在代码中没有指定模式，默认情况下对话框将以 VBApplicationModal 模式显示。

在这种情况下，[LEFT] 和 [TOP] 参数将被忽略，对话框将根据操作系统和 excel 的默认设置进行定位。这解释了为什么我们在代码中使用 [LEFT] 和 [TOP] 参数时看不到任何效果。

那么，如何解决这个问题呢？一种方法是显式地指定对话框的模式为 vbSystemModal，而不是使用默认的 VBApplicationModal。这样，[LEFT] 和 [TOP] 参数就会生效，并且对话框将按照我们的要求进行定位。

下面是一个示例代码，演示了如何在使用 Application.InputBox 函数时指定模式为 vbSystemModal，并设置 [LEFT] 和 [TOP] 参数的值：

VBA
Sub ShowInputBox()
    Dim userInput As Variant
    Dim leftPos As Integer
    Dim tOPPOs As Integer
    
    leftPos = 100
    tOPPOs = 100
    
    userInput = Application.InputBox(Prompt:="请输入一个值：", Title:="用户输入", Default:="", Type:=1, _
                                     Left:=leftPos, Top:=tOPPOs, HelpFile:=vbNullString, _
                                     HelpContextID:=vbNullString, _
                                     DisplayHelpButton:=False)
                                     
    MsgBox "您输入的值是：" & userInput
End Sub

在上面的代码中，我们通过将 Type 参数设置为 1，来指定对话框的类型为文本输入框。然后，我们将 [LEFT] 和 [TOP] 参数设置为我们想要的位置。最后，我们使用 MsgBox 函数显示用户输入的值。

通过将模式设置为 vbSystemModal 并指定 [LEFT] 和 [TOP] 的值，我们可以确保对话框在我们希望的位置显示。这样，我们就能够更好地控制用户界面，提供更好的用户体验。

：

在 excel VBA 中，使用 Application.InputBox 函数获取用户输入是一种常见的操作。然而，当我们使用 [LEFT] 和 [TOP] 参数时，它们似乎不起作用。这是因为这些参数只在以 vbSystemModal 模式显示对话框时才生效。通过显式地指定模式为 vbSystemModal，并设置 [LEFT] 和 [TOP] 的值，我们可以解决这个问题，并更好地控制对话框的位置。

希望这篇文章对你理解 excel VBA 中的 Application.InputBox 函数有所帮助。如果你在使用该函数时遇到类似的问题，记得尝试显式地指定模式为 vbSystemModal，并设置 [LEFT] 和 [TOP] 的值。这样，你就能更好地控制对话框的位置，提供更好的用户体验。