Cara Membuat Lembar Tes Kraepelin Sendiri – Terbaru 2019

1. Buka MS. WORD

2. Klik ALT+F10 atau di beberapa laptop bisa ALT+FN+F10

3. Klik INSERT

4. Klik MODULE, akan muncul seperti ini, isikan kode seperti dibawahh ini

5. Copas kode dibawah ini aja:

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

6. Kembali ke MS. WORD

7. Klik ALT+F8 atau di beberapa laptop bisa ALT+FN+F8

8. Klik RUN

9. Masukkan angka yang dibutuhkan

10. Terakhir berikut hasilnya