سلام،
دوست عزيز دقيقا" مطابق چيزي که ذيلا" عرض مي کنم عمل کنيد، انشا الله مشکلتان حل خواهد شد:
1- فيلتر ستون BH را برداريد
2- فرمول ستون BG را به صورتي بنويسيد که نتيجه رند شود، يعني در خانه BG2 بنويسيد:
کد PHP:
=ROUND(VLOOKUP(B2;'لیست حقوق'!B:P;15;0);0)
و تا آخرين رديف اطلاعات فرمول را درگ کنيد
حال يک ماژول تشکيل داده و کد زير را داخل آن بنويسيد:
کد PHP:
Dim c As Range
For Each c In Range("AP2:AP647")
c.GoalSeek Goal:=c(1, 18), ChangingCell:=c(1, -31)
Next
در آخر ماژول را اجرا کنيد. فکر کنم حدود يک دقيقه محاسبات طول بکشد و سپس نتيجه دلخواه بايد حاصل شود.
توجه کنيد که کد فوق جهت همين ترکيب فعلي فايل شما نوشته شده و اگر ستونها را جابجا کنيد بايد کد را هم تغيير دهيد.
مشکلي بود در خدمتم. موفق باشيد.
علاقه مندی ها (Bookmarks)