[發問] 按鈕使用問題

用"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

樓主熱帖

笨小孩

中學生 Rank: 2

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

2^#

發表於 2011-11-6 09:50 | 顯示全部帖子

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

TOP

笨小孩

中學生 Rank: 2

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

3^#

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

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

TOP

笨小孩

中學生 Rank: 2

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

4^#

發表於 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的回覆，如我把欄和列改變了，應怎樣修改公式？

TOP

笨小孩