سیستم قرعه کشی

[پیام]

با درود به همه توضیح لازم در فایل پیوست شده داده شده. ممنون میشم کمک کنید.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Ali Parsaei]

سلام،
در يک خانه (مثلا" D1) فرمول زير را بنويسيد:

=RANDBETWEEN(MIN(A2:A50);MAX(A2:A50)) 

بعد شکل دايره را در حالت انتخاب قرار داده و در فرمول بار بنويسيد: D1= و اينتر کنيد.
حال يک ماکرو خالي ضبط کنيد و داخل ماکرو کد زير را بنويسيد:

ActiveSheet.Calculate 

بعد تکست باکسي که داخلش نوشته ايد: "شروع" را به ماکرو ياد شده مرتبط کنيد.
حال با هر بار کليک روي "شروع" يک شماره تصادفي در داخل دايره از بين شماره هاي ستون A انتخاب مي گردد. مي توانيد فونت D1 را سفيد کنيد تا شکليل تر گردد.
البته کل ماجرا را هم مي توان داخل ماکرو نوشت.
مشکلي بود بفرماييد تا بيشتر توضيح دهم.

[iranweld]

با سلام
با راهنمایی مهندس پارسا فایل جالبی تهیه گردید که برای استفاده دوستان ارسال میگردد

[حسام بحرانی]

با درود به همه توضیح لازم در فایل پیوست شده داده شده. ممنون میشم کمک کنید.

سلام،
با توجه به فرمول جناب پارسای عزیز؛ بدون ضبط ماکرو هم اینکار امکان پذیر است مانند فایل زیر:
موفق باشید.

[پیام]

از همه دوستان سپاسگزارم.

[khasteh1]

سلام چه خوب بود عددی که در قرعه انتخاب می شود کنار گذاشته شود و دوباره در قرعه شرکت داده نشود

[generalsamad]

با سلام
این خواسته شما با vb قابل حل هست
کافیه وقتی عدد تصادفی رو انتخاب میکنه اونو توی یه سلول قرار بده بعد برای عدد تصادفی بعد چک بشه اگه با عدد(عددهای) قبلی بدست اومده یکی نبود اونو نمایش بده و توی یه سلول دیگه قرارش بده
اگه تکراری بود یه عدد تصادفی دیگه انتخاب کنه

یه روش دیگه هم اینه که وقتی عدد تصادفی رو بدست آورد بعد از اینکه برای عدد تصادفی بعدی اقدام میکنیم هنگام فشردن دکمه شروع سطر اون عدد رو delete کنه که از لیست اون اعداد حذف بشه
حالا اگه شد من یا دوستان کدش رو قرار خواهیم داد

[misammisam]

با سلام
چند وقت پیش یه سیستم قرعه کشی شماره موبایل برای یکی از دوستان درست کردم ، شاید به درد شما بخوره ، یه چیزی شبیه به همونی که تو برنامه 90 وجود داره .
تو قسمت Data باید شماره های تلفن وارد بشه و در شیت Tell_Random و در سلول قرمز رنگ تعداد مورد نظر را مشخص کنید و دکمه اجرای قرعه کشی جدید رو بزنید تا قرعه کشی انجام بشه در صورت لزوم میتونید با دکمه ذخیره قرعه کشی ، اطلاعات مسابقات مختلف رو در شیت Save ذخیره کنید .