Kiểm tra chưa nhập đủ số liệu

[lp0072021]

Chào các Anh/Chị,
Em nhờ anh chị viết giúp em VBA để sau khi nhập liệu xong thì kiểm tra nếu nhập mã mà không nhập tên ( và ngược lại nhập tên mà không nhập mã) sẽ hiện thông báo hộp thoại "chưa nhập liệu đủ" và hiện màu ở ô chưa nhập liệu đủ. Cảm ơn các Anh/Chị ạ.

 

[snow25]

Chào các Anh/Chị,
Em nhờ anh chị viết giúp em VBA để sau khi nhập liệu xong thì kiểm tra nếu nhập mã mà không nhập tên ( và ngược lại nhập tên mà không nhập mã) sẽ hiện thông báo hộp thoại "chưa nhập liệu đủ" và hiện màu ở ô chưa nhập liệu đủ. Cảm ơn các Anh/Chị ạ.

Thử code.

Sub abc()
    Dim lr As Long, lr1 As Long, i As Long
    With Sheet1
            lr = .Range("B" & Rows.Count).End(xlUp).Row
            lr1 = .Range("C" & Rows.Count).End(xlUp).Row
            If lr1 > lr Then lr = lr1
            .Range("B7:C" & lr).Interior.ColorIndex = 0
            For i = 7 To lr
                If Len(.Range("B" & i).Value) = 0 Or Len(.Range("c" & i).Value) = 0 Then
                    .Range("B" & i).Resize(, 2).Interior.ColorIndex = 6
                End If
            Next i
    End With
End Sub

 

[lp0072021]

Thử code.

Sub abc()
    Dim lr As Long, lr1 As Long, i As Long
    With Sheet1
            lr = .Range("B" & Rows.Count).End(xlUp).Row
            lr1 = .Range("C" & Rows.Count).End(xlUp).Row
            If lr1 > lr Then lr = lr1
            .Range("B7:C" & lr).Interior.ColorIndex = 0
            For i = 7 To lr
                If Len(.Range("B" & i).Value) = 0 Or Len(.Range("c" & i).Value) = 0 Then
                    .Range("B" & i).Resize(, 2).Interior.ColorIndex = 6
                End If
            Next i
    End With
End Sub

Mình thử rồi, bạn sửa lại chỗ này giúp mình với :
1. Bổ sung hộp thoại thông báo " Nhập thiếu"
2. Bỏ qua dòng trống không có số liệu ( bỏ qua dòng không có số liệu của 2 cột ). Chỉ báo ở dòng mà 1 trong 2 cột thiếu số liệu thôi.
Cảm ơn bạn nhé

 

[SA_DQ]

Chào các Anh/Chị,
Em nhờ anh chị viết giúp em VBA để sau khi nhập liệu xong thì kiểm tra nếu nhập mã mà không nhập tên ( và ngược lại nhập tên mà không nhập mã) sẽ hiện thông báo hộp thoại "chưa nhập liệu đủ" và hiện màu ở ô chưa nhập liệu đủ. Cảm ơn các Anh/Chị ạ.

Qui trình nhập liệu mình thấy sao sao ý. . .
? Nếu bạn đã nhớ & nhập mã của 1 người nào đó, thì cũng đồng thời có nghĩa là danh sách (DS) nhân sự này bạn đã lưu đâu đó (& ví dụ chí ít là 2 cột [Mã NV] & [Họ & Tên],. . . .
Nếu đã vậy thì khi bạn nhặp mã NV xong thì bắt 1 macro tìm trong DS đã có mã NV này chưa:
→ Nếu có thì nhập luôn cho bạn
→ Nếu chưa thì báo bạn biết rằng thì là mà 'Nothing'
?Cũng tương tự vậy với cột [Họ & Tên] mà mần

¿ Ta có thể tạo ra bộ mã NV trong cơ quan 1 cách khoa học để chúng trực quan với bạn hơn
Ví dụ như

Họ Đệm	Tên	Mã NV
Ardyatma Lee	Hà	ALH00
Ali Sumanto	Hà	ASH00
Âu Minh Tuaán	Hội	ATH00
Bạch Minh Ánh	Hội	BAH00
Bùi Thị Bắc	Hội	BBH00
Bùi Văn Chiến	Hà	BCH00
Biện Tuấn Em	Hội	BEH00
Brdyatma Free	Hà	BFH00
Bao Hoàng Huynh	Hà	BHH00
Bùi Bảo Huỳnh	Hà	BHH01
Bùi Đức Hoàn	Hội	BHH02
Bùi Thúy Hằng	Hội	BHH03
Bùi Thị Thu Hà	Pha	BHP00
Bùi	Hội	BJH00
Bùi Mỹ Khanh	Hà	BKH00
Bùi Trọng Khiêm	Hà	BKH01
Bùi Chí Khải	Hội	BKH02
Bùi Văn Linh	Hội	BLH00
Bao Hà Lan	Hội	BLH01
Bùi Chúc Lâm	Hội	BLH02

 

[lp0072021]

Qui trình nhập liệu mình thấy sao sao ý. . .
? Nếu bạn đã nhớ & nhập mã của 1 người nào đó, thì cũng đồng thời có nghĩa là danh sách (DS) nhân sự này bạn đã lưu đâu đó (& ví dụ chí ít là 2 cột [Mã NV] & [Họ & Tên],. . . .
Nếu đã vậy thì khi bạn nhặp mã NV xong thì bắt 1 macro tìm trong DS đã có mã NV này chưa:
→ Nếu có thì nhập luôn cho bạn
→ Nếu chưa thì báo bạn biết rằng thì là mà 'Nothing'
?Cũng tương tự vậy với cột [Họ & Tên] mà mần

¿ Ta có thể tạo ra bộ mã NV trong cơ quan 1 cách khoa học để chúng trực quan với bạn hơn
Ví dụ như

Họ Đệm	Tên	Mã NV
Ardyatma Lee	Hà	ALH00
Ali Sumanto	Hà	ASH00
Âu Minh Tuaán	Hội	ATH00
Bạch Minh Ánh	Hội	BAH00
Bùi Thị Bắc	Hội	BBH00
Bùi Văn Chiến	Hà	BCH00
Biện Tuấn Em	Hội	BEH00
Brdyatma Free	Hà	BFH00
Bao Hoàng Huynh	Hà	BHH00
Bùi Bảo Huỳnh	Hà	BHH01
Bùi Đức Hoàn	Hội	BHH02
Bùi Thúy Hằng	Hội	BHH03
Bùi Thị Thu Hà	Pha	BHP00
Bùi	Hội	BJH00
Bùi Mỹ Khanh	Hà	BKH00
Bùi Trọng Khiêm	Hà	BKH01
Bùi Chí Khải	Hội	BKH02
Bùi Văn Linh	Hội	BLH00
Bao Hà Lan	Hội	BLH01
Bùi Chúc Lâm	Hội	BLH02

Số liệu này được copy ở nhiều người nhập liệu , với lại không chỉ tên và mã nhân viên mình cần áp dụng cho nhiều trường hợp nhập thiếu nữa anh.

 

[VetMini]

Cái này dùng Conditional Formatting chứ ai lại dùng VBA?
Họa chăng làm biếng. Conditional Formatting phải tự làm. VBA có người làm giùm.