bir cevrim ile tum tablou okuma

[egebes]

bir for next cevrimi ile bir tablodaki tum hucreleri tek tek okumak istiyorum.
Bu cevrim nasil olmali,baslangic ve bitis degerleri,kullanilacak degisken tipi

 

[Ferhat Pazarçevirdi]

Şu şekilde olabilir

[COLOR=green]'Tablodaki tüm hücreleri
    'temsil eden
    'bir Range nesnesidir[/COLOR]
    Dim rngTablodaki_Butun_Hucreler As Range
    
[COLOR=green]    'Tablodaki herhangibir hücreyi
    'temsil eden
    'bir Range nesnesidir[/COLOR]
    Dim rngTablodaki_Herhangibir_Hucre As Range
    
[COLOR=green]    'Değişkeni belirli bir aralığı
    'temsil etmesi için ayarlıyoruz
    '(set ediyoruz)[/COLOR]
    Set Tablodaki_Butun_Hucreler = Range("A1:E10")
    
[COLOR=green]    'For Each döngüsü kurarak
    'tablodaki hücrelere
    'teker teker ulaşarak,
    'değerleri messagebox'la gösteriliyor
    
    'NOT: Siz, döngünün içine
    '     istediğiniz işlemi yazabilirsiniz[/COLOR]
    For Each rngTablodaki_Herhangibir_Hucre In rngTablodaki_Butun_Hucreler.Cells
        MsgBox rngTablodaki_Herhangibir_Hucre.Value
    Next
    
[COLOR=green]    'Bellekte yer tutan
    'set edilmiş değişkeni
    'serbest bırakıyoruz[/COLOR]
    Set rngTablodaki_Butun_Hucreler = Nothing