For Each Anlatımı ve Örnekler
Tarih
08/04/2012 14:06
Konu Sahibi
DUAYEN
Yorumlar
3
Okunma
1773
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
For Each Değişkenimiz in Hangi Nesne
Komutlar

Gerekirse Exit For

Next Değişkenimiz

*Each: Her biri
For Each - Next döngüsü ise nesnelerle hareket eder,rakamlara ihtiyaç duymaz,nesneler topluluğuna aynı aynı eylemi uygulatmak için kullanılır.


Şimdi örneklerle daha iyi anlamaya çalışalım.

Soru;Excel hücrelerine,föngü ile 1 ile 25 arasında rakam yazdırabilirmiyiz,

Cevap:

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Duayen_1_25()

Dim rng As Range, say As Byte
 
For Each rng In Range("a1:a25")
 
say = say + 1
 
rng = say
 
Next rng
 
End Sub

*Rng değişkeni:Range, say:Byte
*Her bir rng değişkeni A1:A120 alanlarını ifade eder.
*Say değişkeni eşittir= say + 1
*rng değişkeni = say değişkenine
*rng değişkeni kontrolü sonucunda işlem tamamlandı ise döngü bitişi

> Say = say + 1

Döngü döndükçe sabit bir rakam olan 1 eklenecek, her dönüşü 1 olarak sayacak böylece döngü bitene kadar devam edilecek.

İlk dönüş sonucu : say = 0 + 1, say = 1 oldu.
İkinci dönüş: say = 1 + 1 = 2 oldu
...
....
Yirminci dönüş say = 19 + 1 = 20 oldu


> rng = say

Rng değişkeni A1 İle A25 hücrelerinde hareket ederken aynı zamanda her say değişkeninin sonucu oluşan rakamlara eşitlendi.


Soru;01/03/2012 ile 25/03/2012 tarihler arasındaki rakamlarım ödemelerini ifade
etmektedir.Bu tarihler arasında ödeme toplamı nasıl buluruz ?
Cevap:

Kod:
1
2
3
4
5
6
7
8
9
10
Sub duayenDYN()
 Dim rng As Range, hafiza As Long
 For Each rng In Range("b1:b25")
 If rng >= CDate("01/03/2012") And rng <= CDate("25/03/2012") Then
 hafiza = hafiza + rng.Offset(0, 1)
 End If
 Next rng
 MsgBox prompt:=hafiza
 
 End Sub

*Rng değişkenin Veri Tipi = range, Hafiza değişkenin Veri Tipi = Long

*Her bir rng değişkeni B1:B25 arasında hareket eder.

*Eğer rng(B1:B25 alanı) büyük veya eşit ise Tarihe Çevir("01/03/2012") Ve rng(B1:B25 alanı) küçük veya eşit ise Tarihe Çevir ("25/03/2012")'e

*Hafiza değişkeni = hafiza + hücrelerden rng (B1:B25 alanının) değişkenin 1 hücre sağında olanları Hafiza ekleyerek devam et.

*eğer sonu

*Rng değişkeni kontrolörü

*Mesaj Kutusu İletisi:Hafiza
***********************************************************
Umarım faydalı olur arkadaşlar....
DUAYEN

Ek Dosyalar
DUAYEN.rar
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
Bugün,09:18
Hocam faydalı bilgiler için teşekkürler.

Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla


chopper07
Uzman
Kullanici Avatari
Uzman
E....
1.798
29/01/2008
365
Aydın
Ofis 2003
24/11/2016,13:02
Hocam bu denli güzel bir anlatım. Tüm bilgisayar bölümünde okuyan öğrenci arkadaşların derslerinde kullanabilecekleri örnek olması da gerçekten çok güzel.
Teşekkürler
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

resim
resim
resim
Cevapla


rry0055
Üye
Kullanici Avatari
Üye
8
0
14/12/2008
0
Samsun
Ofis 2003
06/12/2015,21:03
Teşekkür ederim.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Döngü anlatımı ve açıklamaları DUAYEN 2 2.008 16/04/2012, 02:21 ozanakkaya


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya