標題: [發問] 請教製作上的可能性 [打印本頁]

---

作者: 笨小孩    時間: 2012-1-1 23:22     標題: 請教製作上的可能性

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

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

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

謝謝

---

作者: kobo    時間: 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保留前數值

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

---

作者: 笨小孩    時間: 2012-1-3 01:58

回復 2# kobo


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

---

作者: 笨小孩    時間: 2012-1-3 02:25

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

---

作者: 笨小孩    時間: 2012-1-3 10:24

回復 4# 笨小孩


    [attach]9009[/attach]

笨笨製作又失敗了...

---

作者: kobo    時間: 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

---

作者: 笨小孩    時間: 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

---

作者: kobo    時間: 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"
把()刪除
另一段也是

---

作者: 笨小孩    時間: 2012-1-3 23:44

回復 8# kobo


    謝謝kobo提點，成功了。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)