Snasui Excel Forum

จะ copy ตัวเลข ใน B1 B5 C1 C5 จาก cheet1 ไปไว้ใน A2 A4 E2 E4 ของ cheet2 โดยกดปุ่ม button

มี 5 cheet ให้ปุ่ม button อยู่ทุก sheet มีโคดที่ง่ายกว่านี้มั้ยครับ มือใหม่



Sub Macro1()

Macro1 Macro

Range("B1").Select
Selection.Copy
Sheets(2).Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save

Range("B5").Select
Selection.Copy
Sheets(2).Select
Range("A4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save

Range("C1").Select
Selection.Copy
Sheets(2).Select
Range("E2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save


Range("C5").Select
Selection.Copy
Sheets(2).Select
Range("E4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save


MsgBox "Completed"

End Sub

รบกวนแนบไฟล์ตัวอย่างมาให้ดูด้วยครับ