پيدا كردن شماره سطر n امين كد ، از يك ستون كه كدهاي هم شكل داردند !؟

[misammisam]

با سلام
يه سوال به ظاهر ساده برام پيش اومده كه دو روزه منو درگير خودش كرده !!
فرض كنيد كه در يه ستون يكسري كد داريم كه اين كدها يونيك نيست و تكراريم توش هست ، حالا من ميخوام شماره رديف كدهاي مثلا 2001 رو پيدا كنم ، با اين فرمول ميشه كد اول رو پيدا كرد

code = Columns("D:D").Find(What:="2001").Row 

كه شماره رديف اولين كد 2001 رو ميريزه در متقير code ، حالا اگه بخوام شماره رديف كدهاي دوم يا سوم الي آخر رو پيدا كنم بايد چيكار كنم.

[jmkhah]

استاد می تونی نمونه فایلتو بزاری ، دو سه روزم ما درگیرش بشیم

[Javid Mokhtari]

با سلام
يه سوال به ظاهر ساده برام پيش اومده كه دو روزه منو درگير خودش كرده !!
فرض كنيد كه در يه ستون يكسري كد داريم كه اين كدها يونيك نيست و تكراريم توش هست ، حالا من ميخوام شماره رديف كدهاي مثلا 2001 رو پيدا كنم ، با اين فرمول ميشه كد اول رو پيدا كرد

code = Columns("D:D").Find(What:="2001").Row 

كه شماره رديف اولين كد 2001 رو ميريزه در متقير code ، حالا اگه بخوام شماره رديف كدهاي دوم يا سوم الي آخر رو پيدا كنم بايد چيكار كنم.

حاجی فقط به روش فوق باشه ...؟
حلقه ، آرایه ، شرط و ... قبول نیست...؟

[misammisam]

حاجی فقط به روش فوق باشه ...؟
حلقه ، آرایه ، شرط و ... قبول نیست...؟

ما مشتيم نيستيم چه برسه به حاجي
تعداد كدها خيلي زياده ، با حلقه كه ميتونم درستش كنم ، ولي مشكل اينجاست كه فايل كلا كاراييشو از دست ميده .
حالا هر روشي باشه ايراد نداره فقط اينو در نظر بگيريد كه براي 15000 تا 30000 تا كد ميخوام اعمالش كنم !!!!!!!

[misammisam]

استاد می تونی نمونه فایلتو بزاری ، دو سه روزم ما درگیرش بشیم

سوالش كه خيلي واضحه ، جوابش ما رو درگير كرده

[Javid Mokhtari]

ما مشتيم نيستيم چه برسه به حاجي
تعداد كدها خيلي زياده ، با حلقه كه ميتونم درستش كنم ، ولي مشكل اينجاست كه فايل كلا كاراييشو از دست ميده .
حالا هر روشي باشه ايراد نداره فقط اينو در نظر بگيريد كه براي 15000 تا 30000 تا كد ميخوام اعمالش كنم !!!!!!!

برای اون همه داده فعلا این روش به ذهنم رسید:

Application.ScreenUpdating = False

Dim rw, coun As Integer
coun = 1
rw = WorksheetFunction.CountIf(Range("a:a"), 25)
Range("a1000000").End(xlUp).Activate
a:
If rw >= coun Then
    Range("a:a").Find(What:="25", After:=ActiveCell, LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=True).Activate
    coun = coun + 1
    GoTo a:
End If

Application.ScreenUpdating = True 

برا 20000 محدوده تست کردم کمتر از 1 ثانیه بررسی کرد.

[misammisam]

برای اون همه داده فعلا این روش به ذهنم رسید:

Application.ScreenUpdating = False

Dim rw, coun As Integer
coun = 1
rw = WorksheetFunction.CountIf(Range("a:a"), 25)
Range("a1000000").End(xlUp).Activate
a:
If rw >= coun Then
    Range("a:a").Find(What:="25", After:=ActiveCell, LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=True).Activate
    coun = coun + 1
    GoTo a:
End If

Application.ScreenUpdating = True 

برا 20000 محدوده تست کردم کمتر از 1 ثانیه بررسی کرد.

آقا ممنونم ، با يكم تغيير هموني ميشه كه ميخواستم .
فقط يه 2 تا نكته آموزشيم به ما بده .
اين ScreenUpdating دقيقا چيكار ميكنه كه اول و آخرش آوردي .

تو اين قسمت نكتش چي بوده كه اينجوري نوشتي

)
Range("a1000000").End(xlUp).Activate 

مثلا ننوشتي

Range("a:a").End(xlUp).Activate 

تشكر

[Javid Mokhtari]

آقا ممنونم ، با يكم تغيير هموني ميشه كه ميخواستم .
فقط يه 2 تا نكته آموزشيم به ما بده .
اين ScreenUpdating دقيقا چيكار ميكنه كه اول و آخرش آوردي .

تو اين قسمت نكتش چي بوده كه اينجوري نوشتي

)
Range("a1000000").End(xlUp).Activate 

مثلا ننوشتي

Range("a:a").End(xlUp).Activate 

تشكر

نتیجه کدهای بالا یکی هستش ولی من به خاطر ترتیب انجام عملیات این کد رو نوشتم.
به فرض اگر محدوده a1:a2 دارای عدد 25 باشه کدی که من نوشتم از همون ردیف اول جست و جو میکنه ولی کدی که شما نوشتین از ردیف دوم شروع به جست و جو میکنه که این بخاطر کد

After:=ActiveCell, و, SearchDirection:=xlNext 

هستش

کدهای بالا که گام به گام اجرا می شود، در هر گام تغییرات بر روی شیت اعمال می شود.کلی بگم ... ScreenUpdating=false میگه که آقای اکسل تک به تک تغییرات انجام شده روی اکسل را نشان نده، نگه دار برای زمانی که کد ها تمام شد تمامی تغییرات را باهم نمایش بده.این کار به خاطر سرعت انجام کد هستش. کد ScreenUpdating رو از اول و اخر کدها پاک کن بعد کدهارو اجرا کن خودت میبینی چه اتفاقی می افته.