如何在excel vba中居中输入框答案

【问题标题】：How to center an input box in excel vba如何在excel vba中居中输入框
【发布时间】：2018-08-07 02:18:43
【问题描述】：

场景

我有一个输入框，使用下面的代码

total = Application.InputBox(prompt:="Please key in the total value", Title:="", Type:=2)

问题

输入框随机出现在屏幕的角落。

我需要什么

我需要这个输入框对齐到用户窗体或屏幕的中心。有人知道吗？

【问题讨论】：

Have you tried setting the Top and Left properties?
我没试过。但这是一种静态方法。如果屏幕大小等根据用户计算机发生变化，输入框的位置仍然会偏离。无论屏幕分辨率如何，我都需要输入框的位置始终以用户窗体或用户计算机屏幕为中心
您可以从Application.Top、Application.Height、Application.Width 和Application.Left 计算它。
@Comintern 好的。让我试试……
如果这不能回答您的问题，请告诉我，我会重新打开问题:)

标签： excel vba userform

【解决方案1】：

以上问题通过这种方式解决

total = Application.InputBox(prompt:="Please key in the total value", left:=(Application.Width / 2), top:=(Application.Height / 2), Title:="", Type:=2)

赋予left 和top 属性。通过获取Application.width 和Application.height 可以找到它。无论屏幕大小如何，将这些值除以 2 粗略地将输入框移动到中心

编辑 1

我认为问题解决了。但是当我使用不同的系统时，它并不稳定。所以希望有人可以帮助解决这个问题

【讨论】：