Tạo thêm hàng.

[hai_cm]

Chào các bạn!
Xin các bạn cho tôi hỏi một vấn đề như sau:
Khi tôi có một danh sách, Cột A là STT, cột B là Họ tên, cột C trống, cột D là số quản lý. Các bạn giúp mình sử lý sao cho khi cột quản lý ứng với Tên người nào mà có NBQ1 hoặc CTH1 thì Danh sách tự động Insert xuống thêm 2 hàng trống.
Rất mong được sự giúp đỡ của các bạ.

 

[tigertiger]

Chào các bạn!
Xin các bạn cho tôi hỏi một vấn đề như sau:
Khi tôi có một danh sách, Cột A là STT, cột B là Họ tên, cột C trống, cột D là số quản lý. Các bạn giúp mình sử lý sao cho khi cột quản lý ứng với Tên người nào mà có NBQ1 hoặc CTH1 thì Danh sách tự động Insert xuống thêm 2 hàng trống.
Rất mong được sự giúp đỡ của các bạ.

bạn gửi file dữ liệu vd cũng được lên đi

và thay đổi này có cần cập nhập liên tục k / hay chạy 1 lần

theo tigertiger thì chắc phải dùng VBA viết sub cho nó thui,

 

[hai_cm]

Trước tiên xin cám ơn bạn. Bạn xem file mau và giúp mình nhé.
http://www.box.net/shared/0v0tzvrk8s

 

[hai_cm]

Chèn thêm hàng.

Khi chèn thêm 2 hàng, 2 hàng này không đánh STT.

 

[boong]

Khi chèn thêm 2 hàng, 2 hàng này không đánh STT.

Không biết có được không nhưng cũng gửi lên để cùng học hỏi vậy! Có 1 chút rắc rối là mình không thể nào cho nó tự chèn dòng khi nhập liệu được mong bạn thông cảm nha!

 

[tigertiger]

Đơn giản thế này thui!!!

Trước tiên xin cám ơn bạn. Bạn xem file mau và giúp mình nhé.
http://www.box.net/shared/0v0tzvrk8s

Download file gửi kèm

tôi gán phím tắt

+ Bấm Ctrt+r (chạy macro chenhang) để chèn hàng theo ý
+ Bấm Ctrt+e (chạy macro xoahang) để xóa các hàng mới chèn - nếu thích

chúc thành công

Option Explicit


Public Sub chenhang()
   'Phim tat gan Ctrl+r
    Dim Er As Long, iR As Long
    
    Er = Range("D2").End(xlDown).Row
    
    For iR = Er To 2 Step -1
        If Range("E" & iR).Value = "NBQ1" Or Range("E" & iR).Value = "CTH1" Then
            Range("E" & iR + 1 & ":E" & iR + 2).EntireRow.Insert
            Range("D" & iR + 1).Value = 25000
            Range("D" & iR + 2).FormulaR1C1 = "=R[-2]C-R[-1]C"
            Range("D" & iR + 1 & ":D" & iR + 2).Font.ColorIndex = 5 'neu k thich mau thi bo dong nay di
        End If
    Next iR
        
End Sub


Public Sub xoahang()
'Phim tat gan Ctrl+e

    Dim Er As Long, iR As Long
    
    Er = Range("D2").End(xlDown).Row
    
    For iR = Er To 2 Step -1
        If Range("E" & iR).Value = "" Then
            Range("E" & iR).EntireRow.Delete
        End If
    Next iR
        
End Sub

 

[tigertiger]

Không biết có được không nhưng cũng gửi lên để cùng học hỏi vậy!
Có 1 chút rắc rối là mình không thể nào cho nó tự chèn dòng khi nhập liệu được mong bạn thông cảm nha!

Chắc không cần đến mức đâu, boong ơi, - vì tôi nghĩ nếu nhập thì nhập lun thêm 2 dòng trống lun còn gì

Chắc hẳn tác giả mún là có số liệu giờ chèn vào thui,

Chưa xem file của boong (vì hơi bận thông cảm nhé), boong xem file mình có khác gì không???

 

[boong]

Dựa theo ý của bác tigertiger nên có chút bổ sung phần thiếu sót đó. Cảm ơn bác đã nhắc nhở nha! Thân.

 

[hai_cm]

Cám ơn hai bạn rất nhiều.

 

[hai_cm]

Gởi bạn TigerTiger

Macro của bạn giúp ích mình rất nhiều. Bạn thêm cho mình một chút nửa nghe.

 

[boong]

Bạn thêm vào vài đoạn code nữa thôi!

Public Sub chenhang()    'Phim tat gan Ctrl+r     Dim Er As Long, iR As Long          Er = Range("D2").End(xlDown).Row          For iR = Er To 2 Step -1         If Range("E" & iR).Value = "NBQ1" Or Range("E" & iR).Value = "CTH1" Then             Range("E" & iR + 1 & ":E" & iR + 2).EntireRow.Insert             Range("D" & iR + 1).Value = 25000             Range("D" & iR + 2).FormulaR1C1 = "=R[-2]C-R[-1]C"             Range("[COLOR=red]E[/COLOR]" & iR + 1 & ":D" & iR + 2).Font.ColorIndex = 5 [COLOR=teal][COLOR=green]'neu k thich mau thi bo dong nay di[/COLOR] [/COLOR]            [COLOR=red]Range("E" & iR + 1).Value = "BD1*"             Range("E" & iR + 2).Value = "BD2*"             Range("E" & iR).Clear[/COLOR]         End If     Next iR          End Sub

Public Sub xoahang() 'Phim tat gan Ctrl+e     Dim Er As Long, iR As Long          Er = Range("D2").End(xlDown).Row          For iR = Er To 2 Step -1         If Range("[COLOR=#ff0000]B[/COLOR]" & iR).Value = "" Then             Range("[COLOR=red]B[/COLOR]" & iR).EntireRow.Delete         End If     Next iR          End Sub

Màu đỏ dùng để chỉ sự thay đổi.

 

[tigertiger]

Bạn thêm vào vài đoạn code nữa thôi!

ĐÚng rùi làm như boong là được

 

[hai_cm]

Một lần nửa xin cám ơn hai bạn rất nhiều.
Thân.