帖子: 77
主題: 19
精華: 0
積分: 115
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2023-7-15

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-1-1 23:22 | 只看該作者

[發問] 請教製作上的可能性

dde鍵接放在B1儲存格內，按動按鈕後同時做到以下動作：

(1) B1內dde鍵接跳到D1繼續運作而B1保留前數值。(dde鍵接由B1跳到D1，再由D1跳到F1>H1)

(2) 由按動按鈕開始啟動定時執行模組選擇多個自訂時段重複(1)動作。

謝謝

樓主熱帖

kobo

小學生 Rank: 1

帖子: 37
主題: 0
精華: 0
積分: 41
點名: 0
作業系統: windows xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-5-7
最後登錄: 2018-2-10

2^#

發表於 2012-1-2 13:13 | 只看該作者

B1內dde鍵接跳到D1繼續運作而B1保留前數值
Range("D1").Formula=Range("B1").Formula 'B1內dde鍵接跳到D1繼續運作
Range("B1").Value=Range("B1").Value 'B1保留前數值

其他的問題看不懂
建議您上傳檔案,並將問題說清楚

TOP

笨小孩

中學生 Rank: 2

帖子: 77
主題: 19
精華: 0
積分: 115
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2023-7-15

3^#

發表於 2012-1-3 01:58 | 只看該作者

回復 2# kobo

auto copy.rar (14.63 KB)

按動按鈕把H欄內容複製到B欄，同時啟動定時執行模組於15分鐘把H欄內容複製到D欄，再過10分鐘把H欄內容複製到F欄。謝謝

TOP

笨小孩

中學生 Rank: 2

帖子: 77
主題: 19
精華: 0
積分: 115
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2023-7-15

4^#

發表於 2012-1-3 02:25 | 只看該作者

對不起大家！我的文件還沒完成的，我真的不懂怎樣把vb連在一起使用。

TOP

笨小孩

中學生 Rank: 2

帖子: 77
主題: 19
精華: 0
積分: 115
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2023-7-15

5^#

發表於 2012-1-3 10:24 | 只看該作者

回復 4# 笨小孩

auto copy.rar (14.82 KB)

笨笨製作又失敗了...

auto copy.rar (14.82 KB)

TOP

kobo

小學生 Rank: 1

帖子: 37
主題: 0
精華: 0
積分: 41
點名: 0
作業系統: windows xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-5-7
最後登錄: 2018-2-10

6^#

發表於 2012-1-3 10:26 | 只看該作者

很抱歉,由於權限不夠無法下載檔案來解答

啟動定時執行模組可用 OnTime 的方法來解決
討論版上有,您可以搜搜看
------------------------
以下是vba說明檔的範例
本範例設定 15 秒後執行 my_Procedure 程序，從現在開始計時。
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

本範例設定 my_Procedure 在下午 5 點開始執行。
Application.OnTime TimeValue("17:00:00"), "my_Procedure"

本範例取消前一個範例對 OnTime 的設定。
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False

TOP

笨小孩

中學生 Rank: 2

帖子: 77
主題: 19
精華: 0
積分: 115
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2023-7-15

7^#

發表於 2012-1-3 10:45 | 只看該作者

回復 6# kobo

我也讓沒有權限下載的同學門看看笨笨失敗製作吧！我是知道只按一次按鈕，就可以完成整個過程的。

Sub 按鈕0_Click()

Application.OnTime Now + TimeValue("00:00:05"), "按鈕1_Click()"

Application.Calculation = xlCalculationManual

For i = 2 To 11

      Cells(i, "B").Value = Cells(i, "H").Value

Next i

Application.Calculation = xlCalculationAutomatic

End Sub

Sub 按鈕1_Click()

Application.OnTime Now + TimeValue("00:00:05"), "按鈕2_Click()"

Application.Calculation = xlCalculationManual

For i = 2 To 11

      Cells(i, "D").Value = Cells(i, "H").Value

Next i

Application.Calculation = xlCalculationAutomatic

End Sub

Sub 按鈕2_Click()

Application.Calculation = xlCalculationManual

For i = 2 To 11

      Cells(i, "F").Value = Cells(i, "H").Value

Next i

Application.Calculation = xlCalculationAutomatic

End Sub

TOP

kobo

小學生 Rank: 1

帖子: 37
主題: 0
精華: 0
積分: 41
點名: 0
作業系統: windows xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-5-7
最後登錄: 2018-2-10

8^#

發表於 2012-1-3 14:43 | 只看該作者

本帖最後由 kobo 於 2012-1-3 14:45 編輯

將
Application.OnTime Now + TimeValue("00:00:05"), "按鈕1_Click()"
改成
Application.OnTime Now + TimeValue("00:00:05"), "按鈕1_Click"
把()刪除
另一段也是

TOP

笨小孩

中學生 Rank: 2

帖子: 77
主題: 19
精華: 0
積分: 115
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2023-7-15

9^#

發表於 2012-1-3 23:44 | 只看該作者

回復 8# kobo

謝謝kobo提點，成功了。

TOP