نجوم المشاركات

 خواطر إكسيلية أساتذتي الكرام إخوتي الأحبة السلام عليكم ورحمة الله وبركاته: بدا لي أن أكتب موضوعاً لا يقف حكراً على أحد – بل بإمكان كلٍّ منا أن يجود بما يخطر له من مواضيع الإكسيل التي يريد أن يفيد بها - وهنا أنطلق من كلمة إكسل التي تعني البراعة أو كما يحلو لنا أن نسميها في بلدي المكلوم "برنامج الجداول الإلكترونية" : ولذلك فإنني سأنطلق من خاطرة أولى تتحدث عن بعض اختصارات برنامج الإكسيل التي نصادفها بشكل يومي كما يلي: اختصارات لوحة المفاتيح في الإكسيل: إظهار(عرض) الصيغ في الخلايا بدلاً من نتائجها المحتسبة CTRL + ~ سابقة أثر(الخلايا التي أثرت في قيمة الخلية الحالية CTRL + [ تاريخ اليوم CTRL+ ; اختيار(تحديد كل) الجدول الحالي CTRL+ * الوقت الحالي CTRL+SHIFT+ ; نسخ من الخلية المجاورة بالأعلى CTRL+ ' هذا ما استطعت عرضه في عجالة من أمري وسيتبع إن شاء الله تعالى بمواضيع أخرى والسلام عليكم خواطر إكسيلية.rar

السلام عليكم ورحمة الله وبركاته أستاذى القدير / حسام عيسى لقد إستأذنت حضرتك فى مشاركة لى فى موضوع حضرتك الذى بعنوان سلسلة علمنى كيف اصطاد ( الفورم ) Forms بتجميع كافة الدروس حتى تاريخة وتحويها إلى PDF حتى يستفاد منها الجميع وها قد تم تجميعاعلى الرابط التالى http://www.mediafire.com/download/m64wkvz21ymd695/حسام+عيسى.rar نظرا لحجمهم وعدم القدرة على رفعهم بالمنتدى تقبلوا خالص تحياتى وتقديرى

موضوع جميل وفكرة اجمل تفضل بعض الاختصارات مفاتيح الاختصار التي تستخدم المفتاح CTRL المفتاح الوصف CTRL+PGUP للتبديل بين علامات تبويب ورقة العمل، من اليمين إلى اليسار. CTRL+PGDN للتبديل بين علامات تبويب ورقة العمل، من اليسار إلى اليمين. CTRL+SHIFT+( إظهار أية صفوف مخفية داخل التحديد. CTRL+SHIFT+) إظهار أية أعمدة مخفية داخل التحديد. CTRL+SHIFT+& تطبيق حدود خارجية للخلايا المحددة. CTRL+SHIFT_ إزالة الحدود الخارجية من الخلايا المحددة. CTRL+SHIFT+~ تطبيق تنسيق الأرقام "عام". CTRL+SHIFT+$ تطبيق التنسيق "عملة" بمنزلين عشريتين (تظهر الأرقام السالبة في أقواس). CTRL+SHIFT+% تطبيق التنسيق "نسبة مئوية" دون منازل عشرية. CTRL+SHIFT+^ تطبيق تنسيق رقم "أسي" بمنزلين عشريين. CTRL+SHIFT+# تطبيق التنسيق "تاريخ" باليوم والشهر والسنة. CTRL+SHIFT+@ تطبيق التنسيق "وقت" بالساعة والدقيقة و"ص" أو"م". CTRL+SHIFT+! تطبيق التنسيق "رقم" بمنزلين عشريين وفواصل آلاف وعلامة الناقص (-) للقيم السالبة. CTRL+SHIFT+* تحديد المنطقة الحالية الموجودة حول الخلية النشطة (تحاط منطقة البيانات بصفوف وأعمدة فارغة). في PivotTable، يحدد تقرير PivotTable بأكمله. CTRL+SHIFT+: إدخال الوقت الحالي. CTRL+SHIFT+" نسخ القيمة من الخلية الموجودة أعلى الخلية النشطة إلى الخلية أو إلى "شريط الصيغة". CTRL+SHIFT+Plus (+) عرض مربع الحوار إدراج لإدراج خلايا فارغة. CTRL+Minus (-) عرض مربع الحوار حذف لحذف الخلايا المحددة. CTRL+; إدخال التاريخ الحالي. CTRL+` التبديل بين عرض قيم الخلايا وعرض الصيغ في ورقة العمل. CTRL+' نسخ صيغة من الخلية الموجودة أعلى الخلية النشطة إلى الخلية أو إلى "شريط الصيغة". CTRL+1 عرض مربع الحوار تنسيق خلايا. CTRL+2 تطبيق تنسيق غامق أو إزالته. CTRL+3 تطبيق تنسيق مائل أو إزالته. CTRL+4 تطبيق تسطير أو إزالته. CTRL+5 تطبيق تنسيق يتوسطه خط أو إزالته. CTRL+6 التبديل بين إخفاء الكائنات وعرض الكائنات وعرض العناصر النائبة للكائنات. CTRL+8 عرض رموز التخطيط التفصيلي أو إخفاؤها. CTRL+9 إخفاء الصفوف المحددة. CTRL+0 إخفاء الأعمدة المحددة. CTRL+A تحديد ورقة العمل بأكملها. إذا احتوت ورقة العمل على بيانات، تحدد CTRL+A المنطقة الحالية. ويؤدي ضغط CTRL+A للمرة الثانية إلى تحديد المنطقة الحالية وصفوف التلخيص. أما ضغط CTRL+A للمرة الثالثة يؤدي إلى تحديد ورقة العمل بأكملها. يتم عرض مربع الحوار وسيطات الدالة، عندما تكون نقطة الإدراج إلى يمين اسم الدالة في صيغة. يؤدي ضغط CTRL+SHIFT+A إلى إدراج أسماء الوسيطات والأقواس، عندما تكون نقطة الأدراج إلى يمين اسم الدالة في صيغة. CTRL+B تطبيق تنسيق غامق أو إزالته. CTRL+C نسخ الخلايا المحددة. يؤدي الضغط على CTRL+C متبوعاً بـ CTRL+C إلى إظهار الحافظة. CTRL+D استخدام الأمر تعبئة لأسفل لنسخ محتويات وتنسيق أعلى خلية في نطاق محدد إلى الخلايا الموجودة بأسفل. CTRL+F عرض مربع الحوار بحث واستبدال، مع تحديد علامة التبويب بحث. تعرض SHIFT+F5 أيضاً علامة التبويب هذه، بينما تكرر SHIFT+F4 إجراء بحث الأخير. يفتح CTRL+SHIFT+F مربع الحوار تنسيق الخلايا مع تحديد علامة التبويب خط. CTRL+G عرض مربع الحوار الانتقال إلى. تعرض F5 أيضاً مربع الحوار هذا. CTRL+H عرض مربع الحوار بحث واستبدال مع تحديد علامة التبويب استبدال. CTRL+I تطبيق تنسيق مائل أو إزالته. CTRL+K عرض مربع الحوار إدراج ارتباط تشعبي للارتباطات التشعبية الجديدة أو مربع حوار تحرير ارتباط تشعبيللارتباطات التشعبية المحددة الموجودة. CTRL+N إنشاء مصنف فارغ جديد. CTRL+O عرض مربع الحوار فتح لفتح ملف أو العثور عليه. يحدد CTRL+SHIFT+O كافة الخلايا التي تحتوي على تعليق. CTRL+P عرض مربع الحوار طباعة. يفتح CTRL+SHIFT+P مربع الحوار تنسيق الخلايا مع تحديد علامة التبويب خط. CTRL+R استخدام الأمر تعبئة لليمين لنسخ محتويات وتنسيق الخلية الموجودة أقصى اليسار في النطاق المحدد في الخلايا ناحية اليمين. CTRL+S حفظ الملف النشط باسم الملف الحالي وموقعه وتنسيقه. CTRL+T عرض مربع الحوار إنشاء جدول. CTRL+U تطبيق تسطير أو إزالته. يستخدم CTRL+SHIFT+U للتبديل بين توسيع شريط الصيغة أو طيه. CTRL+V إدراج محتويات "الحافظة" في نقطة الإدراج واستبدال أي تحديد. يتوفر فقط بعد قص كائن أو نص أو محتويات خلايا أو نسخها. تقوم CTRL+ALT+V بعرض مربع الحوار لصق خاص. ويكون متاحًا بعد قص أو نسخ كائن أو نص أو محتويات خلية على ورقة العمل أو في برنامج آخر. CTRL+W إغلاق إطار المصنف المحدد. CTRL+X قص الخلايا المحددة. CTRL+Y تكرار الأمر أو الإجراء الأخير إذا كان ممكناً. CTRL+Z استخدام الأمر تراجع لعكس الأمر الأخير أو لحذف الإدخال الأخير الذي كتبته. يستخدم CTRL+SHIFT+Z الأمر تراجع أو إعادة لعكس التصحيح التلقائي الأخير أو استعادته عند عرض "العلامات الذكية للتصحيح التلقائي".

المفاتيح الوظيفية المفتاح الوصف F1 عرض جزء المهام تعليمات Microsoft Office Excel . يستخدم CTRL+F1 لعرض الشريط أو إخفائه، وهو مكوّن في واجهة مستخدم Microsoft Office Fluent. ينشىء ALT+F1 مخطط للبيانات الموجودة في النطاق الحالي. يدرج ALT+SHIFT+F1 ورقة عمل جديدة. F2 تحرير الخلية النشطة ووضع نقطة الإدراج في نهاية محتويات الخلية. ونقل نقطة الإدراج إلى "شريط الصيغة" في حالة إيقاف تشغيل التحرير في إحدى الخلايا. يضيف SHIFT+F2 تعليق إلى خلية أو يحرره. يعرض CTRL+F2 إطار المعاينة قبل الطباعة. F3 عرض مربع الحوار اسم اللصق. يعرض SHIFT+F3 مربع الحوار إدراج دالة. F4 تكرار الأمر أو الإجراء الأخير إذا كان ممكناً. عند تحديد مرجع خلية أو نطاق في صيغة، يؤدي الضغط على F4 إلى التنقل عبر المجموعات المختلفة من المراجع المطلقة والنسبية. يغلق CTRL+F4 إطار المصنف المحدد. F5 عرض مربع الحوار الانتقال إلى. يستعيد CTRL+F5 حجم إطار المصنف المحدد. F6 يستخدم للتبديل بين ورقة العمل والشريط وجزء المهام وعناصر تحكم التكبير والتصغير. ففي ورقة العمل التي تم تقسيمها (القائمة عرض، الأمر إدارة هذا الإطار وتجميد الأجزاء وتقسيم الإطار)، يتضمن F6 الأجزاء المقسمة عند التبديل بين الأجزاء وناحية الشريط. يستخدم SHIFT+F6 للتبديل بين ورقة العمل وعناصر تحكم التكبير والتصغير وجزء المهام والشريط. يستخدم CTRL+F6 للتبديل إلى إطار المصنف التالي عند فتح أكثر من إطار مصنف. F7 عرض مربع الحوار تدقيق إملائي لإجراء تدقيق إملائي في ورقة العمل النشطة أو النطاق المحدد. ينفذ CTRL+F7 الأمر نقل ضمن إطار المصنف عندما يكون غير مكبر. يمكن استخدام مفاتيح الأسهم لنقل الإطار وعند الانتهاء، اضغط ENTER أو ESC لإلغاء الأمر. F8 تشغيل وضع التوسيع أو إيقاف تشغيله. في وضع التوسيع، يظهر تحديد موسع في سطر المعلومات وتوسع مفاتيح الأسهم التحديد. تمكنك SHIFT+F8 من إضافة خلية أو نطاق غير متجاور إلى تحديد من الخلايا باستخدام مفاتيح الأسهم. ينفذ CTRL+F8 الأمر حجم (الموجود في القائمة تحكم الخاصة بإطار المصنف) عندما يكون أي مصنف غير مكبر. تعرض ALT+F8 مربع الحوار ماكرو لإنشاء ماكرو أو تشغيله أو تحريره أو حذفه. F9 حساب كافة أوراق العمل الموجودة في كافة المصنفات المفتوحة. تحسب SHIFT+F9 ورقة العمل النشطة. تحسب CTRL+ALT+F9 كافة أوراق العمل الموجودة في كافة المصنفات المفتوحة، بغض النظر عما إذا كان تم تغييرها منذ آخر عملية حساب. يعيد CTRL+ALT+SHIFT+F9 فحص الصيغ المعتمدة ثم يحسب كافة الخلايا الموجودة في كافة المصنفات المفتوحة، بما في ذلك الخلايا التي لم يتم تحديدها لحاجتها للحساب. يستخدم CTRL+F9 لتصغير إطار المصنف إلى رمز. F10 تشغيل تلميحات المفاتيح أو إيقاف تشغيلها. يعرض SHIFT+F10 القائمة المختصرة للعنصر المحدد. يعرض ALT+SHIFT+F10 القائمة أو الرسالة للعلامة الذكية. إذا كان هناك أكثر من علامة ذكية، يستخدم للتبديل إلى العلامة الذكية التالية ويعرض القائمة أو الرسالة. يكبر CTRL+F10 إطار المصنف المحدد أو يقوم باستعادته. F11 إنشاء مخطط للبيانات الموجودة في النطاق الحالي. يدرج SHIFT+F11 ورقة عمل جديدة. يفتح ALT+F11 محرر Microsoft Visual Basic الذي يمكن إنشاء ماكرو به باستخدام Visual Basic for Applications (VBA) . F12 عرض مربع الحوار حفظ باسم.

الدالة TRound من المؤكد انه لم يسمع احد من قبل عن هذه الدالة لانها غير موجودة اصلا نعم ايها الاصدقاء هذه الدالة غير موجودة في الاكسس وهي من صنعي تقوم هذه الدالة بنفس وظيفة الدالة Round الاصلية الا انها تتغلب على مشكلة الدالة الاصلية مشكلة الدالة Round ( الدالة Round ) تقوم بتقريب الرقم الى اقرب قيمة مثلا تقرب الرقم 40.3 الى الرقم 40 و الرقم 40.85 الى الرقم 41 لكن ماذا اذا كان الرقم 40.5 ؟؟؟؟؟ اذا كان الرقم زوجي فانها تقربه الى الرقم الادني 40 الا اذا اصبح الرقم 40.51 فانها تقربه الى الرقم الاعلى 41 بينما الارقام الفردية مثل 41.5 فانها تقربه الى الاعلى 42 اما اذا كان 41.49 فانها تقربه الى الادني 41 علما ان الدالة نفسها موجودة في الاكسل و هي تعمل بشكل صحيح اي انها تقرب الارقام ذات الفواصل العشرية مثل 40.50 وما فوق ( 40.51 - 40.52) الى الرقم الاعلى 41 و تقرب الرقم 40.49 و 40.48 و مادون الى الرقم الادنى وهو 40 اطلت الكلام و اليكم الدالة في هذا المرفق TRound.rar

اتفضل الملف المرفق ..عشان خاطر عيونك بس Alaa YasserKhalil.rar

أخي الكريم أبو آلاء أيها العضو الذهبي جرب المعادلة التالية في الخلية B5 =INDEX(N9:N200,MATCH(1,(SUBTOTAL(3,OFFSET(N9:N200,ROW(N9:N200)-MIN(ROW(N9:N200)),0,1)))*(N9:N200<>""),0)) المعادلة معادلة صفيف .. أي أنه يجب الضغط على ثلاثة مفاتيح معاً ..بعد إدخال المعادلة Ctrl + Shift + Enter .. إذا لم تعمل معك المعادلة قم باستبدال الفاصلة الموجودة بفاصلة منقوطة

بعض الإختصارات المفتاح. الوظيفة. أو الأمر.Tab تنشيط شريط القوائم بالتعلم على قائمة FileAlt+F لفتح قائمة FileAlt+E لفتح قائمة EditAlt+V لفتح قائمة ViewAlt+I لفتح قائمة InsertAlt+O لفتح قائمة FormatAlt+T لفتح قائمة ToolsAlt+D لفتح قائمة DataAlt+H لفتح قائمة Window- +Alt لفتح قائمة التحكم في النافذة الخاصة بالمصنف Alt+spacebar لفتح قائمة التحكم في نافذة البرنامجAlt+F4 لإغلاق البرنامجAlt+F11 لإظهار النافذة الخاصة بأوامر لغة الفيجوال بيسكAlt+page Down للانتقال صفحة إلى اليمينAlt+Page Up للانتقال صفحة إلى اليسارالسهم لا سفل+Alt لعرض قائمة ببيانات خلايا العمود الموجودة فيه الخلية المحددة لاختيار أيامنها للنسخPage Down للانتقال صفحة إلى أسفلPage Up للانتقال صفحة الى أعلىمفاتيح الأسهم للانتقال خلية واحدة حسب اتجاه السهمCtrl+0 لإخفاء العمود الخالي أو الأعمدة المظللةCtrl+1 لفتح مستطيل الحوار Format CellsCtrl+6 لإخفاء وإظهار الكائناتCtrl+7 لإخفاء وإظهار شريط الأدوات القياسيةCtrl+9 لإخفاء الصف الحالي أو الصفوف المظللةCtrl+F3 لعرض مستطيل الحوار Define NameCtrl+F4 لإغلاق النافذة النشطCtrl+F5 لإستعادة حجم النافذة للحجم الطبيعىCtrl+F6 لاستدعاء النافذة التاليةCtrl+F7 لتحريك النافذة (أمر Move الموجود بقائمة التحكم في النافذة)Ctrl+F8 لتغيير حجم النافذة (أمر Size الموجود بقائمة التحكم في النافذة)Ctrl+F9 لتصغير النافذة للحد الأدنىCtrl+F10 لتكبير النافذة إلى الحد الأقصىCtrl+F11 لإضافة ورقة الماكروCtrl+A لتظليل ورقة العمل بأكملهاCtrl+B لجعل خط الكتابة ثقيل (Bold)أو إعادته للوضع العاديCtrl+D للنسخ في الخلية نسخة مماثلة للخلية التي فوقهاCtrl+F لفتح مستطيل خيارات FindCtrl+H لفتح مستطيل خيارات ReplaceCtrl+I لجعل خط الكتابة مائلا أو إزالة الإمالةCtrl+N لفتح كتاب عمل جديدCtrl+O لاستدعاء كتاب عمل تم تخزينه من قبلCtrl+P لفتح نافذة أمر الطباعةCtrl+R لنسخ الخلية نسخة مماثلة للخلية التي على يسارهاCtrl+S للحفظCtrl+U لجعل خط الكتابة مسطراCtrl+V للصقCtrl+X للقصCtrl+Z للتراجع عن أخر أمر أو عمليةCtrl+Home للانتقال إلى الخلية الأولى فى ورقة العملCtrl+End للإنتقال إلى أخر خلية في الورقةالأسهم+Ctrl للانتقال إلى أخر الورقة في اتجاه السهمCtrl+Esc لفتح قائمة البداية Start; +Ctrl لإدخال التاريخ الحالي في الخلية;+Ctrl+Shift لإدخال الوقت الحالي في الخليةCtrl+Page Down للانتقال إلى الورقة التالية في كتاب العملCtrl+Page Up للانتقال إلى الورقة السابقة في كتاب العمل&+Ctrl+Shift لتسطير الخلايا المظللة- +Ctrl+Shift لإزالة تسطير الخلايا المظللة#+Ctrl+Shift لتحويل التاريخ إلى الطريقة التالية(يوم/شهر/سنة)$+Ctrl+Shift لتنسيق الأرقام بوضع علامة العملة%+Ctrl+Shift لتنسيق الأرقام بوضع علامة النسبة المئوية)+Ctrl+Shift لإظهار الصفوف المختفية(+Ctrl+Shift لإظهار الأعمدة المختفيةCtrl+Shift+End لزيادة التظليل إلى حواف ورقة العملأو Ctrl+Shift+Homeمفاتيح الأسهم+Ctrl+Shift لزيادة التظليل حتى حافة ورقة العمل حسب اتجاه السهم= +Ctrl+Shift لعرض مستطيل حوار InsertCtrl+Shift+F3 عرض مستطيل حوار Create NamesCtrl+Spacebar لتظليل العمود الحالي بالكاملDelete لمسح النطاق المظللEsc لإلغاء عملية F1 لاستدعاء مجموعة الخيارات الخاصة بالتعليمات المساعدةF2 لتعديل بيانات الخلية الحاليةF3 لاستدعاء أسماء الخلايا أثناء كتابة المعادلاتF4 لتكرار أخر عمليةF5 لتنفيذ أمر Go toF6 للانتقال إلى القسم الأخر من ورقة العمل في حالة تقسيمهاF7 للتدقيق الإملائيF9 لإتمام العمليات الحسابية في كافة أوراق العملF10 تنشيط شريط القوائمF11 لإنشاء رسم بياني خاص بالبيانات المظللةF12 للحفظHome للانتقال إلى بداية الصفShift Backspace لتقليل التظليل وقصره على الخلية الحالية فقطShift Enter للانتقال خلية إلى أعلىShift Tab للانتقال خلية جهة اليسارTab للانتقال خلية جهة اليمين

وهذا ملف بمعظم الاختصارات معظم اختصارات الاكسيل.rar

بعد أذن اخي و صديقي العيدروس و اثراء للموضوغ هذا الكود Sub Salim_Rows() Dim Lr&, lr2& With ActiveSheet Application.ScreenUpdating = False Lr = .UsedRange.SpecialCells(xlCellTypeLastCell).Row Range("a5:a" & Lr).SpecialCells(xlCellTypeBlanks).EntireRow.Delete Range("a5:a" & Lr).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete lr2 = Cells(Rows.Count, "o").End(3).Row Range("o5:o" & lr2 - 1).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete Application.ScreenUpdating = True End With End Sub

السلام عليكم جميل جداً اخي محمد حسن المحمد الاكسل مليئ بالاختصارات ان اتقنتها وحفظتها ستختصر لك الوقت الكثير ان سمح لي الوقت سوف ارفق بعض منها في موضوعك بارك الله فيك تقبل مروري

السطر السابق للتعبير عن الخليه التي تحتوي على بوردر الجانب الايمن عموماً جرب التعديل التالي مع اضافة شرط استثناء السطر اذا كانت الخليه المجاوره اي العمود A وجد فيها كلمة "كشف" Sub Ali_A() Dim Ws As Worksheet, L Dim Rng As Range Dim Rn As Range Dim Rx$ On Error Resume Next Set Ws = Sheets("salary"): Tx = "كشف" L = Split(Ws.UsedRange.Address, "$")(4) For Each Rng In Union(Ws.Range("C8:F" & L), Ws.Range("AO8:AO" & L)) If Rng.Borders(xlEdgeRight).LineStyle <> -4142 _ And Not Trim(Ws.Cells(Rng.Row, 1)) Like "*" & Tx & "*" Then If Not Rng Is Nothing Then If Rn Is Nothing Then Set Rn = Rng Else Set Rn = Union(Rn, Rng) End If End If End If Next With Sheets("Total") If Not Rn Is Nothing Then Rn.Copy Application.ScreenUpdating = False Sheet1.Activate .[F8].Select .Paste Application.ScreenUpdating = True End If End With Application.CutCopyMode = False Set Rn = Nothing Set Rng = Nothing End Sub تحياتي اخي ياسر العربي كفيت ووفيت الظاهر نشرت الرد وانا اكتب الرد تحياتي لك

السلام عليكم Private Sub ListBox1_Click() ''********************* '' الذهاب الى الورقة المسماه ورقة1 Sheets("ورقة1").Select '' متغير لحفظ قيمة نصيه Dim DADA As String ''MySh متغير لورقة في المصنف للتعبير عن الورقة في الكود بمسمى Dim MySh As Worksheet 'On Error GoTo 1 '' اخذ القيمة من العمود الـ 9 في الليست بوكس والتي هيا عنوان الخليه من السطر المحدد في الليست بوكس DADA = ListBox1.List(ListBox1.ListIndex, 9) ''كتعبير عن الورقة المسماه "ورقة1" MySh تعين المتغير Set MySh = Sheets("ورقة1") ''With ادرج في اطار Myshلتعدداستخدام متغير '' للتعبير عن المتغير بأكثر من سطر دون ذكر المتغير بكل سطر '' . مع التعبير بعلامة With MySh ''للذهاب للخليه المعنيه في البحث Range في تعبير DADA ادراج متغير '' Range.address حفظ فيه عنوان الخليه DADA اعتباراً ان متغير .Application.Range(DADA).Activate ''ComboBox3 وحقظه في DADA اخذ قيمة الخليه من متغير ComboBox3.Text = .Range(DADA).Value ''ComboBox2 مع ازاحه بقدر عمود وحقظه في DADA اخذ قيمة الخليه من متغير ''B1 مع ازاحة عمود ستصبح الخليه المعنيه A1 اي اذا فرضنا الخليه هيا ComboBox2.Text = .Range(DADA).Offset(0, 1).Value ''TextBox4 مع ازاحه بقدر عمودين وحقظه في DADA اخذ قيمة الخليه من متغير TextBox4.Text = .Range(DADA).Offset(0, 2).Value ''TextBox5 مع ازاحه بقدر 3 اعمده وحقظه في DADA اخذ قيمة الخليه من متغير TextBox5.Text = .Range(DADA).Offset(0, 3).Value ''TextBox6 مع ازاحه بقدر 4 اعمده وحقظه في DADA اخذ قيمة الخليه من متغير TextBox6.Text = .Range(DADA).Offset(0, 4).Value ''TextBox7 مع ازاحه بقدر 5 اعمده وحقظه في DADA اخذ قيمة الخليه من متغير TextBox7.Text = .Range(DADA).Offset(0, 5).Value ''ComboBox1 مع ازاحه بقدر 6 اعمده وحقظه في DADA اخذ قيمة الخليه من متغير ComboBox1.Text = .Range(DADA).Offset(0, 6).Value '' Myshالخروج من اطار متغير End With ''********************* End Sub

السلام عليكم تفضل اخي الخليفه الاول فاتورة_111.rar

أخي ومعلمي أبو نصار كود رائع جداً وسريع للغاية حيث أنه يقوم بعمل تجميع للنطاقات التي ينطبق عليها الشروط ملحوظة صغيرة ...في هذا السطر Rng_a = Nothing نضع في البداية كلمة Set

السلام عليكم تفضل Sub Ali_Rows() Dim Rng As Range, Rng_a As Range Dim Lr& With ActiveSheet Application.ScreenUpdating = False Application.EnableEvents = True Lr = .UsedRange.SpecialCells(xlCellTypeLastCell).Row For Each Rng In Range(Cells(5, 1), Cells(Lr, 1)) If Rng = Empty Or Trim(.Cells(Rng.Row, 15)) = "الاجمالى" _ Or Trim(CStr(Rng)) = "دائن" Then If Not Rng Is Nothing Then If Rng_a Is Nothing Then _ Set Rng_a = Rng Else Set Rng_a = Union(Rng_a, Rng) End If Next If Not Rng_a Is Nothing Then Application.DisplayAlerts = False ''************************ Rng_a.EntireRow.Delete ''************************ Application.DisplayAlerts = True End If Set Rng = Nothing:Set Rng_a = Nothing Application.ScreenUpdating = True Application.EnableEvents = False End With End Sub

تفضل يا سيدي الاستعلام . والنموذج . ولا ، لا يمكن حذف روكرز لأنه فاضي وجعفر 271.مشكلة الصفر وباقى المحلات.accdb.zip

اذا كان ملفك كجدول واحد الغي الحلقه التكراريه ليصبح الكود كالتالي Sub Ali_Prnt() Dim R As Long Dim Ar Dim Rn As Range, Rn1 As Range Dim Sh As Worksheet '********************************************** Call YK_Start On Error Resume Next Set Sh = ActiveSheet With Sh II = .PageSetup.PrintArea 'For R = 1 To .VPageBreaks.Count Ro = .VPageBreaks(1).Location.Row Cl = .VPageBreaks(1).Location.Column Ar = .Range(.PageSetup.PrintArea) Lr = UBound(Ar, 2) + 1 Rw = UBound(Ar, 1) + 1 Set Rn = .Range(Cells(Ro, 2), Cells(Rw, Cl - 1)) Set Rn1 = .Range(Cells(Ro, Cl), Cells(Rw, Lr)) Ali_Rest With .PageSetup .PrintArea = Rn.Address .RightHeader = Sheets("الاساسية").Range("A5").Value & Chr(13) & Sheets("الاساسية").Range("B5").Value .LeftHeader = Sheets("الاساسية").Range("A7").Value & Chr(13) & Sheets("الاساسية").Range("B7").Value .RightFooter = Sheets("الاساسية").Range("A10").Value & Chr(13) & Sheets("الاساسية").Range("B10").Value .CenterFooter = Sheets("الاساسية").Range("A11").Value & Chr(13) & Sheets("الاساسية").Range("b11").Value End With .PrintPreview Ali_Rest With .PageSetup .PrintArea = Rn1.Address .LeftHeader = Sheets("الاساسية").Range("A8").Value & Chr(13) & Sheets("الاساسية").Range("B8").Value .LeftFooter = Sheets("الاساسية").Range("B6").Value & Chr(13) & Sheets("الاساسية").Range("A6").Value .CenterHeader = Sheets("الاساسية").Range("A9").Value End With .PrintPreview Ali_Rest ' Next R .PageSetup.PrintArea = II End With Set Sh = Nothing Call YK_End '********************************************** On Error GoTo 0 End Sub Private Sub Ali_Rest() Call YK_Start With Sheets("عام") With .PageSetup .LeftHeader = "" .RightHeader = "" .CenterHeader = "" .LeftFooter = "" .RightFooter = "" .CenterFooter = "" End With End With Call YK_End End Sub

السلام عليكم ورحمة الله ارجو ان يكون هذا هو الحل ترحيل الاصناف.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

السّلام عليكم و رحمة الله و بركاته هل فكّرْتَ يومًا أخي الكريم .. في إيقاف التّواصل و ترك الجهاز تحت الضغط لِلَحظات .. من خلال اليوزرفورم و أنتَ تشتغل عليه .. هل فكّرْتَ يومًا أخي الفاضل .. و قد اضطررتَ لعمل ريسْتارْت و إعادة تشغيل جهازك .. في القيام بذلك فقط من خلال اليوزرفورم .. هل فكّرْتَ أخي الغالي .. في إطفاء جهازك نهائيًّا بزر أمر فقط من خلال اليوزرفورم .. هل فكّرْتَ أخي العزيز .. أنْ تضبطَ توقيت نظام الويندوز أو ضبط بعض الاعدادات الاقليمية .. فقط من خلال اليوزرفورم .. تفضّلْ سيّدي المحترم .. و جرّبْ فضلاً لا أمرًا ذلك بنفسك من خلال الملف رقم 1 المرفق أدناه .. و إذا كنتَ لستَ من هُواة اليوزرفورم و أردتَ القيام بذلك من خلال شيت الاكسل .. عليكَ فقط بتقسيمِ فَيْلق " الباشْمارْكة " من داخل اليوزرفورم إلى كتائب صغيرة من الموديلات و ربطها بأزرار أمر .. تمامًا مثلما هو موضّح بالملف رقم 2 المرفق أدناه .. فائق إحتراماتي عبد العزيز البسكري الملف 1.rar الملف 2.rar

السلام عليكم ورحمة الله وبركاته لقد تناولت فى موضوعى السابق " إزالة أو إبقاء آثار التنسيق الشرطى " على الرابط التالى http://www.officena.net/ib/topic/64950-%D8%A5%D8%B2%D8%A7%D9%84%D8%A9-%D8%A3%D9%88-%D8%A5%D8%A8%D9%82%D8%A7%D8%A1-%D8%A2%D8%AB%D8%A7%D8%B1-%D8%A7%D9%84%D8%AA%D9%86%D8%B3%D9%8A%D9%82-%D8%A7%D9%84%D8%B4%D8%B1%D8%B7%D9%89/ كيفية ازالة التنسيق الشرطى و تبعاته من تنسيقات ... أو الابقاء على تلك التبعات والتنسيقات و تحويلها من تنسيقات شرطية الى تنسيقات عادية و اليوم بإذن الله تعالى أقدم لكم كودا بسيطا لكن يمكن أن تكون آثاره و نتائجه من وجهة نظرى المتواضعة جميلة و مبهرة و الرأى لكم فى النهاية الكود : Sub creatingFormats() On Error Resume Next For Each cell In Range("data") Range("formats").Cells(cell.Value).Copy cell.PasteSpecial Paste:=xlPasteFormats Next cell On Error GoTo 0 Application.CutCopyMode = False End Sub الكود يقوم بعمل تنسيقات عادية فى نطاق محدد هو data طبقا لتنسيقات يمكنك تعييرها فى خلايا نطاق آخر هو formats يمكن تطويع هذا الكود فى حال الرغبة فى عمل تنسيقات عادية متعددة داخل نطاق . تحياتى لكم و الى اللقاء بإذن الله تعالى مع كل جديد ومفيد كن حذرا ... أبو ضحكة جنان قاعد لك فى الملف أخوكم مختار حسين محمود الصعيدى تنسيقات بلا حدود.rar تنسيقات بلا حدود.rar

اليك الحل بواسطة الماكرو combo box_Macro.zip

قلت لك على الخطأ قبل ما يحصل وقلت لك تعمل ايه ..!!

السّلام عليكم و رحمة الله و بركاته أخى الغالى المهندس ياسر فتحى بارك الله فيك وجعل فى ميزان حسناتك ... الدال على الخير كفاعله

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

واذا ما اردت المستخدم يشوف التقرير ، اخفيه DoCmd.OpenReport "medicine", acViewPreview, , , acHidden DoCmd.PrintOut , , , , Me.t3 DoCmd.Close acReport, "medicine" جعفر

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

يأخي جرب قبل ما تتكلم هذا الملف بدون تغيير الكود نهائيا وقبل تجربة كود استاذنا الغالي ابو نصار ترحيل البيانات لأعمدة محددة بدون صفوف فارغة لورقة عمل جديدة + 4444.rar

تحية طيبة اخي alshamal بداية يبدو ان الدالة لا تقرب الارقام التي تحوي صفر و حسب بل إنها لا تقرب الارقام الزوجية اي انها لا تقرب 40.5 و 42.5 و 44.5 و 46.5 و 48.5 الى الرقم الاعلى بل تترك الرقم على حاله الا اذا اصبح الرقم بعد الفاصلة 51 على حين انها تعمل مع الارقام الفردية بالنسبة الى المرفق الذي ارسلته لي هو لا يفي بالغرض لانك اذا وضعت المؤشر على الرقم ترى انه يظهر بصيغته الاصلية و هذا لا يجدي نفعا تم إيجاد حل و هو على هذا الرابط http://www.officena.net/ib/topic/65041-%D8%A7%D9%84%D8%AF%D8%A7%D9%84%D8%A9-tround/ وجزيل الشكر للجميع

وبما ان الاستعلام الذي استعملته هنا هو استعلام جدولي ، فاليك نصيحة كلفتني غاليا حتى عرفتها: http://www.officena.net/ib/topic/61853-فلتر-التاريخ-نصف-سنوى/?do=findComment&comment=401042 جعفر

قم بضبط منطقة الطباعة Print Area >> من خلال التبويب Page Layout ثم Print Area ثم حدد النطاق المطلوب العمل عليه .. لا أدري ما المشكلة لديك ولا يمكن التخمين لأبعد من هذا الحد إذا استمرت المشكلة يرجى إرفاق ملفك الأصلي بعد مسح البيانات الحساسة التي بالملف الأصلي تقبل تحياتي

أخي الكريم مصطفى صراحة لم أتابع الموضوع منذ البداية ولكن اطلعت على ملف أخي الحبيب أبو نصار .. واطلعت على سؤالك الأخير بخصوص أن أوراق الطباعة أكثر من صفحتين روح للتبويب View ثم اختر الأمر Page Break Preview ستجد خطوط زرقاء سميكة يمكنك من خلالها التحكم في الصفحات المطلوب طباعتها ..قم بسحب هذه الخطوط بحيث يتناسب مع طلبك أرجو أن يكون المطلوب

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

ولا يهمك ، هذه الطريقة: 1. انت عملت استعلام كمصدر لنموذجك ، انا استعملته في استعلام ، وذلك لأن به جميع الحقول التي تريدها لنموذجك: . وهاي نتائجه: . ثم استعملت هذا الاستعلام لعمل استعلام ثاني ، فقط لأحسب اسماء العملاء في الاستعلام السابق: . والنتيجة: . والان اصبح عندي استعلام به الحقول ، واستعلام آخر به عدد اسماء العملاء ، فعملت استعلام ثالث ، وجبت فيه الاستعلام الاول و الثاني ، وربطت الاستعلامين باسم العميل (لاحظ اسم العميل موجود في الاستعلامين): . والنتيجة ، جميع الحقول التي نريدها ، مع حساب اسماء العملاء: جعفر

الاساتذة الفضلاء : ابي نصار وزيزو و ابي البراء .. لكم مني كل الثناء .. فنحن الى جواركم :نتعلم الف باء .. اذهب الله عنا جميعا كل بلاء

السلام عليكم انا لم اتطرق الى النموذج ، وانما عملت 3 استعلامات ، وعندما تضيف اي شئ للجدول ، فتلقائيا ترى نتيجته في الاستعلام ، ولا داعي لعمل حقل خاص له في الاستعلام هل قصدك اذا النتيجة = 0 مثل الصورة التاليه فلا تريد اسم محل "روكرز" يظهر في التقرير ، هكذا: جعفر 271.مشكلة الصفر وباقى المحلات.accdb.zip

تفضل اخي الغالي ما طلبت وظبط انت تعديلاتك بقي وياريت الاخ عبد العزيز يحط النص المتحرك form111.rar

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

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

ياسلام!! اذا أنا صح فانت المُكافأ ، واذا خطأ فأنا المُعاقب!! بس حلوة طريقة استعلام الـ Crosstab ، يافنان انت جعفر

هذه الرسالة تظهر لانه يوجد خطا بخلية ادخال رقم الجلوس حمل الشيت من جديد وادخل بياناتك بطريقة صحيحه وان شاء الله لن تجد اي مشكلة به بانتظار تجربتك وردك

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

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

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل nasersaeed جرب الملف المرفق لعله يفي بطلبك بانتظار ردك كشوف المناداة وأرقام الجلوس.rar

السلام عليكم ورحمة الله وبركاته بعد اذن اخي وحبيبي في الله الاستاذ محمد ابو البراء لقد ازلت معادلة IFERROR بصفحة كشوف المناداة فقط لان هذا طلبك لانها مش موجوده في أوفس 2003 وهي اللي بتظهر علامة الخطأ عندك ويمكنك الانا استعمال كشوف المنادة بسهولة على اوفس 2003 تحياتي لك الاصدار الأول _ كشوف المناداة + أرقام الجلوس.rar

اخواتي العزاء العمل لم يكتمل بعد هناك نواقص في العمل وهي تعديل تاريخ الميلاد عند الدخال اوريد ان تكون سنة فقط ايضافة(( عدد العلاوات )) بعد ((الدرجة)) في واجهة * بعد ((عدد العلاوات)) في الجدول يضافة الاتي (( الرتب الاساسي)) (( علاوات اخرى)) (( تسويات اخرى)) وتكون ضاهرة في واجهة الرئيسية وعند طباعة بيانات موظف تكون خالية من اي شعار لان عندي الورق فية شعار العمل ملفات مرفقة شئون الموظفين 7 (1).rar 296.73كيلو علي من يجد في نفسية اكمل العمل لايبخل علينا باكملة ونكون لهو شكرين وتعم الفيدة علي الجميع تحياتي اخوكم اسد الجبل

السلام عليكم بالنسبة لاكواد الحفظ هنا يمكننا تعطيل الحفظ باسم وتفعيل الحفظ العادي Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = True Then Cancel = True End Sub وهنا بالعكس يمكننا تعطيل الحفظ العادي وتفعيل الحفظ باسم Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True If SaveAsUI = True Then Cancel = False End Sub