VBA-da xana, sətir və sütunların seçilməsi qaydası Select (həmçinin Copy, Cut, Delete, Clear və s əməliyyatları yerinə yetirmək üçün aşağıdakı Select sözünü bu uyğun sözlərlə əvəz edə bilərsiniz)
Bundan başqa seçilmiş hissələri rəngəlyə, sətir və sütun genişliklərini müxtəlif ölçüdə tənzimləyə və həmçinin seçhilmiş aralıqda saylarını tapa və habelə "Comment" əlavə edə bilməklə yanaşı bir çox əməliyyatları gerçəkləşdirə bilərsiniz. 1.Hər hansı bir xananın seçilməsi qaydası. (məsələn A1-xanasını seçilməsi)
Sub Xananin_Sechilmesi() 'A1 xanasinin sechilmesi qaydasi Range("A1").Select 'Xananin sechilmesinin diger usulu Cells(1, 2).Select 'burada birinci yerde dayanan "1"- birinci setiri, ikinci yerde dayanan yeni "2"-ise ikinci sutunu gosterir End Sub
2.Bir neçə xananın seçilməsi qaydası. Sub Xananalarin_Sechilmesi() 'Eyni zamanda iki ve daha chox xanalarin sechilmesi qaydasi (meselen A1 ve B3-un) Range("A1,B3").Select 'Novbeti xanalarin da sechilmesi vergul ile ayrilir, meselen A1 ve B1-ile yanashi C5-i bele elave ederik: Range("A1,B3,C5").Select End Sub
3.Bir sütunun seçilməsi.
Sub Sutunun_Sechilmesi() 'Bir sutunun butunlukde sechilmesi qaydasi (meselen A-sutununun) Range("A:A").Select ‘; Range("A1").EntireColumn.Select ‘; Columns(1).Select ‘ ; Columns("A:A”).Select End Sub
4.Bir neçə sütunun seçilməsi qaydası.
Sub Sutunlarin_Sechilmesi() 'Iki ve daha artiq sutunun sechilmesi qaydasi: Range("A:B").Select '(burada iki sutunu birlikde); Range("A1,B1”).EntireColumn.Select '(burada iki sutunu birlikde); Columns("A:B”).Select '(burada iki sutunu birlikde); Columns("1:2”).Select '(burada iki sutunu birlikde); Range("A:C").Select '(burada uch sutun birlikde); Columns("A:C”).Select '(burada uch sutun birlikde); Columns("1:3”).Select '(burada iki sutunu birlikde); 'Yanashi olmayan iki (ve daha chox olduqda da vergul ile aryilir) diopozonun sechilmesi qaydasi Range("A:A,C:C").Select ‘Burada yalniz birinci ve uchuncu sutunlar sechlir; Union(Columns(1), Columns(3)).Select ‘Burada yalniz birinci ve uchuncu sutunlar sechlir. End Sub
5.Bir sətirin seçilməsi qaydası.
Sub Setirin_Sechilmesi() 'Bir setirin butunlukde sechilmsi qaydasi Range("A1").EntireRow.Select '(burada A1-yazildigi uchun 1-ci setiri tam olaraq sechir); Range("1:1").Select ‘; Rows(1).Select End Sub
6.Bir neçə sətirin seçilməsi qaydası.
Sub Setirlerin_Sechilmesi() 'Iki ve daha chox setirin sechilmesi Range("1:2").Select ‘; Rows(1:2).Select 'Yanashi olmayan iki ve daha chox sutunlarin sechilmesi Range("1:1,3:3").Select ‘Burada yalniz birinci ve uchuncu setirler sechlir; Union(Rows(1),Rows(3)).Select ‘Burada yalniz birinci ve uchuncu setirler sechlir. End Sub
7.Eyni zamanda müxtəlif cür seçmə əməliyyatları. 'Meselen: A , C, E-sutununun, B15-in, D10:G8-in ve yeddinci setirin sechilmesi) Sub MultiSechme() 'Multisechme emeliyyati Range("A:A,C:C,E:E,B15,D10:G8,7:7").Select 'Bu sechmeni daha da artirmaq olar; ‘Union funksiyasıi sechilmish bir nechə hisselerin vahid sechimde birleshmesine imkan verir. ("Add to selection”-kimi, yeni sechilmish hisseye elave et. Excel sehifesinde bunu ALT+F8-le edirdik. VBA-da ise bu emeliyyati "Union” yerine yetirir.) Union(Rows(1), Columns(3), Cells(1, 2), Range("A7"), Range("A5:G12")).Select End Sub
|