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

جميع أعضاء المنتدى هنا لمساعدة الجميع ...... كل من يعرف الاجابة لديه القدرة على المساعدة بارك الله فيك

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

هل كان يعمل البرنامج بدون مشاكل أم لم يعمل من الاساس ؟؟؟

أما برمجيا فجرب هذا الكود في حدث عند التحميل للنموذج ... If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "1" Then CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" End If

حسب علمي لايمكن اصلاح هذه الرسالة في القاعدة الحالية قم بعمل قاعدة بيانات جديدة ثم استورد جميع الكائنات اليها والاهم من ذلك يجب معرفة سبب ظهور هذه الرسالة ::بالتوفيق::

نعم هي بمعنى "و" وتستخدم في لغة سي وفي اكواد بي اتش بي بنفس المعنى لربط سلسلتين نصية او اكثر ومع ذلك لها استخدام اخر في اوراكل

حيث ان الدالة () SUM تتجاهل النصوص و تعتبرها صفر لذلك يمكن استعمال هذه المعادلة بكل بساطة =SUM(B4:C4)/2

اذا كان المطلوب تمكين الماكروا يدويا .... تفضل .. من ملف --------> خيارات ---------> مركز التوثيق ---------> إعدادات الماكروا ---------> انظر الصورة

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

برنامج التقسيط.rar اخواني اعتذر لعدم وجود وقت لرفع نسخة من الملف تقبلو التحية رجب فاروق

السلام عليكم أقد م لكم مكتبة أكواد الاكسيس حصاد 9 سنوات نسأل الله القبولVBALibrary.rar

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

إخوتي الاعزاء فكرة اليوم التحكم بالوقت ( الساعة ) Time Control كلمات استدلالية اضافة وقت - طرح وقت - On Timer - DateAdd - نموذج - كود التطبيق جزء من تصور شامل اقتطفت لكم اليوم فكرة التحكم و السيطرة على الوقت حيث يحتوي النموذج F2 ( من أعلى اليمين) حقل غير ممكن لليوم يظهر اسم اليوم حقل غير ممكن لليوم يظهر تاريخ اليوم حقل غير ممكن للساعة يظهر الساعة ( 12 ساعة AM . PM ) (مفعل مع On Timer) حقل غير ممكن للساعة يظهر الساعة مع الثواني (مفعل مع On Timer) – 1000 تساوي ثانية واحدة ثم مجموعة ازرار وحقل غير منضم ( في الوسط ) حقل غير منضم ممكن للساعة يظهر قيمة افتراضية للوقت (الساعة الثامنة صباحا) (ساعة بداية الدوام) ( يمين من الاعلى للأسفل +) زر لاضافة دقيقة واحدة على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة خمسة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة عشرة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة ستون دقيقة ( ساعة واحدة) على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي ( يسار من الاعلى للأسفل -) زر لطرح دقيقة واحدة على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح خمسة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح عشرة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح ستون دقيقة ( ساعة واحدة) على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي ( يمين أسفل الوسط) زر للعودة للوقت الافتراضي في حقل الوقت الافتراضي ( يسار أسفل الوسط) زر لتثبيت الوقت الحالي في حقل الوقت الافتراضي الاضافة و الطرح للوقت تتم باستخدام طريقة DateAdd حسب البنية التالية T1 = DateAdd("h", 1, T1) ولسان حال الكود يقول في الحقل T1 تعامل مع (n دقائق ) ( h ساعات) , (1 بالاضافة) (1- بالطرح) , من أصل قيمة الحقل T1 وكفى ... وفي التطبيق مزيد توضيح NA_TimeControl.rar

سؤال رائع,,, خاصة مع كبار السن امثالي لكي يميزوا بالوالوان الكائنات ماهية الاشياء سابحث عن الموضوع واوافيك بالنتيجة ان شاء الله

مرحبا باصديق @qassim-t الغرض من السؤال لدي قاعدة بيانات تحوي تحتوي على مجموعة ضخمة من الجداول والنماذج وحتى الاستعلامات وأريد ان اميز كل مجموعة باللون ليسهل التعامل معها كمثال نماذج الأساتذة عن نماذج عن نماذج الطلاب والماجستير والدكتوراة الخ وكذلك الجداول والاستعلامات أتصور وضحت لك الصورة وشكرا للمورك

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

ليس حسب علمي ، ولكني لا استغرب اذا كان هناك كود يقوم بذلك !!

شكرا لك و لجميع الزملاء متدى officina. كان الحل بسيط و منكم نتعلم

جزيل الشكر لحضراتكم ربنا يجعله فى ميزان حسناتكم

بارك الله فيك أستاذ وجيه معادلة ممتازة ولإثراء الموضوع بعد اذنك هذه معادلة اخرى =OFFSET(Sheet1!$B$3:$B$33,COLUMN()-COLUMN($C$2)+((ROW()-ROW($C$2))*(ROWS(Sheet1!$B$3:$B$33)/$B2)),0,1,1) نقل بيانات من عمود الي صف بكود.xlsm

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

السلام عليكم 🙂 هكذا يمكنك عمل مجلد موثوق به على جهازك : . اذا شغلت البرنامج من مجلد غير موثوق به ، فلما تفتح البرنامج لأول مرة ، يعطيك هذا الشريط الاصفر ، والذي يجب ان تنقر على زر "تمكين" : . ولكن وللأسف الشديد ، فمعظم المبرمجين يقومون بعمل خاطئ وشائع ، بجعل النموذج منبثق ، والذي يملئ الشاشة بالكامل ، مما يجعل الشريط خلف الصورة ، فلن تراه ، واستعمال "شكلي او مشروط = نعم" ، مما لا يسمح لك ان تعمل اي شيء في الشاشة !! فيمكنك عمل التالي (اذا كنت محظوظ ولم يقفل عليك المبرمج هذه الطريقة) : امسك مفتاح الشفت على الكيبورد ، ثم انقر مرتين على ايقونة البرنامج لفتحة ، ولا تترك الشفت الى ان يفتح البرنامج ، ثم اعمل مجلد موثوق به (كما في الصورة اعلاه) ، ثم اغلق برنامجك ، ثم انقل برنامجك الى ذلك المجلد الموثوق به ، وافتح البرنامج من هناك 🙂 جعفر معلومة اضافية : او افتح برنامج الاكسس من قائمة Microsoft Office ، وقم بعمل مجلد التوثيق منه 🙂

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

جرب المثال المرفق ترقيم.accdb

السلام عليكم ضروري من إرفاق ملف تشرح فيه المطلوب إليك هذه المحاولة،حسب فهمي لطلبك ،أتمنى أن تفي بالغرض: والسلام عليكم غير موجود بالمخزن.xlsx

يمكنك تحميل هذا البرنامج -هيساعدك في فك كلمة السر ان شاء الله Passware Passware Kit Forensic.v13.5.8557.x32-BRD تفضل هذا هو رابط البرنامج http://www.mediafire.com/file/dra8c3as8fb2dnf/Passware_Passware_Kit_Forensic.v13.5.8557.x32-BRD.rar/file

السلام عليكم و رحمة الله و بركاته اليك المثال ب اضافة تنقل بين عناصر القائمة ب ازرار الاسهم test.accdb من اجل تحديث مصدر الصف الكومبو ، مع كتابة كل الحرف ينتقل التركيز الى Txt ثم تحدث مصدر صف القائمة ثم ينتقل الي القائمة مرة اخرى و هكذا لان لايمكن تحديث مصدر الصف و داخله تركيز بتوفيق،،،

السلام عليكم اساتذتى واخواتى الكرام -أقدم لكم برنامج يهم كل العاملين بالتربية والتعليم وهو برنامج مرتبات المعلمين من أعمال وتنفيذ الأستاذ المحترم شعبان عطية الصباغ البرنامج يستخرج جميع المرتبات ويقسم ويجمع ويطرح بدون تدخل منك . تعليمات العمل على الشيت نأتي لطريقة العمل على الشيت فى صفحة ( بيانات ) يتم ادخال اسم المدرسة وشهر تحرير الاستماره فى الخانات الخاصة بها فقط حسب السهم أعلى يسار الصفحة ولا يتم ادخال أى بيانات أخرى بهذه الصفحة أولا : شيت المعلمين التابعين للقانون 155 والعمال المتعاقدين والمدرسين المتعاقدين خانات يتم ملئها يدويا وبدونها لايعمل الشيت بشكل سليم أولا : - جانب الاستحقاقات الاسم وبمجرد ادخال الاسم يتم الترقيم تلقائيا فى خانة المسلسل الوظيفة ويتم اختيارها من سهم القائمة المنسدلة وهى درجة الموظف الحالية التى يتقاضى عليها الحوافز والبدلات مع ملاحظة ان عامل متعاقد تشير للعامل المتعاقد ( 150جنيه) بينما معلم متعاقد تشير للمعلم المتعاقد (200جنيه) الدرجة للأعباء ويتم اختيارها من سهم القائمة المنسدلة وهى درجة الموظف التى يتقاضى عليها علاوة الأعباء حيث لا تتغير قيمة العلاوة عند ترقية الموظف 33% للعمال نظرا لحصول بعض العمال المتعاقدين على حكم ال33% يتم كتابة رقم 1 فى الخانة ليتم اعطائهم قيمة الحكم تلقائيا غير ذلك تترك الخانه فارغة اساسى 6 /2015 ويتم احتساب الحوافز والبدلات على اساسه اساسى 7 /2017 ويتم على اساسه حساب المعاشات الأساسية والزماله وخلافه ال3 علاوات الخاصة التى لم تضم للأساسى كل فى العمود الخاص بها ( 2013 - 2014 - 2015 ) قيمة العلاوتين الاجتماعية والاضافية فى العمودين الخاص بها اى مستحقات أخرى فى حالة حصول المعلم على أى مستحقات أخرى مثل بدل تفرغ أو حافز ماجستير أو دكتوراه يتم كتابته بالخانات الخاصة بذلك ويمكن تعديل رأس العمود لتناسب المسمى المطلوب مجموع ال3 علاوات وتوضع نهاية الشيت العامود ( DG) وهى مجموع ال3 علاوات التى تم ضمها للأساسى (علاوة ال10 % لسنة 2016 و علاوة ال10 % لسنة 2017 م وكذا علاوة الغلاء بنسبة ال10% ومجموع العلاوات ضرورى فى حساب الضرائب طبقا لنموذج الضرائب لسنة 2017 م ملاحظات هامه 1 - فيما عدا ما سبق لايتم ادخال أى بيانات يدويا بباقى الأعمده لعدم العبث بالمعادلات بها وحتى تخرج النتائج بشكل سليم 3 - توجد بعض الحالات لمن لا يتقاضون بدل الاعتماد ويتم منحهم زيادة فى حافز الأداء أو نسبة ال 91% يتم تعديل قيمة البدل بالمعادلة امام مسمى المعلم بمعرفة مسئول التطوير أو احد ملم بكيفية عمل ذلك ثانيا : - جانب الاستقطاعات يتم ادخال أى استقطاعات خاصة بكل معلم ان وجدت مثل الرابطة - مهن اجتماعية - مهن تطبيقية الخ ويمكن تعديل عنوان العمود ليناسب كل مدرسة مع ملاحظة التعديل بمفردات المرتب بنفس التعديلات ملاحظات هامه 1 - لا يتم التعديل بعامود قسط الاعارة والمدة السابقة حيث تدخل فى حساب الضرائب 2 - فى حالة اشتراك الموظف بالبحث العلمى لايتم كتابة شىء بالعامود وبمجرد ادخال ال4 جنيه بخانة الخدمات العمالية يتم حساب البحث العلمى تلقائيا لذا يرجى عدم تغيير عنوان العامودين 3 - يرجى عدم التغيير بعناوين الأعمده الا فى حالة الضرورة وذلك لارتباطها بمفردات المرتب وكشف التظهير وتوجد اعمده كثير مخفية يمكن الكتابة بها 4 - يوجد بعد عامود اسم البنك فى نهاية الشيت اعمده خاصة بحساب الدمغة والضريبة لا يتم العبث بها نهائيا ليتم حسابهما بشكل سليم 5 - يتم كتابة اسم البنك بكشف البنك امام كل مدرس ثانيا : شيت الاداريين ومشرفى النشاط والتابعين للقانون 81 لسنة 2016 م خانات يتم ملئها يدويا وبدونها لايعمل الشيت بشكل سليم أولا : - جانب الاستحقاقات الاسم وبمجرد ادخال الاسم يتم الترقيم تلقائيا فى خانة المسلسل الوظيفة ويتم كتابتها ولا يؤثر المسمى على أى شىء ومهم لمفردات المرتب الدرجة ويتم كتابتها ولا يؤثر المسمى على أى شىء ومهم لمفردات المرتب نقابى + حكم ركز معايا شويه الشيت اسهل من شيت المدرسين لو اتنفذ العمود ده بشكل سليم عارف طبعا ان الاداريين بالنسبه للنقابه اما نقابى أو غير نقابى وبالنسبه للحاصلين على الحكم بال33% اما واخد حكم أو مش واخد متفقين من السهم الموجود بالعمود ده هاتختار الأرقام من صفر وحتى الرقم 3 على النحو التالى : - 0 ويوضع امام الادارى غير النقابى والذى لم يحصل على حكم بال 33% 1 ويوضع امام الادارى النقابى والذى لم يحصل على حكم بال 33% 2 ويوضع امام الادارى غير النقابى والذى حصل على حكم بال 33% 3 ويوضع امام الادارى النقابى والذى حصل على حكم بال 33% اساسى وهمى ويتم على اساسه حساب المعاشات الأساسية والزماله وخلافه اساسى 30 / 6 / 2015 ويتم على اساسه حساب الأجر المكمل كل حسب موقفه من الحكم والنقابه اجر وظيفى + 7% ويتم على اساسه حساب الأجر والمتغير والمعاشات وكل شىء العلاوة التعويضية وحسابها من جملة المكمل والمتغير بدلات أخرى إن وجد ملاحظات هامه 1 - احيانا ونظرا لجبر الأرقام طبقا لتعليمات الماهيات تجد رقم 1 موجود فى خانة ال33% للناس اللى مش واخده حكم معلش امسحه وضيفه يدويا على خانة ال50 % ثانيا : - جانب الاستقطاعات يتم ادخال أى استقطاعات خاصة بكل إدارى ان وجدت مثل الرابطة - مهن تطبيقية الخ ويمكن تعديل عنوان العمود ليناسب كل مدرسة مع ملاحظة التعديل بمفردات المرتب بنفس التعديلات ملاحظات هامه 1 - لا يتم التعديل بعامود قسط الاعارة والمدة السابقة حيث تدخل فى حساب الضرائب 2 - فى حالة اشتراك الموظف بالبحث العلمى لايتم كتابة شىء بالعامود وبمجرد ادخال ال4 جنيه بخانة الخدمات العمالية يتم حساب البحث العلمى تلقائيا لذا يرجى عدم تغيير عنوان العامودين 3 - يرجى عدم التغيير بعناوين الأعمده الا فى حالة الضرورة وذلك لارتباطها بمفردات المرتب وكشف التظهير وتوجد اعمده كثير مخفية يمكن الكتابة بها 4 - يتم كتابة اسم البنك بكشف البنك امام كل إدارى ملاحظات هامة على البرنامج ككل 1 - يتم ترحيل البيانات تلقائيا لكشف التظهير للكل أو للبنك وكذا اقساط الزماله وكشف 2 تأمين ومعاش ويرجى المراجعة بعد التنفيذ 2 - يتم كتابة بيانات القصاصات يدويا او بعمل ارتباط فى الخانات الخاصة بها بمعرفة مسئول التطوير 3 - قبل الطباعة يتم اخفاء جميع الأعمده الخالية من البيانات والتعديل على تخطيط الصفحه حتى تظهر الأرقام بحجم ملائم للعين 4 - قبل الطباعة يتم جعل تنسيق الشيت بدون لون ( ابيض ) للتكلفة ولوضوح الأرقام ثم حفظ الصفحه بتنسيق pdf لتلائم الصفحة فى الطباعة 5 - اذا تم العمل بالبرنامج بشكل سليم عند عمل تسوية ضريبية سنويه فى نهاية العام لن توجد على الموظف أى مبالغ حيث تم احتسابها شهريا وبشكل سليم بعد مراجعة الضرائب بشبين الكوم 6 - عند حساب مكافأة الامتحانات لا يتم خصم أى مبالغ لحساب الضرائب حيث تم تسويتها شهريا ودفع ضرائبها مع المرتب على 12 شهر بدلا من خصمها مرة واحده مما يؤثر على قيمتها وذلك لجميع العاملين بالتربية والتعليم سواء الخاضعين للقانون 155 ( الكادر ) أو التابعين لقانون 81 لسنة 2016 ( الخدمة المدنية ) وهذا هو البرنامج-أتمنى ان ينال اعجابكم وعليكم بالدعاذ لصاحب هذ البرنامج بارك الله فيه وجزاه الله كل خير وجعل الله هذا العمل فى ميزان أعماله برنامج عمل مرتبات المعلمين الجديدة 2019.xlsx

وعليكم السلام-تفضل دمج جميع صفحات الملف فى صفحة واحدة.xlsm

أحسنت استاذ عبد اللطيف بارك الله فيك

بارك الله فيك استاذنا الكريم معادلة ممتازة

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

تفضل لك ما طلبت متابعة دوام.xlsx

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

تفضل اخى الكريم بعد اذن الأستاذ وجيه يمكنك استخدام هذه المعادلة لأعلى مرتب =SUMPRODUCT(MAX((ورقة1!$B$2:$B$13=$B2)*(ورقة1!$D$2:$D$13))) وبالنسبة لأقل مرتب يمكنك استخدام هذه المعادلة =DMIN(ورقة1!$B$1:$D$13,3,$B$1:B2)

وعليكم السلام -كود ممتاز استاذ ابراهيم احسنت كل عام وانتم بخير تقبل الله منكم سائر الأعمال

بارك الله فيك

وعليكم السلام كل عام وانتم بخير ادراج التاريخ عند الاستلام.xlsm

جزاك الله كل خير أستاذ مجدى عمل رائع

أحسنت استاذ مجدى بارك الله فيك وزادك الله من فضله

ممتاز أستاذ مجدى عمل ممتاز وكل عام وحضرتك والأمة الإسلامية بخير ورمضان كريم

بارك الله فيك استاذنا الكريم وزادك الله من فضله

بارك الله فيك وجزاك الله كل خير

جزاك الله كل خير استاذ مجدى

أحسنت استاذ مجدى بارك الله فيك

أحسنت استاذ مجدى عمل رائه بارك الله فيك وزادك الله من فضله

اعرض الملف شيت اكسيل لحساب الفائدة وفقا لسعر البنك المركزي شيت اكسيل يتيح حساب الفائدة لعدد 100 مبلغ وفقا لسعر الفائدة المعلن من البنك المركزي من 1 / 7 / 2010 الي 9 / 3 /2019 صاحب الملف احمد ابوزيزو تمت الاضافه 09 مار, 2019 الاقسام قسم الإكسيل

السلام عليكم ورحمة الله تم تعديل الكود حسب المطلوب... تم إضافة نطاقين مطاطيين بالتسمية: "محطة" لعمود اسم المحطة و"سيارة" لعمود رقم السيارة من شيت "تحميل" (تخفيفا لعمل المعادلات). بن علية حاجي عدد مرات التحميل + اسماء المحطات.xlsm

فقط عليك وضع هذا الكود فى موديول عادى Public CntTme As Double Sub StartClock() ActiveSheet.Range("N1").Value = Now() CntTme = Now + TimeSerial(0, 0, 1) Application.OnTime CntTme, "'" & ThisWorkbook.Name & "'!StartClock", , True End Sub ثم بعد ذلك عليك بوضع هذا الكود فى حدث This Workbook Private Sub Workbook_Open() StartClock End Sub لابد ان يكون امتداد الملف Xlsm

السلام عليكم اخي الكريم بفرض انه الرقم في خلية A1 =SUMPRODUCT(--MID(A1,ROW(INDIRECT("1:" & LEN(A1))),1)) تحياتي