[已解决]求，SendKeys写单元格值

759857387 · 发表于 2012-11-8 08:51

如题，附件就不用上了吧。
求代码。

最佳答案

月排行榜 / 总排行榜

suye1010

2012-11-8 09:40

本帖最后由 suye1010 于 2012-11-8 09:43 编辑

Sub SendKeysInput()
Application.SendKeys "{F2}abc(^{ENTER})"
End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy · 发表于 2012-11-8 09:27

还没找到合适的方法，先坐等。

suye1010 · 发表于 2012-11-8 09:40

这个最佳答案由 suye1010 给出，感谢 suye1010 的回答。

单击隐藏图章

本帖最后由 suye1010 于 2012-11-8 09:43 编辑

Sub SendKeysInput()
Application.SendKeys "{F2}abc(^{ENTER})"
End Sub

复制代码

hwc2ycy · 发表于 2012-11-8 10:01

原来要这么样，还不能在VBE中F5。

qjsu · 发表于 2012-11-8 10:03

看不懂~~~~~~~~~~~~~~~~

759857387 · 发表于 2012-11-8 15:57

本帖最后由 suye1010 于 2012-11-8 20:01 编辑

suye1010 发表于 2012-11-8 09:40

哈哈，妙呀！
老师再帮助稍变化一下，用SendKeys将A1单元格ABC写入A2单元格，谢谢！
如果是要把A1的值追加到A2的内容中，可以不用Sendkeys的方式，直接 cell(2,1)=cells(2,1)&cells(1,1)

如果非要可以 application.sendkeys "{F2}" & cells(1,1).value & "(^{ENTER})"

		自动登录	找回密码
密码			注册