درستون a اعدادي به شرح زير دارم كه اعداد آن در حال تغيير هست وممكنه اعداد ديگري جايگزين شوند . مي خوام در ستون ديگري مثلا c اعداد از 1 شمارش بشن و وقتي به اون عدد(4) رسيدند شمارش از سطر بعدي براي دومين عدد شروع بشه و وقتي به دومين عدد(2) رسيد شمارش سطر سوم از 1 شروع بشه وبه عدد اون سل (3) برسه و همينطور به سلهاي بعدي اين شمارش ادامه داشته باشه. در فايل زير ستون a وستون c آورده شده .
-
[COLOR=#800000][FONT=tahoma]مواظب باشید به تابوت من آگهی تبلیغاتی نچسبانند (حسين پناهي)[/FONT][/COLOR] -
RE: شمارش رديفها
i= شماره سطر اولین سل مبداکد: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
j= شماره ستون اولین سل مبدا
m= شماره سطر اولین سل مقصد
n= شماره ستون اولین سل مقصد -
RE: شمارش رديفها
سلام اين كد رو كجا قرار بدم تا هميشه فعال باشه[COLOR=#800000][FONT=tahoma]مواظب باشید به تابوت من آگهی تبلیغاتی نچسبانند (حسين پناهي)[/FONT][/COLOR]کامنت
-
RE: شمارش رديفها
داخل یک ماژول!کامنت
-
RE: شمارش رديفها
با سلام
لطفاً اگر میشه کد ماژول رو تو فایل نمونه بزارین تا عملکردش رو ببینیم
با تشکر[COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]کامنت
-
RE: شمارش رديفها
منظورم اين نبود منظور اينه كه به چه صورتي ويا در كجاه قراربدم وقتي سلهاي اولي تغيير كردند اين شمارش ها همزمان تغيير يابند[COLOR=#800000][FONT=tahoma]مواظب باشید به تابوت من آگهی تبلیغاتی نچسبانند (حسين پناهي)[/FONT][/COLOR]کامنت
-
کامنت