VBA Do Loop

VBA Do Loop

Excel VBA Lakukan Pengulangan

VBA Do Loop adalah sekumpulan instruksi di dalam sub prosedur di mana kode berjalan beberapa kali hingga kriteria yang diinginkan tercapai atau ambang apa pun melebihi atau aman untuk mengatakannya hingga mendapatkan data yang diperlukan.

Sementara Loop bekerja pada hasil logis, itu terus menjalankan Loop bolak-balik saat kondisi pengujian BENAR. Saat kondisi pengujian mengembalikan FALSE, itu akan keluar dari Loop. Loop adalah jantung dari setiap bahasa pemrograman. Artikel kami menunjukkan pentingnya loop dan cara pengkodeannya. Pada artikel ini, kami menunjukkan kepada Anda cara menggunakan Do Loop.

Anda bebas menggunakan gambar ini di situs web Anda, templat, dll., Harap berikan kami tautan atribusiBagaimana Memberikan Atribusi? Tautan Artikel menjadi Hyperlink
Misalnya: Sumber: VBA Do Loop (wallstreetmojo.com)

Bagaimana cara menggunakan VBA Do Loop?

Contoh #1 – Kondisi di akhir Loop

Kami telah melihat tes kondisi di awal Loop. Pada kode sebelumnya sudah kita lihat contoh memasukkan serial number, dan kodenya seperti itu.

Kode:

Sub Do_While_Loop_Example1() Dim k As Long k = 1 Do While k <= 10 Cells(k, 1).Value = kk = k + 1 Loop End Sub

Anda dapat menjalankan kode ini secara manual atau melalui tombol pintas F5 untuk melihat hasilnya.

Kode ini akan memasukkan nomor seri dari 1 sampai 10.

Tapi, kita juga bisa menguji kondisi di akhir Loop. Jadi, kita perlu menggunakan kata ‘while’ dan condition test setelah kata Loop.

Satu-satunya perubahan di sini adalah melamar tes di bagian akhir, seperti yang ditunjukkan di bawah ini.

Kode:

Sub Do_While_Loop_Example1() Dim k Selama k = 1 Do Cells(k, 1).Value = kk = k + 1 Loop While k <= 10 End Sub

Seperti ini, kita juga bisa menguji kondisi di akhir pernyataan Loop.

Catatan: Kode akan berjalan, lalu menguji kondisi untuk kembali ke loop sekali lagi atau tidak. Ini berarti akan berjalan terlebih dahulu dan kemudian mencoba situasinya nanti.

Contoh #2 – Penjumlahan Menggunakan Do While Loop

Asumsikan Anda memiliki data penjualan dan biaya di lembar Excel Anda. Di bawah ini adalah kumpulan data dummy yang telah kami buat untuk perhitungan.

Sekarang, kita perlu mendapatkan nilai keuntungan di kolom C. Kita telah membuat kode yang akan melakukan pekerjaan untuk saya.

Kode:

Sub Do_While_Loop_Example2() Dim k Selama Dim LR Selama k = 2 LR = Cells(Rows.Count, 1).End(xlUp).Row Do While k <= LR Cells(k, 3).Value = Cells(k , 1) + Sel(k, 2) k = k + 1 Loop Akhir Sub

LR = Sel(Rows.Count, 1).End(xlUp).Row

Kode ini akan mengidentifikasi baris yang terakhir digunakan di kolom pertama. Selain itu, membuat kode menjadi dinamis jika ada penambahan atau penghapusan data. Akhirnya, itu akan menyesuaikan waktu urutan saya untuk menjalankan Loop.

k = 2

Kami ingin perhitungan dilakukan dari sel kedua dan seterusnya. Jadi, nilai awal k adalah 2.

Lakukan While k <= LR

Seperti yang kami katakan, LR akan menemukan baris terakhir yang digunakan di kolom pertama. Artinya Loop akan berjalan saat k <= dengan nilai LR. Dalam hal ini, kita memiliki 10 baris, jadi LR = 10.

Loop akan berjalan hingga nilai k mencapai 10. Begitu jumlahnya melewati 10 loop, loop akan berhenti.

Anda dapat menjalankan kode ini menggunakan tombol pintas F5 atau secara manual untuk melihat hasilnya.

Contoh #3 – Pernyataan Keluar di Do While Loop

Kita juga bisa keluar dari perulangan saat kondisi masih TRUE saja. Misalnya, ambil juga data di atas di sini.

Asumsikan Anda tidak ingin melakukan perhitungan penuh, tetapi Anda hanya perlu menghitung keuntungan 5 baris pertama, dan begitu mencapai baris ke-6, Anda ingin keluar dari Loop. Kita dapat melakukan ini dengan menggunakan fungsi IF di excelMenggunakan Fungsi IF Di ExcelFungsi IF di Excel mengevaluasi apakah kondisi yang diberikan terpenuhi dan mengembalikan nilai tergantung pada apakah hasilnya ‘benar’ atau ‘salah’. Ini adalah fungsi bersyarat Excel, yang mengembalikan hasil berdasarkan terpenuhi atau tidak terpenuhinya kriteria yang diberikan. Baca selengkapnya. Kode di bawah ini termasuk pernyataan keluar.

Kode:

Sub Do_While_Loop_Example3() Dim k Selama Dim LR Selama k = 2 LR = Cells(Rows.Count, 1).End(xlUp).Row Do While k <= LR If k > 6 Then Exit Do Cells(k, 3 ).Value = Sel(k, 1) + Sel(k, 2) k = k + 1 Loop End Sub

‘Jika k > 6 Lalu Keluar Lakukan’

Baris kode ini akan memulai proses keluar. Loop akan terus berjalan hingga nilai k mencapai 6. Saat melebihi 6, kondisi If akan mengeksekusi kode, ‘Exit Do.’

Anda dapat menjalankan kode ini menggunakan tombol pintas F5 atau secara manual untuk melihat hasilnya.

Hal-hal untuk diingat

  • Do Loop bekerja pada hasil logis dan terus menjalankan Loop bolak-balik saat kondisi pengujian BENAR. Saat kondisi pengujian mengembalikan FALSE, itu akan keluar dari Loop.
  • Kita dapat keluar dari Loop kapan saja dengan menyesuaikan satu tes logika lagi di dalam lingkaran menggunakan fungsi IF.
  • Jika kita memberikan kondisi atau tes di bagian atas Loop, pertama-tama akan memeriksa tes dan maju lebih jauh hanya jika itu BENAR.
  • Jika kita menyediakan kondisi atau pengujian di akhir Loop, pertama-tama blok kode akan dieksekusi di dalam pernyataan loop. Kemudian, di masa mendatang, ini akan menguji kondisi untuk memutuskan apakah akan kembali menjalankan Loop sekali lagi atau tidak.

Artikel yang Direkomendasikan

Artikel ini adalah panduan untuk VBA Do Loop. Di sini kita membahas cara menggunakan VBA Do Loop, termasuk kondisi di akhir Loop, penjumlahan menggunakan Loop, pernyataan keluar di Loop, contoh praktis, dan template Excel yang dapat diunduh. Di bawah ini Anda dapat menemukan beberapa artikel Excel VBA yang berguna: –

  • VBA DoEvents
  • Formulir Pengguna Login VBA
  • Untuk Setiap Loop di VBA
  • Untuk Loop Berikutnya di VBA
  • PowerPoint VBA

Related Posts

Tinggalkan Balasan