نوشته اصلی توسط
misammisam
ما مشتيم نيستيم چه برسه به حاجي
تعداد كدها خيلي زياده ، با حلقه كه ميتونم درستش كنم ، ولي مشكل اينجاست كه فايل كلا كاراييشو از دست ميده .
حالا هر روشي باشه ايراد نداره فقط اينو در نظر بگيريد كه براي 15000 تا 30000 تا كد ميخوام اعمالش كنم !!!!!!!
برای اون همه داده فعلا این روش به ذهنم رسید:
کد PHP:
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 ثانیه بررسی کرد.
علاقه مندی ها (Bookmarks)