Membuat TES Koran via Ms. Word

Tes Pauli Kraepelin biasanya digunakan suatu instansi untuk merekrut pegawai baru. Tesnya itu berisi angka-angka dalam baris dan kolom. Saking banyaknya angka maka banyak yang menyebut dengan tes koran. Angka-angka itu dijumlahkan dari atas ke bawah dan ditulis diantaranya dan yang ditulis adalah digit paling belakang. Tergantung instrukturnya, dari atas ke bawah/sebaliknya atau dari kiri ke kanan/sebaliknya.

Mengapa harus tes koran ya untuk merekrut pegawai yang baru? Banyak jawaban jika dicari di google. Ada beberapa poin yakni menguji daya tahan, menguji motivasi, menguji emosi, menguji penyesuaian diri, dan banyak lagi. Kurang lebih intinya seperti itu.

Contoh:

1  4  5  7

2  8  3  1

6  2  9  7

2  9  8  4

Cara mengerjakan yang biasanya adalah menjumlahkan dari atas ke bawah. 1+2=3. Tuliskan 3 di antara 1 dan 2. Demikian seterusnya. 2+6=8. Tuliskan 8 di antaranya. 6+2=8. Bagaimana kalau hasilnya lebih dari 1 digit? Misal, 3+9=12. Tuliskan angka paling belakang yakni 2. Mudah bukan?

Ini harus dilatih terus supaya terbiasa. Nih, saya pandu cara buat bilangan-bilangannya di Microsoft Word dengan Macro.

1. Sudah terbuka tampilan Word. Tekan alt+F11.

2. Nanti akan muncul window Microsoft Visual Basic for Applications. Lihat menu. Klik Insert. Pilih dan klik Module. Copy dan paste code dalam Visual Basic berikut.

Sub TesKoran()
Randomize Timer
theEnd = InputBox("Banyak angka yang diinginkan: ", "Banyak 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

3. Beralih ke window Word (tanpa menutup window Microsoft Visual Basic for Applications). Tekan alt+F8. Pilih TesKoran dan klik Run. Isikan dengan angka. Misal 48.

5  6  2  0  2  0  2  3  8  1  5  1

6  6  0  6  7  5  0  3  6  7  6  8

4  1  8  4  9  3  4  4  6  3  5  4

2  5  9  8  7  4  7  5  2  1  8  5