عصام2008 قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 الأخوة الافاضل اريد معرفة كيفية تنفيذ ماكرو باستخدام مفتاح واحد فقط من لوحة المفاتيح على سبيل المثال F2 وليس باستخدام مفتاحي كنترول أو شيفت وذلك لتنفيذ ماكرو طباعة مثلا بدون الضغط على زر الأمر الخاص بالطباعة الموجود بالفورم
أبوعبد الله قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 أخي العزيز رجاء الاطلاع على المرفق وبه شرح مبسط للفكرة . تحياتي أبو عبدالله تعيين تنفيذ كود من خلال مفتاح من مفاتيح الوظائف.rar
دغيدى قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 (معدل) أخى الفضل / أبو عبد الله سلام الله عليكم ماذا لو كان المفتاح محجوزا لأمر آخر من قبل أكسيل تم تعديل نوفمبر 10, 2011 بواسطه دغيدى
أبوعبد الله قام بنشر نوفمبر 10, 2011 قام بنشر نوفمبر 10, 2011 أخي الحبيب / دغيدي أشكرك على مرورك ورداً على سؤالك فإن المفتاح إذا كان محجوز لأمر من أوامر الإكسيل مثل إظهار نافذة المساعدة أو ال HELP في حالة المثال بالملف المرفق فسيتم تنفيذ الكود على حساب تعطيل مهمة الإكسيل الأصلية لمفتاح F1 ، وعليه فالحل هو تغيير المفتاح بالكود والعمل على اختيار مفتاح غير مرتبط بمهام أساسية بالإكسيل ، والله أعلم . تحياتي
ياسر الحافظ قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 الاستاذ العزيز ابو عبد الله جزاك الله بما تفيدنا به من اعمال وراوائع وفقك الله ابو الحارث
دغيدى قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 (معدل) أخى أبو عبد الله جزاكم الله خيرا أحد الزملاء كان له ملف كل ماكرو معه اختصار من لوحة المفاتيح فكان متعب جدا لنه كان لا ينتقى الأزرار الخالية شكرا لكم تم تعديل نوفمبر 11, 2011 بواسطه دغيدى
احمد حمور-ابوعبدالله قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 عميدنا الحبيب الغالي انا عندي ملف اكسيل اعمل عليه وقد حددت له 5 ازرار واخترت لها مختصرات محجوزه للاكسيل مثل F1 F2 F3 F4 F5 ولم تحدث اي مشاكل
دغيدى قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 أخى الفاضل / احمد حمور-ابوعبدالله سلام الله عليكم فى حالة استخدام ملفك وانا لا أعلم الاختصارات سوف تكون مشكلة
أبوعبد الله قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 أخي الحبيب / أبو الحارث أخي الحبيب / دغيدي أخي الحبيب / أبو عبدالله أشكركم جزيل الشكر على مروركم الكريم وكلماتكم الجميلة . أخي / أبو عبدالله ما قصدته من كلامي هو ما حدث معي بالفعل فأنا أستخدم أوفيس 2010 وعند فتح الملف المرفق والانتقال لأي ملف أكسيل آخر مفتوح واستخدام مفتاح F1 والذي يفتح نافذة ال Help الخاص بالإكسيل بالوضع الطبيعي فوجدته لايعمل ، ولم أجرب مفاتيح وظائف أخرى ، فأرجو أن توضح لي الأمر إذا كان هناك حل لذلك . مع حبي وتقديري أبو عبدالله
الحسامي قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 السلام عليكم لي رأي لو تسمحوا بإبدائه أنا من الاناس الذين يستخدمون اختصارات المفاتيح في الاكسل بكثرة ولا أستخدم الفأرة إلا ما ندر , وأغلب ملفاتي الشخصية في الأكسل أستخدم فيها تعيين المفاتيح ولآ أقوم بتعيين الاكواد في الأزرار إلا إذا كنت مضطراً لذلك والأمر ليس معقد كما يتصوره البعض , ولا يهم أن يكون المفتاح من المفاتيح المحجوزة أو من المفاتيح الخالية فالأساس واحد , نعم عند تعيين مفتاح معين وربطه بماكرو فأنه يقوم بتنفيذ الكود في جميع الملفات عند إستخدام المفتاح لأننا لم نقم بأرجاعه إلى وظيفته الرئيسية ولم نقم بحصره في الملف المراد إستخدام المفتاح فيه .... أما كيفية أستخدام تعيين المفتاح بطريقة صحيحة فيجب اتباع مبدأ تعيين المفتاح عند تنشيط الملف ومن ثم أعادة الوظيفة الرئيسية للمفتاح عند الخروج من الملف " أي عدم التنشيط " ..... ولو عدنا الى مثال الحبيب ابو عبدالله لوجدنا انه قام بتعيين المفتاح "F1" عند تنشيط الملف وهذا صحيح وأستخدم الكود التالي Private Sub Workbook_Activate() Application.OnKey "{F1}", "PRINT_ME" End Sub ثم يجب علينا إلغاء التعيين أو أرجاع الوظيفة الرئيسية للمفتاح وذلك عند عدم تنشيط الملف ولهذا يجب علينا استخدام الكود التالي لذلك Private Sub Workbook_Deactivate() Application.OnKey "{F1}" End Sub وبهذا فلن نواجه أي مشكلة تذكر عند إستخدام هذه المفاتيح لتعيين الأكواد ويمكن تعيين أي مفتاح على لوحة المفاتيح وبطرق مختلفة
احمد حمور-ابوعبدالله قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 أخى الفاضل / احمد حمور-ابوعبدالله سلام الله عليكم فى حالة استخدام ملفك وانا لا أعلم الاختصارات سوف تكون مشكلة عمينا الحبيب لن تكون هنالك مشكله بالنسبه لي وبالنسبه لغيري طالما انني موضح للمستخدم كيفية التعامل مع المختصرات وكما موضح لكم بالمرفق
محمد عزت موسى قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 الأخوة الأفاضل جزاكم الله خيرا على الاهتمام الكبير بالموضوع واخص بالشكر الأخ ابوعبدالله مدير القسم ولكن ليس هذا ما اقصده بالتحديد والذي أقصده هو استخدام مفتاح على سبيل المثال (F2) لتنفيذ ماكرو وأحد الشاشات الموجودة بالبرنامج مفتوحة على سبيل المثال شاشة ارتجاع صنف الموجودة بالمثال المرفق SalesProgram.rar
احمد حمور-ابوعبدالله قام بنشر نوفمبر 13, 2011 قام بنشر نوفمبر 13, 2011 اخي السائل الموضوع ان شاء الله بسيط ضع كل الكود الموجود في زر الطياعه داخل موديول وسمي الموديول مثلا SUB AHMAD() ومن ثم ضع في حدث WORKBOOK_OPEN Application.OnKey "{f2}", "AHMAD" وبعد ذلك اغلق الملف وجربه مره اخرى وعند الوصول الى امر زر الطباعه ضع F2 ولديك مثال بسيط فقط عند فتح الملف اضغط على F2 Book1.rar
عصام2008 قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 الأخ العزيز أحمد أولا مشكور على الرد وثانيا للأسف جربت وما مشي الحال مرفق الملف بعد عمل ماقلت لي عليه لتجربته بنفسك SalesProgram.rar
احمد حمور-ابوعبدالله قام بنشر نوفمبر 13, 2011 قام بنشر نوفمبر 13, 2011 [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 احذف الكود القديم وضع هذا والسبب ان كل امر في الكود يجب ان يعرف لما يتبعه من الفورم
عصام2008 قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 أخى العزيز لم يفلح الأمر أيضا هذه المرة ومرفق المثال أيضا بعد تنفيذ ما قلته لي أنا أسف جدا اخي أحمد ولكن لا ادري ما السبب في عدم استجابة الكود لضغط مفتاح F2 وشاشة الفيجوال مفتوحة SalesProgram.rar
احمد حمور-ابوعبدالله قام بنشر نوفمبر 13, 2011 قام بنشر نوفمبر 13, 2011 اخي الكريم انا لااعلم وليس عندي وقت لتتبع الكود الموجود ولكن مرفق لكم فيديو يوضح ان الكود يعمل ويقوم بالطباعه ولا اعلم ماهي المحظورات التي تتضعها لتنفيذ امر الطباعه 179.rar
عصام2008 قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 اخي الكريم انا لااعلم وليس عندي وقت لتتبع الكود الموجود ولكن مرفق لكم فيديو يوضح ان الكود يعمل ويقوم بالطباعه ولا اعلم ماهي المحظورات التي تتضعها لتنفيذ امر الطباعه أخي الحبيب ليس هناك محظورات والكود ليس كبر للدرجة التي تصعب معهة التتبع ولكن جرب استخدام المفتاح f2 وشاشة الفيجوال مفتوحة تلاحظ أنه لا يعمل وهذا الذي دعاني للتساؤل وطرح الموضوع
احمد حمور-ابوعبدالله قام بنشر نوفمبر 13, 2011 قام بنشر نوفمبر 13, 2011 (معدل) انت محق ربما ساجد الحل فيما بعد تم تعديل نوفمبر 13, 2011 بواسطه احمد حمور-ابوعبدالله
عصام2008 قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 انت محق ربما ساجد الحل فيما بعد العفو أخي الحبيب لقد أخجلتني بردك هذا وانا والله في غاية الأسف منه وأرجو أن تسامحني إذا بدر مني أي سوء تعبير لا أقصده أرجو المعذرة
يوسف عطا قام بنشر نوفمبر 13, 2011 قام بنشر نوفمبر 13, 2011 قد يكون مفتاح إف 2 معلق أو به مشكلة ميكانيكية هل جربت الكود بأى مفتاح آخر ؟؟ أو هل جربت المفتاح فى أى وظيفة أخرى أو وظيفته الأصلية ؟؟
عصام2008 قام بنشر نوفمبر 14, 2011 الكاتب قام بنشر نوفمبر 14, 2011 قد يكون مفتاح إف 2 معلق أو به مشكلة ميكانيكية هل جربت الكود بأى مفتاح آخر ؟؟ أو هل جربت المفتاح فى أى وظيفة أخرى أو وظيفته الأصلية ؟؟ الاخ يوسف شكرا على المرور المفتاح يعمل بشكل سليم والدليل تنفيذ الكود من صفحة الاكسيل مباشرة ولكن المشكلة عندما تكون شاشة الفيجوال مفتوحة المفتاح لاينفذ الام لماذا لالالالالالالالا نعرف
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.