Membuat Lembar Test Pauli dengan MS Word

Halo sobat Bang Dayat sudah lama saya tidak postingan dan hari ini akhirnya bisa juga untuk postingan. Alhamdulillah. Dalam kesempatan ini saya ingin berbagi bagaimana caranya membuat lembar test pauli dengan MS Word. Kebetulan saya akan test psikotes, nah salah satu testnya adalah test pauli. Test ini menyuruh kita utuk menghitung cepat dalam waktu yang telah ditentukan. Kalau sobat bingung, ini contoh lembarannya.

Kembali ke judul, bagi sobat yang ingin latihan test pauli bisa membuat lembaran test pauli sendiri dengan MS Word. Bagaimana caranya? Berikut penjelasannya :

1. Buka aplikasi MS Word anda.

2. Setelah MS Word terbuka silahkan anda tekan tombol alt + F11.

3. Kemudian pilih insert > module dan masukkan kode dibawah ini.

Sub PsikoNumGenerator()
Randomize Timer
theEnd = InputBox("Jumlah angka yang akan dibuat", "Jumlah Angka")
If Not IsNumeric(theEnd) Then Exit Sub
If Int(theEnd) = 0 Then Exit Sub
For i = 1 To theEnd
theText = theText & vbTab & Int(Rnd(i) * 10)
Next
Selection.TypeText Text:=theText
End Sub

4. Kembali ke MS Word anda dan tekan tombol alt + F8 kemudian pilih run.

5. Masukkan angka sesuai dengan keinginan anda. Disini saya contohkan 2000. Klik OK.

6. Akhirnya selesai juga dan hasilnya akan seperti ini. Oh ya ukuran kertasnya silahkan diatur sendiri, disini saya menggunakan kertas F4.

Semoga postingan ini bisa bermanfaat buat teman-teman semua.