台灣最大程式設計社群網站
線上人數
2140
 
會員總數:240362
討論主題:186354
歡迎您免費加入會員
討論區列表 >> office VBA / WinOS >> 重複的執行動作有無迴圈可以分享?精簡程式碼?
[ 變換順序 ]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
重複的執行動作有無迴圈可以分享?精簡程式碼?
價值 : 30 QP  點閱數:164 回應數:0

樓主

Jay
門外漢
0 7
136 8
發送站內信

Sub test()

Worksheets("1~12(20%~90%)").Select '20%
Range("B3:M3").Select
Selection.Copy


Worksheets("Bosco Data").Select
Range("D7").Select
ActiveSheet.Paste

Worksheets("1~12(20%~90%)").Select '30%
Range("B4:M4").Select
Selection.Copy

Worksheets("Bosco Data").Select
Range("D8").Select
ActiveSheet.Paste

Worksheets("1~12(20%~90%)").Select '40%
Range("B6:M6").Select
Selection.Copy

Worksheets("Bosco Data").Select
Range("D10").Select
ActiveSheet.Paste

Worksheets("1~12(20%~90%)").Select '50%
Range("B8:M8").Select
Selection.Copy

Worksheets("Bosco Data").Select
Range("D12").Select
ActiveSheet.Paste


Worksheets("1~12(20%~90%)").Select '60%
Range("B10:M10").Select
Selection.Copy

Worksheets("Bosco Data").Select
Range("D14").Select
ActiveSheet.Paste



End Sub




搜尋相關Tags的文章: [ vba ] ,
本篇文章發表於2017-03-21 13:12
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
[ 變換順序 ]   

回覆
如要回應,請先登入.