MVP logo
    Sizin Brauzer: , Versiya
Bazar ertəsi, 11.12.2017, 9:46 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ı: 522

Statistika

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

Müsabiqələr

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

"Find"- VBA-da Axtarış əməliyyatı
08.01.2012, 9:02 PM
Find ilə VBA-da Axtarış əməliyyatı.

Sub Axtarish()
Cells.Find("Axrarilan soz").Select
End Sub

Əgər nəzərə alsaq ki, VBA-da əlifbamızdakı bəzi hərflər tanınmır (ə,ü,ğ,ö,ı,ç,ş) və bizə isə tərkibində həmən hərflər olan sözlərin tapılması lazımdır onda biz bunu başqa yolla həll edə bilərik.
Axtaracağımız sözü A1-xanasına yazaq sonra isə axtariş kriteriyası olan "soz”-ün A1-ə bərəbərliyini təyin edərək aşağıdakı ardığıllığı quraq.

Sub Axtarish2()
soz= Range("A1”) 
Cells.Find(soz).Copy ‘Burada tapılan sözü "Copy” edirik
End Sub

Burada siz A1-ə nə yazsanız "Axtarish2”-ni Run etməklə həmin o sözü tapmış olacaqsınız. Əgər A1-ə yazılmış söz başqa heç yerdə mövcud deyilsə onda A1-i tapılan kimi görəcəksiniz. Burada Find-dan əvvəl Cells yazısı bütün xanalarda axtarış ediləcəyini göstərir. Əgər müəyyən bir seçilmiş aralıqda axtarış etmək istəyirsinizsə onda "Selection.Find(soz).Copy” yazılmalıdır.

Kateqoriya: VBA | Yükləyən: Useful
Baxış sayı: 416 | Yükləmə sayı: 0 | Ratinqi: 0.0/0
Cəmi şərhlər: 0
Şərh əlavə etmək üçün lütfən qeydiyyatdan keçin.
[ Qeydiyyat | Daxil ol ]
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