SENDKEYS與DOEVENTS

znjxxcxl

這兩個東西有何關聯咧？單獨用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

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

kevinchengcw

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

znjxxcxl

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

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

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

znjxxcxl

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

kevinchengcw

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

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

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

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

znjxxcxl

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

znjxxcxl

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


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

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

kevinchengcw

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



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

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

znjxxcxl

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