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

[alisabet]

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

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

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

[alisabet]

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

[alisabet]

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

[Amir Ghasemiyan]

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

[Javid Mokhtari]

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

[Amir Ghasemiyan]

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

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]

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

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

[Amir Ghasemiyan]

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

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

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

[alisabet]

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