xử lý dữ liệu excel

[nguyen tien hoang]

chào các anh chị
hiện tại emđang muốntựđộng copy dữ liệu từ cột sang hàng thì phải làm thế nàoạ
cụ thể là khi e nhập dữ liệu 1-100 vào cột A từ A1-A100 thì đồng thời dữ liệu này copy sang hàng 2 từ cột M đến cột UV
Mong mn giúp đỡạ

 

[hoanganhvo2612]

chào các anh chị
hiện tại emđang muốntựđộng copy dữ liệu từ cột sang hàng thì phải làm thế nàoạ
cụ thể là khi e nhập dữ liệu 1-100 vào cột A từ A1-A100 thì đồng thời dữ liệu này copy sang hàng 2 từ cột M đến cột UV
Mong mn giúp đỡạ

Bạn copy rồi paste transpose thôi

 

[nguyen tien hoang]

Bạn copy rồi paste transpose thôi

cách này không tính bạn ơi...ý mình là dùng code ý,khi bạn nhập 1 giá trị vào cột thì nó đồng thời sao chép sang hàng

 

[keyeutien]

chào các anh chị
hiện tại emđang muốntựđộng copy dữ liệu từ cột sang hàng thì phải làm thế nàoạ
cụ thể là khi e nhập dữ liệu 1-100 vào cột A từ A1-A100 thì đồng thời dữ liệu này copy sang hàng 2 từ cột M đến cột UV
Mong mn giúp đỡạ

Từ cột M đến cột UV khoảng hơn 500 ô, bạn định copy lặp lại hay copy 1 lần vậy???

 

[VetMini]

Bỏ cái này vào sự kiện SheetChange

Const TGTCOL = "A" ' cột cần copy
Const TGTROW = 1 ' copy chỉ tính từ dòng này, nêys A có tiêu đề thì sửa thành dòng 2
Const DESCOL = "M" ' cột bắt đầu copy
Const DESROW = 2 ' dòng để copy vào
If Target.Column <> Cells(1, TGTCOL).Column And Target.Column >= TGTROW Then
Cells(DESROW, DESCOL).Offset(, Target.Row-TGTROW).Value = Target.Value
End If

 

[nguyen tien hoang]

Từ cột M đến cột UV khoảng hơn 500 ô, bạn định copy lặp lại hay copy 1 lần vậy???

copy 1 lần bạn ơi

Bài đã được tự động gộp: 2/4/20

Bỏ cái này vào sự kiện SheetChange

Const TGTCOL = "A" ' cột cần copy
Const TGTROW = 1 ' copy chỉ tính từ dòng này, nêys A có tiêu đề thì sửa thành dòng 2
Const DESCOL = "M" ' cột bắt đầu copy
Const DESROW = 2 ' dòng để copy vào
If Target.Column <> Cells(1, TGTCOL).Column And Target.Column >= TGTROW Then
Cells(DESROW, DESCOL).Offset(, Target.Row-TGTROW).Value = Target.Value
End If

copy từ cột thành dòng bạn ơi...như bạn viết trên là cột thành cột mà

 

[VetMini]

cách này không tính bạn ơi...ý mình là dùng code ý,khi bạn nhập 1 giá trị vào cột thì nó đồng thời sao chép sang hàng

copy 1 lần bạn ơi

Hai cái này nó không hoà thuận nhau.

copy từ cột thành dòng bạn ơi...như bạn viết trên là cột thành cột mà

Nếu bạn nhìn code mà biết nó copy cột thành cột thì bạn tự viết code được mà.
Ở trên tôi chỉ gõ nhầm phần check lô gic của dòng khởi sự
If Target.Column <> Cells(1, TGTCOL).Column And Target.Column >= TGTROW Then
Đáng lẽ phải là
If Target.Column <> Cells(1, TGTCOL).Column And Target.Row >= TGTROW Then

 

[nguyen tien hoang]

Hai cái này nó không hoà thuận nhau.


Nếu bạn nhìn code mà biết nó copy cột thành cột thì bạn tự viết code được mà.
Ở trên tôi chỉ gõ nhầm phần check lô gic của dòng khởi sự
If Target.Column <> Cells(1, TGTCOL).Column And Target.Column >= TGTROW Then
Đáng lẽ phải là
If Target.Column <> Cells(1, TGTCOL).Column And Target.Row >= TGTROW Then

cám ơn bạn đã phản hồi!!! thực ra đây là lần đầu mình code excel hoàn toàn ko biết gì,bạn có thể chỉ cho mk cách mở sheetchange ko

 

[be_09]

chào các anh chị
hiện tại emđang muốntựđộng copy dữ liệu từ cột sang hàng thì phải làm thế nàoạ
cụ thể là khi e nhập dữ liệu 1-100 vào cột A từ A1-A100 thì đồng thời dữ liệu này copy sang hàng 2 từ cột M đến cột UV
Mong mn giúp đỡạ

Góp ý cho bạn:
1/ Bạn nên cụ thể là dữ liệu chỉ Copy duy nhất một vùng là A1-A100 hay lặp tiếp xuống A101-A200, A201-A300, ..v..v....
2/ Nên sửa Tiêu đề bài viết cho phù hợp với nội dung có thể là :Giúp code Copy một vùng rồi Transpose dữ liệu". Đọc lại nội quy để hiểu.

 

[nguyen tien hoang]

Hai cái này nó không hoà thuận nhau.


Nếu bạn nhìn code mà biết nó copy cột thành cột thì bạn tự viết code được mà.
Ở trên tôi chỉ gõ nhầm phần check lô gic của dòng khởi sự
If Target.Column <> Cells(1, TGTCOL).Column And Target.Column >= TGTROW Then
Đáng lẽ phải là
If Target.Column <> Cells(1, TGTCOL).Column And Target.Row >= TGTROW Then

code này bị lỗi bạn ơi,mình không chạy được

 

[VetMini]

code này bị lỗi bạn ơi,mình không chạy được

Lỗi là lỗi gì?
Sửa:
If Target.Column <> Cells(1, TGTCOL).Column And Target.Column >= TGTROW Then
Thành
If Target.Column = Cells(1, TGTCOL).Column And Target.Row >= TGTROW Then

(*) lâu ngày không đụng đến ba cái code events nên quên hoài.
Lúc đầu tính nếu không đúng cột/dòng thì exit sub. Nhưng nếu như vậy code sẽ động chạm với code có sẵn trong event. Sửa lại thì quên xác định cột lại.

 

[nguyen tien hoang]

Lỗi là lỗi gì?
Sửa:
If Target.Column <> Cells(1, TGTCOL).Column And Target.Column >= TGTROW Then
Thành
If Target.Column = Cells(1, TGTCOL).Column And Target.Row >= TGTROW Then

(*) lâu ngày không đụng đến ba cái code events nên quên hoài.
Lúc đầu tính nếu không đúng cột/dòng thì exit sub. Nhưng nếu như vậy code sẽ động chạm với code có sẵn trong event. Sửa lại thì quên xác định cột lại.

lỗi 424 cần đối tượng bạn ơi

Bài đã được tự động gộp: 2/4/20

Lỗi là lỗi gì?
Sửa:
If Target.Column <> Cells(1, TGTCOL).Column And Target.Column >= TGTROW Then
Thành
If Target.Column = Cells(1, TGTCOL).Column And Target.Row >= TGTROW Then

(*) lâu ngày không đụng đến ba cái code events nên quên hoài.
Lúc đầu tính nếu không đúng cột/dòng thì exit sub. Nhưng nếu như vậy code sẽ động chạm với code có sẵn trong event. Sửa lại thì quên xác định cột lại.

mình đã sửa thanh ROW nhưng vẫn báo lỗi 424

Bài đã được tự động gộp: 2/4/20

Lỗi là lỗi gì?
Sửa:
If Target.Column <> Cells(1, TGTCOL).Column And Target.Column >= TGTROW Then
Thành
If Target.Column = Cells(1, TGTCOL).Column And Target.Row >= TGTROW Then

(*) lâu ngày không đụng đến ba cái code events nên quên hoài.
Lúc đầu tính nếu không đúng cột/dòng thì exit sub. Nhưng nếu như vậy code sẽ động chạm với code có sẵn trong event. Sửa lại thì quên xác định cột lại.

bạn xem giúp mình với,cám ơn bạn nhiều

 

[VetMini]

 

[nguyen tien hoang]

Góp ý cho bạn:
1/ Bạn nên cụ thể là dữ liệu chỉ Copy duy nhất một vùng là A1-A100 hay lặp tiếp xuống A101-A200, A201-A300, ..v..v....
2/ Nên sửa Tiêu đề bài viết cho phù hợp với nội dung có thể là :Giúp code Copy một vùng rồi Transpose dữ liệu". Đọc lại nội quy để hiểu.

View attachment 234561
cám ơn bạn! do lần đầu đăng bài mình không để ý,mình sẽ chú ý hơn

Bài đã được tự động gộp: 2/4/20

View attachment 234562

Bài đã được tự động gộp: 2/4/20

View attachment 234562

mình đã viết giống của bạn...nhưng nó lỗi bạn ah·

 

[VetMini]

mình đã viết giống của bạn...nhưng nó lỗi bạn ah·

Không giống. Xem lại bài #11.
Viết tắt là điều không nên cho nguwoif viết code. Trừ phi bạn dùng tiếng Anh hoan ftoanf, và dùng những từ viết tắt đã được xác định trong ngôn ngữ (ví dụ: nb, ditto,...)
Với tiếng Việt, người học code tập thói quen không viết tắt để có thể chú ý từng chi tiết trong code.
Chỉ có hàng gu-ru mới có thể vừa xem kỹ code vừa dùng từ viết tắt. Hàng pơ-rô cũng phải cẩn thận.

 

[nguyen tien hoang]

Không giống. Xem lại bài #11.
Viết tắt là điều không nên cho nguwoif viết code. Trừ phi bạn dùng tiếng Anh hoan ftoanf, và dùng những từ viết tắt đã được xác định trong ngôn ngữ (ví dụ: nb, ditto,...)
Với tiếng Việt, người học code tập thói quen không viết tắt để có thể chú ý từng chi tiết trong code.
Chỉ có hàng gu-ru mới có thể vừa xem kỹ code vừa dùng từ viết tắt. Hàng pơ-rô cũng phải cẩn thận.

đây là máy tính cty bạn ah,mình đang làm 1 báo cáo excel trong đó cần đấy cái tự động copy...chứ máy ở nhà mình còn để tiếng việt cơ

Bài đã được tự động gộp: 2/4/20

Không giống. Xem lại bài #11.
Viết tắt là điều không nên cho nguwoif viết code. Trừ phi bạn dùng tiếng Anh hoan ftoanf, và dùng những từ viết tắt đã được xác định trong ngôn ngữ (ví dụ: nb, ditto,...)
Với tiếng Việt, người học code tập thói quen không viết tắt để có thể chú ý từng chi tiết trong code.
Chỉ có hàng gu-ru mới có thể vừa xem kỹ code vừa dùng từ viết tắt. Hàng pơ-rô cũng phải cẩn thận.

mình copy nguyên văn bai cua ban ma,có 1 đoạn chú thích xóa đi thôi

 

[VetMini]

Nguyên văn thì là chưa chịu đọc bài #11.
Thôi dùng cách nguyên thuỷ ban đầu của tôi vậy:
Chép sub này vào module Sheet1
Private Sub Transpose_Value(ByVal Target As Range)
Const TGTCOL = "A" ' cột cần copy
Const TGTROW = 1 ' copy chỉ tính từ dòng này, nêys A có tiêu đề thì sửa thành dòng 2
Const DESCOL = "M" ' cột bắt đầu copy vào
Const DESROW = 2 ' dòng để copy vào
If Target.Column <> Cells(1, TGTCOL).Column Or Target.Row < TGTROW Then Exit Sub
Cells(DESROW, DESCOL).Offset(, Target.Row - TGTROW).Value = Target.Value
End Sub
Ghi đoạn này vào dòng đầu tiên của sub WorkSheet_Change
Transpose_Value Target

Nếu vẫn không được thì thôi nhường người khác vậy. Tôi chịu thua.

 

[keyeutien]

Bạn này chưa biết nhiều vba, bác @VetMini cũng nên nói rõ là mở cái worksheetchange làm sao để người ta còn mò chứ
(click phải sheet1, viewcode, chọn chỗ General là Worksheet, bên cạnh chọn Change. xong dán code vào giữa)

 

[nguyen tien hoang]

Bạn này chưa biết nhiều vba, bác @VetMini cũng nên nói rõ là mở cái worksheetchange làm sao để người ta còn mò chứ
(click phải sheet1, viewcode, chọn chỗ General là Worksheet, bên cạnh chọn Change. xong dán code vào giữa)

khổ nỗi mk ko có máy tính dùng tiếng anh,mình dùng máy cty,ấn ALT+F11 đc ko bạn

Bài đã được tự động gộp: 2/4/20

Nguyên văn thì là chưa chịu đọc bài #11.
Thôi dùng cách nguyên thuỷ ban đầu của tôi vậy:
Chép sub này vào module Sheet1
Private Sub Transpose_Value(ByVal Target As Range)
Const TGTCOL = "A" ' cột cần copy
Const TGTROW = 1 ' copy chỉ tính từ dòng này, nêys A có tiêu đề thì sửa thành dòng 2
Const DESCOL = "M" ' cột bắt đầu copy vào
Const DESROW = 2 ' dòng để copy vào
If Target.Column <> Cells(1, TGTCOL).Column Or Target.Row < TGTROW Then Exit Sub
Cells(DESROW, DESCOL).Offset(, Target.Row - TGTROW).Value = Target.Value
End Sub
Ghi đoạn này vào dòng đầu tiên của sub WorkSheet_Change
Transpose_Value Target

Nếu vẫn không được thì thôi nhường người khác vậy. Tôi chịu thua.

cám ơn bạn đã trợ giúp!!!

 

[keyeutien]

khổ nỗi mk ko có máy tính dùng tiếng anh,mình dùng máy cty,ấn ALT+F11 đc ko bạn

Bài đã được tự động gộp: 2/4/20

cám ơn bạn đã trợ giúp!!!

Sau khi ấn ALT+F11 thì click đúp vào sheet1 sau dán code dưới vào
Private Sub Worksheet_Change(ByVal Target As Range)
Const TGTCOL = "A"
Const TGTROW = 1
Const DESCOL = "M"
Const DESROW = 2
If Target.Column = Cells(1, TGTCOL).Column And Target.Row >= TGTROW Then
Cells(DESROW, DESCOL).Offset(, Target.Row - TGTROW).Value = Target.Value
End If
End Sub