[發問] 增加dde來源 問題

susamws

各位前輩您們好
首先先感謝沙大分享的文章與參考. 才有進一步的瞭解
問題：由於sheet1 有A1 dde來源, 想再增加別的來源至B2 C2..... 並同樣複製到sheet2 C, D裡面
請問前輩們 該語法該怎麼下呢？ 試了很多寫法都錯誤...
如下藍色碼：

Option Explicit
Const CTIME As String = "0:0:3"
Private nextruntime As Date
Private timerisrunning As Boolean

Sub Start_Timer()
    If Not timerisrunning Then
        nextruntime = Now() + TimeValue(CTIME)
        timerisrunning = True
        Application.OnTime EarliestTime:=nextruntime, _
            Procedure:="GetData", Schedule:=True
    End If
End Sub

Private Sub GetData()
    Dim rng As Range
    Set rng = Sheets("Sheet2").Range("B65536").End(xlUp).Offset(1, 0)
    rng = Sheets("Sheet1").Range("A1")
    rng.Offset(0, -1) = Time
    timerisrunning = False
    Start_Timer
End Sub


Sub Stop_Timer()
    If timerisrunning Then
    Application.OnTime EarliestTime:=nextruntime, _
        Procedure:="GetData", Schedule:=False
    timerisrunning = Not timerisrunning
    End If
End Sub

Private Sub auto_close()
    Stop_Timer
End Sub

沙拉油

下載 (33.94 KB)

2010-12-7 16:19

像上圖這樣嗎？
把你上圖貼的程式碼，這部分

1.     Set rng = Sheets("Sheet2").Range("B65536").End(xlUp).Offset(1, 0)
   
2.     rng = Sheets("Sheet1").Range("A1")
   
3.     rng.Offset(0, -1) = Time

複製代碼

改成底下這樣試試看

1.     Set rng = Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0).Resize(1, 4)
   
2.     With Sheets("Sheet1")
   
3.       rng = Array(Time, .[A1], .[B2], .[C2])
   
4.     End With

複製代碼