是否可以通过同一个用户窗体上的commandbutton将文本输入到excel用户窗体中？

我试图让一个excel用户表单看起来像一个独立的应用程序比一个用户表单更像行为。我宁愿编写一个应用程序，但由于公司的IT规则，这不是一个选项。是否可以通过同一个用户窗体上的commandbutton将文本输入到excel用户窗体中？

查看图片。是否可以通过在包含的键盘上使用命令按钮将数据输入到窗体上的活动文本框中？

图片用户窗体：

形式尚未编码。

谢谢

2017-02-20 JohnD

的，你可以一个变量分配给他们入境，说'设置TB = me.textbox1'然后'tb.value = tb.value＆cmdButton9。 caption'在cmdButton9的点击事件上。通过事件沉没创建一个自定义按钮，将是一个更清洁的方法。 –

我不确定我是否理解在用户表单上使用“键盘按钮”输入数字与使其“行为更像独立应用程序”有关。作为一个用户，这会让我完全疯狂--10键比使用屏幕键盘更容易使用。为什么不只是将文本框中的输入限制为数字？ – Comintern

键盘按钮的原因是这将在Android平板电脑上。这是当前存在的文件的链接。 https://drive.google.com/file/d/0Bwdj1JR-uqVrR0NxSnpRemNURUk/view?usp=sharing 我实际上看着两种不同的方法。一个与用户窗体完全相同，另一个用户窗体只有一个小键盘，在“输入”表单上输入数据，然后通过vba将这些项目传输到“预计”表单。 – JohnD

根据你想要做什么。实际上，一旦你点击按钮在按钮上输入数据，文本框就不会再活动了。无论如何，如果你不需要activetextbox，但另一个，你可以使用下面的代码：

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

最简单的代码来实现这一目标大概是这样的一个：

Private Sub btnOpenFile_Click() 

    me.lblInformation = "ALE ALE" 

End Sub

把它放在里面用户窗体。

来源

2017-02-20 16:56:23 Vityata

像这样支持我的评论

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

来源

2017-02-20 17:02:44

是否可以通过同一个用户窗体上的commandbutton将文本输入到excel用户窗体中？

回答

相关问题