Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
08/04/2012 14:06
Konu Sahibi
DUAYEN
Yorumlar
3
Okunma
2101
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
16/03/2017,17:22
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.433
17/05/2009
365
Ankara
Ofis 2010
23/09/2017,05:31
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.800
29/01/2008
376
Aydın
Ofis 2003
22/09/2017,12:50
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.464 16/04/2012, 02:21 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.