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

Statistika

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

Müsabiqələr

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

Dublikatsız siyahının əldə edilməsi qaydası (VBA-ilə)
[ Bu serverdən yüklə (26.0Kb) ] 28.07.2011, 7: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.
Kateqoriya: VBA | Yükləyən: Useful
Baxış sayı: 376 | Yükləmə sayı: 81 | 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