Thông báo nội dung còn thiếu khi nhập liệu! (1 người xem)

[nnd1988]

Mình có một File văn bản. Mình muốn nhờ các bạn viết giúp đoạn code để thực hiện công việc như sau:
Ví dụ: Trong File mình có 3 cột B, C, D là 3 cột cấn nhập liệu. Nếu người dùng nhập đủ thì cột A sẽ không có thông báo gì. Nếu một trong 3 cột đó không nhập dữ liệu thì ở cột A sẽ đưa ra thông báo tên cột còn thiếu đó bằng chữ màu đỏ.
Trong File mình có nhập kết quả mong muốn. Các bạn xem File sẽ hiểu hơn! Mong các bạn giúp đỡ!

 

[giaiphap]

Mình có một File văn bản. Mình muốn nhờ các bạn viết giúp đoạn code để thực hiện công việc như sau:
Ví dụ: Trong File mình có 3 cột B, C, D là 3 cột cấn nhập liệu. Nếu người dùng nhập đủ thì cột A sẽ không có thông báo gì. Nếu một trong 3 cột đó không nhập dữ liệu thì ở cột A sẽ đưa ra thông báo tên cột còn thiếu đó bằng chữ màu đỏ.
Trong File mình có nhập kết quả mong muốn. Các bạn xem File sẽ hiểu hơn! Mong các bạn giúp đỡ!

Ô A2 đặt công thức như sau:

=IF(B2="","Hiếu họ và tên, ","") & IF(C2="","Thiếu ngày sinh, ","") & IF(D2="","Thiếu quê quán","")

Copy xuống các ô phía dưới.

 

[nnd1988]

Ô A2 đặt công thức như sau:

=IF(B2="","Hiếu họ và tên, ","") & IF(C2="","Thiếu ngày sinh, ","") & IF(D2="","Thiếu quê quán","")

Copy xuống các ô phía dưới.

Đây chỉ là ví dụ thôi, dữ liệu thực tế của mình có nhiều cột bạn ạ! Với lại mình muốn dùng VBA mong bạn và các thành viên khác giúp đỡ.

 

[giaiphap]

Đây chỉ là ví dụ thôi, dữ liệu thực tế của mình có nhiều cột bạn ạ! Với lại mình muốn dùng VBA mong bạn và các thành viên khác giúp đỡ.

Bạn chỉ đưa dữ liệu bấy nhiêu thì mình làm theo chứ sao. Còn dữ liệu nhiều thì phải đưa lên nhiều mới dễ thực hiện chứ.
Bây giờ mình viết bằng code rồi xem thử được chưa.

 

[nnd1988]

Bạn chỉ đưa dữ liệu bấy nhiêu thì mình làm theo chứ sao. Còn dữ liệu nhiều thì phải đưa lên nhiều mới dễ thực hiện chứ.
Bây giờ mình viết bằng code rồi xem thử được chưa.

Đúng ý mình rồi bạn ạ, tuy nhiên bạn có thể đưa ra nội dung thông báo là tiêu đề các cột như File mình đưa không?
Cảm ơn bạn nhiều!

 

[giaiphap]

Đúng ý mình rồi bạn ạ, tuy nhiên bạn có thể đưa ra nội dung thông báo là tiêu đề các cột như File mình đưa không?
Cảm ơn bạn nhiều!

Thì sửa chút nửa là xong ngay.

 

[nnd1988]

Thì sửa chút nửa là xong ngay.

Tuyệt vời! Cảm ơn giaiphap nhiều lắm!

 

[Let'GâuGâu]

Tuyệt vời! Cảm ơn giaiphap nhiều lắm!

ké một đoạn code

Option Explicit
Public Function KiemTra(rng As Range, tieude As Range) As String
Dim Arr, Tarr As Variant, st As String, i As Long
Arr = rng.Value
Tarr = tieude.Value
For i = 1 To UBound(Arr, 2)
    If Arr(1, i) = "" Then
        If Len(st) Then st = st & Chr(10) & Tarr(1, i) Else st = Tarr(1, i)
    End If
Next
If Len(st) Then KiemTra = st
End Function

A2=kiemtra(B2:D2,$B$1:$D$1)

========
nhưng mà xài tự tạo thì liệu có nhanh hơn hàm của ẽxcel ko?

 

[VetMini]

Hiểu chết liền. Nhìn thẳng vào ô thì thấy là nó chưa có dữ liệu. Tại sao lại phải dùng một cột khác để kiểm soát?