کمک به حل مشگل درشمارش ردیف های حاوی عدد(بافرمت رنج تکرارشونده)

[رضاوحیدی]

سلام
اگرممکن است درخصوص مشکل بنده مراراهنمایی بفرمایید
من می خواهم ازطریق vba برنامه ایی بنویسم که دریک مجموعه کارکردمثلا6000تایی(6000سطر) سلولهای دارای عدد راشمارش کند البته بایک الگوی تکرارشونده خاص(هر33تاردیف تکرارمی شوند)درواقع کارکردنفرات است که می خواهم تعدادغیبت هرنفررابراساس ردیف غیبتش(از3تا33)که برای نفرات تکرارمی شود درصورتیکه دارای عددباشد برای هرفردشمارش ودرجلوی نام فرد عددرابنویسد
ازاینکه به حل مشگل بنده کمک می کنید سپاسگزارم

[iranweld]

سلام

لطفا یک نمونه فایل ضمیمه کنید که در آن حداقل یک مورد مشخص شده باشد

در فایل پیوست اگر دیتا سورت هم نباشد عمل شمارش تعداد غیب هر فرد صورت میگیرد

[رضاوحیدی]

سلام فایل مثال بعنوان نمونه تقدیم می شود

[رضاوحیدی]

ازراهنمایی شما متشکرم ولی خواهش بنده این است که با زبان vba راهنمایی بفرمایید(من عملیات خواندن صفحه اطلاعات افراد راباvbaانجام داده ام ولی درخصوص شمارش غیبت بصورتی که عرض شد دچارمشکل هستم)

[iranweld]

با سلام

فایل پیوست را بررسی کنید

Sub test()

Columns("C:C").ClearContents

Application.ScreenUpdating = False

Application.Calculation = xlManual

Z1 = Cells(Rows.Count, "A").End(xlUp).Row



For I = 1 To Z1

If Not IsNumeric(Range("a" & I)) And Range("a" & I) <> "˜ÇјÑÏ ˜á" Then

XX = Range("a" & I)



Range("c" & I) = XX

Else

Range("c" & I) = XX

End If

Next


Application.ScreenUpdating = True



Application.Calculation = xlAutomatic

End Sub 

[رضاوحیدی]

سلام ازوقت وانرژی که صرف کردید بی نهایت ممنونم
واقعیت اینست که من کارشناس کامپیوترنیستم وصرفا بصورت خوداموزبرنامه ای برای محاسبه حقوق ودستمزدنوشتم که کاملامبتدی است
الان هم بنده یک ماژول می خواهم که در برنامه ام جابدهم وکارشمارش وثبت غیبت نفرات راانجام بدهد
اگردراین زمینه می توانیدبه بنده یاری بدهید