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

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

2^#

發表於 2012-1-3 01:58 | 顯示全部帖子

回復 2# kobo

auto copy.rar (14.63 KB)

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

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

3^#

發表於 2012-1-3 02:25 | 顯示全部帖子

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

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

4^#

發表於 2012-1-3 10:24 | 顯示全部帖子

回復 4# 笨小孩

auto copy.rar (14.82 KB)

笨笨製作又失敗了...

auto copy.rar (14.82 KB)

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

5^#

發表於 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

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

6^#

發表於 2012-1-3 23:44 | 顯示全部帖子

回復 8# kobo

謝謝kobo提點，成功了。