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

وتماما للفائدة أحب أن أقدم تفاصيل التجربة لتعم الفائدة وأشارك الأساتذة الكرام بالأجر أولا - استخدام نسخة الأكسس الانكليزية عند تصميم البرنامج سيحد من حدوث هذه المشكلة التى عانيت منها لذا أنصح باستخدامها اخوتى المبتدئين أمثالى - ومن أراد التحول الى النسخة الانجليزية فلا داعى لتسطيب النسخة من جديد بل كل ما عليك فعله تغير اعدادات اللغة بالأكسس من العربية <افتراضى> الى الانجليزية <افتراضى> ثانيا - وهو الخيار الصعب اذا كنت قد قمت بتصميم البرنامج ثم لم يعمل معك على جهاز آخر _ أو أنك تريد العمل على النسخة العربية من الأكسس فلا بد من أن لا يكون أحد عناصر التحكم اسمه بحروف عربية وأعنى بكلمة اسمه خاصية Name وليس Caption فلا يضر ان كانت خاصية Caption تحوى حروف عربية ........ وكذلك لا بد من تغير اسم عنصر التحكم سواء كان خلفه كود أو لم يكن وكذلك أسماء الجداول - الاستعلامات - النماذج - التقارير - الماكرو - الوحدات النمطية - .. لا بد أن تكون هى ومكوناتها مسماة بحروف غير عربية - للأسف - وقد صنعت أداة بدائية لتغير أسماء عناصر التحكم بالنماذج والتقارير بشكل سريع لتوفير العناء بهذه المرحلة وكذلك لا يجب أن يحوى محرر الفجوال بسك على حروف عربية كنصوص الرسائل وغيرها وقد استخدمت أداة لصناعة الرسائل الفضل يعود فى صناعتها لله ثم للأستاذ جعفر وبامكانك استخدامها ببرامجك المختلفة فهى سهلة الاستخدام كل ما عليك فعله هو تصدير الفورم و الجدول الى برنامجك وفقط وكل ما عليك فعله بعد حفظ الرسائل من خلال الفورم ومعرفة رقم الرسالة هو أن تستدعيها بهذا الأمر MakeMsg(1) ' 'أو If MakeMsg(1) = VbYes then ثالثا - وهذه المعضلة التى واجهتها فى النهاية وقد من الله على بهذا الحل وهو: أن تنشأ ملف أكسس جديد فارغ ثم تستورد اليه كل مكونات برنامجك القديم - فإن محرر الفجول يحتفظ بأسماء عناصر التحكم القيمة حتى بعد تغيرها ولا أدرى لماذا ولم تفلح معه عملية الضغط والاصلاح ولكن انتهت المشكلة بعد ععملية الاستيراد والحمد لله هذه تفاصيل التجربة لعل الله أن ينفع بها وآسف على الاطالة

أخي العزيز صلاح حاول أن تقوم بتوضيح طلبك بشكل أفضل .. لم أفهم وجهة نظرك أو طلبك في الموضوع بشكل كامل ولكن على حسب ما أعتقد - وإن كنت لا أحب تقديم الحلول إطلاقاً على حساب التخمين والاحتمالات - إليك الكود التالي عله يفي بالغرض .. يقوم الكود بعمل حلقة تكرارية في ورق العمل الثانية ويقوم بالبحث باستخدام دالة Vlookup ولكن باستخدام الكود .. Sub Test() Dim Ws As Worksheet, Sh As Worksheet, Rng As Range, I As Long Set Ws = ورقة1: Set Sh = ورقة2 Set Rng = Ws.Range("A2:B" & Ws.Cells(Rows.Count, 1).End(xlUp).Row) For I = 2 To Sh.Cells(Rows.Count, 1).End(xlUp).Row On Error Resume Next Sh.Cells(I, 2).Value = Application.WorksheetFunction.VLookup(Sh.Cells(I, 1).Value, Rng, 2, 0) Next I End Sub أرجو أن يكون المطلوب إن شاء الله تقبل تحياتي

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

هذا الكلام صحيح ، والطريقة الاصح هي استخدام Recordset لقراءة المعلومة ، وهناك كود لربط الواجهة FE بالجداول BE ، اعتقد يمكن استعماله بتغيير بسيط للتأكد من وجود الشبكة :) انا على سفر ولا املك برامجي لوضع مثال :) جعفر وهناك طريقة سهلة وهي عمل ping للكمبيوتر الذي به الجداول ، ومعرفة اذا كان متصل :-)

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

السلام علكم كمشروع جماعي كان الافضل الا تعرض جميع هذه الكائنات كبداية تعرض الجداول الرئيسية ويتم النقاش حولها ثم يلحقها الجداول الفرعية ويتم القاش حولها ثم الجداول الخدمية ويتم النقاش حولها وهكذا خطوة خطوة وكائن كائن بنظرة خاطفة على الجداول بصورة عامة : الاعداد الفني جيد جدا ، العلاقات مبالغ فيها ، تصور انه يمكن اعداد البرنامج بدون اي علاقة بين الجداول العلاقة بين الجداول توضع غالبا لضبط والتحكم في الادخال وبصورة خاصة : ناخذ جدول tbl_emp 1- وجود اكثير من التكرار في الحقول كود الادارة .. اسم الادارة ، كود المهنة .. اسم المهنة ......... الخ يكفي في الجدول الكود فقط اما الاسماء فتجلب من الجداول الخدمية والا ما فائدة وجودها في قاعدة البيانات هذا مرور خاطف اتمنى ان يتسع صدرك لاراء اخوتك

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

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

جزاك الله كل خير يا ابو البراء على المعلومات البسيطه والقيمه ربنا يرضيك ياغالى

بالنسبة لكود جلب الصورة اليك الكود التالي Private Sub CommandButton2_Click() Dim strFileName As String strFileName = Application.GetOpenFilename(filefilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select a File", MultiSelect:=False) If strFileName = "False" Then MsgBox "File Not Selected!" Else Me.Image1.Picture = LoadPicture(strFileName) End If End Sub

شوف كدة الاستمارة الالكترونية.rar

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

في هذا الموضوع سوف تتعرف على جميع طرق تصوير الشاشة صور و فيديو للكمبيوتر و هواتف الاندرويد و كذلك تحميل افضل برامج تصوير الشاشه برابط مباشر من الموقع الرسمي لتكون قادر على عمل سكرين شوت و كذلك تصوير الشاشة فيديو لعمل الشروحات و شرح شىء معين في الكمبيوتر و رفع الفيديو على اليوت يوب. طريقة تصوير الشاشة للاندرويد هناك طريقتان لتصوير الشاشة لهواتف الاندرويد مثل ساسمونج جلاكسي او هواتف سوني و هي تعتمد على الضغط على ازرار الهاتف سوياً مثل: 1- الضغط على زر قفل الشاشة معه زر الرئيسية الموجود اسفل الهاتف في نفس الوقت و بسرعة و سيقوم بالتقاط صورة للشاشة سكرين شوت 2- الضغط على زر القفل بجانب الجوال و بعده مباشرة زر خفض مستوى الصوت او رفع الصوت على حسب نوع هاتفك يمكنك التجربة بنفسك طريقة تصوير الشاشة للكمبيوتر يوجد طريقة قديمة جداً من ايام ويندوز XP و هي الضغط على زر PRT SC الموجود في لوحة المفاتيح أعلى الاسهم ثم الذهاب الى برنامج الرسام و الضغط على Ctrl + v للصق صورة الشاشة التى تم التقاطها بواسطة الزر و من هنا يمكنك حفظ الصورة اما في ويندوز 7 او 8 او 10 يوجد برنامج يتم تنصيبه تلقائيا مع نسخة الويندوز فقط قم بالبحث عنه في قائمة إبدأ و هو يسمى Snipping Tool سهل و سريع في تحديد جزء معين من الشاشة لالتقاطها اما اذا كنت تريد برامج لتصوير الشاشة فيديو او صور فأرشح لك البرامج التالية 1- برنامج كامتزيا Camtasia يعتبر اشهر برنامج لتصوير الشاشة فيديو و صور و عمل الشروحات و الدروس على شاشة الكمبيوتر و رفعها مباشرة على اليوتيوب جودة عالية و مساحة صغيرة يمكنك الاعتماد على برنامج كامتزيا بشكل كلي لتصوير الشاشة صور و فيديو و ايضاً استخدامه كبرنامج مونتاج و تحرير الفيديو بعد التقاطه فيمكنك تقطيع و قص الفيديو و دمج المقاطع و اضافة النصوص و الصور بكل سهولة، يعتبر برنامج متكامل لـ التعديل على الفيديو شرح تثبيت البرنامج .. قم بالضغط على Next في الصور التالية و عند التسجيل تظهر هذه النافذة لضبط الاعدادات و تحديد الجزء المراد تسجيله فيديو او صورة في الشاشة و هذا هو محرر الفيديو او الصور الخاص بالبرنامج لمونتاج الفيديو بسهولة 2- برنامج سناج ات Snagit هذا البرنامج من نفس انتاج شركة برنامج كامتزيا و هي شركة Techsmith و يعتبر مثله تماماً في الفكرة و لكنه يخدم المستخدم و يريحه بصورة اكبر في عملية الالتقاط و التعديل على الصور و الفيديو بعد التقاطها شرح التثبيت بعد تحميل البرنامج قم بفتحه و الضغط على Install و بعد الانتهاء سيطلب منك الدخول يمكنك انشاء حساب جديد بكل سهولة و هذه هي واجهة البرنامج و محرر الفيديو و الصور و الآن مع تحميل برامج و تطبيقات تصوير الشاشة للكمبيوتر و الاندرويد المصدر: تصوير الشاشة فيديو برنامج سناج ات برنامج كامتزيا برنامج اسكرين شوت للاندرويد

قم بتصوير خلية أو عدة خلايا واعرض الصورة في الفورم cells camera in form.rar

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

حبيبي يابو العربي انت اللي بتقول كدا هو في حاجه صعبه عليك برضو

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

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

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

وجرب أيضا أن تضع هذا الكود في حدث بعد التحديث للحقل Itemid في النموذج الفرعي fsub Dim x x = DLookup("[itemid]", "tab_item", "[itemid]=[itemid]") If Not IsNull(x) = True Then MsgBox "كود الصنف المدخل" & " ( " & [itemid] & " ) " & "مسجلاً من قبل.. من فضلك أدخل رقم آخر", vbCritical, "تنبيه" Undo Else: Exit Sub: End If

ببساطة ممكن نضغ عمود مسلسل1 2 3 4 5 6 وهكذا امام كل اسم رقم ثم من DATA نرتب المسلسل من Z TO A ياتي المطلوب ارجو الرد على الفكرة

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

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

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

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

و عليكم السلام و رحمة الله و بركاته ... تفضل ... Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("[itemid]", "tab_item", "[itemid]=" & Me!itemid) > 0 Then MsgBox " duplicated fields", vbExclamation Me.Undo Cancel = True End If End Sub

السلام عليكم :) لا يُنصح بإستخدام الاكسس في شبكة وايرلس ، لأن الشبكة حتى لما تعمل بالطريقة الصحيحة ، فإنها تكون متقطعة ، فعليه تكون مشكلة في تواصل البيانات :( احد الطرق اللي ممكن تستعملها هي ، ان تكون نماذجك غير مضمنه / غير مربوطه بجدول او استعلام ، ويكون عندك زر لحفظ البيانات ، وقبل حفظ البيانات في الجدول ، يجب ان تقرأ من الجدول (تقرأ اي شئ ، فقط للتأكد ان الشبكة موجودة) ، وعندها تحفظ البيانات ، الطريقة الاخرى اللي على بالي هي ، ان تكون بياناتك محلية ، وبين كل فترة ، يقوم البرنامج ، وبعد التأكد من وجود الشبكة ، بنقل البيانات الى قاعدة البيانات الاصل :) جعفر

طيب ابعت لنا ملف بس اضغطه الأول قبل ما ترفعه .. عشان نشوف الملف شغال عندنا أو لا .. لو كان الملف شغال يبقا المشكلة في الويندوز وبس

السّلام عليكم و رحمة الله و بركاته قد جرّبت فتح الملف الآن فقط أخي الكريم .. ولم ألاحظ أي مشكلة ..

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

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

- بشكل عام هذا البرنامج خاص باي نوع من المؤسسات ( أعمال ) - نحن بصدد عمل برنامج كامل و جاهز للعمل عليه من قبل اي احد وفى نفس الوقت افكار لمن يريد عمل برنامج مشابه يستعين بهذا البرنامج ...

السلام عليكم اخي العزيز بارك الله فيك وعلى جهودك معي وفقك الله

بعد اذن اخي الغالي عبد العزيز تفضل اخي الغالي هذا التحديد يشير الى رقم الاداة في الانتقال وفي المثال هنا التكست المشار لها رقمها 1 والليست بوكس رقمها 2 عند الوقوف داخل التكست والضغط على زر TAB يتم الانتقال لرقم 2 وهي الليست للأنتقال من التيكست بوكس ل الليست بوكس مباشرة.rar

وعليكم السلام :) 1. انا جربت الكود قبل ان اضعه ، وجربته مرة اخرى الان ، وهو يعمل كما يجب ، فما قصدك انه "لا يقوم بتعديل القيمة في الجدول ويعطي احياناً اشارات -" 2. حتى ولو اخفيت السجل الجديد "والذي يظهر فيه New" ، فالمستخم يستطيع ان ينتقل الى الحقل الجديد وبدون ان يملئ بيانات الحقل الذي هو عليه ، فالطريقة الصحيحة لإجبارة ، هي كما اقترحت عليك. جعفر

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

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

حياك الله

السّلام عليكم و رحمة الله و بركاته أخي الكريم " عاطف عبد العليم محمد " هذا هو الكود المسؤول على جعل اليوزرفورم ملء الشّاشة : و هذه هي الخاصيّة التي تتيح لكَ إستعمال ورقة العمل و اليوزرفورم شغّال : و هذه التّجربة بالملف المرفق إحتراماتي فورم ادخال و تعديل مرن مع الطباعة.xlsb.rar

حل اخر (حيث ان الوقت يتعير كل ثانية) Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Range("xfd1") <> Date + Time Then Cancel = True End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$XFD$1" Then Range("a1").Select If ActiveSheet.Name = ("Sheet1") Then ActiveSheet.Range("$XFD$1") = Date + Time End If End Sub

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً على هذه المساهمة الطيبة

كدا أنا أزعل يلا فلاحجي ..جرب التعديل الأول وبعدين شوف هل سيكون التركيز على العموين بالكامل أم لا ...........!!! التركيز في العمودين سببه إنك استخدمت الكلمة Select .. جرب الكود مرة تانية بعد التخلص من كلمة Select وعمل اللازم وشوف التركيز هيوصلك لفين يا نور العين

لم يكتمل التعديل بعد .. يا فرحة ما تمت خدها أبو البراء وطااااااااار Columns("D:F").Select Selection.EntireColumn.Hidden = False ما هذا ألم تتعلم الدرس الفائت؟ وهذا السطر ما الفائدة منه ؟ Range("F9").Select ركز يا فلاحجي

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

استادنا الغالي / يوسف فين من زمان ابداعاتك الجميلة والمفيدة بارك الله فيك وجعله في ميزان حسناتك حلبي

السّلام عليكم و رحمة الله و بركاته أخي الكريم "عمر سليمان " ..محاولة حسب ما فهمته ربّما تفي بالغرض .. بالنسبة للتّفعيل .. استعمل الأداة المميّزة للتّفعيل " KMS PICO "

اخى الكريم يجب حفظ الملف بصيغه Xlsm أو Xlsb تقبل تحياتى

وإذا سمح لي أخي سليم سلمه الله من كل سوء بإثراء الموضوع (رغم ثرائه) لهواة الإكسل ومحترفيه: لحساب عدد (أيام العمل) بين تاريخين: * باستثناء العطلات الأسبوعية (الجمعة والسبت) * وباستثناء قائمة من الأجازات نستخدم هذه المعادلة: =SUM(INT((WEEKDAY(A2-{1,2,3,4,5})+B2-A2)/7))-SUMPRODUCT(--(C2:C10>=A2),--(C2:C10<=B2)) * ويمكن تغيير أيام العمل في الأرقام {1,2,3,4,5} حيث 1 يشير للأحد و 2 يشير للاثنين ..... وهكذا * ويمكن حساب عدد مرات يوم واحد السبت مثلا بين تاريخين باستبدال {1,2,3,4,5} إلى 7 بدون أقواس حيث تستعمل الأقواس مع اليومين فأكثر وهذه صورة للمعادلة ........................ ولا تنسوني من صالح دعائكم

اخى الكريم وجدتها وكان الكود me.t.value= numper حيث t هو اسم علامة الجدولة numper هو رقم فهرس الصفحة او التبوبي شكرا لك اخى الكريم لمساعدتك