MVP logo
    Your browser: , Version
Thursday, 16.08.2018, 2:04 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
"Excel"in hansı versiyasını istifadə edirsiniz?
Səsvermə sayı: 536

Statistika

Total online: 1
Guests: 1
Users: 0

Müsabiqələr


Dublikatsız siyahının əldə edilməsi qaydası (VBA-ilə)
[ Download from this server (26.0 Kb) ]28.07.2011, 6:46 PM
Siyahıda eyni ad, kod və ya digər məlumatların mövcudluğu ilə çoxlarımız rastlaşırıq və bizə lazım gəlir ki, bu kodlardan hərəsindən bir dəfə olmaqla siyahı tərtib edək. Bunun üçün aşağıdakı VBA kodundan istifadə etmək olar.

Code
Sub Dublikatsiz()
Application.ScreenUpdating = False
Dim a As Long
Dim b As Long
Range("B:B").Select
Selection.ClearContents
lastrow = Range("A10000").End(xlUp).Row
b = 4
For a = 4 To lastrow
Range("B:B").Select
If Selection.Find(Cells(a, 1).Value) Is Nothing Then
Cells(b, 2).Value = Cells(a, 1).Value
b = b + 1
End If
Next a
Range("A2").Select
End Sub




Burada
"Application.ScreenUpdating = False"
əməliyyat prosesi müddətinin (görüləcək işin həcmini) təqribən 20 dəfəyədək azaldılmasına və nəticənin tez bir zamanda əldə edilməsinə xidmət edir. Əgər sizin siyahı böyükdürsə onda buradakı "False" sözünü "True" ilə əvəz edərək prosesi addım-addım izləyərək nəticəyə sahib ola biləcəksiniz. Beləliklə siz bir qədər gözləməli olursunuz.
"A" sütununda axırıncı aktiv xananı "lastrow = Range("A10000").End(xlUp).Row" yazılış müəyyən edir. (Bu bizə diapozonu müəyyən etmək üçün lazım gəlir)
"If Selection.Find(Cells(a, 1).Value) Is Nothing Then"
bu "A" sütunundakı hər bir sətirdə olan məlumatları seçilmiş olan "B" sütununda axtarır əgər tapmasa həmən axtardığı məlumatı ardıcıl olaraq "B4"-dən başlayaraq yazır və beləliklə Dublikatsız (hərəsi bir dəfə yazılan) siyahı əldə etmiş oluruq.
Category: VBA | Added by: Useful
Views: 443 | Downloads: 88 | 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