场景
我使用以下代码创建了一个输入框：
total = Application.InputBox(prompt:="Please key in the total value", Title:="", Type:=2)
问题
输入框随机出现在屏幕的角落。
我需要什么
我需要将此输入框对齐到用户表单或屏幕中央。有人有任何想法吗？
如何在Excel VBA中将输入框居中
3
- Anu
13
1你尝试设置“Top”和“Left”属性了吗？(https://msdn.microsoft.com/zh-cn/vba/excel-vba/articles/application-inputbox-method-excel) - Comintern
1你可以通过Application.Top、Application.Height、Application.Width和Application.Left进行计算。 - Comintern
@Comintern 好的，让我试试看... - Anu
如果这个回答没有解决你的问题，请告诉我，我会重新打开这个问题 :) - Siddharth Rout
@Comintern 谢谢。你的建议起作用了。我很快会发布我的答案。 - Anu
显示剩余8条评论
1个回答
3
问题已通过以下方式解决。
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：
我原以为问题已经解决了。但是当我在不同的系统上使用时，发现它并不稳定。所以希望有人可以帮忙解决。
- Anu
网页内容由stack overflow 提供, 点击上面的可以查看英文原文，
原文链接
原文链接