標題:
[發問]
按鈕使用問題
[打印本頁]
作者:
笨小孩
時間:
2011-11-6 01:28
標題:
按鈕使用問題
用"0"一個按鈕能否同時把"B"內容copy到"A"和"D"內容copy到"C"，請指教...謝謝
Sub 按鈕0_Click()
For i = 1 To 10
Cells(i, "A").Value = Cells(i, "B").Value
Next i
End Sub
作者:
Hsieh
時間:
2011-11-6 09:21
回復
1#
笨小孩
不是就加入C、D的動作嗎?
Sub 按鈕0_Click()
For i = 1 To 10
Cells(i, "A").Value = Cells(i, "B").Value
Cells(i, "C").Value = Cells(i, "D").Value
Next i
End Sub
複製代碼
作者:
笨小孩
時間:
2011-11-6 09:50
謝謝版主指導，成功了是可以的。
作者:
笨小孩
時間:
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
時間:
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
複製代碼
作者:
笨小孩
時間:
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
時間:
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
作者:
笨小孩
時間:
2011-12-18 16:19
回復
7#
Hsieh
謝謝Hsieh版主回覆，很清楚解釋修改方法，這覆製動作需時9秒完成，有更快完成的方法嗎？
作者:
Hsieh
時間:
2011-12-18 21:53
回復
8#
笨小孩
不會吧!要用到9秒?
應該是你工作表公式非常複雜才會如此耗時
作者:
笨小孩
時間:
2011-12-18 23:53
回復 笨小孩
不會吧!要用到9秒?
應該是你工作表公式非常複雜才會如此耗時
Hsieh 發表於 2011-12-18 21:53
文件只有600k，覆製資料時cpu損耗資源50%以上，應該是硬件資源不足的問題。
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
