[發問] 按鈕使用問題

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

3^#

發表於 2011-11-6 09:50 | 只看該作者

謝謝版主指導，成功了是可以的。

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

4^#

發表於 2011-12-18 10:52 | 只看該作者

Sub 按鈕0_Click()

For i = 1 To 10
      Cells(i, "A").Value = Cells(i, "B").Value
      Cells(i, "C").Value = Cells(i, "D").Value
      Cells(i, "E").Value = Cells(i, "F").Value
      Cells(i, "G").Value = Cells(i, "H").Value
      Cells(i, "I").Value = Cells(i, "J").Value
      Cells(i, "K").Value = Cells(i, "L").Value
Next i

End Sub

以上公式進行覆製時時間較耐，有方法解決嗎？謝謝

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

5^#

發表於 2011-12-18 12:06 | 只看該作者

回復 4# 笨小孩

Sub 按鈕0_Click()
R = 1
For R = 1 To 11 Step 2
For I = 1 To 10
Cells(I, R).Value = Cells(I, R + 1).Value
Next I
Next R
End Sub

複製代碼

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

6^#

發表於 2011-12-18 14:59 | 只看該作者

Sub 按鈕0_Click()

For i = 19 To 44
      Cells(i, "H").Value = Cells(i, "L").Value
      Cells(i, "N").Value = Cells(i, "R").Value
      Cells(i, "T").Value = Cells(i, "X").Value
      Cells(i, "Z").Value = Cells(i, "AD").Value
      Cells(i, "AF").Value = Cells(i, "AJ").Value
      Cells(i, "AL").Value = Cells(i, "AP").Value
Next i

End Sub

謝謝register313的回覆，如我把欄和列改變了，應怎樣修改公式？

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2011-12-18 15:23 | 只看該作者

回復 6# 笨小孩
變數的規則要自己思考一下
For i = 19 To 44 '指定列
For j = 8 To 42 Step 6 '指定欄，每次跳6欄
Cells(i, j).Value = Cells(i, j).Offset(, 4).Value '寫入向右4欄的值
Next
Next

學海無涯_不恥下問

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

8^#

發表於 2011-12-18 16:19 | 只看該作者

回復 7# Hsieh

謝謝Hsieh版主回覆，很清楚解釋修改方法，這覆製動作需時9秒完成，有更快完成的方法嗎？

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2011-12-18 21:53 | 只看該作者

回復 8# 笨小孩
不會吧!要用到9秒?
應該是你工作表公式非常複雜才會如此耗時

學海無涯_不恥下問

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

10^#

發表於 2011-12-18 23:53 | 只看該作者

回復笨小孩
不會吧!要用到9秒?
應該是你工作表公式非常複雜才會如此耗時
Hsieh 發表於 2011-12-18 21:53

文件只有600k，覆製資料時cpu損耗資源50%以上，應該是硬件資源不足的問題。