Sử dụng data validation để nhập liệu

[HUONGHCKT]

Theo tôi hiểu thì chủ Topic yêu cầu cần điền đầy đủ thông tin, nếu thiếu thông tin thì hiện thông báo để cho người nhập liệu họ bổ sung, khi nhập liệu xong thì nhấn nút lưu để lưu sang sheet theo dõi.

Tôi cũng suy nghĩ như anh, song xem sh mẫu thì trình bày rằng nhân viên nhập thiếu thông tin nhưng vẫn cứ in, ký, nộp. Thế nên mới có đoạn ngăn CtrL+P và buộc phải in thông qua nút lệnh trên Sh để kiểm tra dũ liệu nhập vào.
Không có mẫu báo cáo nào mà nó trình bày kiểu có tính "khoa học và thẩm mỹ" đến vậy?!!
Làm theo yêu cầu chủ thớt, chứ nếu không thì dùng code kiểm tra xem đủ dữ liệu hay chưa mới cho nhập chứ và in thì cũng phải có mẫu Báo cáo, hoặc mẫu tổng hợp, mẫu theo dõi chứ không ai in một cái mẫu "đạt" cả 2 tiêu chí đã nêu. Có lẽ cái mẫu đó chỉ là phần dẫn trích trong một mẫu khác thôi.

 

[be_09]

Tôi cũng suy nghĩ như anh, song xem sh mẫu thì trình bày rằng nhân viên nhập thiếu thông tin nhưng vẫn cứ in, ký, nộp. Thế nên mới có đoạn ngăn CtrL+P và buộc phải in thông qua nút lệnh trên Sh để kiểm tra dũ liệu nhập vào.
Không có mẫu báo cáo nào mà nó trình bày kiểu có tính "khoa học và thẩm mỹ" đến vậy?!!
Làm theo yêu cầu chủ thớt, chứ nếu không thì dùng code kiểm tra xem đủ dữ liệu hay chưa mới cho nhập chứ và in thì cũng phải có mẫu Báo cáo, hoặc mẫu tổng hợp, mẫu theo dõi chứ không ai in một cái mẫu "đạt" cả 2 tiêu chí đã nêu. Có lẽ cái mẫu đó chỉ là phần dẫn trích trong một mẫu khác thôi.

Theo tôi nghĩ, thông tin về dịch thì họ báo cáo theo từng ngày, nếu in phiếu thì ai rảnh để nhập lại. Vì vậy, họ phải thống nhất mẫu nhập liệu chuyển File mẫu thống nhất cho từng tổ, xong ngày nào thì tổ gửi File về cho ban chỉ đạo gộp lại rồi tổng hợp báo cáo mới nhanh được.

 

[cungloi99]

Nút CtrL+P đã bị vô hiệu hóa. Do vậy bắt buộc phải dùng nút in trên sh
Nếu C3hoặc C4 và hoặc vùng D9:E12 chỉ 1 ô không có dữ liệu thì không thể in được.
tại thời thế này đã nhé. Chờ các anh chị em có kiến thức sâu rộng giúp đỡ thêm.

đúng là cái em cần ạ. Tuy nhiên khi em thử input đủ hết dữ liệu và ấn nút "IN" thì nó vẫn báo như này ạ.

 

[HUONGHCKT]

đúng là cái em cần ạ. Tuy nhiên khi em thử input đủ hết dữ liệu và ấn nút "IN" thì nó vẫn báo như này ạ.
View attachment 265205

Bạn thay code này vào modul2 (sub InAn) và chạy thử nhé.

Sub INAN()
Dim i&, j&
With Sheet1
    If .Cells(3, 3) = Empty Then
        MsgBox " Chua nhâp Tên dang ký"
        Exit Sub
    Else
        If .Cells(4, 3) = Empty Then
            MsgBox " Chua nhâp Ma NV"
            Exit Sub
        Else
            If Application.WorksheetFunction.CountBlank(.Range("D9:D12")) > 0 Then
                MsgBox " Chua nhâp du các dòng Ma kiêu loai"
                Exit Sub
            Else
                If Application.WorksheetFunction.CountBlank(.Range("E9:E12")) > 0 Then
                    MsgBox " Chua nhâp du các dòng Sô luong"
                    Exit Sub
                Else
                    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
                End If
            End If
        End If
    End If

End With
End Sub

 

[cungloi99]

Bạn thay code này vào modul2 (sub InAn) và chạy thử nhé.

Sub INAN()
Dim i&, j&
With Sheet1
    If .Cells(3, 3) = Empty Then
        MsgBox " Chua nhâp Tên dang ký"
        Exit Sub
    Else
        If .Cells(4, 3) = Empty Then
            MsgBox " Chua nhâp Ma NV"
            Exit Sub
        Else
            If Application.WorksheetFunction.CountBlank(.Range("D9:D12")) > 0 Then
                MsgBox " Chua nhâp du các dòng Ma kiêu loai"
                Exit Sub
            Else
                If Application.WorksheetFunction.CountBlank(.Range("E9:E12")) > 0 Then
                    MsgBox " Chua nhâp du các dòng Sô luong"
                    Exit Sub
                Else
                    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
                End If
            End If
        End If
    End If

End With
End Sub

Cảm ơn bác nhiều nhiều ạ! Em loay hoay mãi mới được ạ.