Sửa code để chèn dòng và điền nội dung

Liên hệ QC
vc_đi chơi

vc_đi chơi

Thành viên hoạt động
Tham gia
21/9/19
Bài viết
159
Được thích
32
Xin chào các anh/chị trên diễn đàn.
Em có bài toán đã được các anh/chị trên diễn đàn giúp đỡ. Nhưng khi ứng dụng vào công việc thì có vấn đề sau xin được nhờ các anh/chị giúp em với ạ!
Code hiện tại xét đến mã CV (cột B) và Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) trong Sheet (Toi_TuKhoa) để chèn dòng và điền dữ liệu vào sheet (Danh muc NT cong viec).
Xin được anh/chị giúp em: chỉ xét đến Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) để chèn dòng và điền nội dung vào Sheet (Danh muc NT cong viec) <Bỏ đi, không xết đến mã CV (cột B) >
Trong file đính kèm có code.
Em xin cảm ơn nhiều!

llllllllllll.pngppppppppppppp.png
Bài đã được tự động gộp:

vc_đi chơi đã viết:
Xin chào các anh/chị trên diễn đàn.
Em có bài toán đã được các anh/chị trên diễn đàn giúp đỡ. Nhưng khi ứng dụng vào công việc thì có vấn đề sau xin được nhờ các anh/chị giúp em với ạ!
Code hiện tại xét đến mã CV (cột B) và Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) trong Sheet (Toi_TuKhoa) để chèn dòng và điền dữ liệu vào sheet (Danh muc NT cong viec).
Xin được anh/chị giúp em: chỉ xét đến Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) để chèn dòng và điền nội dung vào Sheet (Danh muc NT cong viec) <Bỏ đi, không xết đến mã CV (cột B) >
Em xin cảm ơn nhiều!
llllllllllll.pngppppppppppppp.png
Nhấp chuột vào đây để mở rộng...
Anh thnghiachau em xin phép được lấy bài anh đã giúp để nhờ được chỉnh sửa.
Mong anh bớt chút thời gian để giúp em một lần nữa ạ!
www.giaiphapexcel.com

Tự động chèn dòng và điền nội dung vào ô theo từ khóa

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ư...
www.giaiphapexcel.com www.giaiphapexcel.com
 

File đính kèm

  • File ban dau - GPE.xlsm
    68.9 KB · Đọc: 12
Lần chỉnh sửa cuối:
Chưa ưng thì vô chủ đề đó hỏi tiếp, cớ sao lại mở chủ đề mới.
 
Tôi chợt nhận ra không chỉ riêng excel hay macro mà cái gì bạn cũng mang đi hỏi :rolleyes:
 
vc_đi chơi đã viết:
Xin chào các anh/chị trên diễn đàn.
Em có bài toán đã được các anh/chị trên diễn đàn giúp đỡ. Nhưng khi ứng dụng vào công việc thì có vấn đề sau xin được nhờ các anh/chị giúp em với ạ!
Code hiện tại xét đến mã CV (cột B) và Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) trong Sheet (Toi_TuKhoa) để chèn dòng và điền dữ liệu vào sheet (Danh muc NT cong viec).
Xin được anh/chị giúp em: chỉ xét đến Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) để chèn dòng và điền nội dung vào Sheet (Danh muc NT cong viec) <Bỏ đi, không xết đến mã CV (cột B) >
Trong file đính kèm có code.
Em xin cảm ơn nhiều!

View attachment 242573View attachment 242575
Bài đã được tự động gộp:


Anh thnghiachau em xin phép được lấy bài anh đã giúp để nhờ được chỉnh sửa.
Mong anh bớt chút thời gian để giúp em một lần nữa ạ!
www.giaiphapexcel.com

Tự động chèn dòng và điền nội dung vào ô theo từ khóa

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ư...
www.giaiphapexcel.com www.giaiphapexcel.com
Nhấp chuột vào đây để mở rộng...
Các anh/chị giúp em với ạ!
 
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 đã được các anh/chị trên diễn đàn giúp đỡ. Nhưng khi ứng dụng vào công việc thì có vấn đề sau xin được nhờ các anh/chị giúp em với ạ!
Code hiện tại xét đến mã CV (cột B) và Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) trong Sheet (Toi_TuKhoa) để chèn dòng và điền dữ liệu vào sheet (Danh muc NT cong viec).
Xin được anh/chị giúp em: chỉ xét đến Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) để chèn dòng và điền nội dung vào Sheet (Danh muc NT cong viec) <Bỏ đi, không xết đến mã CV (cột B) >
Trong file đính kèm có code.
Em xin cảm ơn nhiều!

View attachment 242573View attachment 242575
Bài đã được tự động gộp:


Anh thnghiachau em xin phép được lấy bài anh đã giúp để nhờ được chỉnh sửa.
Mong anh bớt chút thời gian để giúp em một lần nữa ạ!
www.giaiphapexcel.com

Tự động chèn dòng và điền nội dung vào ô theo từ khóa

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ư...
www.giaiphapexcel.com www.giaiphapexcel.com
Nhấp chuột vào đây để mở rộng...
xem code
Mã: 
Option Compare Text
Sub main()
  Call ChenDong_GhiLayMau_exe2(True, True)
End Sub
Sub ChenDong_GhiLayMau_exe2(ByVal blChenDong As Boolean, ByVal blGhiLayMau As Boolean)
  Dim sArr(), tmp$
  Dim sRow&, eRow&, i&, r&

  Application.ScreenUpdating = False
  With Sheets("Toi_TuKhoa")
    sArr = .Range("C10:I" & .Range("C" & Rows.Count).End(xlUp).Row).Value
  End With
  sRow = UBound(sArr)
 
  Sheets("Danh muc NT cong viec").Select
  eRow = Range("D" & Rows.Count).End(xlUp).Row
  For i = eRow To 9 Step -1
    If Range("A" & i).Value <> Empty Then
      If Range("A" & i).Value <> Range("A" & i - 1).Value And Range("A" & i).Value <> Range("A" & i + 1).Value Then
        tmp = Range("G" & i).Value
        For r = 1 To sRow
          If tmp Like sArr(r, 1) & "*" Then
            Range("D" & i).EntireRow.Insert
            Range("A" & i + 1).Resize(, 65).Copy
            Range("A" & i).PasteSpecial Paste:=xlPasteFormats
            Application.CutCopyMode = False
            
            Range("A" & i).Value = Range("A" & i + 1).Value
            Range("D" & i).Value = sArr(r, 3)
            Range("F" & i).Value = Range("F" & i + 1).Value
            If sArr(r, 4) = Empty Then sArr(r, 4) = sArr(r, 1)
            Range("G" & i).Value = Replace(Range("G" & i + 1), sArr(r, 1), sArr(r, 4))

            If blGhiLayMau Then
              If Range("E" & i + 2) = "LM" Then
                If sArr(r, 7) <> Empty Then
                  Range("H" & i + 2) = Replace(Range("G" & i + 1), sArr(r, 1), sArr(r, 7))
                End If
              End If
            End If
            Range("BM" & i) = "x"
            Exit For
          End If
        Next r
      End If
    End If
  Next i
  Application.ScreenUpdating = True
End Sub
 
HieuCD đã viết:
xem code
Mã: 
Option Compare Text
Sub main()
  Call ChenDong_GhiLayMau_exe2(True, True)
End Sub
Sub ChenDong_GhiLayMau_exe2(ByVal blChenDong As Boolean, ByVal blGhiLayMau As Boolean)
  Dim sArr(), tmp$
  Dim sRow&, eRow&, i&, r&

  Application.ScreenUpdating = False
  With Sheets("Toi_TuKhoa")
    sArr = .Range("C10:I" & .Range("C" & Rows.Count).End(xlUp).Row).Value
  End With
  sRow = UBound(sArr)

  Sheets("Danh muc NT cong viec").Select
  eRow = Range("D" & Rows.Count).End(xlUp).Row
  For i = eRow To 9 Step -1
    If Range("A" & i).Value <> Empty Then
      If Range("A" & i).Value <> Range("A" & i - 1).Value And Range("A" & i).Value <> Range("A" & i + 1).Value Then
        tmp = Range("G" & i).Value
        For r = 1 To sRow
          If tmp Like sArr(r, 1) & "*" Then
            Range("D" & i).EntireRow.Insert
            Range("A" & i + 1).Resize(, 65).Copy
            Range("A" & i).PasteSpecial Paste:=xlPasteFormats
            Application.CutCopyMode = False
         
            Range("A" & i).Value = Range("A" & i + 1).Value
            Range("D" & i).Value = sArr(r, 3)
            Range("F" & i).Value = Range("F" & i + 1).Value
            If sArr(r, 4) = Empty Then sArr(r, 4) = sArr(r, 1)
            Range("G" & i).Value = Replace(Range("G" & i + 1), sArr(r, 1), sArr(r, 4))

            If blGhiLayMau Then
              If Range("E" & i + 2) = "LM" Then
                If sArr(r, 7) <> Empty Then
                  Range("H" & i + 2) = Replace(Range("G" & i + 1), sArr(r, 1), sArr(r, 7))
                End If
              End If
            End If
            Range("BM" & i) = "x"
            Exit For
          End If
        Next r
      End If
    End If
  Next i
  Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Em cảm ơn anh!
Như nội dung đăng lên được xin giúp:
Anh đã giúp em chèn thêm dòng và điền nội dung lấy mẫu.
Xin được anh giúp:
Không xét đến nội dung mã CV (trong cột B)
1/ Chỉ Chèn dòng: Xét Nội dung (nếu không trống) cột F để đối chiếu với nội dung tương ứng trong cột C của Sheet (Toi_TuKhoa) để chèn dòng trong Sheet (Danh muc NT cong viec). Trong Sheet (Toi_TuKhoa) nếu cột C có lữ liệu mà tương ứng với nó cột F không điền dữ liệu thì dòng không chèn)
2/ Chỉ Ghi nội dung lấy mẫu: Xét Nội dung (nếu không trống) cột I để đối chiếu với nội dung tương ứng trong cột C của Sheet (Toi_TuKhoa) để điền nội dung lấy mẫu vào cột H trong Sheet (Danh muc NT cong viec). Trong Sheet (Toi_TuKhoa) nếu cột C có lữ liệu mà tương ứng với nó cột I không điền dữ liệu thì không điền nội dung)
3/ Ngược lại là có thể xóa những cái đã tạo ra ở trên cụ thể
+ Xóa dòng được chèn và ghi lấy mẫu
+ Xóa chèn dòng
+ Xóa ghi lấy mẫu.
Anh làm ơn giúp em với ạ!
Em cảm ơn anh!



4444.png
 

File đính kèm

  • File ban dau - GPE.xlsm
    65.2 KB · Đọc: 9
Lần chỉnh sửa cuối:
Maika8008 đã viết:
Đọc đi đọc lại yêu cầu của bạn rồi chạy các code trong file nhưng chẳng hiểu bạn muốn gì, Code chẳng xét gì đến mã trong cột B của sheet Toi_TuKhoa như bạn trình bày cả.
Nhấp chuột vào đây để mở rộng...
Bài em tải lên được giúp là đã chèn được dòng, điền được nội dung như mong muốn.
Nhưng ở trong sheet(Toi_TuKhoa) có căn cứ vào mã CV (cột B) và Xét từ khóa đầu câu tương ứng với nội dung CV (cột C) để chèn dòng và điền nội dung trong sheet(Danh muc NT cong viec) .Giờ em muốn chèn dòng và điền nội dung chỉ xét đến Xét từ khóa đầu câu tương ứng với nội dung CV (cột C) thôi, không thuộc vào mã CV (cột B) trong sheet (Toi_TuKhoa) nữa ạ!
Em có tải file #1 đính kèm, cảm ơn anh/chị đã quan tâm!
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

B
  • Question
Chuyển đổi dữ liệu sạng dạng mảng
Trả lời
5
Đọc
84
ongke0711
ongke0711
LuuAnh980
  • Question
Code lấy dữ liệu từ 3 file con.
Trả lời
11
Đọc
160
ho van luong
H
S
Nhờ giúp đỡ code in toàn bộ danh sách có điều kiện
Trả lời
6
Đọc
139
Hoàng Tuấn 868
H
S
  • Question
Không lấy đủ dữ liệu bằng kết nối ADO
Trả lời
0
Đọc
61
shnhatha221108
S
T
Không hiện dữ liệu ở ô công thức
Trả lời
3
Đọc
80
thien-16
T
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

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

Back
Top Bottom