Tự động chèn dòng và điền nội dung vào ô theo từ khóa (1 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
vc_đi chơi

vc_đi chơi

Thành viên thường trực
Tham gia
21/9/19
Bài viết
201
Được thích
41
Xin chào các anh/chị trên diễn đàn!
Em có bài toán sau xin được sự giúp đỡ để em có thể áp dụng vào công việc.

Em muốn được giúp đỡ một đoạn code để khi chạy code tự động chèn dòng lên phía ngay bên trên dòng đó và điền nội dung vào ô cần điền theo từ khóa đầu câu nội dung trong ô, cụ thể như sau:
1/Trong Sheet (Danh muc NT cong viec): ứng với mỗi mã CV bao gồm dữ liệu:
Ví dụ:
Tương ứng với mã CV: AB.1001 thì bao gồm:
Số thứ tự (ô A9), Mã CV (ô D9), Mã LM (ô E10) và nội dung công việc (ô G9), nội dung lấy mẫu (ô G10) .
Xét từ khóa đầu dòng ô G9 : "Đắp đất" để chèn dòng lên luôn phía liền trên hàng đó và điền nội dung lấy mẫu vào ô trong cột H (sau khi chèn dòng thì ô điền là ô H11)
2/ Trong Sheet (Toi_TKhoa) là Sheet quy định từ khóa đầu dòng: dựa vào từ khóa đó để chèn dòng và điền dữ liệu
Em đăng hình để cụ thể và file đính kèm
Hình thứ nhất: File ban đầu
Hình Thứ 2 : Bài toán yêu cầu
Hình thứ 3: Kết quả mong muốn (làm bằng tay)
Rất mong các anh/chị giúp đỡ
****Giả sử sau khi có code để giải quyết bài toán và đã chạy code đó rồi thì có thể lấy lại bài toán như lúc chưa chạy code được không ạ?

Rất mong được sự giúp đỡ từ phía các anh/chị trên diễn đàn!
File ban dầu

file ban dau.png

Yêu cầu bài toán:

yc.png

Kết quả làm bằng tay:

req.png
 

File đính kèm

File đính kèm

Excel my love_1 đã viết:
Bạn xem nhé
Nhấp chuột vào đây để mở rộng...
Dạ! Em cảm ơn anh/chị.
Em vừa xem file anh/chị giúp.
Khi chạy code có vấn đề sau nhờ anh/chị xem cho em:


Khi nhấn chạy code lần thứ nhất:
loi1.png

Khi nhấn chạy code lần 2 và lần thứ 3:
anh/chị giúp em chỉ có những dữ liệu mới điền vào mới đươc cập nhập còn những cái đã chạy code rồi thì dữ nguyên. em chạy code lần 2 và 3 báo như sau:
23.png



Bài đã được tự động gộp:


Bài đã được tự động gộp:
 

File đính kèm

Cái lỗi N/A là do danh mục của bạn thiếu. Còn cái lặp mình sẽ sửa lại sau, mình về rồi.
 
Excel my love_1 đã viết:
Cái lỗi N/A là do danh mục của bạn thiếu. Còn cái lặp mình sẽ sửa lại sau, mình về rồi.
Nhấp chuột vào đây để mở rộng...
Dạ vâng, anh/chị xem giúp em. Nếu có thể như bài em đã nêu anh/chị lưu tâm giúp em:
Em cũng không biết diễn đạt thế nào cho khoa học, em hiểu nôm na là: Giúp em một đoạn code để có thể lấy lại bài toán ở trạng thái khi chưa chạy code (nghĩa là sau khi chạy code để diền dữ liệu như mong muốn rồi thì mình có thể nhấn nút nào đó nữa để lấy lại bài toán trước khi vừa chạy đoạn code lần 1)
 
Có bài này gần giống yêu cầu của bạn:
giaiphapexcel.com

Tự động chèn dòng và thêm từ khóa vào đầu nội dung của ô trong dòng vừa được chèn

Xin chào các anh/chị! Em có vấn đề sau xin được giúp đỡ : Những dòng trong cột D có Mã CV tương ứng với nội dung công việc ở cột G mà nội dung công việc ở cột G có từ khóa đầu nội dung là "Bê tông" thì tự động chèn một dòng trên ngay dòng đó. Nội dung của dòng vừa được chèn từ cột A đến cột BM...
giaiphapexcel.com giaiphapexcel.com
 
Ba Tê đã viết:
Có bài này gần giống yêu cầu của bạn:
giaiphapexcel.com

Tự động chèn dòng và thêm từ khóa vào đầu nội dung của ô trong dòng vừa được chèn

Xin chào các anh/chị! Em có vấn đề sau xin được giúp đỡ : Những dòng trong cột D có Mã CV tương ứng với nội dung công việc ở cột G mà nội dung công việc ở cột G có từ khóa đầu nội dung là "Bê tông" thì tự động chèn một dòng trên ngay dòng đó. Nội dung của dòng vừa được chèn từ cột A đến cột BM...
giaiphapexcel.com giaiphapexcel.com
Nhấp chuột vào đây để mở rộng...
Dạ! đây là phần mềm tính phí, em muốn bổ sung thêm code vào để phục vụ cho công việc.
Em có vừa coi bài thầy gửi.
Cũng na na một chút.
File em vừa xem cũng chèn dòng nhưng chỉ chèn được một mã thì phải.
Thầy xem giúp em mới ạ!
 
Lần chỉnh sửa cuối:
vc_đi chơi đã viết:
Dạ! Em cảm ơn anh/chị.
Em vừa xem file anh/chị giúp.
Khi chạy code có vấn đề sau nhờ anh/chị xem cho em:


Khi nhấn chạy code lần thứ nhất:
View attachment 242315

Khi nhấn chạy code lần 2 và lần thứ 3:
anh/chị giúp em chỉ có những dữ liệu mới điền vào mới đươc cập nhập còn những cái đã chạy code rồi thì dữ nguyên. em chạy code lần 2 và 3 báo như sau:
View attachment 242316



Bài đã được tự động gộp:


Bài đã được tự động gộp:
Nhấp chuột vào đây để mở rộng...
File này đã khắc phục lỗi chạy lặp và các lỗi chính tả, (mình tính viết chơi chơi cho vui, chứ cũng không nghĩ bạn bắt bẻ từ ngữ ghê quá hết thấy vui rồi)
Bạn xem thử
Mình đang bận rồi, sẽ không còn lần nữa đâu (bạn mở code ra đọc mình có ghi chú rõ trong đó rồi, tự mày mò nghiên cứu mà làm bạn ạ)
Xôi gấc do tự mình làm ra ăn sẽ no và ngon hơn đấy bạn nhé
 

File đính kèm

Lần chỉnh sửa cuối:
Excel my love_1 đã viết:
File này đã khắc phục lỗi chạy lặp và các lỗi chính tả, (mình tính viết chơi chơi cho vui, chứ cũng không nghĩ bạn bắt bẻ từ ngữ ghê quá hết thấy vui rồi)
Bạn xem thử
Mình đang bận rồi, sẽ không còn lần nữa đâu (bạn mở code ra đọc mình có ghi chú rõ trong đó rồi, tự mày mò nghiên cứu mà làm bạn ạ)
Xôi gấc do tự mình làm ra ăn sẽ no và ngon hơn đấy bạn nhé
Nhấp chuột vào đây để mở rộng...
Vâng, em xin cảm ơn anh/chị.
Không phải em bắt bẻ mà em xin được giúp và nhờ anh/chị để em có thể ứng dụng vào công việc thôi.
Nếu mà có lỗi như vậy em phải sửa thủ công.
Em cũng không biết vba để chỉnh sửa. Nếu có gì phật ý xin được thứ lỗi!
Em có xem code anh/chị làm giúp.
Giả sử trong sheet (Toi_TuKhoa) em xóa :dữ liệu ban đầu (Xóa nội dung ô C10) hoặc ô B10 hoặc xóa cả 2 nội dung trong ô C10 và B10 thì ứng với mã công việc được xóa nội dung như trên thì trong sheet (Danh muc NT cong viec) tương ứng với mã CV đó có thể như lúc ban đầu (như lúc chưa chạy code để tạo dòng được không ạ?) và nếu không có mã CV trong ô B10 hoặc nội dung CV trong ô B10 thì khi chạy code "Tạo Dòng" sẽ không chèn dòng và điền nội dung lấy mẫu tương ứng với mã CV.
Rất mong được sự giúp đỡ của các anh/chị trên diễn đàn GPE.
aaa.pngbbbbbbbbbbb.png
 
Lần chỉnh sửa cuối:
vc_đi chơi đã viết:
Xin chào các anh/chị trên diễn đàn!
Em có bài toán sau xin được sự giúp đỡ để em có thể áp dụng vào công việc.

Em muốn được giúp đỡ một đoạn code để khi chạy code tự động chèn dòng lên phía ngay bên trên dòng đó và điền nội dung vào ô cần điền theo từ khóa đầu câu nội dung trong ô, cụ thể như sau:
1/Trong Sheet (Danh muc NT cong viec): ứng với mỗi mã CV bao gồm dữ liệu:
Ví dụ:
Tương ứng với mã CV: AB.1001 thì bao gồm:
Số thứ tự (ô A9), Mã CV (ô D9), Mã LM (ô E10) và nội dung công việc (ô G9), nội dung lấy mẫu (ô G10) .
Xét từ khóa đầu dòng ô G9 : "Đắp đất" để chèn dòng lên luôn phía liền trên hàng đó và điền nội dung lấy mẫu vào ô trong cột H (sau khi chèn dòng thì ô điền là ô H11)
2/ Trong Sheet (Toi_TKhoa) là Sheet quy định từ khóa đầu dòng: dựa vào từ khóa đó để chèn dòng và điền dữ liệu
Em đăng hình để cụ thể và file đính kèm
Hình thứ nhất: File ban đầu
Hình Thứ 2 : Bài toán yêu cầu
Hình thứ 3: Kết quả mong muốn (làm bằng tay)
Rất mong các anh/chị giúp đỡ
****Giả sử sau khi có code để giải quyết bài toán và đã chạy code đó rồi thì có thể lấy lại bài toán như lúc chưa chạy code được không ạ?

Rất mong được sự giúp đỡ từ phía các anh/chị trên diễn đàn!
File ban dầu



Yêu cầu bài toán:



Kết quả làm bằng tay:
Nhấp chuột vào đây để mở rộng...
Bạn làm rõ thêm: Cột Mã CV của sheet "Toi_TuKhoa" & sheet "Danh muc NT cong viec" là có đồng nhất hay không?
 
CHAOQUAY đã viết:
Bạn làm rõ thêm: Cột Mã CV của sheet "Toi_TuKhoa" & sheet "Danh muc NT cong viec" là có đồng nhất hay không?
Nhấp chuột vào đây để mở rộng...
Dạ! đồng nhất ạ! em vô ý vừa xem lại ảnh, em sửa lại file đính kèm #1 cho đồng nhất nhưng đã không hiện được sửa lại nữa!
Xin được sự giúp đỡ của anh/chị.
Em cảm ơn nhiều
Bài đã được tự động gộp:
 
vc_đi chơi đã viết:
Dạ! đồng nhất ạ! em vô ý vừa xem lại ảnh, em sửa lại file đính kèm #1 cho đồng nhất nhưng đã không hiện được sửa lại nữa!
Xin được sự giúp đỡ của anh/chị.
Em cảm ơn nhiều
Bài đã được tự động gộp:
Nhấp chuột vào đây để mở rộng...
Bạn chạy thử code chèn thêm dòng dưới đây
Xóa dòng sẽ để sau
Mã: 
Option Explicit

Sub A_Chenthem()
Dim MCV
Dim Tam
Dim rws, cls, i, j, k
Dim DicTt As Object
Set DicTt = CreateObject("Scripting.Dictionary")
With Sheets("Toi_TuKhoa")
    rws = .Range("I" & Rows.Count).End(xlUp).Row
    MCV = .Range("B10:I" & rws)
    rws = UBound(MCV)
End With
ReDim Tam(1 To 5)
For i = 1 To rws
    Tam(1) = MCV(i, 2)
    Tam(2) = MCV(i, 4)
    Tam(3) = MCV(i, 5)
    Tam(4) = "LM"
    Tam(5) = MCV(i, 8)
    DicTt(MCV(i, 1)) = Tam
Next i
With Sheets("Danh muc NT cong viec")
    .Select
    rws = .Range("D" & Rows.Count).End(xlUp).Row
    For i = rws To 9 Step -1
        If DicTt.Exists(.Range("D" & i).Value) = True Then
            Tam = DicTt(.Range("D" & i).Value)
            If .Range("D" & i - 1) <> Tam(2) Then
                .Range("D" & i).EntireRow.Insert
                .Range("A" & i + 1 & ":BL" & i + 1).Copy
                .Range("A" & i).PasteSpecial Paste:=xlPasteFormats
                Application.CutCopyMode = False
                .Range("A" & i).Select
                
                .Range("A" & i) = .Range("A" & i + 1)
                .Range("D" & i) = Tam(2)
                .Range("F" & i) = .Range("F" & i + 1)
                .Range("G" & i) = Replace(.Range("G" & i + 1), Tam(1), Tam(3))
                .Range("H" & i + 2) = Replace(.Range("G" & i + 1), Tam(1), Tam(5))
            End If
        End If
    Next i
End With
End Sub
 
CHAOQUAY đã viết:
Bạn chạy thử code chèn thêm dòng dưới đây
Xóa dòng sẽ để sau
Mã: 
Option Explicit

Sub A_Chenthem()
Dim MCV
Dim Tam
Dim rws, cls, i, j, k
Dim DicTt As Object
Set DicTt = CreateObject("Scripting.Dictionary")
With Sheets("Toi_TuKhoa")
    rws = .Range("I" & Rows.Count).End(xlUp).Row
    MCV = .Range("B10:I" & rws)
    rws = UBound(MCV)
End With
ReDim Tam(1 To 5)
For i = 1 To rws
    Tam(1) = MCV(i, 2)
    Tam(2) = MCV(i, 4)
    Tam(3) = MCV(i, 5)
    Tam(4) = "LM"
    Tam(5) = MCV(i, 8)
    DicTt(MCV(i, 1)) = Tam
Next i
With Sheets("Danh muc NT cong viec")
    .Select
    rws = .Range("D" & Rows.Count).End(xlUp).Row
    For i = rws To 9 Step -1
        If DicTt.Exists(.Range("D" & i).Value) = True Then
            Tam = DicTt(.Range("D" & i).Value)
            If .Range("D" & i - 1) <> Tam(2) Then
                .Range("D" & i).EntireRow.Insert
                .Range("A" & i + 1 & ":BL" & i + 1).Copy
                .Range("A" & i).PasteSpecial Paste:=xlPasteFormats
                Application.CutCopyMode = False
                .Range("A" & i).Select
         
                .Range("A" & i) = .Range("A" & i + 1)
                .Range("D" & i) = Tam(2)
                .Range("F" & i) = .Range("F" & i + 1)
                .Range("G" & i) = Replace(.Range("G" & i + 1), Tam(1), Tam(3))
                .Range("H" & i + 2) = Replace(.Range("G" & i + 1), Tam(1), Tam(5))
            End If
        End If
    Next i
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Em xin cảm ơn! Chúc anh/chị ngày mới nhiều may mắn!
Em chạy thử code anh/chị giúp: đã chèn được dòng và điền được dữ liệu như mong muốn.
Nhờ anh/chị giúp em xóa dòng được chèn và xóa nội dung lấy mẫu được điền, có vấn đề sau em xin được hỏi thêm, cụ thể như sau:
1/ Xóa dòng em trình bày lại như sau (có thay đổi so với ban đầu một chút):
Xóa nội dung đã được điền lấy mẫu và xóa dòng đã được chèn để lấy lại dữ liệu ban đầu tương ứng với mã CV đó:
Giả sử tương ứng với mã CV: AB.1001 trong sheet (Toi_TuKhoa):
+ Nếu xóa ô F10 trong "Nội dung được chèn trong ô của cột G được" thì sẽ xóa dòng (dòng số 9) được chèn.
+ Xóa ô I10 trong nội dung "Từ khóa được điền vào để thay thế các từ khóa đầu câu tương ứng với dòng lấy mẫu" thì sẽ xóa được nội dung đã được điền vào trong ô H11.
2/ Trong Sheet (Toi_TuKhoa) sau khi đã chạy code: tương ứng với mã CV: AB.1001 Nhờ anh/chị giúp để khi sửa lại nội dung ô F10 và ô I10 so với nội dung ban đầu thì cập nhập được dữ liệu thay thay đổi đó ở dòng đã chèn và dữ liệu đã được điền.
Rất mong được anh/chị giúp đỡ!
 
Lần chỉnh sửa cuối:
vc_đi chơi đã viết:
...
Nhờ anh/chị giúp em xóa dòng được chèn và xóa nội dung lấy mẫu được điền, có vấn đề sau em xin được hỏi thêm, cụ thể như sau:
1/ Xóa dòng em trình bày lại như sau (có thay đổi so với ban đầu một chút):
Xóa nội dung đã được điền lấy mẫu và xóa dòng đã được chèn để lấy lại dữ liệu ban đầu tương ứng với mã CV đó:
Giả sử tương ứng với mã CV: AB.1001 trong sheet (Toi_TuKhoa):
+ Nếu xóa ô F10 trong "Nội dung được chèn trong ô của cột G được" thì sẽ xóa dòng (dòng số 9) được chèn.
+ Xóa ô I10 trong nội dung "Từ khóa được điền vào để thay thế các từ khóa đầu câu tương ứng với dòng lấy mẫu" thì sẽ xóa được nội dung đã được điền vào trong ô H11.
2/ Trong Sheet (Toi_TuKhoa) sau khi đã chạy code: tương ứng với mã CV: AB.1001 giờ em muốn sửa lại nội dung ô F10 và ô I10 so với nội dung ban đầu, để cập nhập được dữ liệu thay thay đối đó thì phải làm thế nào ạ?
Rất mong được anh/chị giúp đỡ!
Nhấp chuột vào đây để mở rộng...
Khi nào bạn cần thực hiện công việc xóa:
1. Chạy 1 đoạn code là xóa dòng & nội dung chèn thêm không theo điều kiện nào khác. Tức là bấm là xóa
2. Thay đổi tại I10 hoặc F10 trong sheet To_Tukhoa thì xóa
---

Phần chữ đậm của bạn: Xóa nhưng mã CV vẫn còn?
 
CHAOQUAY đã viết:
Khi nào bạn cần thực hiện công việc xóa:
1. Chạy 1 đoạn code là xóa dòng & nội dung chèn thêm không theo điều kiện nào khác. Tức là bấm là xóa
2. Thay đổi tại I10 hoặc F10 trong sheet To_Tukhoa thì xóa
---

Phần chữ đậm của bạn: Xóa nhưng mã CV vẫn còn?
Nhấp chuột vào đây để mở rộng...
1/ Dạ! Nếu xóa nội dung trong ô F10 thì dòng được chèn sẽ bị xóa hoặc xóa nội dung trong ô I10 thì nội dung đã được điền sẽ bị xóa.
(Chỉ xóa những dòng đã chèn và nội dung đã được điền, mã CV vẫn còn ạ!
Cái nội dung mình xóa trong sheet (Toi_TuKhoa) là mình xóa bằng tay theo ý muốn, Sau khi xóa bằng tay nhờ anh/chị giúp một đoạn code để xóa hàng đã chèn và nội dung đã điền)
2/ Còn khi thayđổi dữ liệu trong ô E10, F10 và ô I10 thì sẽ cập nhập được dữ liệu mới của dòng và nội dung được điền trong Sheet(Danh muc NT Cong viec).
Anh/chị xem giúp em!
 
vc_đi chơi đã viết:
1/ Dạ! Nếu xóa nội dung trong ô F10 thì dòng được chèn sẽ bị xóa hoặc xóa nội dung trong ô I10 thì nội dung đã được điền sẽ bị xóa.
(Chỉ xóa những dòng đã chèn và nội dung đã được điền, mã CV vẫn còn ạ!
Cái nội dung mình xóa trong sheet (Toi_TuKhoa) là mình xóa bằng tay theo ý muốn, Sau khi xóa bằng tay nhờ anh/chị giúp một đoạn code để xóa hàng đã chèn và nội dung đã điền)
2/ Còn khi thayđổi dữ liệu trong ô E10, F10 và ô I10 thì sẽ cập nhập được dữ liệu mới của dòng và nội dung được điền trong Sheet(Danh muc NT Cong viec).
Anh/chị xem giúp em!
Nhấp chuột vào đây để mở rộng...
Có nghĩa là khi cột F & I của sheet (Toi_TuKhoa) thay đổi thì sheet bên kia thay đổi theo. Nếu ô rỗng thì bên kia xóa, khác rỗng thì cập nhật?
Việc xóa trực tiếp trở về như ban đầu mà không theo điều kiện gì là bỏ?

Chốt nhé
 
CHAOQUAY đã viết:
Có nghĩa là khi cột F & I của sheet (Toi_TuKhoa) thay đổi thì sheet bên kia thay đổi theo. Nếu ô rỗng thì bên kia xóa, khác rỗng thì cập nhật?
Việc xóa trực tiếp trở về như ban đầu mà không theo điều kiện gì là bỏ?

Chốt nhé
Nhấp chuột vào đây để mở rộng...
Bài đã được tự động gộp:

Dạ! anh/chị bổ sung cho em xin thêm cái nội dung trong cột E của Sheet (Toi_TuKhoa) thay đổi thì nội dung trong ô của cột được chèn (cột D) trong Sheet (Dannh muc NT cong viec) cũng được cập nhập theo ạ!
Em xin cảm ơn!
2222.png
 
vc_đi chơi đã viết:
Bài đã được tự động gộp:

Dạ! anh/chị bổ sung cho em xin thêm cái nội dung trong cột E của Sheet (Toi_TuKhoa) thay đổi thì nội dung trong ô của cột được chèn (cột D) trong Sheet (Dannh muc NT cong viec) cũng được cập nhập theo ạ!
Em xin cảm ơn!
View attachment 242403
Nhấp chuột vào đây để mở rộng...
Chuột phải vào sheet tab "Toi_TuKhoa", chọn view code, dán đoạn code dưới đây vào --> nhấn alt+Q
Thử thay đổi bên sheet toi_tukhoa các cột E, F, I để kiểm tra
Mã: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
    Dim tukhoa0
    Dim mcv0, mcv1
    Dim rws, i
    tukhoa0 = Target.Offset(, -3)
    mcv0 = Target.Offset(, -4).Value
    mcv1 = Target.Offset(, -1).Value
    With Sheets("Danh muc NT cong viec")
        rws = .Range("D" & Rows.Count).End(xlUp).Row
        For i = rws To 9 Step -1
            If .Range("D" & i).Value = mcv1 And .Range("D" & i + 1).Value = mcv0 Then
                If Target.Value = "" Then
                    .Range("D" & i).EntireRow.Delete
                Else
                    .Range("G" & i).Value = Replace(.Range("G" & i + 1).Value, tukhoa0, Target.Value)
                End If
                Exit For
            End If
        Next i
    End With
End If

If Target.Column = 9 Then
    tukhoa0 = Target.Offset(, -6)
    mcv0 = Target.Offset(, -7).Value
    mcv1 = Target.Offset(, -4).Value
    With Sheets("Danh muc NT cong viec")
        rws = .Range("D" & Rows.Count).End(xlUp).Row
        For i = rws To 9 Step -1
            If .Range("D" & i).Value = mcv1 And .Range("D" & i + 1).Value = mcv0 Then
                .Range("H" & i + 2).Value = Replace(.Range("G" & i + 1).Value, tukhoa0, Target.Value)
                Exit For
            End If
        Next i
    End With
End If

If Target.Column = 5 Then
    mcv0 = Target.Offset(, -3).Value
    With Sheets("Danh muc NT cong viec")
        rws = .Range("D" & Rows.Count).End(xlUp).Row
        For i = rws To 9 Step -1
            If .Range("D" & i).Value = mcv0 And .Range("A" & i).Value = .Range("A" & i - 1).Value Then
                .Range("D" & i - 1).Value = Target.Value
                Exit For
            End If
        Next i
    End With
End If
End Sub
 
CHAOQUAY đã viết:
Chuột phải vào sheet tab "Toi_TuKhoa", chọn view code, dán đoạn code dưới đây vào --> nhấn alt+Q
Thử thay đổi bên sheet toi_tukhoa các cột E, F, I để kiểm tra
Mã: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
    Dim tukhoa0
    Dim mcv0, mcv1
    Dim rws, i
    tukhoa0 = Target.Offset(, -3)
    mcv0 = Target.Offset(, -4).Value
    mcv1 = Target.Offset(, -1).Value
    With Sheets("Danh muc NT cong viec")
        rws = .Range("D" & Rows.Count).End(xlUp).Row
        For i = rws To 9 Step -1
            If .Range("D" & i).Value = mcv1 And .Range("D" & i + 1).Value = mcv0 Then
                If Target.Value = "" Then
                    .Range("D" & i).EntireRow.Delete
                Else
                    .Range("G" & i).Value = Replace(.Range("G" & i + 1).Value, tukhoa0, Target.Value)
                End If
                Exit For
            End If
        Next i
    End With
End If

If Target.Column = 9 Then
    tukhoa0 = Target.Offset(, -6)
    mcv0 = Target.Offset(, -7).Value
    mcv1 = Target.Offset(, -4).Value
    With Sheets("Danh muc NT cong viec")
        rws = .Range("D" & Rows.Count).End(xlUp).Row
        For i = rws To 9 Step -1
            If .Range("D" & i).Value = mcv1 And .Range("D" & i + 1).Value = mcv0 Then
                .Range("H" & i + 2).Value = Replace(.Range("G" & i + 1).Value, tukhoa0, Target.Value)
                Exit For
            End If
        Next i
    End With
End If

If Target.Column = 5 Then
    mcv0 = Target.Offset(, -3).Value
    With Sheets("Danh muc NT cong viec")
        rws = .Range("D" & Rows.Count).End(xlUp).Row
        For i = rws To 9 Step -1
            If .Range("D" & i).Value = mcv0 And .Range("A" & i).Value = .Range("A" & i - 1).Value Then
                .Range("D" & i - 1).Value = Target.Value
                Exit For
            End If
        Next i
    End With
End If
End Sub
Nhấp chuột vào đây để mở rộng...
Vâng.
1/ Khi xóa nội dung trong cột F của Sheet (Toi_TuKhoa) thì dòng bên Sheet (Danh muc NT cong viec) đã được xóa đi, nhưng khi chạy lại code "A_Chenthem" thì dòng vẫn được chèn mặc dù nội dung tương ứng với mã CV trong cột F và cột I trống (Xin được anh/chị giúp để nếu nội dung trong cột F và I của Sheet (Toi_TuKhoa) là trống <có thể ban đầu trống hoặc trống vì bị xóa đi bằng tay sau khi chạy code "A_Chenthem" > thì dòng không được chèn khi chạy lại code "A_Chenthem".
2/ Khi xóa nội dung trong cột I của Sheet (Toi_TuKhoa) thì nội dung được điền trong cột H của sheet (Danh muc NT cong viec) không xóa hết đi <Như hình đăng> mà chỉ xóa được những từ khóa (anh/chị giúp em xóa hết cả nội dung trong ô của cột H được điền khi xóa nội dung trong cột I của Sheet (Toi_TuKhoa) và khi chạy lại code "A_Chenthem" nếu dữ liệu cột I trong sheet (Toi_TuKhoa) mà trống <có thể ban đầu trống hoặc trống vì bị xóa đi bằng tay sau khi chạy code "A_Chenthem" > thì nội dung trong ô H là không có.
Em cảm ơn!

vvvvv.png
 

File đính kèm

Lần chỉnh sửa cuối:
vc_đi chơi đã viết:
Vâng.
1/ Khi xóa nội dung trong cột F của Sheet (Toi_TuKhoa) thì dòng bên Sheet (Danh muc NT cong viec) đã được xóa đi, nhưng khi chạy lại code "A_Chenthem" thì dòng vẫn được chèn mặc dù nội dung tương ứng với mã CV trong cột F và cột I trống (Xin được anh/chị giúp để nếu nội dung trong cột F và I của Sheet (Toi_TuKhoa) là trống <có thể ban đầu trống hoặc trống vì bị xóa đi bằng tay sau khi chạy code "A_Chenthem" > thì dòng không được chèn khi chạy lại code "A_Chenthem".
2/ Khi xóa nội dung trong cột I của Sheet (Toi_TuKhoa) thì nội dung được điền trong cột H của sheet (Danh muc NT cong viec) không xóa hết đi <Như hình đăng> mà chỉ xóa được những từ khóa (anh/chị giúp em xóa hết cả nội dung trong ô của cột H được điền khi xóa nội dung trong cột I của Sheet (Toi_TuKhoa) và khi chạy lại code "A_Chenthem" nếu dữ liệu cột I trong sheet (Toi_TuKhoa) mà trống <có thể ban đầu trống hoặc trống vì bị xóa đi bằng tay sau khi chạy code "A_Chenthem" > thì nội dung trong ô H là không có.
Em cảm ơn!

View attachment 242413
Nhấp chuột vào đây để mở rộng...
Bạn xem file đính kèm.
Trong file, code chen_them bổ sung lệnh xóa cột H sheet "Danh muc NT cong viec" trước khi chạy code, nếu không cần sẽ bỏ lệnh này sau
 

File đính kèm

CHAOQUAY đã viết:
Bạn xem file đính kèm.
Trong file, code chen_them bổ sung lệnh xóa cột H sheet "Danh muc NT cong viec" trước khi chạy code, nếu không cần sẽ bỏ lệnh này sau
Nhấp chuột vào đây để mở rộng...
Em cảm ơn anh/chị.
Gần được rồi ạ!
Như đã nêu trên anh/chị giúp em tách mối quan hệ giữa "Nội dung được chèn trong ô của cột G được" và "Từ khóa được điền vào để thay thế các từ khóa đầu câu tương ứng với dòng lấy mẫu" nghĩa là:
Trong Sheet (Toi_TuKhoa) nếu xóa nội dung cột F mà trong cột I vẫn có nội dung tương ứng với mã CV đó thì vẫn điền nội dung vào cột H của Sheet (Danh muc NT cong viec).
Như anh/chị giúp em ở trên, nếu nội dung trong cột F của sheet (Toi_TuKhoa) trống thì nội dung đã được điền trong cột H của Sheet (Danh muc NT cong viec) cũng bị xóa luôn mặc dù nội dung trong cột I của Sheet (Toi_TuKhoa) vẫn còn.
(Nghĩa là chèn dòng thì bao gồm luôn điền mẫu, nhưng nếu không chèn dòng vẫn có thể điền nội dung vào cột H do cột I tromg sheet (Toi_TuKhoa) vẫn có nội dung.)
 
Lần chỉnh sửa cuối:
vc_đi chơi đã viết:
Em cảm ơn anh/chị.
Gần được rồi ạ!
Như đã nêu trên anh/chị giúp em tách mối quan hệ giữa "Nội dung được chèn trong ô của cột G được" và "Từ khóa được điền vào để thay thế các từ khóa đầu câu tương ứng với dòng lấy mẫu" nghĩa là:
Trong Sheet (Toi_TuKhoa) nếu xóa nội dung cột F mà trong cột I vẫn có nội dung tương ứng với mã CV đó thì vẫn điền nội dung vào cột H của Sheet (Danh muc NT cong viec).
Như anh/chị giúp em ở trên, nếu nội dung trong cột F của sheet (Toi_TuKhoa) trống thì nội dung đã được điền trong cột H của Sheet (Danh muc NT cong viec) cũng bị xóa luôn mặc dù nội dung trong cột I của Sheet (Toi_TuKhoa) vẫn còn.
(Nghĩa là chèn dòng thì bao gồm luôn điền mẫu, nhưng nếu không chèn dòng vẫn có thể điền nội dung vào cột H do cột I tromg sheet (Toi_TuKhoa) vẫn có nội dung.)
Nhấp chuột vào đây để mở rộng...
Chịu thua rồi bạn.
Có lẽ bạn chờ thành viên khác hỗ trợ vậy nhé.
Thân chào!
 
Viết đến #25 rồi mà vẫn chưa vỡ được ý mình muốn gì để người khác hiểu. Cao siêu quá chăng hay tay nhanh hơn não
 
Excel my love_1 đã viết:
Viết đến #25 rồi mà vẫn chưa vỡ được ý mình muốn gì để người khác hiểu. Cao siêu quá chăng hay tay nhanh hơn não
Nhấp chuột vào đây để mở rộng...
Cái đó em đã nêu ở bài #21 rồi nhưng chưa rõ nghĩa nên người giúp có thể chưa rõ, với lại khi chạy code thực tế mới hình dung ra vấn đề.
Nếu có thể nhờ anh/chị giúp em nốt để em áp dụng vào công việc.
 
CHAOQUAY đã viết:
Chịu thua rồi bạn.
Có lẽ bạn chờ thành viên khác hỗ trợ vậy nhé.
Thân chào!
Nhấp chuột vào đây để mở rộng...
Xin mạng phép hỏi 2 bạn @Excel my love_1 và bạn @CHAOQUAY , mình có thể dùng code của 2 bạn đã giúp bạn @vc_đi chơi để nhào nặng lại cái bạn @vc_đi chơi muốn không ạ? Mình thấy code cùa 2 bạn hỗ trợ với nhau sẽ ra cái mà bạn ấy muốn ah. Vì 2 bạn đang hỗ trợ bạn ấy, mình không muốn xen ngang, nhưng nếu mà 2 bạn đồng ý thì mình mới dám làm. Cám ơn 2 bạn.
 
thnghiachau đã viết:
Xin mạng phép hỏi 2 bạn @Excel my love_1 và bạn @CHAOQUAY , mình có thể dùng code của 2 bạn đã giúp bạn @vc_đi chơi để nhào nặng lại cái bạn @vc_đi chơi muốn không ạ? Mình thấy code cùa 2 bạn hỗ trợ với nhau sẽ ra cái mà bạn ấy muốn ah. Vì 2 bạn đang hỗ trợ bạn ấy, mình không muốn xen ngang, nhưng nếu mà 2 bạn đồng ý thì mình mới dám làm. Cám ơn 2 bạn.
Nhấp chuột vào đây để mở rộng...
Hỗ trợ một tay đi bạn, càng đông càng vui mà bạn
 
Lần chỉnh sửa cuối:
vc_đi chơi đã viết:
Em cảm ơn anh/chị.
Gần được rồi ạ!
Như đã nêu trên anh/chị giúp em tách mối quan hệ giữa "Nội dung được chèn trong ô của cột G được" và "Từ khóa được điền vào để thay thế các từ khóa đầu câu tương ứng với dòng lấy mẫu" nghĩa là:
Trong Sheet (Toi_TuKhoa) nếu xóa nội dung cột F mà trong cột I vẫn có nội dung tương ứng với mã CV đó thì vẫn điền nội dung vào cột H của Sheet (Danh muc NT cong viec).
Như anh/chị giúp em ở trên, nếu nội dung trong cột F của sheet (Toi_TuKhoa) trống thì nội dung đã được điền trong cột H của Sheet (Danh muc NT cong viec) cũng bị xóa luôn mặc dù nội dung trong cột I của Sheet (Toi_TuKhoa) vẫn còn.
(Nghĩa là chèn dòng thì bao gồm luôn điền mẫu, nhưng nếu không chèn dòng vẫn có thể điền nội dung vào cột H do cột I tromg sheet (Toi_TuKhoa) vẫn có nội dung.)
Nhấp chuột vào đây để mở rộng...
Tôi được phép của các bạn đang theo thread này, nên tôi chỉnh lại tí xíu (dựa vào code của các bạn đã làm) để theo yêu cầu của bạn @vc_đi chơi
Bạn coi file đã đúng ý chưa nha.
 

File đính kèm

thnghiachau đã viết:
Tôi được phép của các bạn đang theo thread này, nên tôi chỉnh lại tí xíu (dựa vào code của các bạn đã làm) để theo yêu cầu của bạn @vc_đi chơi
Bạn coi file đã đúng ý chưa nha.
Nhấp chuột vào đây để mở rộng...
Em cảm ơn anh!
Xin được anh xem giúp:
Nếu thay đổi nội dung cột I trong sheet (Toi_TuKhoa) và sau đó chạy code "Xóa lấy mẫu" và chạy code "Ghi Lấy Mẫu" hoặc chạy luôn code "Ghi lấy mẫu" thì sẽ không có tác động, phải chạy code "Xóa dòng chèn" rồi chạy code "chèn dòng" tiếp đến chạy code " Ghi lấy mẫu" mới cập nhập dữ liệu thay đổi <Anh giúp em nếu thay đổi dữ liệu ở cột I trong Sheet (Toi_TuKhoa) và khi đó chạy code " Ghi lấy mẫu" sẽ có tác động để cập nhập dữ liệu thay đổi mà không cần phải chạy code"chèn dòng" sau đó chạy code " xóa dòng" thì mới cập nhập dữ liệu thay đổi>
 
vc_đi chơi đã viết:
Em cảm ơn anh!
Xin được anh xem giúp:
Nếu thay đổi nội dung cột I trong sheet (Toi_TuKhoa) và sau đó chạy code "Xóa lấy mẫu" và chạy code "Ghi Lấy Mẫu" hoặc chạy luôn code "Ghi lấy mẫu" thì sẽ không có tác động, phải chạy code "Xóa dòng chèn" rồi chạy code "chèn dòng" tiếp đến chạy code " Ghi lấy mẫu" mới cập nhập dữ liệu thay đổi <Anh giúp em nếu thay đổi dữ liệu ở cột I trong Sheet (Toi_TuKhoa) và khi đó chạy code " Ghi lấy mẫu" sẽ có tác động để cập nhập dữ liệu thay đổi mà không cần phải chạy code"chèn dòng" sau đó chạy code " xóa dòng" thì mới cập nhập dữ liệu thay đổi>
Nhấp chuột vào đây để mở rộng...
mai nhá... vợ bèo nheo rùi...
 
thnghiachau đã viết:
Xin mạng phép hỏi 2 bạn @Excel my love_1 và bạn @CHAOQUAY , mình có thể dùng code của 2 bạn đã giúp bạn @vc_đi chơi để nhào nặng lại cái bạn @vc_đi chơi muốn không ạ? Mình thấy code cùa 2 bạn hỗ trợ với nhau sẽ ra cái mà bạn ấy muốn ah. Vì 2 bạn đang hỗ trợ bạn ấy, mình không muốn xen ngang, nhưng nếu mà 2 bạn đồng ý thì mình mới dám làm. Cám ơn 2 bạn.
Nhấp chuột vào đây để mở rộng...
Mình đồng ý bạn nhé. Rất vui khi bạn tham gia hỗ trợ
 
vc_đi chơi đã viết:
Em cảm ơn anh!
Xin được anh xem giúp:
Nếu thay đổi nội dung cột I trong sheet (Toi_TuKhoa) và sau đó chạy code "Xóa lấy mẫu" và chạy code "Ghi Lấy Mẫu" hoặc chạy luôn code "Ghi lấy mẫu" thì sẽ không có tác động, phải chạy code "Xóa dòng chèn" rồi chạy code "chèn dòng" tiếp đến chạy code " Ghi lấy mẫu" mới cập nhập dữ liệu thay đổi <Anh giúp em nếu thay đổi dữ liệu ở cột I trong Sheet (Toi_TuKhoa) và khi đó chạy code " Ghi lấy mẫu" sẽ có tác động để cập nhập dữ liệu thay đổi mà không cần phải chạy code"chèn dòng" sau đó chạy code " xóa dòng" thì mới cập nhập dữ liệu thay đổi>
Nhấp chuột vào đây để mở rộng...
OK FIle của bạn đây
Hy vọng là cuối cùng
 

File đính kèm

Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

T
  • Question Question
Kết quả lọc dữ liệu từ sheet TONG HOP qua từng chi tiết (2 người xem)
Trả lời
2
Đọc
42
Hoàng Tuấn 868
H
N
  • Question Question
Sự kiện keydown & textbox user form
Trả lời
0
Đọc
26
nguyenduy39
N
S
Cảm ơn Admin đã duyệt
Trả lời
0
Đọc
30
samthai8017
S
S
Em muốn copy các dữ liệu ô họ tên đã bị gộp từ B9 đến E9. Em muốn pass sang ô B9 (sheet mới). Thank
Trả lời
4
Đọc
60
samthai8017
S
S
Xin các Pro chia sẻ giúp
Trả lời
4
Đọc
65
samthai8017
S
GPE-Trợ Lý
TALKSHOW 16 BẬT MÍ THỦ THUẬT GOOGLE SHEET: TỔNG HỢP DỮ LIỆU TỪ NHIỀU SHEET & FILE BĂNG IMPORTRANGE
Trả lời
1
Đọc
488
GPE-Trợ Lý
GPE-Trợ Lý
B
Em nhờ các bro giúp giải pháp in nhiều file ạ (1 người xem)
Trả lời
3
Đọc
65
Hoàng Tuấn 868
H
T
  • Question Question
Code VBA tra cứu kết quả trả về mảng dữ liệu
    • Cười
Trả lời
17
Đọc
328
LOGANWover
L
HeSanbi
  • Question Question
VBScript.RegExp sẽ bị xóa khỏi Windows: thư viện Pcre2 giải pháp thay thế tối ưu
    • Thích
    • Cảm ơn
Trả lời
1
Đọc
82
HeSanbi
HeSanbi
S
Xin hỏi các pro. Em muốn copy các dữ liệu ô họ tên đã bị gộp từ B9 đến E9. Em muốn pass sang ô B9 (sheet mới).
Trả lời
3
Đọc
62
samthai8017
S
T
Nhờ anh chị tìm giúp nguyên nhân không nhảy dữ liệu Pivotable
Trả lời
2
Đọc
77
thuhacoicoi
T
HeSanbi
  • Question Question
Chuyển mã VBA ứng dụng Excel 32 bit hoạt động trên cả 64bit (Hoàn toàn 0 phí)
    • Thích
Trả lời
0
Đọc
62
HeSanbi
HeSanbi
T
Ctrl + Shift + 0 không dùng để unhide cột được
Trả lời
24
Đọc
22K
Oji
O
quangminhici
Tặng Addin Word xuất Mail Merge có chức năng cắt ra nhiều file và gửi mail. (1 người xem)
    • Thích
    • Yêu thích
Trả lời
19
Đọc
4K
Hoàng Tuấn 868
H
Gà Công Nghệ
Nhờ anh chị chuyển hộ font chữ excel
Trả lời
3
Đọc
101
HeSanbi
HeSanbi
huytamlinh
Anh Chị giúp em sửa lỗi định dạng với ạ ! (1 người xem)
Trả lời
3
Đọc
53
Hoàng Tuấn 868
H
T
  • Question Question
Xin giúp em mã lệnh tổng hợp tự động lên bảng tổng hợp! (1 người xem)
Trả lời
1
Đọc
62
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
4
Đọc
928
nguyendang95
N
V
Quản lý xuất nhập vật tư trong kho
Trả lời
19
Đọc
768
LOGANWover
L
phuongnam366377
Học C++ từ số 0 – Bài học đầu tiên
    • Cảm ơn
Trả lời
4
Đọc
357
phuongnam366377
phuongnam366377
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom