用制作好的小键盘，输入数字到TextBox1中

吴狄

x147856385 发表于 2018-10-13 11:13
只能用键盘输入到单元格，再显示在textbox1上吗？不能直接输入到Textbox1上吗

Private Sub 显示屏_Change()
On Error Resume Next
ActiveCell = 显示屏.Value  'ActiveCell返回一个 Range 对象，该对象代表活动窗口的活动单元格
End Sub
不要这一段

x147856385

吴狄 发表于 2018-10-16 20:50
Private Sub 显示屏_Change()
On Error Resume Next
ActiveCell = 显示屏.Value  'ActiveCell返回一个  ...

太厉害了，真的可以了。研究了很久，大神果然是不一样。
另外：如果能够不点确认按键，能够实时显示在textbox1中就好了，现在是需要点击确认后数据才会到textbox1中。

gjzjb5588

代码最后 处改一下就可以了：

Private Sub 显示屏_Change()
On Error Resume Next
ActiveCell = 显示屏.Value  'ActiveCell返回一个 Range 对象，该对象代表活动窗口的活动单元格

UserForm2.TextBox1.Value = 显示屏.Value  '加上这句 就是显示在textbox窗体 中

End Sub

rocklyman

gjzjb5588 发表于 2023-7-12 22:24
代码最后 处改一下就可以了：

Private Sub 显示屏_Change()

如果有两个以上的TextBox，共用一个小键盘，如何识别输入到不同的TextBox里呢？

gjzjb5588

rocklyman 发表于 2023-7-14 10:06
如果有两个以上的TextBox，共用一个小键盘，如何识别输入到不同的TextBox里呢？

我也刚学习，也不太会，我改一下，你看可以不。

gjzjb5588

我也刚学习，不太会，改了一下，我用你的程序用在我的上面，只要确定关闭窗口就会连同我的主窗口也一起关闭了，我也不知道怎么弄，程序如下，你看看。

rocklyman

gjzjb5588 发表于 2023-7-14 14:52
我也刚学习，不太会，改了一下，我用你的程序用在我的上面，只要确定关闭窗口就会连同我的主窗口也一起关闭 ...

研究了一下可以了，不能用显示屏change事件，在userform2里的每个textbox里调用userform1.show后面加个等于显示屏的值