Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
' Bai tap copy patSub copy1()Dim DongCuoi As Long DongCuoi = Sheet6Range("B14 C" & RowsCount)End(xlUp)Row
' Bai tap copy pat
Sub copy1()
Dim DongCuoi As Long
DongCuoi = Sheet6.Range("B14 : C" & Rows.Count).End(xlUp).Row
Range("B14:C & dongcuoi ").Selection.Copy
End Sub
Sub Xoa_Du_Lieu()
Dim DongCuoi As Long
DongCuoi = Sheets("Dmuc").Range("B15 : C" & Rows.Count).End(xlUp).Row
Sheets("Dmuc").Range("B15:C & dongcuoi ").ClearContents
End Sub
Sub dan_du_lieu()
Dim DongCuoi As Long
DongCuoi = Sheets("Dmuc").Range("B15 : C" & Rows.Count).End(xlUp).Row
Sheets("Dmuc").Range("B15:C & dongcuoi ").PasteSpecial
End Sub
Sub copy_dan()
Call copy1
Call Xoa_Du_Lieu
Call dan_du_lieu
End Sub
Sub copy1()
Dim DongCuoi As Long
DongCuoi = Sheet6.Range("B14 : C" & Rows.Count).End(xlUp).Row
Range("B14:C & dongcuoi ").Selection.Copy
End Sub
Sub Xoa_Du_Lieu()
Dim DongCuoi As Long
DongCuoi = Sheets("Dmuc").Range("B15 : C" & Rows.Count).End(xlUp).Row
Sheets("Dmuc").Range("B15:C & dongcuoi ").ClearContents
End Sub
Sub dan_du_lieu()
Dim DongCuoi As Long
DongCuoi = Sheets("Dmuc").Range("B15 : C" & Rows.Count).End(xlUp).Row
Sheets("Dmuc").Range("B15:C & dongcuoi ").PasteSpecial
End Sub
Sub copy_dan()
Call copy1
Call Xoa_Du_Lieu
Call dan_du_lieu
End Sub
13 câu trả lời
231 lượt xem
vỗ tay
Chia sẻ
Tran Van Binh
11:06 - Jun 29, 2020
Nhờ thầy xem đoạn copy, xóa, paste có đúng chưa ?
vỗ tay
Tran Van Binh
13:06 - Jun 29, 2020
Chào bạn phương pháp chuẩn nhất giờ là bạn tạo 1 file mới rồi sử dụng đoạn code của mình trực tiếp vào đó sẽ thấy ngay kết quả
vỗ tay
Tran Van Binh
17:06 - Jun 29, 2020
Range("B14:C & dongcuoi ").Selection.Copy màu vàng "lỗi "1004"
vỗ tay
Tran Van Binh
09:06 - Jun 30, 2020
Range("B14:C" & dongcuoi).Selection.Copy bạn nhé
vỗ tay
Tran Van Binh
17:07 - Jul 01, 2020
vâng cảm ơn
vỗ tay
Tran Van Binh
11:07 - Jul 02, 2020
em rót gon bây giờ còn paste nhờ thầy giúp
' Bai tap copy pat
Sub copy1()
Sheet6.Activate
Dim DongCuoi As Long
DongCuoi = Sheet6.Range("B14").End(xlDown).Row
Range("B14 : C" & DongCuoi).Copy
End Sub
Sub Xoa_Du_Lieu_paste()
Sheet7.Activate
Dim DongCuoi As Long
DongCuoi = Sheet7.Range("B15").End(xlDown).Row
Range("B15 : C" & DongCuoi).ClearContents
Range("B15 : C" & DongCuoi).PasteSpecial
End Sub
Sub copy_dan()
Call copy1
Call Xoa_Du_Lieu_paste
MsgBox " Ban da hoan thanh"
End Sub
' Bai tap copy pat
Sub copy1()
Sheet6.Activate
Dim DongCuoi As Long
DongCuoi = Sheet6.Range("B14").End(xlDown).Row
Range("B14 : C" & DongCuoi).Copy
End Sub
Sub Xoa_Du_Lieu_paste()
Sheet7.Activate
Dim DongCuoi As Long
DongCuoi = Sheet7.Range("B15").End(xlDown).Row
Range("B15 : C" & DongCuoi).ClearContents
Range("B15 : C" & DongCuoi).PasteSpecial
End Sub
Sub copy_dan()
Call copy1
Call Xoa_Du_Lieu_paste
MsgBox " Ban da hoan thanh"
End Sub
vỗ tay
Tran Van Binh
11:07 - Jul 02, 2020
Bị lỗi Range("B15 : C" & DongCuoi).PasteSpecial
vỗ tay
Tran Van Binh
13:07 - Jul 02, 2020
Chào bạn bạn có thể đẩy file lên được không?
vỗ tay
Tran Van Binh
14:07 - Jul 02, 2020
Dạ bây giờ làm được rồi thầy ạ
Sub copy_paste()
Sheet6.Activate
Dim DongCuoi As Long
DongCuoi = Sheet6.Range("B14").End(xlDown).Row
Range("B14 : C" & DongCuoi).Copy Destination:=Sheet7.Range("B15")
Sheet7.Range("b15:C600").EntireColumn.AutoFit
End Sub
Sub copy_paste()
Sheet6.Activate
Dim DongCuoi As Long
DongCuoi = Sheet6.Range("B14").End(xlDown).Row
Range("B14 : C" & DongCuoi).Copy Destination:=Sheet7.Range("B15")
Sheet7.Range("b15:C600").EntireColumn.AutoFit
End Sub
vỗ tay
Tran Van Binh
14:07 - Jul 02, 2020
Nhưng hơi băn khoăn tý paste luôn thì được thêm lệnh clear là lỗi
vỗ tay
Tran Van Binh
14:07 - Jul 02, 2020
clear là chuoix lệnh xóa cái cũ đi mà.
vỗ tay
Tran Van Binh
10:07 - Jul 03, 2020
Báo cáo thầy
Dù code thấy có gì đó sai sai so với thầy dạy nhưng kết quả đúng theo ý muốn
' Bai tap copy pat
Sub copy_paste()
Sheet6.Activate
Dim DongCuoi As Long
DongCuoi = Sheet6.Range("B14").End(xlDown).Row
Range("B14 : C" & DongCuoi).Copy Destination:=Sheet7.Range("B15")
With Sheet7
.Unprotect
Dim dongcuoi_sh7 As Long
dongcuoi_sh7 = Sheet7.Range("B15").End(xlDown).Row
Range("B15 : C" & dongcuoi_sh7).ClearComments
'Range("B15 : C" & dongcuoi_sh7).Sort [b15]
.Protect
End With
End Sub
Dù code thấy có gì đó sai sai so với thầy dạy nhưng kết quả đúng theo ý muốn
' Bai tap copy pat
Sub copy_paste()
Sheet6.Activate
Dim DongCuoi As Long
DongCuoi = Sheet6.Range("B14").End(xlDown).Row
Range("B14 : C" & DongCuoi).Copy Destination:=Sheet7.Range("B15")
With Sheet7
.Unprotect
Dim dongcuoi_sh7 As Long
dongcuoi_sh7 = Sheet7.Range("B15").End(xlDown).Row
Range("B15 : C" & dongcuoi_sh7).ClearComments
'Range("B15 : C" & dongcuoi_sh7).Sort [b15]
.Protect
End With
End Sub
vỗ tay
Tran Van Binh
13:07 - Jul 03, 2020
Chưa hiểu câu hỏi của bạn
vỗ tay
Câu hỏi liên quan
Top
(Giờ làm việc: 8h30 - 18h, nghỉ chiều thứ 7 và CN)
Những câu hỏi thường gặp
Hướng dẫn đăng ký khoá học
Hướng dẫn đăng nhập
Hướng dẫn lấy lại mật khẩu
Hướng dẫn thanh toán khóa học sau khi đăng ký thành công
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông