Hỏi về code offset (1 người xem)

[vova2209]

điều kiện là activecell tại cột A
1. activecel tại ô A5 >> copy A4:AX4
2. paste dữ liệu vừa copy xuống dòng 5
3. Copy A5 >> A6
4. Copy AN5 >> AN6
em mới làm được bước 3+4 còn 1 2 chưa biết làm thế nào
------------------------------------
Sub ChenDong()
Dim Acel As Range
Application.ScreenUpdating = False
Set Acel = ActiveCell
Acel.Offset(, 1).Cells(2, 40 - 1) = Acel.Offset(, 1).Cells(, 40 - 1).FormulaR1C1
Acel.Offset(, 1).Cells(2, 1 - 1) = Acel.Offset(, 1).Cells(, 1 - 1).FormulaR1C1
Application.ScreenUpdating = True
End Sub
----------------------------------------
Em xin cảm ơn!

 

[vanthinh3101]

điều kiện là activecell tại cột A
1. activecel tại ô A5 >> copy A4:AX4
2. paste dữ liệu vừa copy xuống dòng 5
3. Copy A5 >> A6
4. Copy AN5 >> AN6
em mới làm được bước 3+4 còn 1 2 chưa biết làm thế nào
------------------------------------
Sub ChenDong()
Dim Acel As Range
Application.ScreenUpdating = False
Set Acel = ActiveCell
Acel.Offset(, 1).Cells(2, 40 - 1) = Acel.Offset(, 1).Cells(, 40 - 1).FormulaR1C1
Acel.Offset(, 1).Cells(2, 1 - 1) = Acel.Offset(, 1).Cells(, 1 - 1).FormulaR1C1
Application.ScreenUpdating = True
End Sub
----------------------------------------
Em xin cảm ơn!
View attachment 187052

Lần sau bạn đưa code vào bảng Insert Code cho dễ nhìn nhé!
Để chuột ở vị trí A5 rồi chạy code

Sub GPE()
    ActiveCell.Offset(-1).Resize(, 50).Copy ActiveCell
    ActiveCell.Copy ActiveCell.Offset(1)
    ActiveCell.Offset(, 40).Copy ActiveCell.Offset(1, 40)
End Sub

 

[vova2209]

Lần sau bạn đưa code vào bảng Insert Code cho dễ nhìn nhé!
Để chuột ở vị trí A5 rồi chạy code

Sub GPE()
    ActiveCell.Offset(-1).Resize(, 50).Copy ActiveCell
    ActiveCell.Copy ActiveCell.Offset(1)
    ActiveCell.Offset(, 40).Copy ActiveCell.Offset(1, 40)
End Sub

Được rồi! Cảm ơn bạn nhiều

 

[vova2209]

Lần sau bạn đưa code vào bảng Insert Code cho dễ nhìn nhé!
Để chuột ở vị trí A5 rồi chạy code

Sub GPE()
    ActiveCell.Offset(-1).Resize(, 50).Copy ActiveCell
    ActiveCell.Copy ActiveCell.Offset(1)
    ActiveCell.Offset(, 40).Copy ActiveCell.Offset(1, 40)
End Sub

Đặt if như nào để khi không activecell tại cột A thì msgbox báo lỗi bạn nhỉ

 

[vanthinh3101]

Đặt if như nào để khi không activecell tại cột A thì msgbox báo lỗi bạn nhỉ

Sub GPE()
    If ActiveCell.Column = 1 Then
        ActiveCell.Offset(-1).Resize(, 50).Copy ActiveCell
        ActiveCell.Copy ActiveCell.Offset(1)
        ActiveCell.Offset(, 40).Copy ActiveCell.Offset(1, 40)
    Else
        MsgBox "Ban phai chon o cot A", vbCritical, "GPE"
    End If
End Sub

 

[vova2209]

Sub GPE()
    If ActiveCell.Column = 1 Then
        ActiveCell.Offset(-1).Resize(, 50).Copy ActiveCell
        ActiveCell.Copy ActiveCell.Offset(1)
        ActiveCell.Offset(, 40).Copy ActiveCell.Offset(1, 40)
    Else
        MsgBox "Ban phai chon o cot A", vbCritical, "GPE"
    End If
End Sub

Được rồi! cảm ơn bạn nhiều