محمد مصطفى ابو حمزة

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

شكرا للردود وان شاء الله اكون فعال ومتفاعل فى المشاركات

تجميع لاختصارات الكيبورد ExcelShortcuts_all.rar

بعض اختصارت لوحة المفاتيح المفيدة إدراج ورقة عمل جديدة. SHIFT+F11 أو ALT+SHIFT+F1 الانتقال إلى الورقة التالية في المصنف. CTRL+PAGE DOWN الانتقال إلى الورقة السابقة في المصنف. CTRL+PAGE UP تحديد الورقة الحالية والتالية. لإلغاء تحديد عدة أوراق، اضغط على CTRL+PAGE DOWN أو، لتحديد ورقة أخرى، اضغط على CTRL+PAGE UP. SHIFT+CTRL+PAGE DOWN تحديد الورقة الحالية والسابقة. SHIFT+CTRL+PAGE UP إعادة تسمية الورقة الحالية (القائمة تنسيق، القائمة الفرعية ورقة، الأمر إعادة تسمية). ALT+O H R نقل الورقة الحالية أو نسخها (القائمة تحرير، الأمر نقل الورقة أو نسخها). ALT+E M حذف الورقة الحالية (القائمة تحرير، الأمر حذف ورقة). ALT+E L عرض القائمة أو الرسالة الخاصة بالعلامة الذكية. في حالة وجود أكثر من علامة ذكية واحدة، قم بالتبديل إلى العلامة الذكية التالية وقم بعرض القائمة أو الرسالة الخاصة بها. ALT+SHIFT+F10 تحديد العنصر التالي في قائمة العلامة الذكية. السهم إلى الأسفل تحديد العنصر السابق في قائمة العلامة الذكية. السهم إلى الأعلى تنفيذ الإجراء الخاص بالعنصر المحدد الموجود في قائمة العلامة الذكية. ENTER إغلاق القائمة أو الرسالة الخاصة بالعلامة الذكية. ESC إدراج ورقة عمل جديدة. SHIFT+F11 أو ALT+SHIFT+F1 الانتقال إلى الورقة التالية في المصنف. CTRL+PAGE DOWN الانتقال إلى الورقة السابقة في المصنف. CTRL+PAGE UP تحديد الورقة الحالية والتالية. لإلغاء تحديد عدة أوراق، اضغط على CTRL+PAGE DOWN أو، لتحديد ورقة أخرى، اضغط على CTRL+PAGE UP. SHIFT+CTRL+PAGE DOWN تحديد الورقة الحالية والسابقة. SHIFT+CTRL+PAGE UP إعادة تسمية الورقة الحالية (القائمة تنسيق، القائمة الفرعية ورقة، الأمر إعادة تسمية). ALT+O H R نقل الورقة الحالية أو نسخها (القائمة تحرير، الأمر نقل الورقة أو نسخها). ALT+E M حذف الورقة الحالية (القائمة تحرير، الأمر حذف ورقة). ALT+E L التنقل والتمرير داخل ورقة العمل الانتقال بمقدار خلية واحدة لأعلى، أو لأسفل، أو لليسار، أو لليمين مفاتيح الأسهم التحرك بمقدار خلية واحدة إلى اليمين. TAB التحرك بمقدار خلية واحدة إلى اليسار. SHIFT+TAB للانتقال إلى حافة منطقة البيانات الحالية. CTRL+مفتاح سهم الانتقال إلى بداية الصف HOME الانتقال إلى بداية ورقة العمل CTRL+HOME الانتقال إلى آخر خلية في ورقة العمل، لأقصى صف تم استخدامه في الأسفل لآخر عمود تم استخدامه في أقصى اليسار. CTRL+END التحرك لأسفل بمقدار شاشة واحدة. PAGE DOWN التحرك لأعلى بمقدار شاشة واحدة. PAGE UP التحرك بمقدار شاشة واحدة إلى اليمين. ALT+PAGE DOWN التحرك بمقدار شاشة واحدة إلى اليسار. ALT+PAGE UP التبديل إلى الجزء التالي في ورقة عمل المنقسمة (باستخدام القائمة إطار، الأمر انقسام). F6 التبديل إلى الجزء السابق في ورقة عمل تم تقسيمها. SHIFT+F6 التمرير لعرض الخلية النشطة. CTRL+BACKSPACE عرض مربع الحوار الانتقال إلى. F5 عرض مربع الحوار بحث. SHIFT+F5 تكرار إجراء بحث الأخير (مثل بحث عن التالي). SHIFT+F4 التنقل بين الخلايا غير المؤمنة في ورقة عمل محمية. TAB التنقل داخل نطاق محدد التنقل من أعلى إلى أسفل داخل النطاق المحدد. ENTER التنقل من أسفل إلى أعلى داخل النطاق المحدد. SHIFT+ENTER الانتقال من اليمين إلى اليسار داخل النطاق المحدد. الانتقال إلى أسفل، إذا تم تحديد خلايا في عمود واحد. TAB الانتقال من اليسار إلى اليمين داخل النطاق المحدد. الانتقال لأعلى، إذا تم تحديد خلايا في عمود واحد. SHIFT+TAB الانتقال في عكس اتجاه عقارب الساعة إلى الزاوية التالية للنطاق المحدد. CTRL+نقطة التبديل إلى التحديد التالي الموجود على اليمين في التحديدات غير المتجاورة. ALT+CTRL+السهم إلى اليمين التبديل إلى التحديد التالي غير المتجاور الموجود على اليسار. ALT+CTRL+السهم إلى اليسار تشغيل وضع End أو إيقاف تشغيله. المفتاح END الانتقال بمقدار مجموعة بيانات واحدة في صف أو عمود. END+مفتاح السهم الانتقال إلى الخلية الأخيرة في ورقة العمل، الموجودة في آخر صف تم استخدامه لآخر عمود أيسر تم استخدامه. END+HOME الانتقال إلى الخلية غير الفارغة الموجودة على أقصى اليسار في الصف الحالي. لا تعمل المفاتيح بهذا الترتيب إذا قمت بتشغيل مفاتيح التحريك الانتقالية (القائمة أدوات، الأمر خيارات، علامة التبويب انتقال). END+ENTER التحريك والتمرير عند تشغيل المفتاح SCROLL LOCK في حالة استخدام مفاتيح التمرير (مثل PAGE UP و PAGE DOWN) عند إيقاف تشغيل المفتاح SCROLL LOCK ، يتم تحريك تحديد الخلية بمقدار المسافة التي تقوم بتمريرها. للتمرير دون تغيير أي من الخلايا المحددة، قم بتشغيل المفتاح SCROLL LOCK أولاً. تشغيل SCROLL LOCK أو إيقاف تشغيله. SCROLL LOCK الانتقال إلى الخلية الموجودة في الزاوية العلوية اليمنى للإطار. HOME الانتقال إلى الخلية الموجودة في الزاوية السفلية اليسرى للإطار. END

كود لمسح اسماء المدى الغير مستخدمة Sub RidOfNames() Dim myName As Name Dim fdMsg As String On Error Resume Next fdMsg = "" For Each myName In Names If Cells.Find(What:=myName.Name, _ After:=ActiveCell, _ LookIn:=xlFormulas, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False, _ SearchFormat:=False).Activate = False Then fdMsg = fdMsg & myName.Name & vbCr ActiveWorkbook.Names(myName.Name).Delete End If Next myName If fdMsg = "" Then MsgBox "لايوجد اسماء فى هذا المصنف---- منتدى اوفيسنا-----" Else MsgBox "Names Deleted:" & vbCr & fdMsg End If End Sub

يصعب الوصول الى او مسح الاسماء التى لم يعد لها اى استخدام مع هذا البرنامج التحكم سهل جداً منقول من منتدى اجنبى namemanager2007.zip

الطريقة الاولى اضغط F5 يظهر الشكل التالى اختر SPECIAL ليظهر الشكل التالى اختر CONSTANts وتاكد ان علامات الصح تحت FORMULAS موجودة بالكامل ثم اضغط على OK ثم DEL من الكيبورد الطريقة الثانية عن طريق هذا الكود Sub ClearAllButFormulas() Dim wks As Worksheet For Each wks In Worksheets 'iلتفادى الخطأ فى حالة وجود معادلات فقط On Error Resume Next wks.Cells.SpecialCells _ (xlCellTypeConstants, 23).ClearContents On Error GoTo 0 Next Set wks = Nothing End Sub

عاتبت نفسى حين ذكر اخوانى من لم اذكرهم وهم بفضلهم على كرامُ شكر لكل من يساهم فى هذا المنتدى الكريم

ادعو كل من فى هذا المنتدى الكريم ان يشكر بالاسم من افادوه يوما وليس اثناء الطلب فقط اقسم بالله انى احبكم فى الله-------- وابدا بنفسى اشكركم جميعا اعضاء المنتدى واخص بالذكر الاستاذ الفاضل والاخ الحبيب / عبد الله بقشير الاستاذ الفاضل والاخ الحبيب /احمد زمان الاستاذ الفاضل والاخ الحبيب / عبد الله المجرب الاستاذ الفاضل والاخ الحبيب / ابو عبد الله الاستاذ الفاضل والاخ الحبيب / الحسامى الاستاذ الفاضل والاخ الحبيب / الخالدى الاستاذ الفاضل والاخ الحبيب / قصى الاستاذ الفاضل والاخ الحبيب / رجب الاستاذ الفاضل والاخ الحبيب / طارق محمود الاستاذ الفاضل والاخ الحبيب / العيدروس وكلهم ساعدونى بشكل مباشر او بمواضيعهم المتميزة حفظهم الله وراعاهم وبارك لهم وارجو من كل شخص ان يشكر من ساعده احقاقاً للحق وافشاءً للمحبة

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

شكرا جدا اخى الخالدى افادكم الله هذا هو المطلوب بالفعل وشكرا اخى ابو شرف سانظر فى ما اردت ان شاء الله

للرفع

دام فضلكم وزاد علمكم فى شيت اصناف اريد حقل محتسب لحساب الفرق بين الاضافة والخصم ولو هناك اى افكار جيدة اخرى ارجو التنويه واريد رايكم عموما فى البرنامج وشاكر مقدما تم ازالة كل اشكال الحماية مخازن.rar

الله اكبر عليكم شكر جزيل اخى ومعلمى الحسامى انت عالم جليل بالفعل ارجو ان تكرر شرحك العظيم هذا فى اى امور اخرى فهو مفيد بحق وجزاكم الله خيرا

تحفة بس ممكن نعرف ايه دالةmod دى لو سمحت

لاحظت ان طلبات الفورم لا يتم الاجابة عليها نظرا لطول الوقت والجهد بها ل>ا ارجو استكمال موضوع كن جريئا وصمم برنامجك بنفسك حتى لا نطيل عليكم ونلح بالطلب ونشكركم شكرا جزيلا بعد ا>ن صاحب الموضوع

بارك الله لكم اخى طارق واخى عبد الله على مساعدتكم لنا انتم تعلموننا اشياء كنا نفتقدها وهى العطاء ةالايثار قبل ان تعلمونا الاكسيل بارك الله لنا فيكم

ما المقصود بالتطوير

راجع هذا الرابط اخى http://www.officena....opic=15699&st=0 أداة تحويل صيغ المعادلات الى اكواد وبالنسبة الى عدم استخدام زر يمكنك استخدام الحدث CELL CHANGE وهذا حسب علمى البسيط الى ان يرد عليك احد الكبار

اخى الكريم ها هو كود وفورم للتعديل بالشرح المفصل علك تستفيد منه وهو لاحد العباقرة فى المنتدى وبالنسبة لل COMPOBOX يمكنك تحديد مصدرها من DATA SOURCE فى خانة الخصائص على يمين محرر الاكواد التعديل.rar

جرب اخى البحث فى المنتدى قبل ان تسأل سيساعدك كثيرا صدقنى

الف الف مبروك يستحقون بالطبع

اشكرك دائما انت صاحب كل جديد واعشق اوفيسنا ومشرفينه وعلماءه

للرفع

للرفع