Vấn đề Copy trong VBA

Hoàng Trọng Nghĩa · 26/10/09

Tôi Copy 1 cell với 1 cell bằng phương thức như:
[B1] = [A1] thì OK

Nhưng tôi lại làm với khối cell:
[B1:B5] = [A1:A5] thì không được, tại sao?

Cách nào copy nhanh cho khối ô từ Sheet1 qua Sheet2 mà không cần chọn Select như VD sau :

PHP:

Sheet1.Range("I16:K20").Copy
Sheet2.Range("I10:K14").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Xin cảm ơn các Anh Chị.

Hai Lúa Miền Tây · 26/10/09

Anh dùng cái này thử:

Mã:

Sheet2.Range("a1:a5").Value = Sheet1.Range("B1:B5").Value

hoangdanh282vn · 26/10/09

Anh thử 2 dòng code này nha :

PHP:

Sheet2.[A1:A10] = Sheet1.[A1:A10].Value
Sheet1.[A1:A10].Copy Destination:=Sheet2.[A1]

Hoàng Trọng Nghĩa · 26/10/09

hoangdanh282vn đã viết:
Anh thử 2 dòng code này nha :

PHP:

Sheet2.[A1:A10] = Sheet1.[A1:A10].Value Sheet1.[A1:A10].Copy Destination:=Sheet2.[A1]

Hoang Danh ơi, sao code của bạn báo lỗi trong Immediate nhỉ?

hoangdanh282vn · 26/10/09

Em thử có lỗi gì đâu anh. Anh thử gửi file bị lỗi hay cái ảnh chụp lại chổ báo lỗi nha.

Hoàng Trọng Nghĩa · 26/10/09

hoangdanh282vn đã viết:
Em thử có lỗi gì đâu anh. Anh thử gửi file bị lỗi hay cái ảnh chụp lại chổ báo lỗi nha.

Mình thử dòng code này nó báo lỗi.

hoangdanh282vn · 26/10/09

anh gửi kèm file lên gộp chung trong bài vừa rồi nha. Có file dễ xem hơn anh ơi.

TrungChinhs · 26/10/09

minhthien321 đã viết:
Tôi Copy 1 cell với 1 cell bằng phương thức như:
[B1] = [A1] thì OK

Nhưng tôi lại làm với khối cell:
[B1:B5] = [A1:A5] thì không được, tại sao?

Cách nào copy nhanh cho khối ô từ Sheet1 qua Sheet2 mà không cần chọn Select như VD sau :

PHP:

Sheet1.Range("I16:K20").Copy Sheet2.Range("I10:K14").Select ActiveSheet.Paste Application.CutCopyMode = False

Xin cảm ơn các Anh Chị.

Bạn thử cách này xem (tôi gộp tất cả các câu hỏi của bạn vào chung 1 sub)

Mã:

Sub Macro1()
  [B10] = [A10]
  [B1:B5] = [A1:A5].Value
  Sheet1.[I16:K20].Copy Sheet2.[I10]
End Sub

Hoàng Trọng Nghĩa · 26/10/09

hoangdanh282vn đã viết:
anh gửi kèm file lên gộp chung trong bài vừa rồi nha. Có file dễ xem hơn anh ơi.

Minh có làm file nào đâu, mở 1 file trắng rồi thử code thôi. Nhưng Code thứ 1 của Danh đã OK, còn code có destination thì chưa ổn đối với mình.

Chỉ cần làm được không cần select là đã giải quyết được vấn đề rồi.

Cám ơn rất nhiều.

hoangdanh282vn · 27/10/09

Em không biết là anh test ra sao nên không trả lời được. Em gửi file đính kèm, anh xem có lỗi không nha.

ndu96081631 · 27/10/09

minhthien321 đã viết:
Tôi Copy 1 cell với 1 cell bằng phương thức như:
[B1] = [A1] thì OK

Nhưng tôi lại làm với khối cell:
[B1:B5] = [A1:A5] thì không được, tại sao?

Cách nào copy nhanh cho khối ô từ Sheet1 qua Sheet2 mà không cần chọn Select như VD sau :

PHP:

Sheet1.Range("I16:K20").Copy Sheet2.Range("I10:K14").Select ActiveSheet.Paste Application.CutCopyMode = False

Xin cảm ơn các Anh Chị.

Bạn nên dùng cách gán value của domfootwear vì nó nhanh hơn so với phương thức copy paste

concogia · 27/10/09

minhthien321 đã viết:
Tôi Copy 1 cell với 1 cell bằng phương thức như:
[B1] = [A1] thì OK

Nhưng tôi lại làm với khối cell:
[B1:B5] = [A1:A5] thì không được, tại sao?

Cách nào copy nhanh cho khối ô từ Sheet1 qua Sheet2 mà không cần chọn Select như VD sau :

PHP:

Sheet1.Range("I16:K20").Copy Sheet2.Range("I10:K14").Select ActiveSheet.Paste Application.CutCopyMode = False

Xin cảm ơn các Anh Chị.

Theo mình trong vba khối ô không chấp nhận gán giá trị như thế, bạn chỉ gán được giá trị vào một khối ô khi đó là giá trị duy nhất. td: range("b1:j1")=range("a1").value
Còn muốn gán như bạn phải dùng copy
Thân

ndu96081631 · 27/10/09

concogia đã viết:
Theo mình trong vba khối ô không chấp nhận gán giá trị như thế, bạn chỉ gán được giá trị vào một khối ô khi đó là giá trị duy nhất. td: range("b1:j1")=range("a1").value
Còn muốn gán như bạn phải dùng copy
Thân

Bậy nè... sao lại không được!
Như trong ví dụ của tác giả, ta dùng code sau:

PHP:

Sub Test()
  Sheets("Des").Range("I10:K14").Value = Sheets("Src").Range("I16:K20").Value
End Sub

Với Src là tên sheet nguồn và Des là tên sheet đích

Hoàng Trọng Nghĩa · 29/10/09

Như các Thầy hướng dẫn, em được biết thêm 2 cách copy mới:

1) Copy toàn bộ, kể cả định dạng (Trung Chinh):

Sheet1.[I16:K20].Copy Sheet2.[I10]

2) Copy giá trị, như past special, value (ndu96081631, domfootwear )

Sheets("Des").Range("I10:K14").Value = Sheets("Src").Range("I16:K20").Value

Cám ơn các Thầy nhiều thật nhiều nhé!

hmloan · 12/11/09

Nhờ các anh giúp đỡ

Các bác ơi giúp em với.
Em muốn copy tất cả các dòng có điều kiện là '003' trong cột 'DEPTCD' sang 'Sheet2', 'APO' trong cột 'DEPTCD' sang 'Sheet3' và các điều kiện còn lại sang các Sheet còn lại. Hướng giải quyết như thế nào. Các anh giúp em với.

cadafi · 12/11/09

hmloan đã viết:
Em muốn copy tất cả các dòng có điều kiện là '003' trong cột 'DEPTCD' sang 'Sheet2', 'APO' trong cột 'DEPTCD' sang 'Sheet3' và các điều kiện còn lại sang các Sheet còn lại. Hướng giải quyết như thế nào. Các anh giúp em với.

Mời bạn tham khảo code sau:
[highlight=vb]
Sub mCopy()
Dim iRow As Long, myRange As Range
iRow = Sheet1.[B65536].End(xlUp).Row
Set myRange = Sheet1.Range("A1:E" & iRow)
Sheets(Array("Sheet2", "Sheet3", "Sheet4")).Select: Selection.Cells.ClearContents
'-----------------------------------------------------
With myRange
.AutoFilter Field:=1, Criteria1:="003"
.CurrentRegion.Copy Sheet2.[A1]
'-----------------------------------------------------
.AutoFilter Field:=1, Criteria1:="APO"
.CurrentRegion.Copy Sheet3.[A1]
'-----------------------------------------------------
.AutoFilter Field:=1, Criteria1:="<>APO", Operator:=xlAnd, Criteria2:="<>003"
.CurrentRegion.Copy Sheet4.[A1]
End With
'-----------------------------------------------------
Application.CutCopyMode = False
End Sub

[/highlight]

hmloan · 12/11/09

cadafi đã viết:
Mời bạn tham khảo code sau:
[highlight=vb]
Sub mCopy()
Dim iRow As Long, myRange As Range
iRow = Sheet1.[B65536].End(xlUp).Row
Set myRange = Sheet1.Range("A1:E" & iRow)
Sheets(Array("Sheet2", "Sheet3", "Sheet4")).Select: Selection.Cells.ClearContents
'-----------------------------------------------------
With myRange
.AutoFilter Field:=1, Criteria1:="003"
.CurrentRegion.Copy Sheet2.[A1]
'-----------------------------------------------------
.AutoFilter Field:=1, Criteria1:="APO"
.CurrentRegion.Copy Sheet3.[A1]
'-----------------------------------------------------
.AutoFilter Field:=1, Criteria1:="<>APO", Operator:=xlAnd, Criteria2:="<>003"
.CurrentRegion.Copy Sheet4.[A1]
End With
'-----------------------------------------------------
Application.CutCopyMode = False
End Sub

[/highlight]

Mình xin cảm ơn Cadafi rất nhiều. Chúc bạn luôn luôn vui vẻ và gặp nhiều may mắn.

hmloan · 13/11/09

cadafi đã viết:
Mời bạn tham khảo code sau:
[highlight=vb]
Sub mCopy()
Dim iRow As Long, myRange As Range
iRow = Sheet1.[B65536].End(xlUp).Row
Set myRange = Sheet1.Range("A1:E" & iRow)
Sheets(Array("Sheet2", "Sheet3", "Sheet4")).Select: Selection.Cells.ClearContents
'-----------------------------------------------------
With myRange
.AutoFilter Field:=1, Criteria1:="003"
.CurrentRegion.Copy Sheet2.[A1]
'-----------------------------------------------------
.AutoFilter Field:=1, Criteria1:="APO"
.CurrentRegion.Copy Sheet3.[A1]
'-----------------------------------------------------
.AutoFilter Field:=1, Criteria1:="<>APO", Operator:=xlAnd, Criteria2:="<>003"
.CurrentRegion.Copy Sheet4.[A1]
End With
'-----------------------------------------------------
Application.CutCopyMode = False
End Sub

[/highlight]

Bạn cadafi ơi!
Bạn giúp mình 1 lần nữa hen. Mình muốn chép tất cả các dòng có điều kiện không phải là '<>NKO', '<>CRO', '<>APO', '<>003', '<>AHO', '<>CAD' trong cột 'DEPTCD' sang 'Sheet4' thì mình phải làm sao. Nếu dùng

.AutoFilter Field:=1, Criteria1:="<>APO", Operator:=xlAnd, Criteria2:="<>003"
.CurrentRegion.Copy Sheet4.[A1]

Chỉ được 2 điều kiện, 2 câu lệnh này nếu chạy trong 'Sheets' thì được, khi mình đưa vào Add-Ins thì báo lỗi.

Và mình muốn sao khi chép qua các 'Sheet' sẽ bỏ luôn dòng
| DEPTCD | BRCD | ACCTCD | DUCHI | CCY |

Bạn giúp mình lần này nữa hen. Thanks bạn rất nhiều.

namkpac · 18/4/12

ndu96081631 đã viết:
Bậy nè... sao lại không được!
Như trong ví dụ của tác giả, ta dùng code sau:

PHP:

Sub Test() Sheets("Des").Range("I10:K14").Value = Sheets("Src").Range("I16:K20").Value End Sub

Với Src là tên sheet nguồn và Des là tên sheet đích

Anh Ndu ơi, anh giúp em đoạn code copy 1 cell (ở đây là định dạng của 1 trang in) cố định sang nhiều cell khác (trang in khác) với 1 hộp thoại hỏi số trang cần past với được không anh. em tìm trên các diễn đàn mà không được. Em có hỏi anh mấy lần mà chưa thấy anh trả lời, không biết mọi người có bận không nữa.

namkpac · 18/4/12

ndu96081631 đã viết:
Bậy nè... sao lại không được! Như trong ví dụ của tác giả, ta dùng code sau: 

PHP:

 Sub Test()   Sheets("Des").Range("I10:K14").Value = Sheets("Src").Range("I16:K20").Value End Sub

 Với Src là tên sheet nguồn và Des là tên sheet đích

Anh Ndu ơi, anh giúp em đoạn code copy 1 cell (ở đây là định dạng của1 trang in) cố định sang nhiều cell khác (trang in khác) với 1 hộp thoại hỏi số trang cần past với được không anh. em tìm trên các diễn đàn mà không được. Em có hỏi anh mấy lần mà chưa thấy anh trả lời, không biết mọi người có bận không nữa. Em tham khảo vàlàm đựơc đoạn copy khối cell này sang khối cell khác còn để past thành nhiều khối cell thì lại chưa được. anh giúp em với.

Vấn đề Copy trong VBA

Chuyên gia GPE

❆❆❆❆❆❆❆❆

Nguyễn Cảnh Hoàng Danh

Chuyên gia GPE

Nguyễn Cảnh Hoàng Danh

Chuyên gia GPE

Nguyễn Cảnh Hoàng Danh

Thành viên tích cực

Chuyên gia GPE

Nguyễn Cảnh Hoàng Danh

File đính kèm

Huyền thoại GPE

Gội rồi mới Cạo

Huyền thoại GPE

File đính kèm

Chuyên gia GPE

Thành viên mới

File đính kèm

Hành động từ trái tim

File đính kèm

Thành viên mới

Thành viên mới

Thành viên thường trực

Thành viên thường trực