Cần giúp đỡ tự động thêm dòng (Và tô màu vàng cho dòng thêm đó) dựa trên ký tự của ô (2 người xem)

Liên hệ QC

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

hung2412

Thành viên tích cực
Tham gia
5/8/08
Bài viết
929
Được thích
240
Giới tính
Nam
Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động thêm dòng đầu tiên (Và tô màu vàng cho dòng thêm đó)
cho nhóm ký tự giống nhau của các ô ở cột B (Các ký tự đầu giống nhau có thể từ 2 => 4 ký tự và không bao gồm ký tự là số) (Kiểu như là thêm dòng tiêu đề cho các nhóm ký tự giống nhau).
Ví dụ: Từ dòng 7 đến dòng 19 có ký tự đầu giống nhau ở cột B là "CT", từ dòng 20 đến dòng 31 có ký tự đầu giống nhau ở cột B là "HƯ", t
ừ dòng 32 đến dòng 41 có ký tự đầu giống nhau ở cột B là "KC", từ dòng 42 đến dòng 51 có ký tự đầu giống nhau ở cột B là "OPN" => Thêm dòng (Và tô màu vàng) giữa dòng 19 và dòng 20, thêm dòng (Và tô màu vàng) giữa dòng 31 và dòng 32,...
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm. Các ký tự đầu giống nhau có thể từ 2 => 4 ký tự và không bao gồm ký tự là số
 

File đính kèm

Lần chỉnh sửa cuối:
Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động thêm dòng đầu tiên (Và tô màu vàng cho dòng thêm đó)
cho nhóm ký tự giống nhau của các ô ở cột B (Các ký tự đầu giống nhau có thể từ 2 => 4 ký tự và không bao gồm ký tự là số) (Kiểu như là thêm dòng tiêu đề cho các nhóm ký tự giống nhau).
Ví dụ: Từ dòng 7 đến dòng 19 có ký tự đầu giống nhau ở cột B là "CT", từ dòng 20 đến dòng 31 có ký tự đầu giống nhau ở cột B là "HƯ", t
ừ dòng 32 đến dòng 41 có ký tự đầu giống nhau ở cột B là "KC", từ dòng 42 đến dòng 51 có ký tự đầu giống nhau ở cột B là "OPN" => Thêm dòng (Và tô màu vàng) giữa dòng 19 và dòng 20, thêm dòng (Và tô màu vàng) giữa dòng 31 và dòng 32,...
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm. Các ký tự đầu giống nhau có thể từ 2 => 4 ký tự và không bao gồm ký tự là số
Có phải bạn muốn như thế này không? Tuy nhiên muốn hỏi kỹ hơn một chút là mục đích của bạn chèn thêm dòng để làm gì, vì có thể có cách khác.
 

File đính kèm

Lần chỉnh sửa cuối:
Đã hiểu ý bạn, tuy nhiên muốn hỏi kỹ hơn một chút là mục đích của bạn chèn thêm dòng để làm gì, vì có thể có cách khác.
Mình bàn giao chứng từ cho người khác, phân cách các nhóm chứng từ bằng cách chèn thêm dòng cho dễ nhìn và khoa học đó mà. Như bạn làm trên file đó thì OK nhưng mình muốn chỉ là dòng trống và có màu vàng thôi ah.
 
Lần chỉnh sửa cuối:
Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động thêm dòng đầu tiên (Và tô màu vàng cho dòng thêm đó)
cho nhóm ký tự giống nhau của các ô ở cột B (Các ký tự đầu giống nhau có thể từ 2 => 4 ký tự và không bao gồm ký tự là số) (Kiểu như là thêm dòng tiêu đề cho các nhóm ký tự giống nhau).
Ví dụ: Từ dòng 7 đến dòng 19 có ký tự đầu giống nhau ở cột B là "CT", từ dòng 20 đến dòng 31 có ký tự đầu giống nhau ở cột B là "HƯ", t
ừ dòng 32 đến dòng 41 có ký tự đầu giống nhau ở cột B là "KC", từ dòng 42 đến dòng 51 có ký tự đầu giống nhau ở cột B là "OPN" => Thêm dòng (Và tô màu vàng) giữa dòng 19 và dòng 20, thêm dòng (Và tô màu vàng) giữa dòng 31 và dòng 32,...
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm. Các ký tự đầu giống nhau có thể từ 2 => 4 ký tự và không bao gồm ký tự là số
Chạy thử code này xem sao
PHP:
Public Sub ChenDong()
Dim DL, d As Long
Set DL = Sheet1.Range("A6", Sheet1.Range("G65000").End(xlUp))

Application.ScreenUpdating = False
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = True
.Pattern = "[a-z]+"
For d = DL.Rows.Count To 2 Step -1
If DL(d, 2) <> "" And DL(d - 1, 2) <> "" Then
If .Execute(DL(d, 2))(0) <> .Execute(DL(d - 1, 2))(0) Then
DL.Rows(d).Insert
DL.Rows(d).Interior.ColorIndex = 36 'Tô màu dòng mới
End If
End If
Next d
End With
Application.ScreenUpdating = True

End Sub
----------------
Làm xong mới nhớ vụ tô màu, bổ sung sau vậy.
----------------
Đã bổ sung tô màu
 
Lần chỉnh sửa cuối:
Chạy thử code này xem sao
PHP:
Public Sub ChenDong()
Dim DL, d As Long
Set DL = Sheet1.Range("A6", Sheet1.Range("G65000").End(xlUp))

Application.ScreenUpdating = False
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = True
.Pattern = "[a-z]+"
For d = DL.Rows.Count To 2 Step -1
If DL(d, 2) <> "" And DL(d - 1, 2) <> "" Then
If .Execute(DL(d, 2))(0) <> .Execute(DL(d - 1, 2))(0) Then
DL.Rows(d).Insert
DL.Rows(d).Interior.ColorIndex = 36 'Tô màu dòng mới
End If
End If
Next d
End With
Application.ScreenUpdating = True

End Sub
----------------
Làm xong mới nhớ vụ tô màu, bổ sung sau vậy.
----------------
Đã bổ sung tô màu
Chuẩn không cần chỉnh, cảm ơn bạn nhiều.
 
Web KT

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

Back
Top Bottom