يك سئوال در زمينه فرم در vba

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

    • 2013/04/13
    • 57
    #1

    يك سئوال در زمينه فرم در vba

    با عرض سلام و احترام
    يك سئوال در زمينه فرم در VBA دارم كه ممنون ميشم راهنماييم كنيد:
    من يك فايل دارم (پيوست) كه در شيت 1 يك تعداد سئوال دارم كه عنوان و شرح آن در 2 ستون كنار هم نوشته شده، در شيت 2 در سلول A1 دستور randbetween رو داريم و در ستون B يك تعداد عدد داريم
    حالا ميخواهم :
    1 - به ازاي هر بار آپديت شدن (مثلا با زدن F9 يا اجراي يك دستور ديگر) ، اگر مقدار سلول A1 را در ستون B داشته باشيم يك فرم (UF1) باز بشه كه به ترتيب سئوالات شيت 1 به همراه شرح سئوال و گزينه هاي مربوطه را در آن ببينيم (يعني براي بار اول سئوال 1 ، بار دوم سئوال 2 و . . . )
    2 – در اين فرم بتوانيم شماره گزينه مورد نظر را وارد كنيم و اين شماره جلوي سئوال مربوطه در ستون G قرار بگيره.
    لازم به ذكر است كه اينكه به ازاي چه عددي چه سئوالي باز بشه مهم نيست ولي اين مهمه كه هر سئوال فقط يك بار اجرا بشه.
    با سپاس فراوان
    فایل های پیوست شده
    برچسب ها: يك, فرم, vba, در, زمينه, سئوال
    • meysam741

      • 2013/04/13
      • 57
      #2
      هيچ كس نيست مرا ياري كند؟!

        کامنت

        • Nima

          • 2011/07/22
          • 385
          #3
          دوست عزیز سوال و در خواست شما یک مقداری گنگ هست
          بهتره بفرمائید هدفتون از این فرم چی هستش و چه کاربردی داره شاید راه حل های دیگری هم باشه.

          با تشکر
          [CENTER][COLOR=#ff0000]************************************[/COLOR]
          No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
          [COLOR=#ff0000]************************************[/COLOR]

          [/CENTER]

            کامنت

            • meysam741

              • 2013/04/13
              • 57
              #4
              با سلام مجدد

              من قصد دارم يك جور نظرسنجي انجام بدم. كه سئوالات به صورت رندوم مطرح بشه.
              ببينيد من ميخوام توي اين فايل با زدن يك cmdbottom يك عدد مشخص در سلول a1 ايجاد بشه كه از دستور randbetween استفاده كردم.
              در كنار اون (در ستون B) يك مجموعه عدد دارم كه ميخوام اگه اين عدد تصادفي معادل با يكي از اعداد اين مجموعه باشه يك سئوال رو در قالب يك فرم ببينيم. و بعد از انتخاب گزينه *ِي جواب ، اون عدد (1 تا 4) در سلول كناري اون سئوال بيافته .
              چون بايد به ازاي اعداد مختلف اين مجموعه (ستون B) سئوال داشته باشيم ، نميخوام به تعداد سئوالات فرم تعريف كنيم و به ازاي هر كدوم يك دستور تعريف كنيم .
              براي همين ميخوام يك فرم تعريف كنم كه همه سئوالات رو بتونم داخل اون داشته باشم.

              باز هم اگر گنگ هست يك نمونه ديگه براتون بفرستم؟!

              با سپاس

                کامنت

                • meysam741

                  • 2013/04/13
                  • 57
                  #5
                  من درخواستم را بدين صورت اصلاح مي كنم:
                  در شيت 2 ميخواهيم يك cmdbottom تعريف كنيم كه با زدن آن يك عدد تصادفي بين 1 تا 200 به ما بدهد (مثلا در سل A1)
                  در همين شيت يك تعداد عدد در ستون C داريم
                  در شيت 1 در ستون B يك تعداد سئوال داريم . در ستون هاي C تا F هم چهار توضيح (گزينه) براي هر سئوال داريم.
                  ميخواهيم اگر اين عدد تصادفي مساوي يكي از اعداد ستون C باشد يك فرم باز شود.
                  طراحي اين فرم بايد به گونه اي باشد كه شرح سئوال به همراه 4 گزينه جلوي آن را در فرم داشته باشيم و يك باكس داخل آن داشته باشيم تا بتوانيم عددي بين 1 تا 4 را داخل آن وارد كنيم. (جواب انتخابي)
                  هدف ما اين است كه به ازاي هر بار مساوي شدن عدد تصادفي با اعداد موجود در ستون C يك سئوال مطرح شود و كاربر جواب سئوال را در باكس ايجاد شده وارد نمايد. و درنهايت جواب ارائه شده در ستون G از شيت 1 و در جلوي سئوال مربوطه قرار گيرد.
                  لازم به ذكر است سئوالات به ترتيب از بالا به پايين بايد مطرح شوند و جواب ها نيز بايد دقيقا جلوي همان سئوال قرار گيرند.

                    کامنت

                    • khakzad

                      • 2010/03/17
                      • 2034
                      • 85.00
                      #6
                      سلام
                      خدمت شما
                      من اعداد رو از شیت 1 فراخونی کردم به عنوان شماره سوال. اینو گذاشتم که شما ضمن بررسی کد و یادگیری، خواسته خودتون رو اعمال کنید(فراخوانی عدد از شیت 1)
                      سوالی بود د رخدمتم
                      فایل های پیوست شده
                      [CENTER][B][COLOR=#008000][SIZE=3]محصولات و جزوات آموزش تخصصی [URL="https://excelpedia.net/"]اکسل[/URL] در:

                      [URL="https://excelpedia.net/category/excel-functions/"]برترین مرجع تخصصی پارسی اکسل[/URL]
                      [URL="http://www.exceliran.com/shop/"]جامعه اكسل ايرانيان: فروشگاه[/URL][/SIZE][/COLOR][/B]
                      :wcom:

                      [B][URL="https://excelpedia.net/"]آموزش اکسل تخصصی[/URL] و [URL="https://excelpedia.net/excel-ninja/"]پیشرفته[/URL] - [URL="https://excelpedia.net/"]تهران[/URL][/B]
                      [EMAIL="h.khakzad@yahoo.com"]h.khakzad@yahoo.com[/EMAIL]
                      [/CENTER]

                        کامنت

                        • meysam741

                          • 2013/04/13
                          • 57
                          #7
                          ممنون از راهنمايي خوبتون ، فقط 3 تا سئوال دارم
                          اول اينكه جواب بعد از انتخاب كردن ، كجا ثبت ميشه ، و برچه اساسي تعيين ميكته جواب انتخابي صحيح هستش؟
                          دوم اينكه شرح سئوال و گزينه ها در فرم ثبت نميشه ؟
                          سوم اينكه ترتيب سئوالات مشخص هست يا رندوم هستش؟

                            کامنت

                            • khakzad

                              • 2010/03/17
                              • 2034
                              • 85.00
                              #8
                              ببینید این فایل کاملا قابل تغییره. اگر بخواید چیزهای دیگه اضافه بشه، می تونید
                              جواب ها رو می تونید توی یک ستون دیگه داشته باشید و بعدا با if درست بودنشو چک کنید
                              در حال حاضر جواب ها در صتون زرد رنگ ثبت میشه.
                              می تونه شماره سوالات رندوم باشه.الان به ترتیب شماره گذاری شده.
                              شما این کد رو یاد بگیرید، (سوالاتتون رو در موردش بپرسید) بعد هر اغییر دیگه ای بخواید خودتون می تونید اعمال کنید
                              موفق باشید
                              [CENTER][B][COLOR=#008000][SIZE=3]محصولات و جزوات آموزش تخصصی [URL="https://excelpedia.net/"]اکسل[/URL] در:

                              [URL="https://excelpedia.net/category/excel-functions/"]برترین مرجع تخصصی پارسی اکسل[/URL]
                              [URL="http://www.exceliran.com/shop/"]جامعه اكسل ايرانيان: فروشگاه[/URL][/SIZE][/COLOR][/B]
                              :wcom:

                              [B][URL="https://excelpedia.net/"]آموزش اکسل تخصصی[/URL] و [URL="https://excelpedia.net/excel-ninja/"]پیشرفته[/URL] - [URL="https://excelpedia.net/"]تهران[/URL][/B]
                              [EMAIL="h.khakzad@yahoo.com"]h.khakzad@yahoo.com[/EMAIL]
                              [/CENTER]

                                کامنت

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