با سلام خدمت دوستان احتمالا برای هر حسابرس و حسابداری پیش اومده که تو یه ستونی دنبال اعدادی بگرده که حاصلجمعشون یه عددی بشه ، وقتی تعداد اعدادمون زیاد باشه تقریبا پیدا کردن گروه اعداد سخته میشه .راه حلی که برای این موضوع بکار برده شده استفاده از تابع solver و یا نصب تابعFind combination هستش که بنده موفق به نصب این تابع نشدم . و استفاده از solver هم ایرادای خودشو داره. حالا هم شدیدا دنبال حل این موضوع هستم .ممنون میشم کسی راهنماییم کنه ؟ با تشکر
جمع کدام اعداد x میشود؟
سلام
با ستفاده از کاربرگ زیر قادر خواهید بود جوابهای پرسش فوق را بیابید.
Find combination
آخرین ویرایش 20 مرداد 1397
سلام
برای اینکه بتوانید از این کاربرگ استفاده کنید باید add-in های solver و analysis را فعال کنید برای این منظور به excel options رفته و در بخش adi-in انها را فعال کنید.
فایلتون کار نمیکنه؟
یعنی وقتی روی run کلید میکنم چیزی نمیشه؟
فایل بالا در مورد تعداد اندک داده بهتر عمل میکند و سریع جواب پیدا میکنه ولی در مورد تعداد داده های بالا مثلا 150 یا 200 ردیف خیلی منتظر میزاره و یا اصلا عمل نمیکنه البته نا گفته نمونه که سیستم مورد استفاده بنده هم وضعش خرابه.ولی بازم مفید هستش.ممنون.
سلام
در خصوص اینکه چرا این کلید RUN ران نمیشه قبلا توضیح داده شده است شما باید add-in های solver و analysis را فعال کنید برای این منظور به excel options رفته و در بخش adi-in انها را فعال کنید.
در خصوص اینکه فایل بالا برای محاسبات اندک بهتر عمل میکند نظرتان درست است با افزایش تعداد دادهها زمان بیشتری برای انجام پردازش لام است راستش را بخواهید اکسل برای انجام چنین پردازشهایی برنامه نویسی نشده است ولی حتی با در اختیارداشتن نرم افزارهای مناسب این کار نیز زمان لازم برای رسیدن به پاسخ نسبت مستقیمی با تعداد دادهها دارد.
مرسی خیلی خوبه ببینم از این میشه برای مغایرت گیری استفاده کرد؟
راتستی لیک کمکی کار میکنه
فایل خیلی عالی بود خیلی کارم رو راه انداخت
فقط لطفآ اگه ماهی میدید ماهیگیریم یاد بدید اگه از نحوه تهیه فایل اطلاعاتی بدید ممنون میشم با تشکر
پروردگارا ببخش مرا که آنقدر حسرت نداشته هایم را خوردم ، شاکر داشته هایم نبودم . . .
سلام
راستش را بخواهید من آشنایی مختصری با ماکرو نویسی در اکسل دارم و برای همین توضیح ماکروی فوق برایم ساده نیست برای مشاهده ماکوری نوشته شده نیز در پستهای قبلی توضیح دادم کافی است کلیدهای Alt و F11 را همزامان بزنید.
درهرصورت متن ماکرو به شرح زیر است
Private Sub Add1(ByVal BegRow As Integer, ByVal SumSoFar As Double, _ ByVal OutSoFar As String, ByVal Num As Integer) Dim ThisRow As Long Dim OneA As String If (BegRow <= endrow)="" and="" (sumsofar="">=>< target)="" and="" (num="">< limit)="" then="" for="" thisrow="BegRow" to="" endrow="" onea="Cells(ThisRow," 1).address(rowabsolute:="False," columnabsolute:="False)" if="" outsofar=""><> "" Then OneA = " + " & OneA End If If (Round(SumSoFar + Cells(ThisRow, 1).Value, 2) = Target) And (Num > 0) Then Cells(OutRow, 3).Value = OutSoFar & OneA OutRow = OutRow + 1 Else Add1 ThisRow + 1, Round(SumSoFar + Cells(ThisRow, 1).Value, 2), _ OutSoFar & OneA, Num + 1 End If Next ThisRow End If End Sub ' http://forum.hma.ir کاربرگرامی به شما اجازه ویرایش متن فوق داده نشده است البته میتوانید متن را کپی نمایید
آخرین ویرایش 17 خرداد 1394