Excel Forum

Code: Select all

Sub copy4x5()
'
    Dim i As Integer        'ใช้รับค่าลำดับที่ของ activesheet
    Dim x As Range          'ใช้รับค่าตำแหน่ง activecell ปัจจุบัน
    
''' ต้องการทำหนดให้ i รับค่าลำดับของ sheet ของ activecell
    
    Sheets("sheet1").Select
    Rows("1:22").Select
    Selection.Copy
    
    Sheets("i").Select        '' เลือก sheet ลำดับที่ i
    Selection.Insert Shift:=xlDown      '' วางค่าที่copyมาจาก sheet1
    
''' เลือก cell ที่บันทึกไว้ในค่า X (cellที่เลือกไว้ตั้งแต่แรก)
End Sub

Code: Select all

Sub copy4x5()
'
    Dim i As String        'ใช้รับค่าลำดับที่ของ activesheet
    Dim x As Range          'ใช้รับค่าตำแหน่ง activecell ปัจจุบัน
    

    i = ActiveSheet.Name        ''' ให้ i รับค่าชื่อ sheet ของ activesheet
    Sheets("sheet1").Select
    Rows("1:22").Select
    Selection.Copy
    
    Sheets(i).Select        '' เลือก sheet i
    Selection.Insert Shift:=xlDown      '' วางค่าที่copyมาจาก sheet1
    

End Sub