ต้องการ Copy ข้อความจาก Sheet 1 ไปวาง Sheet 2 โดยเขียน VBA

[babyminds]

ต้องการ Copy ข้อความ จาก Sheet 1 ช่อง F4:F21 ไปวางที่ Sheet 2 ช่อง B3 เงื่อนไขคือการวางครั้งถัดไปไห้เรียงไปตามคอลัมน์ทางขวา อยากทราบ CODE VBA ว่าต้องเขียนอย่างไรครับ

[snasui]

การใช้ Code VBA จำเป็นต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน ติดตรงไหนค่อยถามกันต่อครับ

[babyminds]

Sub Macro1()
'
' Macro1 Macro
'

'
Range("F4:F21").Select
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("I6").Select
Application.CutCopyMode = False
End Sub


อยากไห้การวางครั้งถัดไปวางเรียงไปทางคอลัมน์ขวามมือครับ

[snasui]

กรุณาแนบไฟล์ที่มี Code นี้เรียบร้อยแล้วมาด้วย จะได้ตอบต่อไปจากนั้นครับ

[babyminds]

ครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("F4:F21").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A3").Select
    Selection.End(xlToRight).Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet1").Select
    Range("J10").Select
    Application.CutCopyMode = False

End Sub

[babyminds]

ขอบคุณครับ

[zuzarman]

ถ้าเราจะสั่ง คัดลอกข้อความจากชีท 1 เพื่อนำมาวางในชีทหน้าปัจจุบันซึ่งอาจเป็นชีท 2 หรือ 3 หรือ 4 หรือ ....(เป็นหน้าปัจจุบันที่เราทำงานอยู่) จะใช้คำสั่งอะไรครับ เนื่องจากเป็นคำถามที่คล้ายกัน จึงไม่ตั้งเป็นข้อใหม่ ขอบคุณครับ

[snasui]

การเลือกชีตใด ๆ ก่อนวางข้อมูลดูที่ 3 บรรทัดสุดท้ายก่อนคำว่า End Sub ของโพสต์ #6 ครับ

ในการทำงานกับ Code ควรฝึกการบันทึก Macro จะได้ทราบว่าในการทำงานนั้น ๆ ได้ Code อะไรมา

ศึกษาการบันทึก Macro ได้ที่นี่ครับ

[zuzarman]

ขอบคุณครับท่านอาจารย์.... พอดีผมขาดคำสั่งที่ว่า ให้คัดลอกข้อความจากชีท 1 ในตำแหน่งล่างสุดของข้อมูล สมมุติเป็น (a,100) เพื่อนำมาวางในชีทหน้าปัจจุบันที่เราทำงานอยู่ ซึ่งอาจเป็นชีท 2 หรือ 3 หรือ 4 หรือ ....ก้อได้ (เป็นหน้าปัจจุบันที่เราทำงานอยู่ ในตำแหน่ง(a,100)) โดยใช้คำสั่ง 1 คำสั่งเดียวกัน แต่ติดที่เมื่อคัดลอกแล้วผมไม่สามารถระบุชื่อแผ่นงานในหน้าปัจจุบันที่อยากให้บันทึกได้ตายตัว

[snasui]

กรุณาแนบตัวอย่างไฟล์พร้อม Code ที่เขียนเอาไว้แล้วมาด้วยเพื่อนสมาชิกจะได้ช่วยกันดูได้ครับ

[zuzarman]

หาเจอแล้วครับ โดยใช้ Application.ScreenUpdating = False สั่งเพื่อไม่ให้ทำงานก่อนการคัดลอก ขอบคุณครับ

Code: Select all

Sub Copy2_Every_page()
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    Dim ws As Worksheet
                                
            Set targetWorkbook = ThisWorkbook
            Application.ScreenUpdating = False
            Set sourceWorksheet = Sheets("1")
             sourceWorksheet.Cells(Rows.Count, "A").End(xlUp).Offset(-1, 0).Resize(, 10).Copy
             Application.ScreenUpdating = True
             Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(, 1).PasteSpecial xlPasteValues
                     With Selection.Font
                            .Name = "TH SarabunPSK"
                            .Size = 11
                    End With
End Sub