- Hệ thống kiểm soát nội bộ chặt chẽ.
2.XÁC ĐỊNH AUDR DỰA TRÊN ROR, SỐ SAI PHẠM THỰC TẾ VÀ QUY MÔ MẪU.
MẪU.
Mức rủi ro của độ tin cậy cao là 10%
Quy mô mẫu
Số lượng sai phạm thực tế phát hiện
0 1 2 3 4 5 6 7 8 9 10 20 10,9 18,1 * * * * * * * * * 25 8,8 14,7 19,9 * * * * * * * * 30 7,4 12,4 16,8 * * * * * * * * 35 6,4 10,7 14,5 18,1 * * * * * * * 40 5,6 9,4 12,8 15,9 19,0 * * * * * * 45 5,0 8,4 11,4 14,2 17,0 19,6 * * * * * 50 4,5 7,6 10,3 12,9 15,4 17,8 * * * * * 55 4,1 6,9 9,4 11,7 14,0 16,2 18,4 * * * * 60 3,8 6,3 8,6 10,8 12,9 14,9 16,9 18,8 * * * 70 3,2 5,4 7,4 9,3 11,1 12,8 14,6 16,2 17,9 19,5 * 80 2,8 4,8 6,5 8,3 9,7 11,3 12,8 14,3 15,7 17,2 18,6 90 2,5 4,3 5,8 7,3 8,7 10,1 11,4 12,7 14,0 15,3 16,6 100 2,3 3,8 5,2 6,6 7,8 9,1 10,3 11,5 12,7 13,8 15,0 120 1,9 3,2 4,4 5,5 6,6 7,6 8,6 9,6 10,6 11,6 12,5 160 1,4 2,4 3,3 4,1 4,9 5,7 6,5 7,2 8,0 8,7 9,5 200 1,1 1,9 2,6 3,3 4,0 4,6 5,2 5,8 6,4 7,0 7,6
PHỤ LỤC 9B : CHỌN MẪU NGẪU NHIÊN BẰNG EXCEL
Để chọn mẫu các phiếu chi bằng chương trình chọn mẫu ngẫu nhiên, một trong những cách đơn giản và ít tốn kém là sử dụng công cụ Excel. Cách thức chọn mẫu như sau:
Bước 1: Vì số hiệu các phiếu chi của công ty XYZ không phải là số thứ tự (PC 01/01, PC 02/01…) nên ta phải đánh lại số thứ tự cho 687 phiếu chi từ ngày 01/01/2009 đến 31/12/2009.
Bước 2: Chọn 64 phiếu chi để kiểm tra cả 3 thuộc tính và chọn tiếp 102 phiếu chi nữa để kiểm tra thuộc tính 2 và 3. Cách thực hiện như sau:
1. Nhấn ALT + F11 để vào phần soạn thảo mã VBA >> Vào Insert > Module và gõ đoạn code bên dưới vào:
“Option Explicit Sub TaoNgauNhien()
Dim i As Integer, j As Integer Dim Matran(), gtri, gtri2 Dim max_i, max_j As Integer max_i = 687
max_j = 64 ' So so ngau nhien muon lay raReDim Matran(1 To max_i) For i = 1 To max_i
Do
gtri = Round(Rnd() * max_i, 0) If gtri = 0 Then GoTo tieptuc For j = 1 To i – 1
If gtri = Matran(j) Then GoTo tieptuc Next j
Matran(i) = gtri Exit Do
tieptuc:
Loop While True Next i
For i = 1 To max_j
Cells(ActiveCell.Row + i, ActiveCell.Column) = Matran(i) Next i
End Sub”
Trong đó có 2 biến cần lưu ý, là:
max_i: là tổng thể chọn mẫu, max_j: là số phần tử muốn lấy. Cụ thể đối với công ty XYZ max_i = 687, max_j = 64 (cho lần chọn mẫu đầu) và max_j = 102 (cho lần chọn mẫu sau).
2. Nhấn Alt + Q để đóng của sổ soạn thảo code VBA. Tiếp tục đặt con trỏ vào ô “Mẫu được chọn” và nhấn ALT + F8, trong cửa sổ Macro chọn Run để chạy macro tạo số ngẫu nhiên.
Bước 3: Dùng hàm VLOOKUP đối chiếu giữa cột “Số hiệu phiếu chi” với cột “STT” nhằm tìm ra PC tương ứng với từng số ngẫu nhiên được chọn. Ví dụ :