![]() |
#2
wufuzhang2019-07-25 13:48
|
Sub 向A1输入china()
Range("a1").Select
Application.SendKeys "china~"
End Sub
运行效果:
只有本站会员才能查看附件,请 登录
我想移植到VB中去:
代码改为:
Private Sub Command1_Click()
XlSheet.Range("a1").Select
'XlApp.Application.SendKeys "China~"
XlSheet.Application.SendKeys "China!~"
End Sub
确不好使,china写到VB代码界面了,效果如图:
只有本站会员才能查看附件,请 登录
请教高手,怎么才能达到那个效果呢?谢谢!