dde 的問題，求救

lbt

小弟偶最近 在學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

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

ju1218

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

ju1218

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

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

lbt

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

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

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

Seer_et

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

Application.ScreenUpdating = False

rockwell

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

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


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

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

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

tigerssh

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

Private Sub TextBox2_Change()
        ar = Array([a2],[b2],[d2],[e2])
        [a32:e32].Insert Shift:=xlDown
        [a32].Resize(, 4) = ar
End Sub

r5888

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