lbt 發表於 13-4-8 17:25

dde 的問題，求救

小弟偶最近 在學vba，目前有個大問題

我sheet2，一直在儲存ticks的資料
可是我想用sheet3 或 開另一個xls，來練習寫vba。 (同一台pc)

可是 他一直給我跳到sheet2，請問我要如何才能正常使用sheet3來練習呢 ?
也就是說，希望這個檔案(sheet2)可以背景執行的意思啦

程式碼如下：
Private Sub TextBox2_Change()
            Sheet2.Select
            Range("A2:e2").Select
            Selection.Copy
            Range("A32:e32").Select
            Selection.Insert Shift:=xlDown
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
         ' Range("a3").Select
            Application.CutCopyMode = False

End Sub

搞了粉久 ><

mead 發表於 13-4-8 17:47

建議您到[麻辣家族論壇]問比較快:
http://forum.twbts.com/index.php

ju1218 發表於 13-4-8 18:14

這跟DDE沒關係吧.....!
這問題很難 而且是自找麻煩!
何不再買一台電腦 娛樂用呢????!!!
EXCEL 多工能力你確定 有這功能???


ju1218 發表於 13-4-8 18:17

另一種思考方法:A.安裝虛擬PC機! 在其上另開EXCEL!
                        B.安裝沙盤 !在其上另開EXCEL!

得有2套EXCEL開啟 才不容易干擾!

lbt 發表於 13-4-8 19:31

ju1218 發表於 13-4-8 18:14 static/image/common/back.gif
這跟DDE沒關係吧.....!
這問題很難 而且是自找麻煩!
何不再買一台電腦 娛樂用呢????!!!


因為 要省電啊，不是不蓋核四嗎 呵呵

啥原來excel 各sheets間沒多工 ?
這個意思是，我一次 只能用一個sheets嗎 ?不是連背景執行都不行吧 ><

Seer_et 發表於 13-4-8 22:06

你試試在程式碼首行用這:

Application.ScreenUpdating = False

rockwell 發表於 13-4-8 23:28

lbt大程式碼這樣寫，效率好像不是很好，

直接A2=A32、B2=B32這樣的寫法比較有效率。


而且lbt大會有這樣的問題，

應該也是因為有做到複製的動作，所以才會一直跳sheet2，

所以程式碼寫法改一下，應該就能解決又有效率。

tigerssh 發表於 13-4-9 07:51

lbt大，試試看以下的程式碼：

Private Sub TextBox2_Change()
      ar = Array(,,,)
      .Insert Shift:=xlDown
      .Resize(, 4) = ar
End Sub

r5888 發表於 13-4-9 21:54

本帖最後由 r5888 於 13-4-9 21:57 編輯

Private Sub TextBox2_Change()
            ' Sheet2.Select <- 這就是跳到sheet2的原因, 把select拿掉
            ' Range("A2:e2").Select
            ' Selection.Copy            ' 上面三行可改成一行
            Sheet2.Range("A2:e2").Copy

            ' Range("A32:e32").Select
            ' Selection.Insert Shift:=xlDown
            ' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            '上面三行可改成兩行

            Sheet2.Range("A32:e32").Insert Shift:=xlDown
            Sheet2.Range("A32:e32").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

            Application.CutCopyMode = False

End Sub

頁: [1]
查看完整版本: dde 的問題，求救