برنامه جدا كردن اسامي غير تكراري از جداول تكراري در اكسل

ليست هاي تكراري ، جداولي هستند كه ركورد هاي آن مجاز به تكرار مي باشند ، مثلا علي ميتواند به هر تعداد كه دوست دارد مراجعه و وجه نقد دريافت كند.يكي از روش هاي گزارش گيري از داده ها استفاده از ابزار قدرتمند جداول محوري است . ابزار subtotal نيز يكي ديگر از روش هاي گزارش گيري از جداول تكراري است.نوشتن برنامه هاي وي بي اي نيز يكي از زيباترين ، شيوه هاي كار با اكسل است.حال براي آشنايي و دوستي با اين بخش از اكسل يك مثال را براي كاربران حرفه اي تر اكسل مطرح مي كنيم.

مثال : فرض كنيد جدولي داريم كه افرادي معدود طي چند بار مراجعه كار انجام داده اند و پول دريافت كرده اند.حال مي خواهيم با استفاده از برنامه نويسي VBA  اسامي آنها را به صورت غير تكراري از جدول  خارج كرده نمايش دهد.

براي نوشتن اين كد بايد كليد هاي  Alt+F11 را فشرد تا به محيط VBA وارد شويم.آموزش اكسل از منوي Insert  گزينه ي Module  را انتخاب مي كنيم و سپس كد مورد نظر را در آن مي نويسيم.

Sub list()
Dim i As Integer
Dim r As Integer

'shomareh radif akharin celol database
r = Range("a1").CurrentRegion.Rows.Count

'avalis celol database
Cells(1, 13) = Cells(1, 2)

'asami bedone tekrar
For i = 1 To r
If WorksheetFunction.CountIf(Range("m:m"), Cells(i, 2)) < 1 Then

Cells(i, 13) = Cells(i, 2)

End If
Next

End Sub