HenryWang123

發自內心的感謝您

HenryWang123

下載 (157.46 KB)

2014-6-5 10:44

下載 (180.76 KB)

2014-6-5 10:50

這邊遇到一個狀況需要再請教各位，就是想要在" Sheet1 "和" Sheet2 " 執行同樣的動作，但是卻無法執行，請問該怎麼解決呢?

我的動作是按執行 > 選執行module 1 > 執行一個動作後，下一次要copy時就出現"發現不確定名稱"的這個問題了

如果我選執行module 1 > 接著再選執行選執行module 2 > 就會進行偵錯

要請教各位該如何解決呢 ?

owen06

回復 12# HenryWang123


    請問方便附個檔案來看看嗎？

HenryWang123

程式與籌碼原稿.rar (360.76 KB)

下載次數: 11

2014-6-5 16:06

麻煩囉

f3202

回復 14# HenryWang123

應是沒指定 sheet1 或 sheet2

owen06

回復 12# HenryWang123


    我想你應該是停留在sheet1，但是指令卻命令他要去sheet2越區辦案，
    所以他就抗命囉。
    你如果是都只要copy同一個資料，但是到不同工作表，我是建議你修改成這樣，
    用一個模組就好了，另一個取消掉。
    如果有其他問題，再提出來一起討論吧。

1. Sub AutoCopy()
   
2. t2 = Now + TimeSerial(0, 1, 0)
   
3. Application.Calculation = xlAutomatic
   
4. Sheets("sheet1").Select
   
5. Sheets("Sheet1").[a9:j11].Copy
   
6. Sheets("Sheet1").[b65536].End(3).Offset(1, 0).Select
   
7. If Sheets("Sheet1").[b13] = "" Then Sheets("Sheet1").[b13].Select
   
8. Selection.PasteSpecial xlPasteValues
   
9. Sheets("sheet2").Select
   
10. Sheets("Sheet2").[b65536].End(3).Offset(1, 0).Select
    
11. If Sheets("Sheet2").[b13] = "" Then Sheets("Sheet2").[b13].Select
    
12. Selection.PasteSpecial xlPasteValues
    
13. If Time <= #13:45:00 PM# Then Application.OnTime t2, "AutoCopy"
    
14. End Sub

複製代碼

c_c_lai

回復 14# HenryWang123
試試看！
ThisWorkbook:

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.     Dim T As Date
   
4.    
   
5.     T = #8:47:00 AM#
   
6.     Application.OnTime T, "Module1.AutoCopy"
   
7. End Sub

複製代碼

Module1:

1. Option Explicit
   
2. Sub AutoCopy()
   
3.     Dim t2 As Date
   
4.     Dim i As Integer, sht As String
   
5.    
   
6.     i = 0
   
7.     While i < 2
   
8.         i = i + 1
   
9.         t2 = Now + TimeSerial(0, 2, 0)
   
10.         sht = IIf(i = 1, "Sheet1", "Sheet2")
    
11.         With Sheets(sht)
    
12.             .Select
    
13.             .[a9:j11].Copy
    
14.             .[b65536].End(3).Offset(1, 0).Select
    
15.             If .[b13] = "" Then .[b13].Select
    
16.             Selection.PasteSpecial xlPasteValues
    
17.         End With
    
18.     Wend
    
19.     If Time <= #1:45:00 PM# Then Application.OnTime t2, "Module1.AutoCopy"
    
20. End Sub

複製代碼

HenryWang123

很順利的運行~謝謝兩位的熱心幫忙~