窗体输入

yy6831817

老师帮忙写一下代码 先谢过

WANT-T

请问，设计这个产品的初衷是照顾哪部分人群呢？

yy6831817

自己工作中常用到，为自己方便

tanglf188

使用SendKeys方法

yy6831817

老师，我自己能写也不用求助了

3190496160

这是个系统工程，工作量不小哟

yy6831817

3190496160 发表于 2024-6-17 10:13
这是个系统工程，工作量不小哟

代表写几个就行了，如1、2等相似的不用写了，右移，左移，退格，（）等写一下就行了

一指禅62

这个想法很有意思。

写一个类，就可以了。

LIUZHU

这是自己做的窗体吗？牛逼啊

3190496160

Private Sub CommandButton47_Click() '''光标左移
If ActiveCell.Column > 1 Then ActiveCell.Offset(, -1).Select
End Sub
Private Sub CommandButton48_Click() ''光标右移
ActiveCell.Offset(, 1).Select
End Sub
Private Sub CommandButton49_Click() '''退格
zd = ActiveCell.Value
If ActiveCell.Value <> "" Then
    ActiveCell.Value = Left(zd, Len(zd) - 1)
End If
End Sub
Private Sub CommandButton5_Click()
zd = Me.ActiveControl.Caption 'Name '''获取窗体中点击控件的Caption属性
If ActiveCell.Value = "" Then
    ActiveCell.Value = zd
Else
    ActiveCell.Value = ActiveCell.Value & zd
End If
End Sub