Sub aralik()

Dim Aralığım AsRange

Set Aralığım =Range(“A1”)

    Aralığım = “www.kod.gen.tr”

    Aralığım.Font.Bold = True

    Aralığım.Font.Color = vbGreen

Set Aralığım =Nothing

End Sub

Sub withkullan()


  ‘with yapısını kullanmayı öğreniyoruz


    WithRange(“a1”)

        .Font.Bold = True

        .Font.Color = vbRed

    End With

End Sub

Sub aralıklarım()

    ‘Range özelliğinin çeşitli kullanımlarınıöğreniyoruz


    ‘A1:C3 aralğını seçer. Range özelliğini bubiçimi ile _

    2 bağımsız değişken kullandık

    Range(“A1″,”C3”).Select


    ‘Aktif hücre ile b6  aralğını seçer

    Range(ActiveCell, “B6”).Select


    ‘B3:C8 aralığını seçer

    Range(“B3:C8”).Select


    ‘Belirtilen aralığa bir ad verir

    Range(“B2”, “E4”).Name= “İşlemAralığım”


    ‘ad verdiğimiz aralığı  seçtik

    Range(“İşlemAralığım”).Select

    Range(“B2”).Select


    ‘Excel c3 hücresini seçer. Excel ActiveCellözelliğiyle döndürülen _

    range nesnesini, yani B2 hücresinibaşlangıç noktası olarak kullanı.

    ActiveCell.Range(“b2”).Select


   Range(“İşlemAralığım”).Range(“A1”).Select

End Sub

Sub koleksiyonOlarakRangeKullan()

‘*****************************************************************

‘Excelin aralğıkoleksiyon olarak gören üç özelliği vardır: _

Cells özelliğihücreler koleksiyonu, Rows Özelliği satırlar _

koleksiyonunu veColumns özelliği sütunlar koleksiyonunu döndürür.

‘*****************************************************************

Dim Aralığım AsRange

‘B2:E4 aralğınıAralğım değişkenine atadır.

Set Aralığım =Range(“B2:E4”)

‘Aralğımı daha kolaygörünmesi için renklendirdik.

Aralığım.Interior.Color= vbYellow

‘aralğın ilksatırındaki dördüncü hücreyi, E2 hücreni seçtik

Aralığım.Cells(1,4).Select

‘Koleksiyonunaltıncı öğesi olan c3 hücresini seçer

Aralığım.Cells(6).Select

‘*****************************************************************

‘Bu bildiri cellsözelliğini iki kez kullanır; _

önce aralıktakihücre sayısını bulmak için, sonra _

da son hücreyiseçmek için. Aralıkta 12 hücre vardır. _

koleksiyonun 12.öğesi üçüncü satırdaki dördüncü hücredir

Aralığım.Cells(Aralığım.Cells.Count).Select

‘*****************************************************************

‘Excel Çalışmasayfasındaki en son hücreyi seçer. Cells özelliği _

önünde bir Rangenesnesi olmadan kullandığınızda (yani genel cells _

özelliğinikullandığınızda), etkin çalışma sayfasındaki tüm hücre _

koleksiyonunudöndürür. Bildiri, Çalışma sayfası üzerindeki 65536. _

hücreyi seçer.

Cells(Cells.Count).Select

‘*****************************************************************

‘Aralğımın 2. satırıolan B3:E3 aralğını seçer

Aralığım.Rows(2).Select

‘Aralğın son sütunuolan E2:E4 aralğını seçer

Aralığım.Columns(Aralığım.Columns.Count).Select

‘Genel columnsözelliği tüm çalışma sayfasını bir aralık olarak kullanır.

Columns(2).Select

‘Columns(3)

‘Columns(“D”)

‘kullanarak columnskoleksiyonundan bir öğ belirleyebilirsiniz

End Sub

Sub izle()

Dim Aralığım AsRange ‘C4:E5 aralğınıAralğım değişkenine atadı.

Set Aralığım =Range(“C4:E5”)

‘Aralğımı daha kolaygörünmesi için renklendirdik.

Aralığım.Interior.Color= vbYellow

‘(“C5:E6”)aralığını,sarı aralıktan bir hücre aşağısını seçer. Öffset _

Özelliği ikibağımsız değişken alır. İlki bavuruyu aşağı kaydırmak için _

satır sayısıdır. 2.sağa kaydırmak için sütun sayısıdır.

Aralığım.Offset(1,0).Select

‘Aralğımla aynıboyutta ve ona bitişik olan F4:H5 Aralğını seçer. _

Kendinizi aralığınsol üst hücresinde otururken düşünün. Aralığımda üç _

sütun olduğu içinileri doğru üç adım atın. Bu yeni başvuru için başlangıç _

hücresidir.

Aralığım.Offset(0,Aralığım.Columns.Count).Select

‘Excel Aralğımdan bir sütün daha geniş olan C4:F5 aralığını seçer. Resize özelliği _

yenidenboyutlandırılmış bir aralık döndürür. İlk bağmsız değişken, yöne başvurudaki _

satır sayısı,ikincisi ise sütun sayısıdır. Satır yada sütunları özgün aralıktakiyle _

aynı bırakmak için,karşılğı olan bağımsız deişkeni boş bırakın (Ama ilk bağmsız _

deişkeni boşbırakıyorsanız virgül koyun).

Aralığım.Resize(,4).Select

‘Excel özgün aralıktan her yönde bir hücredaha büyük bir dikdörtgen _

seçer. Offsetözelliği başlangıç noktasını  bir hücreyukarı ve bir _

hücre sola doğrukaydırır. Resize özelliği yeni aralığı özgün olandan _

iki hücre daha uzunve iki hücre daha geniş yapar.

Aralığım.Offset(-1,-1).Resize(Aralığım.Rows.Count + 2, _

    Aralığım.Columns.Count + 2).Select

‘Excel 4. satırıntümünü seçer. Aralığım değişkeni C4:E5 aralığına bir _

başvuru döndürür.Cells Özelliği, o aralığın ilk hücresini (sol üstteki), _

C4’ü döndürür.EntireRow özelliği, o başvuruyu satır 4’ün tümünü içeren _

biçimde genişletir.Zincirdeki tüm özellikler; başka bir nesneye başvuru _

döndürür. asıl işiyapan sonundaki select yönteminde ulaşana kadar _

bu böyle sürer

Aralığım.Cells(1).EntireRow.Select

‘C:E sütunlarınıntümünü seçer

Aralığım.EntireColumn.Select

‘Excel A1:D4aralığını seçer. CurrentRegion özelliği, seçimi boş hücreler _

le yada çalışmasayfasının kenarlarıyla sınırlı bir dikdörtgen oluşturmak _

üzere genişletir.

Aralığım.CurrentRegion.Select

‘EntireRow, EntireColumn ve CurrentRegion özellikleriyle beraber Offset _

ve Resize özellikleri, özgün bir başlangıç aralğına dayalı  yeni Range _

nesneleri hesaplamanız için size esnek araçlar sağlar.

End Sub

‘VALUE Özelliği herzaman bir hücredeki sayının biçimlendirilmemiş _
değerini verir. Bir hücrenin, biçimlendirilmemiş değeri veren bir _
de Text özelliği vardır. Text Özelliği salt okunur çünkü value ve _
NumberFormat özelliklerinin bir birleşkesidir.