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.
