0
0

سلام وقت بخیر

ببخشید من خواستم مقدار چند سلول جوری تغییر کنه که به یک جمع مشخص برسیم، مثلا نمرات دروس به نحوی تغییر کنه که معدل من بشه 17.

یا تعداد روزهای کاری افراد جوری تصادفی تغییر کنه که مجموع کارکرد بشه 180 روز

تابع goal seek , فقط میشه مقدار یک سلول رو تغییر داد،

 

ممنون از همکاری شما

  • شما باید برای ارسال دیدگاه شوید
0
0

سلام میلاد

فرض کن اعداد ما در محدوده A1:A10 و معدل آن ها در سلول D1 محاسبه میشه

اول در محدوده A1:A10 از تابع رندوم به صورت ذیل استفاده کن

=RANDBETWEEN(0,20)

بعد ماکروی ذیل رو اجرا کن

Sub Generate_Num()
Dim X As Integer
Dim Msg As Variant
X = 1

Do While X = 1
Application.Calculate
If Range(“D1”) = 17 Then
Msg = MsgBox(“OK”, vbInformation, “sheet1.ir”)
X = 0
Exit Do
End If
Loop
End Sub

ابن کد تا زمانی که معدل اعداد تصادفی ایجاد شده برابر 17 بشود، اجرا میشه

البته این راه حل بهینه ای نیست و ممکنه کمی زمانبر باشه ولی جواب میده

  • شما باید برای ارسال دیدگاه شوید
نمایش 1 نتیجه
پاسخ شما
نویسنده مهمان
اگر حساب کاربری دارید . در هر صورت می توانید به عنوان کاربر مهمان سوال یا پاسخ خود را ارسال نمایید
نام*
ایمیل*
بارگزاری فایل
نام فایل اندازه
در حال حاضر هیچ فایلی بارگذاری نشده است.
حداکثر تعداد فایل ها 4، حداکثر اندازه فایل 2MB.
فرمت های فایل پشتیبانی شده: txt pdf zip jpg png jpeg xlsx xlsm