شمارش رديفها

[intro]

درستون a اعدادي به شرح زير دارم كه اعداد آن در حال تغيير هست وممكنه اعداد ديگري جايگزين شوند . مي خوام در ستون ديگري مثلا c اعداد از 1 شمارش بشن و وقتي به اون عدد(4) رسيدند شمارش از سطر بعدي براي دومين عدد شروع بشه و وقتي به دومين عدد(2) رسيد شمارش سطر سوم از 1 شروع بشه وبه عدد اون سل (3) برسه و همينطور به سلهاي بعدي اين شمارش ادامه داشته باشه. در فايل زير ستون a وستون c آورده شده .

http://gigpars.com/images/wjia_book1.xlsx

[smartman]

RE: شمارش رديفها

Sub CustomFill()
    i = 1
    j = 1
    m = 1
    n = 3
    Do While Cells(i, j).Value > 0
        For num = 1 To Cells(i, j).Value
            Cells(m, n) = num
            m = m + 1
        Next
        i = i + 1
    Loop
End Sub

i= شماره سطر اولین سل مبدا
j= شماره ستون اولین سل مبدا

m= شماره سطر اولین سل مقصد
n= شماره ستون اولین سل مقصد

[intro]

RE: شمارش رديفها

سلام اين كد رو كجا قرار بدم تا هميشه فعال باشه

[smartman]

RE: شمارش رديفها

داخل یک ماژول!

[Amin_D]

RE: شمارش رديفها

با سلام
لطفاً اگر میشه کد ماژول رو تو فایل نمونه بزارین تا عملکردش رو ببینیم
با تشکر

[intro]

RE: شمارش رديفها

منظورم اين نبود منظور اينه كه به چه صورتي ويا در كجاه قراربدم وقتي سلهاي اولي تغيير كردند اين شمارش ها همزمان تغيير يابند

[smartman]

RE: شمارش رديفها

http://bit.ly/14dILAf