اذهب الي المحتوي
أوفيسنا

تنفيذ ماكرو باستخدام مفتاح واحد فقط من لوحة المفاتيح


عصام2008

الردود الموصى بها

الأخوة الافاضل اريد معرفة كيفية تنفيذ ماكرو باستخدام مفتاح واحد فقط من لوحة المفاتيح على سبيل المثال F2 وليس باستخدام مفتاحي كنترول أو شيفت وذلك لتنفيذ ماكرو طباعة مثلا بدون الضغط على زر الأمر الخاص بالطباعة الموجود بالفورم

رابط هذا التعليق
شارك

أخى الفضل / أبو عبد الله

سلام الله عليكم

ماذا لو كان المفتاح محجوزا لأمر آخر من قبل أكسيل

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

أخي الحبيب / دغيدي

أشكرك على مرورك ورداً على سؤالك فإن المفتاح إذا كان محجوز لأمر من أوامر الإكسيل مثل إظهار نافذة المساعدة أو ال HELP في حالة المثال بالملف المرفق فسيتم تنفيذ الكود على حساب تعطيل مهمة الإكسيل الأصلية لمفتاح F1 ، وعليه فالحل هو تغيير المفتاح بالكود والعمل على اختيار مفتاح غير مرتبط بمهام أساسية بالإكسيل ، والله أعلم .

تحياتي

رابط هذا التعليق
شارك

أخى أبو عبد الله

جزاكم الله خيرا

أحد الزملاء كان له ملف كل ماكرو معه اختصار من لوحة المفاتيح فكان متعب جدا لنه كان لا ينتقى الأزرار الخالية

شكرا لكم

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

عميدنا الحبيب الغالي

انا عندي ملف اكسيل اعمل عليه

وقد حددت له 5 ازرار واخترت لها مختصرات محجوزه للاكسيل مثل

F1 F2 F3 F4 F5 ولم تحدث اي مشاكل

رابط هذا التعليق
شارك

أخي الحبيب / أبو الحارث

أخي الحبيب / دغيدي

أخي الحبيب / أبو عبدالله

أشكركم جزيل الشكر على مروركم الكريم وكلماتكم الجميلة .

أخي / أبو عبدالله

ما قصدته من كلامي هو ما حدث معي بالفعل فأنا أستخدم أوفيس 2010 وعند فتح الملف المرفق والانتقال لأي ملف أكسيل آخر مفتوح واستخدام مفتاح F1 والذي يفتح نافذة ال Help الخاص بالإكسيل بالوضع الطبيعي فوجدته لايعمل ، ولم أجرب مفاتيح وظائف أخرى ، فأرجو أن توضح لي الأمر إذا كان هناك حل لذلك .

مع حبي وتقديري

أبو عبدالله

رابط هذا التعليق
شارك

السلام عليكم

لي رأي لو تسمحوا بإبدائه

أنا من الاناس الذين يستخدمون اختصارات المفاتيح في الاكسل بكثرة ولا أستخدم الفأرة إلا ما ندر , وأغلب ملفاتي الشخصية في الأكسل أستخدم فيها تعيين المفاتيح ولآ أقوم بتعيين الاكواد في الأزرار إلا إذا كنت مضطراً لذلك والأمر ليس معقد كما يتصوره البعض , ولا يهم أن يكون المفتاح من المفاتيح المحجوزة أو من المفاتيح الخالية فالأساس واحد , نعم عند تعيين مفتاح معين وربطه بماكرو فأنه يقوم بتنفيذ الكود في جميع الملفات عند إستخدام المفتاح لأننا لم نقم بأرجاعه إلى وظيفته الرئيسية ولم نقم بحصره في الملف المراد إستخدام المفتاح فيه ....

أما كيفية أستخدام تعيين المفتاح بطريقة صحيحة فيجب اتباع مبدأ تعيين المفتاح عند تنشيط الملف ومن ثم أعادة الوظيفة الرئيسية للمفتاح عند الخروج من الملف " أي عدم التنشيط " ..... ولو عدنا الى مثال الحبيب ابو عبدالله لوجدنا انه قام بتعيين المفتاح "F1" عند تنشيط الملف وهذا صحيح وأستخدم الكود التالي

Private Sub Workbook_Activate()

Application.OnKey "{F1}", "PRINT_ME"

End Sub
ثم يجب علينا إلغاء التعيين أو أرجاع الوظيفة الرئيسية للمفتاح وذلك عند عدم تنشيط الملف ولهذا يجب علينا استخدام الكود التالي لذلك
Private Sub Workbook_Deactivate()

Application.OnKey "{F1}"

End Sub

وبهذا فلن نواجه أي مشكلة تذكر عند إستخدام هذه المفاتيح لتعيين الأكواد ويمكن تعيين أي مفتاح على لوحة المفاتيح وبطرق مختلفة

رابط هذا التعليق
شارك

أخى الفاضل / احمد حمور-ابوعبدالله

سلام الله عليكم

فى حالة استخدام ملفك وانا لا أعلم الاختصارات سوف تكون مشكلة

عمينا الحبيب

لن تكون هنالك مشكله بالنسبه لي وبالنسبه لغيري طالما انني موضح للمستخدم كيفية التعامل مع المختصرات

وكما موضح لكم بالمرفق

post-41944-0-20805900-1321110929_thumb.j

رابط هذا التعليق
شارك

الأخوة الأفاضل جزاكم الله خيرا على الاهتمام الكبير بالموضوع واخص بالشكر الأخ ابوعبدالله مدير القسم ولكن ليس هذا ما اقصده بالتحديد والذي أقصده هو استخدام مفتاح على سبيل المثال (F2) لتنفيذ ماكرو وأحد الشاشات الموجودة بالبرنامج مفتوحة على سبيل المثال شاشة ارتجاع صنف الموجودة بالمثال المرفق

SalesProgram.rar

رابط هذا التعليق
شارك

اخي السائل

الموضوع ان شاء الله بسيط

ضع كل الكود الموجود في زر الطياعه داخل موديول وسمي الموديول مثلا SUB AHMAD()

ومن ثم ضع في حدث WORKBOOK_OPEN


Application.OnKey "{f2}", "AHMAD"

وبعد ذلك اغلق الملف وجربه مره اخرى وعند الوصول الى امر زر الطباعه ضع F2

ولديك مثال بسيط فقط عند فتح الملف اضغط على F2

Book1.rar

رابط هذا التعليق
شارك


[CODE]

Sub ahmad()

   If Bac.TInvo.Value = "" And Bac.TQT.Value = "" And Bac.TBcombo.Value > 0 Then

    ActiveWorkbook.Sheets("Ret").Visible = True

    Sheets("Ret").Select

    Range("A1:C10").Select

    ActiveSheet.PageSetup.PrintArea = "$A$1:$C$10"

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Range("a11:a20").ClearContents

    [B3] = [B3] + 1

    Else

    MsgBox ("íæÌÏ ãÑÈÚ ãæ ãßËÑ áíÓ ÝÇÑÛÇ"), vbCritical, "ÊíÐíÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÑ"

    TInvo.SetFocus

    Exit Sub

    End If

   Unload Bac

    ActiveWorkbook.Sheets("Ret").Visible = False

    ActiveWorkbook.Sheets("Return").Visible = False

End Sub

احذف الكود القديم وضع هذا والسبب ان كل امر في الكود يجب ان يعرف لما يتبعه من الفورم
رابط هذا التعليق
شارك

أخى العزيز لم يفلح الأمر أيضا هذه المرة ومرفق المثال أيضا بعد تنفيذ ما قلته لي

أنا أسف جدا اخي أحمد ولكن لا ادري ما السبب في عدم استجابة الكود لضغط مفتاح F2 وشاشة الفيجوال مفتوحة

SalesProgram.rar

رابط هذا التعليق
شارك

اخي الكريم

انا لااعلم وليس عندي وقت لتتبع الكود الموجود

ولكن مرفق لكم فيديو يوضح ان الكود يعمل ويقوم بالطباعه

ولا اعلم ماهي المحظورات التي تتضعها لتنفيذ امر الطباعه

179.rar

رابط هذا التعليق
شارك

اخي الكريم

انا لااعلم وليس عندي وقت لتتبع الكود الموجود

ولكن مرفق لكم فيديو يوضح ان الكود يعمل ويقوم بالطباعه

ولا اعلم ماهي المحظورات التي تتضعها لتنفيذ امر الطباعه

أخي الحبيب ليس هناك محظورات والكود ليس كبر للدرجة التي تصعب معهة التتبع ولكن جرب استخدام المفتاح f2 وشاشة الفيجوال مفتوحة تلاحظ أنه لا يعمل وهذا الذي دعاني للتساؤل وطرح الموضوع

رابط هذا التعليق
شارك

:imsorry:

انت محق ربما ساجد الحل فيما بعد

العفو أخي الحبيب لقد أخجلتني بردك هذا وانا والله في غاية الأسف منه وأرجو أن تسامحني إذا بدر مني أي سوء تعبير لا أقصده

أرجو المعذرة

رابط هذا التعليق
شارك

قد يكون مفتاح إف 2 معلق أو به مشكلة ميكانيكية هل جربت الكود بأى مفتاح آخر ؟؟ أو هل جربت المفتاح فى أى وظيفة أخرى أو وظيفته الأصلية ؟؟

رابط هذا التعليق
شارك

قد يكون مفتاح إف 2 معلق أو به مشكلة ميكانيكية هل جربت الكود بأى مفتاح آخر ؟؟ أو هل جربت المفتاح فى أى وظيفة أخرى أو وظيفته الأصلية ؟؟

الاخ يوسف شكرا على المرور المفتاح يعمل بشكل سليم والدليل تنفيذ الكود من صفحة الاكسيل مباشرة ولكن المشكلة عندما تكون شاشة الفيجوال مفتوحة المفتاح لاينفذ الام لماذا لالالالالالالالا نعرف

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information