MVP logo
    Your browser: , Version
Thursday, 16.08.2018, 2:03 AM
Hello! Guest | Group Guest | RSS
Home | Fayl Kataloqu | Profile  | Login
Saytın menyusu

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

Sorğu
Saytın hansı bölməsini daha çox maraqlı hesab edirsiniz?
Səsvermə sayı: 129

Statistika

Total online: 1
Guests: 1
Users: 0

Müsabiqələr


"Find"- VBA-da Axtarış əməliyyatı
08.01.2012, 8: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.

Category: VBA | Added by: Useful
Views: 470 | Downloads: 0 | Rating: 0.0/0
Total comments: 0
Register to add comments
[ Register | Login ]
Login

Search

Useful Sites
  • www.planetaexcel.ru
  • www.programmersforum.ru
  • www.mrexcel.com
  • www.excelworld.ru
  • www.cyberforum.ru
  • www.excelvba.ru
  • www.muhasib.az

  • Visitors
    free counters


    MyExcelWorld © 2018
    Site managed by uCoz