PTT數位生活區 / Office

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

看板Office作者 (雙腳踢翻塵世浪)時間9年前 (2016/06/03 21:10), 編輯推噓0(0推 0噓 12→)
留言12則, 2人參與, 最新討論串1/1
軟體: 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
→
06/03 22:40, , 1F
類似這樣
06/03 22:40, 1F
→
06/04 16:40, , 2F
已試驗成功, 但若是貼圖會失敗
06/04 16:40, 2F
→
06/04 16:41, , 3F
寫法如下
06/04 16:41, 3F
→
06/04 16:42, , 4F
Sheets("Sheet2").Select
06/04 16:42, 4F
→
06/04 16:42, , 5F
ActiveSheet.ChartObjects("Chart 1").Activate
06/04 16:42, 5F
→
06/04 16:42, , 6F
ActiveChart.ChartArea.Copy
06/04 16:42, 6F
→
06/04 16:42, , 7F
Sheets("Sheet1").[a5].Offset(Sheets("Summary").[c
06/04 16:42, 7F
→
06/04 16:43, , 8F
1] * 5)
06/04 16:43, 8F
→
06/04 16:43, , 9F
Sheets("Sheet1").[c1] = Sheets("Sheet1").[c1] + 1
06/04 16:43, 9F
→
06/04 16:44, , 10F
再麻煩指教, 謝謝
06/04 16:44, 10F
→
06/04 17:16, , 11F
類似這樣
06/04 17:16, 11F
→
06/04 18:08, , 12F
已成功 感謝soyoso大大指教!
06/04 18:08, 12F
‣ 更多 ffauron 的文章
文章代碼(AID): #1NKO7Hsg (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
4
5
[販售]
[ MacShop ]
Vilano
2小時前, 03/30
更多 即時熱門文章 >>
‣ 更多 ffauron 的文章
文章代碼(AID): #1NKO7Hsg (Office)