أ / محمد صالح

خدمة الترجمة في جميع تطبيقات ميكروسوفت اوفيس من وإلى كل اللغات المدعوم في ترجمة Bing 

يمكنك استعمال المعادلة التالية في الخلية I6
=IF(B6<>"",TEXT(B6,"mmmm"),"") ويمكنك سحبها لأسفل
بالتوفيق

جرب هذه المعادلة
بتغيير بسيط على معادلة أ / علي
=IF(COUNTIFS($B$2:$B$200,B2,$C$2:$C$200,C2)>1,"OK","") بالتوفيق
data search1.xlsx

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

جرب استعمال هذا الإجراء 
Sub godown() Application.SendKeys "~" End Sub وربطه بزر الأمر
بالتوفيق

يمكنك تعديل الشرط في زر البحث إلى التالي
If sh.Cells(i, 3) >= CDate(Me.TextBox15) And sh.Cells(i, 3).Value <= CDate(Me.TextBox16) _ And sh.Cells(i, 4) = Me.ComboBox3 And (sh.Cells(i, 5) = Me.ComboBox4 Or Me.ComboBox4 = "") Then وإضافة استدعاء زر البحث بعد مسح قائمة المقاس
Private Sub CommandButton52_Click() Me.ComboBox4.Value = "" CommandButton51_Click End Sub بالتوفيق

إن كان فهمي للمطلوب صحيحا
جرب هذه المعادلة في الخلية C5
=SUMIFS($I$3:$I$5,$H$3:$H$5,B5,$G$3:$G$5,$B$2)+N3-I6 بالتوفيق

إذا كنت تقصد الحل في عدم تفعيل زر وضع التصميم 
فجرب وضع هذا الإجراء في موديول جديد 
وقم بتشغيل لإعادة تمكين زر وضع التصميم 
sub mas Application.CommandBars("Visual Basic").Controls("Design Mode").Enabled = True Application.CommandBars("Control Toolbox").Controls("Design Mode").Enabled = True End sub ربما يكون هذا السبب في مشكلة القائمة 

هذا هو الأفضل وهو الذي كنت سأفعله
لكني وجدتك تستعمل النطاقات المسماة
تم تعديل الكود مع امكانية اضافة عمود للسيارة الجديدة تلقائيا 
وعدم تكرار رقم الشاسيه لكل نوع سيارة 
بالتوفيق
برنامج السيارات3.xlsm

تفضل هذا ملفك بعد وضع المعادلات
mode fun1_2.xlsx

ربما يفيدك هذا الرابط

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

كان يمكنك التوصل لها بمفردك
لانها عبارة عن دمج نص مع معادلة باستخدام &
تفضل هذا ملفك بعد المطلوب الاخير
لاحظ معادلة التنسيق الشرطي في الحليتين
بالتوفيق
UBIED.xlsx

رغم عدم الرد على السؤال الذي هو جزء من فهم المطلوب
لكن
جعلنا الله من المحسنين جميعا
تفضل هذا ملفك بعد التعديل 
تم وضع تاريخ البداية والنهاية في خليتين
تم وضع معادلة تجلب خلية واحدة ينطبق عليها الشروط
واذا كان من المحتمل وجود اكثر من علاوة بين التاريخين يمكن سحب المعادلة افقيا
بالتوفيق 
اظهار تاريخ فى مدة زمنيه محددة.xlsx

تفضل أخي الكريم 
تم اجراء بعض التعديلات حتى تتناسب مع الكود والتكرار
بالتوفيق 
تكرار الخلايا بالكود.xlsm

* كل البرامج التي تصمم بالاصدارات القديمة تعمل على الإصدارات الأحدث
ولكن العكس غير صحيح
* في رأيي الشخصي الأحدث هو الأفضل لانه يتم فيه حل الكثير من المشكلات السابقة بسهولة
* اما بالنسبة لموضوع النواة فالأعلى في القدرات 64بت 
والله اعلم 

هو ممكن لكن سيكون الشكل غير مقبول نهائيا
لعمل ذلك
يتم نسخ النطاق من A1:G20 
ثم لصقه ابتداء من الخلية I1
مع تعديل منطقة الطباعة الى A1:O20
مرفق ملفك وبه التعديل راسي وافقي
بالتوفيق 
كشفين في ورقة واحدة.xlsx

حسب فهمي للمطلوب
تم جعل صفحة الطباعة صفحة واحدة
ويتم استدعاء باقي الصفحات بكتابة رقم الصفحة في الخلية E1
تم تلوين الخلايا التي وضع معادلات فيها
ويمكنك زيادة عدد سجلات (صفوف) الصفحة وذلك باستبدال رقم 11 في المعادلات بالعدد المطلوب 
ونسخ المعادلات إلى الصف المطلوب لأسفل
بالتوفيق 
ترحيل المجاميع.xlsx

جرب ترحيل قيمة مربع النص بدلا من النص
Range("a1").value = me.textbox1.value مع التأكد من تنسيق الخلية التي يتم الترحيل إليها عام او رقم
وبالنسبة لموضوع تسريع التنفيذ فيجب معرفة الكود المستعمل اولا
بالتوفيق 

صمم صفحة البحث ثم اعد رفع الملف
ليتم وضع معادلة البحث
وبالتوفيق 

اللجوء للكود يكون للحالات التي لا نستطيع عملها بالاكسل بطريقة عادية
وبالنسبة لمطلوبك
يمكنك حماية جميع خلايا الشيت 
بالضغط على المثلث الموجود بين العمود A والصف 1
ثم الضغط عل ctrl+1 لفتح نافذة تنسيق الخلايا 
ثم الذهاب الى تبويب حماية protection 
ثم التأشير على محمي locked ومخفي hidden ثم موافق
*********
بعدها الغاء الحماية عن الخلايا التي تريدها بتحديد الخلايا ثم نفس الخطوات مع حذف علامة صح بجانب محمي،ومخفي
*******
حتى الآن الشيت جاهز لتنفيذ الحماية من تبويب مراجعة review ثم حماية ورقة العمل protect worksheet 
وفي هذه النافذة اكتب كلمة المرور مرتين
واحذف علامة الصح بجانب 
تحديد الخلايا المحمية select locked cells
بالتوفيق 

جربت الدخول باسم المستخدم a وكلمة المرور 1
فظهر الخطأ فعلا عند هذا السطر 
Sheets("Daily Report").Activate ولا يوجد شيت بهذا الاسم وهذا سبب الخطأ 
والشيت في السطر التالي أيضا غير موجود ضمن مجموعة الشيتات 

بعكس الحاجات المذكورة في المشاركة السابقة 
تقليل معادلات البحث 
عدم وجود معادلات في صفوف فارغة 
تحويل بعض المعادلات الي اكواد 
تحويل الملف لامتداد يدعم السرعة والحجم القليل مثل xlsb 
وغيرها الكثير 

يمكنك استعمال هذا الاجراء
Sub twolines2columns() Range("A2:A21").TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:=Chr(10), FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True End Sub لاحظ ان رمز السطر الجديد هو chr(10)
بالتوفيق 

حسب فهمي للمطلوب
جرب هذه الدالة المعرفة بنسخ هذا الكود في،موديول جديد
Function sumparts(num As String) As Long Dim n As Long, a As Long a = 0 For n = 1 To Len(num) a = a + Val(Mid(num, n, 1)) Next n If Len(CStr(a)) > 1 Then sumparts = sumparts(CStr(a)) Else sumparts = a End If End Function وبعد البحث في الانترنت عن هذا الأمر
يمكن اختصار هذه الدالة إلى
Function sumparts(num As String) As Long sumparts = num - 9 * Int((num - 1) / 9) End Function وطريقة استدعائها داخل الخلية
=sumparts(A1) حيث A1 هي الخلية التي تحتوي على العدد المراد معرفة مجموع أرقامه
ويمكن الوصول لهذا الهدف مباشرة في معادلة اكسل بهذه الصورة
=A1-9*INT((A1-1)/9) بالتوفيق