[算表] Excel VBA 按鈕_Click()指定貼位置

[ffauron (雙腳踢翻塵世浪)]

軟體: Micrpsoft Excel

版本: 2007

各位版友好，初次接觸VBA發現是很好用的工具，

但對其邏輯還是有些不熟識，想請教有經驗的板友，

以下唯一簡易Click Sub，目的在點擊按鈕後可執行貼上動作，

想再次執行按鈕Click，複製貼上的內容可繼續往下續貼，

例: 第一次點擊按鈕=> 貼在sheet1中的A1
    第二次點擊按鈕=> 貼在sheet1中的A5
    第三次點擊按鈕=> 貼在SHEET1中的A9
    .........................以此類推

為簡化問題，複製貼上的內容暫時假設一樣，再麻煩指教，謝謝

Sub 按鈕1_Click()

' 按鈕1_Click Macro
    Sheets("Sheet2").Select
    Range("A2").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("A5").Select
    ActiveSheet.Paste
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.241.43.82
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1464959441.A.DAA.html
→ soyoso: https://youtu.be/NRhTd15WMH0 類似這樣
→ ffauron: 已試驗成功, 但若是貼圖會失敗
→ ffauron: 寫法如下
→ ffauron:     Sheets("Sheet2").Select
→ ffauron:     ActiveSheet.ChartObjects("Chart 1").Activate
→ ffauron:     ActiveChart.ChartArea.Copy
→ ffauron:     Sheets("Sheet1").[a5].Offset(Sheets("Summary").[c
→ ffauron: 1] * 5)
→ ffauron: Sheets("Sheet1").[c1] = Sheets("Sheet1").[c1] + 1
→ ffauron: 再麻煩指教, 謝謝
→ soyoso: http://imgur.com/GnKaMub 類似這樣
→ ffauron: 已成功 感謝soyoso大大指教!