Konsep pengulangan yang tertulis di judul artikel ini hampir memiliki kemiripan dengan fungsi Loop seperti For...Next, akan tetapi pada tutorial yang akan kita bahas kali ini, pengulangan akan terus terjadi sampai dengan batas waktu yang tak terhingga, artinya ia hanya akan berhenti ketika kondisi sudah terpenuhi (infinity loop).

Kondisi yang dapat menghentikan proses pengulangan ini tentu saja terserah masing-masing individu, mau berdasarkan apa dan bagaimana bentuk serta jenis nilainya, semuanya tergantung kebutuhan pengguna.

Namun untuk tutorial ini, saya akan membatasi kondisi yang berasal dari nilai-nilai yang terdapat di dalam lembar kerja sehingga nantinya anda dapat lebih mudah memahami dan tentu saja dapat memperoleh gambaran akan kegunaannya nanti. Dan karena tutorial ini saya usung dari beberapa konsep yang hampir serupa dengan tutorial yang pernah saya bahas di situs xcelive, maka ada baiknya anda memahami dan baca tutorial pendukung seperti berikut
Bekerja dengan Jendela InputBox di excel
Menggunakan parameter Loop For...Next untuk mencari sebuah nilai
Menuliskan formula dengan bahasa Macro VBA
Menggunakan Logika IF dalam Macro VBA Excel

Oke, saatnya kita menyiapkan beberapa nilai yang akan kita jadikan sebagai 'jawaban' yang harus dipenuhi oleh pengguna ketika mengetikkan ke dalam jendela InputBox. Dengan kata lain... 'jawaban' inilah nanti yang akan mempengaruhi pengulangan dari munculnya jendela InputBox - ketika pengguna menuliskan jawaban yang salah.

Dan seperti yang sudah saya singgung di atas guna mempermudah dalam memahami tutorial ini, kondisi (jawaban) saya letakkan di lembar kerja, tepatnya di kolom A seperti tampilan berikut.


Langkah selanjutnya adalah membuat jendela InputBox yang harus dibuat menggunakan kode Macro VBA yang diawali dengan mengaktifkan jendela Microsoft Visual Basic Editor yang bisa diakses menggunakan tombol Alt+F11 di keyboard anda.
Selanjutnya adalah membuat sebuah module baru yang digunakan sebagai wadah dari bahasa-bahasa kode VBA untuk menampung perintah sesuai dengan penjelasan di atas, dan berikut ini script kodenya:

Sub JawabIni()
Dim i As String
On Error GoTo a
tanya = Application.InputBox("Bagaimana isi tutorial di excelive.com", "Survey")
If tanya = "" Or tanya = 0 Then Exit Sub
i = Application.WorksheetFunction.Match(tanya, Range("A:A"), 0)
If i > 0 Then
    MsgBox "Terimakasih atas feedback anda" 
    Exit Sub
    Else
    Exit Sub
End If

a:
myinput = Application.InputBox("Silahkan coba lagi" & vbCr & "jawabannya apa .....!")
If myinput = "" Or myinput = 0 Then Exit Sub
If Err.Number > 0 Then
Resume
Else
i = Application.WorksheetFunction.Match(myinput, Range("A:A"), 0)
If i > 0 Then
    MsgBox "Terimakasih atas feedback anda"
    Exit Sub
    Else
    Exit Sub
End If
End If
End Sub

Silahkan anda coba pahami cara kerja dari tutorial ini lewat tampilan hasil akhir yang sudah saya siapkan berikut


Semoga tutorial yang cukup singkat ini dapat menambah perbendaharaan materi serta meningkatkan kemampuan Microsoft Excel Anda.
Jika ada pertanyaan seputar tutorial mengulang tampilan jendela InputBox hingga sebuah kondisi tertentu terpenuhi, silahkan tulis di kolom komentar atau silahkan anda hubungi kami disini. Dan jangan lupa untuk bookmark situs kami agar anda lebih mudah mengunjunginya lain waktu. Gracias

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :