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

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • پیام

    • 2013/10/04
    • 282
    • 62.00
    #1

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

    با درود به همه توضیح لازم در فایل پیوست شده داده شده. ممنون میشم کمک کنید.
    فایل های پیوست شده
    برچسب ها: کشی, قرعه, سیستم
    • Ali Parsaei
      مدير تالارتوابع اکسل

      • 2013/11/18
      • 1522
      • 71.67
      #2
      سلام،
      در يک خانه (مثلا" D1) فرمول زير را بنويسيد:
      کد PHP:
      =RANDBETWEEN(MIN(A2:A50);MAX(A2:A50)) 
      بعد شکل دايره را در حالت انتخاب قرار داده و در فرمول بار بنويسيد: D1= و اينتر کنيد.
      حال يک ماکرو خالي ضبط کنيد و داخل ماکرو کد زير را بنويسيد:
      کد PHP:
      ActiveSheet.Calculate 
      بعد تکست باکسي که داخلش نوشته ايد: "شروع" را به ماکرو ياد شده مرتبط کنيد.
      حال با هر بار کليک روي "شروع" يک شماره تصادفي در داخل دايره از بين شماره هاي ستون A انتخاب مي گردد. مي توانيد فونت D1 را سفيد کنيد تا شکليل تر گردد.
      البته کل ماجرا را هم مي توان داخل ماکرو نوشت.
      مشکلي بود بفرماييد تا بيشتر توضيح دهم.
      [SIGPIC][/SIGPIC]

        کامنت

        • iranweld

          • 2015/03/29
          • 3341
          #3
          با سلام
          با راهنمایی مهندس پارسا فایل جالبی تهیه گردید که برای استفاده دوستان ارسال میگردد
          فایل های پیوست شده
          Last edited by iranweld; 2015/06/15, 19:43.

            کامنت

            • حسام بحرانی

              • 2013/09/29
              • 2065
              • 72.00
              #4
              نوشته اصلی توسط پیام
              با درود به همه توضیح لازم در فایل پیوست شده داده شده. ممنون میشم کمک کنید.
              سلام،
              با توجه به فرمول جناب               پارسای عزیز؛ بدون ضبط ماکرو هم اینکار امکان پذیر است مانند فایل زیر:
              موفق باشید.
              فایل های پیوست شده
              [CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
              [/FONT][/B][/CENTER]
              [CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
              [/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
              [/FONT][/B][/FONT][/SIZE]
              [/CENTER]

                کامنت

                • پیام

                  • 2013/10/04
                  • 282
                  • 62.00
                  #5
                  از همه دوستان سپاسگزارم.

                    کامنت

                    • khasteh1

                      • 2014/06/20
                      • 26
                      #6
                      سلام چه خوب بود عددی که در قرعه انتخاب می شود کنار گذاشته شود و دوباره در قرعه شرکت داده نشود

                        کامنت

                        • generalsamad
                          مدير تالار توابع

                          • 2014/06/22
                          • 1496
                          #7
                          با سلام
                          این خواسته شما با vb قابل حل هست
                          کافیه وقتی عدد تصادفی رو انتخاب میکنه اونو توی یه سلول قرار بده بعد برای عدد تصادفی بعد چک بشه اگه با عدد(عددهای) قبلی بدست اومده یکی نبود اونو نمایش بده و توی یه سلول دیگه قرارش بده
                          اگه تکراری بود یه عدد تصادفی دیگه انتخاب کنه

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

                            کامنت

                            • misammisam
                              مدير تالار حسابداری و اکسل

                              • 2014/04/04
                              • 892
                              • 64.00
                              #8
                              با سلام
                              چند وقت پیش یه سیستم قرعه کشی شماره موبایل برای یکی از دوستان درست کردم ، شاید به درد شما بخوره ، یه چیزی شبیه به همونی که تو برنامه 90 وجود داره .
                              تو قسمت Data باید شماره های تلفن وارد بشه و در شیت Tell_Random و در سلول قرمز رنگ تعداد مورد نظر را مشخص کنید و دکمه اجرای قرعه کشی جدید رو بزنید تا قرعه کشی انجام بشه در صورت لزوم میتونید با دکمه ذخیره قرعه کشی ، اطلاعات مسابقات مختلف رو در شیت Save ذخیره کنید .
                              فایل های پیوست شده
                              [CENTER][SIGPIC][/SIGPIC]
                              [/CENTER]
                              [CENTER][FONT=Tahoma][FONT=Tahoma][FONT=Tahoma][FONT=Tahoma][FONT=Tahoma][INDENT]
                              [CENTER][SIZE=3][URL="https://affstat.adro.co/click/adf04053-f8a6-439a-9ac4-e6a7e6f4b455"][B]اينجا كليك نكنيا ![/B][/URL][/SIZE]
                              [/CENTER]
                              [/INDENT]

                              [/FONT][/FONT][/FONT][/FONT][/FONT]
                              [/CENTER]

                                کامنت

                                قبلی template بعدی
                                چند لحظه..