تعریف کلید خاص برای اجرای کد

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • Juliet

    • June 2014
    • 47

    تعریف کلید خاص برای اجرای کد

    درود دوستان
    آیا این امکان هست که بدون نیاز به مثلاً دکمه برای اجرای کد ها با فشردن کلیدی خاص بخشی از کد اجرا بشه؟

    • (به عنوان مثال نیاز دارم در هر موقعیتی روی صفحه اکسلم (و نه در یوزر فرم) با زدن کلید F5 تابع TextBox_KeyDown اجرا بشه)
    • یا حداقل بتونم با زدن دکمه ای این تابع رو فراخوانی کنم، چون وقتی عددی به عنوان آرگومان KeyCode (که در تابع تعریف شده As MSForm.ReturnInteger) وارد میکنم خطای Type Missmatch میده.


    سپاس از راهنماییتون
    Last edited by Juliet; 2014/08/18, 18:58.
    «زمانيکه با زمانه خويش نساختي و با مسندنشينان و امربران ايشان کنار نيامدي
    و آنچه را
    جاهلان ميگويند، جاهلانه باز نگفتي،
    لاجرم به تبعيد ابدي گرفتار خواهي شد!
    حتي اگر جسمت در کنج منزلي در شهري ساکن باشد؛
    و اگر بر نپذيرفتن، پاي فشردي،

    آواره ات خواهند کرد،
    به زندانت خواهند افکند
    و به دارت خواهند کشيد ...»
  • ~M*E*H*D*I~

    • October 2011
    • 4374

    #2
    درود



    sigpic

    Comment

    • Juliet

      • June 2014
      • 47

      #3
      سپاس از توجه و راهنمایی شما
      من از Record Macro استفاده نکردم، کد های vba دارم و یا این کادر از بین همه کد هایی که پشت شیت ها هست، فقط کلیک یکی از دکمه های یکی از شیت ها رو بهم میده، دستی هم که آدرس دادم (مثلاً Sheet1.tb_Code_s_KeyDown) قبول نکرد.
      «زمانيکه با زمانه خويش نساختي و با مسندنشينان و امربران ايشان کنار نيامدي
      و آنچه را
      جاهلان ميگويند، جاهلانه باز نگفتي،
      لاجرم به تبعيد ابدي گرفتار خواهي شد!
      حتي اگر جسمت در کنج منزلي در شهري ساکن باشد؛
      و اگر بر نپذيرفتن، پاي فشردي،

      آواره ات خواهند کرد،
      به زندانت خواهند افکند
      و به دارت خواهند کشيد ...»

      Comment

      • khakzad

        • March 2010
        • 2034

        #4
        دوست عزیز شما اگر کدتون رو داخل ماژول نوشته باشید با همین روش جناب وطن پرست شدنی هست.
        این قسمت کدهای داخل ماژول رو نشون میده
        پشت شیت منظور چی هست؟؟؟؟؟

        در نهایت فایلتون رو بذارید تا بررسی بشه

        Comment

        • علی فاطمی

          • February 2014
          • 523

          #5
          با سلام ، از خصوصیت Accelerator استفاده کنین ممکنه جواب بگیرین.
          در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان



          Comment

          • Juliet

            • June 2014
            • 47

            #6
            نوشته اصلی توسط khakzad
            دوست عزیز شما اگر کدتون رو داخل ماژول نوشته باشید با همین روش جناب وطن پرست شدنی هست.
            این قسمت کدهای داخل ماژول رو نشون میده
            پشت شیت منظور چی هست؟؟؟؟؟

            در نهایت فایلتون رو بذارید تا بررسی بشه
            درود گرامی
            مشکل من با روش آقای وطن پرست اینه که در پنجره ماکرو هیچ عنوانی ندارم (همان طور که در تصویر می بینید همه دکمه ها غیر فعال هستن
            +
            منظورم از کد پشت شیت، پروسیجر های مربوط به آبچکت هاست که از طریق دابل کلیک روی آن ها ایجاد میشن

            در نهایت در فایل نمونه ای که ضمیمه کردم، روی شیت اول TextBox دارم که با اینتر متن نوشته شده رو به کاربر نشون میده، میخوام:

            • در شیت دوم با زدن دکمه همین پروسیجر فراخوانی بشه
            • با فشردن -کلید خاصی (مثلاً F5) پروسیجر خاصی فراخوانی بشه


            از توجه شما سپاسگزارم
            فایل های پیوست شده
            Last edited by Juliet; 2014/09/02, 16:45.
            «زمانيکه با زمانه خويش نساختي و با مسندنشينان و امربران ايشان کنار نيامدي
            و آنچه را
            جاهلان ميگويند، جاهلانه باز نگفتي،
            لاجرم به تبعيد ابدي گرفتار خواهي شد!
            حتي اگر جسمت در کنج منزلي در شهري ساکن باشد؛
            و اگر بر نپذيرفتن، پاي فشردي،

            آواره ات خواهند کرد،
            به زندانت خواهند افکند
            و به دارت خواهند کشيد ...»

            Comment

            • Juliet

              • June 2014
              • 47

              #7
              نوشته اصلی توسط علی فاطمی
              با سلام ، از خصوصیت Accelerator استفاده کنین ممکنه جواب بگیرین.
              درود و سپاس از راهنمایی شما
              شوربختانه در این مورد اطلاعاتی ندارم و Help نرم افزار هم در این زمینه مطلقاً پاسخی نداد.
              «زمانيکه با زمانه خويش نساختي و با مسندنشينان و امربران ايشان کنار نيامدي
              و آنچه را
              جاهلان ميگويند، جاهلانه باز نگفتي،
              لاجرم به تبعيد ابدي گرفتار خواهي شد!
              حتي اگر جسمت در کنج منزلي در شهري ساکن باشد؛
              و اگر بر نپذيرفتن، پاي فشردي،

              آواره ات خواهند کرد،
              به زندانت خواهند افکند
              و به دارت خواهند کشيد ...»

              Comment

              Working...