MVP logo
    Sizin Brauzer: , Versiya
Bazar, 22.10.2017, 2:47 PM
Salam Qonaq | RSS
Ana səhifə | Fayl Kataloqu | Qeydiyyat | Giriş
Saytın menyusu

Kateqoriyalar
VBA [21]
Formullar [31]
Massiv Formullar [12]
Ümumi [4]

Sorğu
"Excel"in hansı versiyasını istifadə edirsiniz?
Səsvermə sayı: 519

Statistika

Cəmi online: 1
Qonaqlar: 1
Userlər: 0

Müsabiqələr

Ana səhifə » Fayllar » Excel Tricks » VBA

VBA-da xana, sətir və sütunların seçilməsi (həmçinin Copy, Cut, Delete, Clear və s) qaydası
07.01.2012, 11:43 PM
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

Kateqoriya: VBA | Yükləyən: Useful
Baxış sayı: 400 | Yükləmə sayı: 0 | Ratinqi: 0.0/0
Cəmi şərhlər: 0
Ad *:
E-poçt:
Kod *:
Daxil ol

Axtar

Dost Saytlar
  • www.planetaexcel.ru
  • www.programmersforum.ru
  • www.mrexcel.com
  • www.excelworld.ru
  • www.cyberforum.ru
  • www.excelvba.ru
  • www.muhasib.az

  • Sayğac
    free counters

    Saytın məlumatlarından istifadə edərkən mənbəyə istinad zəruridir!
    MyExcelWorld © 2010 - 2017
    Site managed by uCoz
    ILK-10 Azeri Website Directory