قرعه*کشی با اکسل

[honeyxp]

سلام. فرض کنین ما تعدادی اسم داریم مثلن برای قرعه کشی ماهیانه صندوق مالی که میخوام از تعداد n نفر هر ماه یکی انتخاب بشه و تکراری هم نباشه. خب باید از تابع Rand() استفاده کنم. اما میخوام وقی مثلن ماه اول یه عدد رندوم بهم داد و یه نفر مشخص شد، اون عدد رندوم دیگه تغییر نکنه و ماه بعد دوباره یه عدد رندوم دیگه و یه نفر تازه که تکراری نباشه. میشه این کارو یه جوری انجام داد؟ چون توی آمار داریم که اگه بخوایم از یه جامعه یه نفرو رندوم انتخاب کنیم، یه عدد تصادفی انتخاب میکنیم و در تعداد جامعه ضرب میکنیم و بعد رو به بالا گرد میکنیم. این طوری ممکنه عددای رندوم متفاوت باشن اما حاصلِ ضرب شده توی جامعه و بعد از اون رند شدنش به بالا باعث تولید عددای مساوی بشه. اگه برای هر نفر یه عدد در نظر بگیرم، با زدن F9 یا هربار باز کردن دوباره ی فایل، اون عددا تغییر میکنه و ثبت نمیشه. اما من میخوام هر ماه ک تموم شد اون عدد ثابت بمونه و دیگه تغییر نکنه. تعداد نفرات 30 نفر هستش و من میخوام با رفتن به ماه بعد خودش یه نفرو برام انتخاب کنه که تکراری نباشه. اگه توضیح بیشتری لازم بود بگین توضیح بدم.
مرسی

[iranweld]

با سلام
این پست را ملاحظه بفرمایید

[honeyxp]

با سلام
این پست را ملاحظه بفرمایید

مرسی از لینک مفید. فقط دنبال حالتی هستم که بدون کدنویسی VBA باشه که مثه این که نمیشه. به هر حال مرسی
راستی یه سوال دیگه که چون مرتبط با اینه من تاپیک جدا براش باز نمیکنم اونم این که میشه با یه تابعی حالت مشابه Do While توی زبان برنامه نویسی رو توی اکسل داشته باشیم؟ (با استفاده از VBA و بدون استفاده از اون)
مرسی

[iranweld]

مرسی از لینک مفید. فقط دنبال حالتی هستم که بدون کدنویسی VBA باشه که مثه این که نمیشه. به هر حال مرسی
راستی یه سوال دیگه که چون مرتبط با اینه من تاپیک جدا براش باز نمیکنم اونم این که میشه با یه تابعی حالت مشابه Do While توی زبان برنامه نویسی رو توی اکسل داشته باشیم؟ (با استفاده از VBA و بدون استفاده از اون)
مرسی

با سلام

Private Sub CommandButton1_Click()

Dim i As Integer
i = 1

Do Until i > 6
    Cells(i, 1).Value = 20
    i = i + 1
Loop

End Sub 

[hamedghanami]

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