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

**1q2w3e4rr** · 2013/01/16, 05:15

RE: ايجاد سطر به تعداد مقادير سلولهاي يك ستون

فایلی با همین عملکرد:

Book6.xlsm

**امين اسماعيلي** · 2013/02/01, 01:38

RE: ايجاد سطر به تعداد مقادير سلولهاي يك ستون

با عرض معذرت خواهي از دوست عزيزمون

ممنون واسه فايل اما يه ايراد كوچلو داره و اينم اينه كه زماني كه سطر ها ايجاد شد و ما دوباره عدد زير اونا وارد كرديم و خواستيم دوباره سطر ايجاد كنه ميريزه بهم.

**1q2w3e4rr** · 2013/02/01, 05:26

RE: ايجاد سطر به تعداد مقادير سلولهاي يك ستون

البته فایل قبلی اساسا برای ایجاد ستر های جدید نوشته شده و ردیف هایی زیرین رو در نظر نمیگیره ولی اگه شما دقیقا تعداد مشخصی ردیف در زیر هر داده میخواید از فایل زیر استفاده کنید.

book 7

**امين اسماعيلي** · 2013/02/01, 10:43

RE: ايجاد سطر به تعداد مقادير سلولهاي يك ستون

با درود به دوست عزيز
منم دو خط به برنامتون اظافه كردم كه سرعت عملكردش بياد بالاتر

http://uplod.ir/nhsspkeqlb16/Book7.xlsm.htm

در پناه خداوندگار ايران زمين باشيد و پيروز

**solid** · 2014/10/26, 21:13

با سلام و احترام خدمت اساتید گرامی
من فایل book7 رو دانلود کردم ، برای حل یک مسئله به این فایل نیاز خیلی شدید دارم ، در این فایل وقتی عدد 2 در سلول مورد نظر باشد ، کد موجود ، 2 ردیف درج می نماید ، چطوری میتونم این رقم رو به یکی کاهش بدم ، یعنی با وجود عدد 1 هیچ ردیفی درج نشه و با وجود ردیف 2 1 ردیف درج بشه و با وجود عدد 3 ، 2 ردیف درج بشه

**khakzad** · 2014/10/27, 09:57

دوست عزی این قسمت کد نشون میده که k تا ردیف اضافه میشه

کد:

Cells(Row, 1) = k

پس حالا که می خواید یکی کم شه باید به این تبدیل بشه:

کد:

Cells(Row, 1) = k-1

**solid** · 2014/10/27, 17:19

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