Aşağıda bir programa bakacağız. tanımlanmış bir aralıkta döngüler. Örneğin, Aralık ("A1:A3") içindeki sayıların karesini almak istediğimizde. Dinamik bir aralıkta da dolaşabileceğinizi biliyor muydunuz?
Durum:
Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
1. İlk olarak, iki Range nesnesi tanımlıyoruz. Range nesnelerini rng ve hücre olarak adlandırırız.
Aralık Olarak Karart, Aralık Olarak Hücre
2. Range nesnesini Range("A1:A3") ile başlatıyoruz.
Set rng = Aralık("A1:A3")
3. For Every Next döngüsünü ekleyin.
Her hücre için rng'de
Sonraki hücre
Not: rng ve hücre burada rastgele seçilmiştir, herhangi bir isim kullanabilirsiniz. Kodunuzun geri kalanında bu adlara başvurmayı unutmayın.
4. Ardından, bu aralıktaki her hücrenin karesini alıyoruz. Bunu başarmak için döngüye aşağıdaki kod satırını ekleyin:
cell.Değer = hücre.Değer * hücre.Değer
Sayfadaki komut düğmesine tıkladığınızda sonuç:
5. Rastgele seçilen bir aralıktaki her bir hücreyi kontrol etmek istiyorsanız, basitçe değiştirin:
Set rng = Aralık("A1:A3")
ile birlikte:
Set rng = Seçim
6. Şimdi, örneğin Aralık("A1:A2") öğesini seçin.
Sayfadaki komut düğmesine tıkladığınızda sonuç:
