返回列表下一主題上一主題發帖

[發問] 增加dde來源問題

susamws

中學生 Rank: 2

帖子: 2
主題: 2
精華: 0
積分: 84
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-9-3
最後登錄: 2011-8-22

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-9-3 16:13 | 只看該作者

[發問] 增加dde來源問題

本帖最後由 susamws 於 2010-9-3 16:49 編輯

各位前輩您們好

首先先感謝沙大分享的文章與參考. 才有進一步的瞭解
問題：由於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