是否可以从同一用户表单上的命令按钮将文本输入到Excel用户表单中？

Question

我试图让excel userform看起来更像是一个独立的app而不是userform。我宁愿编写一个应用程序，但由于公司的IT规则不是一个选项。

见图片。是否可以使用附带的键盘上的命令按钮将数据输入到表单上的活动文本框中？

用户形象：

表格尚未编码。

谢谢

Answer 1

取决于您想要做什么。实际上，一旦您单击按钮在按钮上输入数据，文本框将不再处于活动状态。无论如何，如果你不需要activetextbox，而是另一个，你可以使用以下代码：

假设您有一个按钮btnOpenFile和一个标签lblInformation。 一旦你点击按钮，你想要在lblInformation中获得“ALE ALE”。

实现这一目标的最简单的代码可能就是这个：

Private Sub btnOpenFile_Click()

    me.lblInformation = "ALE ALE"

End Sub

将它放在UserForm中。

Answer 2

这样的话支持我的评论

Private tb As MSForms.TextBox

Private Sub CommandButton1_Click()
    tb.Value = tb.Value & CommandButton1.Caption
End Sub

Private Sub CommandButton2_Click()
    tb.Value = tb.Value & CommandButton2.Caption
End Sub

Private Sub CommandButton3_Click()
    tb.Value = tb.Value & CommandButton3.Caption
End Sub

Private Sub CommandButton4_Click()
    tb.Value = tb.Value & CommandButton4.Caption
End Sub

Private Sub TextBox1_Enter()
    Set tb = Me.TextBox1
End Sub

Private Sub TextBox2_Enter()
    Set tb = Me.TextBox2
End Sub