Cara menggunakan pernyataan exit if di vba (dengan contoh)

Tidak ada pernyataan Exit If bawaan di VBA, tetapi Anda dapat dengan mudah menyimulasikannya dengan menggunakan pernyataan If dengan pernyataan GoTo .

Contoh berikut menunjukkan bagaimana melakukan hal ini dalam praktik.

Contoh: Cara menggunakan pernyataan Exit IF di VBA

Katakanlah kita ingin membuat makro yang meminta pengguna memasukkan bilangan bulat kurang dari 10 dan kemudian menggunakan pernyataan IF untuk melakukan hal berikut:

• Jika bilangan bulat yang dimasukkan kurang dari 10, kalikan dengan 2 dan tampilkan hasilnya di sel A1 .
• Jika bilangan bulat yang dimasukkan tidak kurang dari 10, keluar dari pernyataan IF dan menghasilkan pesan kesalahan.

Kita dapat menggunakan sintaks berikut untuk melakukan ini:

 SubMultiplySomeValue ()

Dim inputInteger As Integer
     
'get integer from user
inputInteger = InputBox(" Please enter an integer less than 10 ")

'check if integer is less than 10
If inputInteger < 10 Then
Range(" A1 ").Value = inputInteger * 2
Else
GoTo FlagMessage
End If

FlagMessage:
MsgBox “ This number is not less than 10 ”
    
End Sub

Saat kita menjalankan makro ini, kita akan diminta memasukkan bilangan bulat kurang dari 10:.

Misalkan kita memasukkan nilai 5 lalu tekan OK :

Karena bilangan bulat ini kurang dari 10, sub-prosedur akan mengalikan nilai yang kita masukkan dengan 2 dan menampilkan hasilnya di sel A1 :

Namun, misalkan kita memasukkan nilai 15 :

Kami akan menerima kotak pesan berikut di Excel:

Nilai yang kita masukkan tidak akan dikalikan 2 dan tidak ada hasil yang ditampilkan di sel A1 .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Cara keluar dari Sub karena kesalahan di VBA
Cara menggunakan IFERROR di VBA
Cara menghapus file menggunakan VBA