یکی منو از تو لووپ در بیاره

**Amir Ghasemiyan** · 2014/12/16, 18:21

نوشته اصلی توسط alisabet

سلام یه فایل نمونه گذاشتم که توضیخات هم توش هست یه مختصر کد هم داره که به کلید توی صفحه ارتباط داره ولی نمیدونم چرا تو حلقه loop گیر میکنه

سلام
اين كه نياز به حلقه و كد نويسي نداره كه دوست عزيز
شما سلول سبز رنگ رو تقسيم بر مبلغ قابل توزيع كنيد ضريب مناسب بدست مياد
به همين راحتي

**alisabet** · 2014/12/16, 18:26

با عرض تشکر
البته مشکل بدست آوردن ضریب نیست این را جهت نمونه گذاشتم فایل اصلیم حجمش زیاده صبح که در اداره امتحان میکردم همین فایل توی لوپ گیر میکرد اما الان خونه که امتحامن میکنم گیر نمیکه اما اون کاری هم ظاهرا قراره نمیکنه اگه لطف کنید کد رو طور تغییر بدید که از ضرائیب . یکهزام یکهزام کم کنه تا جائیکه خانه سبز رنگ تغییر نکنه ممنون میشم

**alisabet** · 2014/12/16, 18:30

یادم رفت بگم که سقف هر ضریب هم عدد یک هست که میتونه با پله های یکهزارم کم بشه تا به صفر برسه

**Amir Ghasemiyan** · 2014/12/16, 18:58

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

**Javid Mokhtari** · 2014/12/16, 20:39

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

**Amir Ghasemiyan** · 2014/12/16, 20:46

اين كد رو هم ميتونين تست كنيد. اينم جواب ميده مشكلي نداره

کد PHP:

Sub asas() For Row = 6 To 8 mablagh = Cells(Row, 3).Value zarib = Cells(Row, 4).Value avalyeh = Cells(Row, 7).Value karaneh = mablagh * zarib Do While karaneh > avalyeh zarib = zarib - 0.001 karaneh = mablagh * zarib Loop Cells(Row, 4).Value = zarib Next Row End Sub

**alisabet** · 2014/12/16, 21:28

کدی که شما گذاشتید با تعداد پرسنل زیاد با سرعت بیشتری اجرا میشه چرا ؟

در ضمن اگر کد شما رو دوبارپشت سر هم اجرا کنیم یه خطا میده این خطا چی میگه چطور حلش کنم ؟

**Amir Ghasemiyan** · 2014/12/16, 22:16

نوشته اصلی توسط alisabet

کدی که شما گذاشتید با تعداد پرسنل زیاد با سرعت بیشتری اجرا میشه چرا ؟

در ضمن اگر کد شما رو دوبارپشت سر هم اجرا کنیم یه خطا میده این خطا چی میگه چطور حلش کنم ؟

نميدونم والا. چي بگم؟
من كد رو 20 بار اجرا كردم هيچ خطايي نداد. شما چه خطايي دريافت ميكنيد؟

**alisabet** · 2014/12/16, 22:33

تصویر خطا را ارسال کردم البته این خطا همیشه ظاهر نمیشه چند بار که ماکرو رو اجرا میکنم میاد بعضی وقتها هم نمی آید

فایل های پیوست شده

**Amir Ghasemiyan** · 2014/12/16, 23:16

نوشته اصلی توسط alisabet

تصویر خطا را ارسال کردم البته این خطا همیشه ظاهر نمیشه چند بار که ماکرو رو اجرا میکنم میاد بعضی وقتها هم نمی آید

براي اين مشكل فكر كنم اگه اين خط رو به اول كدتون اضافه كنيد مشكل حل بشه

کد:

Application.EnableCancelKey = xlDisabled

**alisabet** · 2014/12/16, 23:28

این مشکل حل شد

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

فایل های پیوست شده

kahesh.xlsm (25.6 کیلو بایت, مشاهدات 8)

**Amir Ghasemiyan** · 2014/12/17, 00:31

نوشته اصلی توسط alisabet

این مشکل حل شد

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

ظاهرا اعدادتون در حدود ميليونيوم اضافه داره كه تو سلول ديده نميشه ولي تو محاسبات لحاظ ميشه
شما شرط حلقه رو اينطوري اصلاح كن درست ميشه

کد:

Do While karaneh > avalyeh + 0.1

من هم با 0.001 هم با 0.0001 هم با 0.00001 تست كردم بدون مشكل جواب ميده