بررسی فایل اکسل

**M_ExceL** · 2019/07/04, 01:08

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

باسلام خدمت اساتید محترم
توضیح در رابطه با کارکرد برنامه :
با وارد نمودن تعداد نفرات، ساعت ورود و ساعت خروج برنامه میبایست بصورت خودکار ( مدت زمان، هزینه هر نفر، جمع کل، سهم هر نفر باتوجه به تعدا نفرات ) را در هر ردیف محاسبه نماید.
مثال در فایل اکسل وارد شده است.
نرخ ساعت اول : 10،000 تومان
نرخ ساعت دوم : 8،000 تومان می باشد

در حال حاضر مشکلی که فایل دارد این است که هر ردیف را محاسبه نمی نماید و بصورت کلی محاسبه را انجام می دهد.
ضمناً می بایست با تغییر نرخ ساعت اول و ساعت دوم در شیت تنظیمات در محاسبات اثرگذار باشد.

سلام،
فایلتون رو چک کنید.
دو خط زیر رو که نوشتید خطا ایجاد میکنه.

کد:

h = Left(Cells(i, 4).Value, 2)
m = Right(Cells(i, 3).Value, 2)

هر دو مقدار صفر رو می گیرند
شما سپس مقدار o رو مساوی قرار دادید با 00 - 00
لازم هست توضیحات بیشتری اضافه کنید تا بهتر بشه خواستتون رو درک کرد.

**mobinsaffarpour** · 2019/07/04, 09:52

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

حالا وقتی مشتری ها بصورت انفرادی یا گروهی روی میزها میشینن ما باید ( تعداد نفرات، ساعت ورود و در انتهای کار ساعت خروج رو ثبت کنیم ) و خود برنامه با زدن دکمه محاسبه بصورت خودکار برای ما باقی آیتم ها رو محاسبه کنه.
توضیح کلی : بعد از ورود اطلاعات ( تعداد نفرات،ساعت ورود، ساعت خروج ) و زدن دکمه محاسبه در هر دریف برنامه باید بصورت خودکار فقط محاسبه هر ردیف رو انجام بده و کاری به محاسبه ردیف های دیگه نداشته باشه. باتشکر از شما

**mobinsaffarpour** · 2019/07/10, 09:03

باسلام
کسی از اساتید و دوستان نیست بخواد کمک کنه ؟

**Amir Ghasemiyan** · 2019/07/10, 09:39

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

باسلام
کسی از اساتید و دوستان نیست بخواد کمک کنه ؟

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

**mobinsaffarpour** · 2019/07/10, 11:22

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

برای موضوع دوم هم که فرمودید
ستون هزینه اضافی هست

یادم رفت حذفش کنم. بی زحمت شما حذفش کنید و جای ستون سهم هر نفر با جمع کل باید عوض بشه ( شماره میز، تعداد نفرات، ساعت ورود، ساعت خروج، مدت زمان، سهم هر نفر، جمع )
ستون جمع : مجموع کل درآمد حاصله از میز

**Amir Ghasemiyan** · 2019/07/10, 12:57

من براتون با هر دو روش حل كردم. نظر شخصيم اينه كه بدون كد بهتره

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

**mobinsaffarpour** · 2019/07/10, 13:32

استاد قاسمیان عزیز یک دنیا ممنون.
متشکرم از همکاریتون واقعاً لطف کردید.
فقط یک موردی توی فایل VE.xlsm محاسبه رو درست انجام نمیده. لطف میکنید بررسی کنید.
اما توی فایل اول درست هست.

**Amir Ghasemiyan** · 2019/07/10, 15:04

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

استاد قاسمیان عزیز یک دنیا ممنون.
متشکرم از همکاریتون واقعاً لطف کردید.
فقط یک موردی توی فایل VE.xlsm محاسبه رو درست انجام نمیده. لطف میکنید بررسی کنید.
اما توی فایل اول درست هست.

خواهش ميكنم.
بله درسته. يك اشتباه كوچيك هست.
اين خط رو پيدا كنيد:

کد:

newDuration = Application.WorksheetFunction.RoundUp(Duration * 24, 0)

به انتهاش -1 اضافه كنيد. بشه اينطوري:

کد:

newDuration = Application.WorksheetFunction.RoundUp(Duration * 24, 0) - 1