Skip to content

Instantly share code, notes, and snippets.

@hndr91
Last active May 10, 2017 06:03
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save hndr91/a4605ea3396f79761da60d1280503ad0 to your computer and use it in GitHub Desktop.
Save hndr91/a4605ea3396f79761da60d1280503ad0 to your computer and use it in GitHub Desktop.
Ms. Word Macro : Pauli Test Generator
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment