Tự động chỉnh sửa các dữ liệu trùng (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

lehang55

Thành viên mới
Tham gia
16/4/10
Bài viết
43
Được thích
14
Mình đang thao tác trên 1 file Excel, có rất nhiều hàng, cột, đã được anh Ba Tê giúp lọc dữ liệu trùng, hôm nay lại phát sinh ra việc chỉnh sửa các dữ liệu bên trong (file đính kèm chỉ là một phần rất nhỏ của file), ví dụ tên trùng, thì báo hiệu trùng, nhưng ví dụ loại file là PMD hoặc PDF, khi chỉnh sửa phải tìm và sửa thủ công từng hàng - rất cực. Mình có đánh dấu bằng màu đỏ. Mong ACE ra tay giúp cho mình, cách chĩnh sửa các chi tiết liên quan thì các dữ liệu trùng sẽ tự động điều chỉnh luôn.

Rất rất cảm ơn các bạn. Chúc mọi người vui.
 

File đính kèm

Mình đang thao tác trên 1 file Excel, có rất nhiều hàng, cột, đã được anh Ba Tê giúp lọc dữ liệu trùng, hôm nay lại phát sinh ra việc chỉnh sửa các dữ liệu bên trong (file đính kèm chỉ là một phần rất nhỏ của file), ví dụ tên trùng, thì báo hiệu trùng, nhưng ví dụ loại file là PMD hoặc PDF, khi chỉnh sửa phải tìm và sửa thủ công từng hàng - rất cực. Mình có đánh dấu bằng màu đỏ. Mong ACE ra tay giúp cho mình, cách chĩnh sửa các chi tiết liên quan thì các dữ liệu trùng sẽ tự động điều chỉnh luôn.

Rất rất cảm ơn các bạn. Chúc mọi người vui.
Dữ liệu trùng nhau ở các cột nào thì được cho là trùng?
Sau khi tìm được các dòng trùng thì làm gì với chúng?
 
Dữ liệu trùng nhau ở các cột nào thì được cho là trùng?
Sau khi tìm được các dòng trùng thì làm gì với chúng?

Như mình đã nói đó huuthang, tên tựa sách trùng thì Ba Tê đã giúp mình rồi, khi trùng nó tự động nhảy chữ TRÙNG ở cột ghi chú, hôm nay phát sinh là sự thay đổi về loại file, thư mục, ở những dòng màu đỏ đó, thì phải find next rồi sửa tay, mình đang mong với sự ra tay của mọi người, mỗi khi mình chỉnh sửa chi tiết của tựa sách này thì các tựa sách trùng sẽ tự động điều chỉnh luôn. Cảm ơn bạn.
 
Như mình đã nói đó huuthang, tên tựa sách trùng thì Ba Tê đã giúp mình rồi, khi trùng nó tự động nhảy chữ TRÙNG ở cột ghi chú, hôm nay phát sinh là sự thay đổi về loại file, thư mục, ở những dòng màu đỏ đó, thì phải find next rồi sửa tay, mình đang mong với sự ra tay của mọi người, mỗi khi mình chỉnh sửa chi tiết của tựa sách này thì các tựa sách trùng sẽ tự động điều chỉnh luôn. Cảm ơn bạn.

Vậy bạn nên đưa file có CODE của pác Ba Tê đã giúp lên lun đi,
như thế mọi người mới song đao hợp bích cùng code cũ của pác BaTe chiến đấu được
 
Như mình đã nói đó huuthang, tên tựa sách trùng thì Ba Tê đã giúp mình rồi, khi trùng nó tự động nhảy chữ TRÙNG ở cột ghi chú, hôm nay phát sinh là sự thay đổi về loại file, thư mục, ở những dòng màu đỏ đó, thì phải find next rồi sửa tay, mình đang mong với sự ra tay của mọi người, mỗi khi mình chỉnh sửa chi tiết của tựa sách này thì các tựa sách trùng sẽ tự động điều chỉnh luôn. Cảm ơn bạn.
Bạn copy code này bỏ vào module sheet1.
PHP:
 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column = 2 Or Target.Row = 1 Then Exit Sub
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Dim FindCll As Range, FindRng As Range
Set FindCll = Cells(Target.Row, 2)
Set FindRng = Range([B2], [B65536].End(xlUp))
Do
    Set FindCll = FindRng.Find(What:=FindCll.Value, After:=FindCll, Lookat:=xlWhole)
    FindCll.Offset(, Target.Column - 2).Value = Target.Value
Loop Until FindCll.Row = Target.Row
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub
 
Bạn copy code này bỏ vào module sheet1.
PHP:
 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column = 2 Or Target.Row = 1 Then Exit Sub
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Dim FindCll As Range, FindRng As Range
Set FindCll = Cells(Target.Row, 2)
Set FindRng = Range([B2], [B65536].End(xlUp))
Do
    Set FindCll = FindRng.Find(What:=FindCll.Value, After:=FindCll, Lookat:=xlWhole)
    FindCll.Offset(, Target.Column - 2).Value = Target.Value
Loop Until FindCll.Row = Target.Row
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

code này như bỏ qua việc sửa TỰA sách ở cột B, như yêu cầu của ng hỏi thì phải, huuthang_bd ah
Như mình đã nói đó huuthang, tên tựa sách trùng thì Ba Tê đã giúp mình rồi, khi trùng nó tự động nhảy chữ TRÙNG ở cột ghi chú, hôm nay phát sinh là sự thay đổi về loại file, thư mục, ở những dòng màu đỏ đó, thì phải find next rồi sửa tay, mình đang mong với sự ra tay của mọi người, mỗi khi mình chỉnh sửa chi tiết của tựa sách này thì các tựa sách trùng sẽ tự động điều chỉnh luôn. Cảm ơn bạn.
 
code này như bỏ qua việc sửa TỰA sách ở cột B, như yêu cầu của ng hỏi thì phải, huuthang_bd ah
Theo cách hiểu của tôi thì Thay đổi chi tiết của tựa sách là thay đổi những thông tin khác của sách chứ không phải tựa sách. Để xem chủ topic muốn gì đã rồi mới tính tiếp.
 
Theo cách hiểu của tôi thì Thay đổi chi tiết của tựa sách là thay đổi những thông tin khác của sách chứ không phải tựa sách. Để xem chủ topic muốn gì đã rồi mới tính tiếp.

Hihi, mình không thay đổi tựa sách mà chỉ thay đổi các chi tiết của tựa sách thôi, đúng như bạn huuthang nói. Mình sẽ copy đoạn code và báo cáo cho các bạn biết kết quả nhe. Cảm ơn hai bạn rất nhiều.
 
Bạn huuthang ơi, mình đã copy đoạn code rồi, làm ví dụ ngay trong file mình gửi lên diễn đàn là thử copy 1 dòng nào đó xuống đoạn dưới rồi thay đổi chi tiết bên trong, nhưng các dòng khác không hề thay đổi theo, mình có thao tác gì sai chăng? Làm phiền bạn quá.
 
Bạn huuthang ơi, mình đã copy đoạn code rồi, làm ví dụ ngay trong file mình gửi lên diễn đàn là thử copy 1 dòng nào đó xuống đoạn dưới rồi thay đổi chi tiết bên trong, nhưng các dòng khác không hề thay đổi theo, mình có thao tác gì sai chăng? Làm phiền bạn quá.
Bạn đã biết dùng code chưa? Khi gửi lên diễn đàn đương nhiên là tôi đã thử rồi.

Lưu ý:
- Dán code vào đúng chỗ (dán vào Module của sheet cần làm).
- Kích hoạt Macro

Nếu không được thì bạn thử gửi file bạn đã bỏ code vào rồi lên đây tôi xem thử.

P/S: Đề phòng trường hợp bạn sửa các ô có công thức. Nên tôi sửa lại code như thế này.
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column = 2 Or Target.Row = 1 Then Exit Sub
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Dim FindCll As Range, FindRng As Range
Set FindCll = Cells(Target.Row, 2)
Set FindRng = Range([B2], [B65536].End(xlUp))
Do
    Set FindCll = FindRng.Find(What:=FindCll.Value, After:=FindCll, Lookat:=xlWhole)
    FindCll.Offset(, Target.Column - 2).FormulaR1C1 = Target.FormulaR1C1
Loop Until FindCll.Row = Target.Row
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub
 
Hihi, mình xin lỗi huuthang nhiều, mình không rành lắm về code, không biết dán đoạn code vào đâu, hôm nọ mình chép ra 1 file, rồi mình save theo xla, rồi sau đó mình kích hoạt add-in, thấy im re, chắc huuthang chỉ dẫn mình rõ hơn nhé. Mình rất "gà" trong mấy vụ code, VBA này nọ lắm. Cảm ơn huuthang nhiều nha. Chúc bạn luôn vui.
 
Hihi, mình xin lỗi huuthang nhiều, mình không rành lắm về code, không biết dán đoạn code vào đâu, hôm nọ mình chép ra 1 file, rồi mình save theo xla, rồi sau đó mình kích hoạt add-in, thấy im re, chắc huuthang chỉ dẫn mình rõ hơn nhé. Mình rất "gà" trong mấy vụ code, VBA này nọ lắm. Cảm ơn huuthang nhiều nha. Chúc bạn luôn vui.
Bạn làm không đúng hướng dẫn rồi bảo không được là sao. Không biết thì nói là không biết chứ đừng nói không được. Tôi hướng dẫn vậy là rõ ràng lắm rồi. File dưới tôi đã copy code vào rồi, bạn không biết dùng nữa thì tôi cũng bó tay.
 

File đính kèm

Bạn huuthang và Ba Tê thân mến, thì do tôi làm không đúng nên nó không được, chẳng qua là do dốt quá, mù tịt, thấy mấy cái code còn không biết dán nó vào đâu là các bạn hiểu trình độ mình cỡ nào rồi mà. Hehehe, cảm ơn 2 bạn rất nhiều nhé. Chúc cuối tuần vui vẻ.
 
Hai bạn huuthang và Ba Tê thân mến, tôi đã copy đoạn code của 2 bác vào rồi, chỉnh sửa các chi tiết tự động hoàn toàn, tôi rất thích, nhưng do dữ liệu phải cập nhật thường xuyên mà vì sao những tựa sách đã có rồi, thì cột H cho những tựa sách mới lại không báo Trùng nữa. Tôi cũng copy công thức =IF(COUNTIF(TenSach,B2427)>1,"Trùng","") vào cột H và kéo xuống những hàng mới nhưng các tựa sách mới nhập không hề thông báo Trùng. Các bác đừng phiền khi đầu tuần đã bị quấy nhiễu nhé. Chúc 2 bác một tuần thật vui.
 
Lần chỉnh sửa cuối:
Hai bạn huuthang và Ba Tê thân mến, tôi đã copy đoạn code của 2 bác vào rồi, chỉnh sửa các chi tiết tự động hoàn toàn, tôi rất thích, nhưng do dữ liệu phải cập nhật thường xuyên mà vì sao những tựa sách đã có rồi, thì cột H cho những tựa sách mới lại không báo Trùng nữa. Tôi cũng copy công thức =IF(COUNTIF(TenSach,B2427)>1,"Trùng","") vào cột H và kéo xuống những hàng mới nhưng các tựa sách mới nhập không hề thông báo Trùng. Các bác đừng phiền khi đầu tuần đã bị quấy nhiễu nhé. Chúc 2 bác một tuần thật vui.
1- Bạn gõ không chính xác tên sách đã có ở trên (Copy tên sách bên trên xuống để biết)
2- Trong cột B Tên sách bạn không được bỏ trống dòng nào
3- Đưa file bị lỗi và ghi chú dòng nào bị lỗi (Nén file lại đưa lên).
4- Nên dùng VBA thay công thức khi dữ liệu hơn ngàn dòng.
5- Muốn sao thì gởi yêu cầu đúng như vậy, hiện tôi cũng chẳng biết File bạn đang dùng nó ra sao cả, ai mà biết nó sai vì đâu?
 
Anh Ba Tê và huuthang kính mến, thật tình đến ngày hôm nay tôi đã bắt đầu thấy rối, rối vì công việc của tôi và cũng rối vì không biết phải xử lý ra sao với phần danh mục mình đang làm, dù anh và bạn huuthang đã có giúp đỡ, nhưng vẫn có nhiều điều tôi phải nói thật rõ để anh hiểu thêm về công việc của tôi và thông cảm về những điều hết sức ngờ nghệch nên đôi khi anh và huuthang cũng đâm ra bực mình. Tôi hiện nay đang cộng tác với NXB Trẻ để lên danh mục sách sản xuất từ 30 năm nay. Tôi phải lọc lựa từ trong các ổ đĩa lưu của các kỹ thuật viên để đưa vào danh mục thế nên danh mục này rất nhiều, được chọn lọc theo nhiều tiêu chí: tháng sản xuất, thế loại định dạng file, thuộc đối tượng nào, tác giả, nguồn dữ liệu sản xuất thuộc kỹ thuật viên nào, lưu tại thư mục nào…Cái khó là có nhiều tựa sách được in lần đầu, tái bản ở nhiều thời điểm khác nhau; có nhiều tựa bao gồm nhiều tập, … đủ thứ mà đến giờ tôi cũng chưa trải nghiệm hết. Chỉ mới thấy một điều, có nhiều dữ liệu lặp đi lặp lại ở nhiều thời điểm hiện nay anh đã giúp làm báo trùng ở cột H, có nhiều định dạng thay đổi mà vừa qua tôi đều làm thủ công, nay đã tự động điều chỉnh tuy nhiên các sếp dự kiến có thể nó lên đến con số chục ngàn (hiện nay mới hơn 3.000) thì tôi đâm lo, không biết code của anh va huuthang có áp dụng được không? Vì mới chạy đến dòng thứ 2632 thì chức năng TRÙNG đã thấy khi có khi không, nhưng copy cho 1 file khác, xóa bớt dòng đi thì nó chức năng TRÙNG hiện lên rất nhanh.

Các bạn thông cảm dùm, vì tôi biết tính các bạn hay giúp mọi người nhưng quả thật tôi cũng không rành rẽ lắm về Excel nên các anh giúp tôi thêm lần nữa. Chân thành cảm ơn.
 
Web KT

Bài viết mới nhất

Back
Top Bottom