Excel VBA'da Tanımlanmış Aralık ile döngü

Aşağıda bir programa bakacağız Tanımlanmış bir aralıkta döngüler. Örneğin, Aralıktaki sayıları ("A1: A3") karekstirmek istediğimizde. Dinamik bir aralıkta da geçebileceğinizi biliyor muydunuz?

Durum:

Excel VBA'da Tanımlanmış Aralık ile döngü

Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:

1. İlk olarak iki Range nesnesini beyan ederiz. Range nesneleri rng ve hücresini çağırıyoruz.

Dim rng As Range, cell As Range

2. Range nesnesini Range ("A1: A3") ile başlatıyoruz.

Set rng = Range("A1:A3")

3. Her Sonraki Döngüyü ekleyin.

For Each cell In rng

Next cell

Not: Rng ve hücre burada rastgele seçilir, herhangi bir isim kullanabilirsiniz. Kodunuzun geri kalanında bu adlara başvurmayı unutmayın.

4. Ardından, bu aralıktaki her bir hücreyi kare hale getiriyoruz. Bunu başarmak için, döngü için aşağıdaki kod satırını ekleyin:

cell.Value = cell.Value * cell.Value

Sayfadaki komut düğmesine tıkladığınızda sonuç:

5. Her hücreyi rastgele seçilen bir aralıkta kontrol etmek isterseniz, aşağıdakileri değiştirin:

Set rng = Range("A1:A3")

ile:

Set rng = Selection

6. Şimdi, örneğin Aralığı ("A1: A2") seçin.

Sayfadaki komut düğmesine tıkladığınızda sonuç: