SENDKEYS與DOEVENTS

znjxxcxl · 发表于 2010-3-9 11:58

這兩個東西有何關聯咧？單獨用SENDKEYS的時候都不成功，加入DOEVENTS就OK了。
以下代碼運行失敗，sendkeys無作用：
      Range("G1").Select
  Application.SendKeys "{DOWN}", True
ActiveCell.FormulaR1C1 = "+VLOOKUP(RC[-1],'BOM-LXM'!C[-1]:C[14],16,0)"
   Range("f1").Select
Application.SendKeys "^{DOWN}", True
Application.SendKeys "{RIGHT}", True
Application.SendKeys "^+{UP}", True
Application.SendKeys "^{D}", True
      Range("H1").Select
  Application.SendKeys "{DOWN}", True
ActiveCell.FormulaR1C1 = "+VLOOKUP(RC[-1],'BOM-LXM'!C[-1]:C[14],16,0)"
   Range("f1").Select
Application.SendKeys "^{DOWN}", True
Application.SendKeys "{RIGHT 2}", True
Application.SendKeys "^+{UP}", True
Application.SendKeys "^{D}", True

以下代碼運行成功，sendkeys有效：
Range("G1").Select
  Application.SendKeys "{DOWN}", True
  DoEvents
ActiveCell.FormulaR1C1 = "+VLOOKUP(RC[-1],'BOM-LXM'!C[-1]:C[14],16,0)"
   Range("f1").Select
Application.SendKeys "^{DOWN}", True
      DoEvents
Application.SendKeys "{RIGHT}", True
      DoEvents
Application.SendKeys "^+{UP}", True
      DoEvents
Application.SendKeys "^d", True
DoEvents
      Range("H1").Select
  Application.SendKeys "{DOWN}", True
  DoEvents
ActiveCell.FormulaR1C1 = "+VLOOKUP(RC[-1],'BOM-LXM'!C[-1]:C[14],16,0)"
   Range("f1").Select
Application.SendKeys "^{DOWN}", True
      DoEvents
Application.SendKeys "{RIGHT 2}", True
      DoEvents
Application.SendKeys "^+{UP}", True
      DoEvents
Application.SendKeys "^d", True
DoEvents

只是這樣的代碼看起來太冗余了，請問要如何修正？謝謝。

lb_bn · 发表于 2010-3-9 12:17

doevents把运行权限让出来，就是去做其它的事。
在表里操作没必要这么写代码吧，建议楼主另寻他法。

kevinchengcw · 发表于 2010-3-9 12:22

上下左右动可以用offset来弄吧

znjxxcxl · 发表于 2010-3-9 13:09

在自動篩選出來的結果里面，OFFSET會不會跑錯行呢？

其他方法是有，但是我想試驗一下SENDKEYS，感覺如果運行OK的話，SENGKEYS
比較好用。

另外還有一個問題，在模塊里面運行OK了，可是在窗體里面還是不行……郁悶

znjxxcxl · 发表于 2010-3-9 13:20

自動篩選的結果用VBA處理起來感覺很麻煩啊……
比如要刪除篩選出來的結果，要如何做呢？

kevinchengcw · 发表于 2010-3-9 13:23

原帖由 znjxxcxl 于 2010-3-9 13:09 发表
在自動篩選出來的結果里面，OFFSET會不會跑錯行呢？

其他方法是有，但是我想試驗一下SENDKEYS，感覺如果運行OK的話，SENGKEYS
比較好用。

另外還有一個問題，在模塊里面運行OK了，可是在窗體里面還是不行…… ...

你如果用vba来完成工作就不需要用自动筛选了，毕竟筛选完后还是要手工进行操作，要达到的目的直接用VBA做出来就行了

znjxxcxl · 发表于 2010-3-9 13:26

Range("g1").Offset(1, 0).Activate
這樣OFFSET以后應該就是G2了呀，如果篩選出來的第二行其實是G5呢，似乎就不可行

znjxxcxl · 发表于 2010-3-9 13:28

原帖由 kevinchengcw 于 2010-3-9 13:23 发表

你如果用vba来完成工作就不需要用自动筛选了，毕竟筛选完后还是要手工进行操作，要达到的目的直接用VBA做出来就行了

說的是……不用自動篩選也可以完成，不過說起來SENDKEYS這個東西到底怎么用才比較合適呢？

kevinchengcw · 发表于 2010-3-9 13:45

原帖由 znjxxcxl 于 2010-3-9 13:28 发表

說的是……不用自動篩選也可以完成，不過說起來SENDKEYS這個東西到底怎么用才比較合適呢？

我个人的理解是当调用其他程序时发送程序中预设的快捷键来完成操作，这点有点像au3脚本

znjxxcxl · 发表于 2010-3-9 14:25

我之前有用SENDKEY調用過OUTLOOK，挺好用的，不知道為什么在EXCEL本身這么難用……

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

[求助] SENDKEYS與DOEVENTS