PTT數位生活區 / Office

[算表] 解決 徵求VBA高手 貼上文字後向下一格 500P

看板Office作者 (HCCH)時間10年前 (2015/10/06 02:10), 編輯推噓1(1推 0噓 4→)
留言5則, 2人參與, 最新討論串1/1
軟體:EXCEL 2003 版本:2003 如題 我已經錄好 Sub Macro1() Range("E1").Select Selection.Copy End Sub 目前有40格(E欄)都是這樣的格式 但這只有複製 我之後會用按鈕 隨機貼在D欄 但是這邊卡住 沒法錄制巨集 想要達成 當我按下按鈕時 選取E1複製後 貼在D欄目前的儲存格 然後向下移動一格 想請高手幫忙！ 第一個推文可用者 給稅後500P 謝謝！ -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 203.70.51.205 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1444068638.A.288.html
推
10/06 03:10, , 1F
ActiveCell = Range("E1").Value
10/06 03:10, 1F
→
10/06 03:11, , 2F
SendKeys "{DOWN}"
10/06 03:11, 2F
→
10/06 03:12, , 3F
把上面這兩行取代你錄的sub 和 end sub 中間那二行
10/06 03:12, 3F
→
10/06 03:15, , 4F
指標停在 d1，執行後，d1會貼上e1的值，然後下移一格
10/06 03:15, 4F
→
10/06 03:48, , 5F
感謝^^
10/06 03:48, 5F
‣ 更多 HCCH 的文章
文章代碼(AID): #1M4hqUA8 (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 HCCH 的文章
文章代碼(AID): #1M4hqUA8 (Office)