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

السلام عليكم جرب هذه المعادلة لحساب اليوم =MOD(DAYS360(E8+IF(DAY(E8)=31;1;0);D8);30) اما الشهر والسنة تبقى المعادلات مثل المرفق في المشاركة الاولى تحياتي

Private Sub CommandButton1_Click() Dim cTxt As Control Dim iNm As Integer For Each cTxt In Me.Controls If TypeName(cTxt) = "TextBox" Then iNm = iNm + 1 Next MsgBox "Number Textbox this Userform is " & iNm End Sub

أخوتي الافاضل أبدأ بإذن الله معكم في هذا الموضوع مشروعا لفتح بوابة أخزن من خلالها كل ما يسمح به وقتي من مقتطفات وتلميحات وأفكار وتطبيقات بعضها ضروري وبعضها مفيد وبعضها قد يلزم وبعضها نحتاج لفهمه عند استخدامه و منها يلزم فهمه كيما نتقن استخدامة. فهي سلسلة تتوالى فيها الافكار من هنا وهناك ، نسأل الله العون للاستمرار وندعو الله ان تعم الفائدة وتتحقق. وأنتهج هنا التبسيط والشرح والتصوير وطرح الادوات والطرق واترك لابداعاتكم استخدامها حين تلزم. وبالتشاور مع الاخوة كان الرأي أن تكون هذه المشاركة بوابة للمشاركات التي تتعلق بالفكرة وتحوي عناوين وروابط المشاركات المعنية . مع شكري وتقديري لاخوتي ابو خليل و منتصر الانسي لتشجيعهم لي ومساهماتهم الطيبة . والله من وراء القصد ﴿وَمَا أَسْأَلُكُمْ عَلَيْهِ مِنْ أَجْرٍ إِنْ أَجْرِيَ إِلَّا عَلَى رَبِّ الْعَالَمِينَ﴾ الشعراء/109. ولكنني اطمع بصالح دعائكم بظهر الغيب كيف نستخدم التقويم ( لإختيار وتحديد التاريخ ) http://www.officena.net/ib/index.php?showtopic=36090 التحكم بالوقت ( الساعة) http://www.officena.net/ib/index.php?showtopic=36110 تغيير النموذج الفرعي ضمن نموذج رئيسي http://www.officena.net/ib/index.php?showtopic=36111 إضافة "إشعار حقوق الطبع والنشر" إلى قاعدة البيانات http://www.officena.net/ib/index.php?showtopic=36112 محرك بحث http://www.officena.net/ib/index.php?showtopic=35575 تطبيق نسخة تجريبية http://www.officena.net/ib/index.php?showtopic=34558 مربعات تحرير ذكية لاختيار التاريخ http://www.officena.net/ib/index.php?showtopic=36124 سجل تجميعي أفقي Horizontal Field طلب الأخ outnet وإبداع منتصر الآنسي http://www.officena.net/ib/index.php?showtopic=36136 ترصيد الاجازات The vacations Balance http://www.officena.net/ib/index.php?showtopic=36147 بحث و تحليل في قيم مركبة لحقل طلب نارت لبزو و تطبيق منتصر الآنسي http://www.officena.net/ib/index.php?showtopic=36156 .......

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

السلام عليكم و رحمة الله و بركاته الاخوة الاحباب بالمنتدى أقدم اليكم قاعدة بيانات للموارد البشرية HR الاصدار الثاني كلمة المرور : 111 و أسأل الله العلى العظيم أن ينفعكم بهذا العمل و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته HR 3 with listbox.rar HR for Windows 8 FADILA.rar

برنامج نظام الوثائق : إضافة - تعديل - حذف - بحث - تقارير لأخي الفاضل وأستاذنا أبوعبدالله اقترح الاخ ابو شرف في مشاركته في موضوع برنامج الوثائق مع التقدم الرقمي باضافة صور الوثائق مع الفورم لذلك وبعد اذن اخي ابوعبدالله صاحب الموضوع الاصلي قمت بتعديل بسيط علي برنامج نظام الوثائق ليشمل صور الوثائق الحماية (( 123)) بناء علي طلب بعض الاخوة الذين يستخدمون التقويم الهجري تم اضافة نسخة للتعامل بالتاريخ الهجري بالمشاركة رقم 18 برنامج الوثائق مع الصور.rar

لا احتاج الا لدعوة لوالدي بالرحمة والمغفرة لكبر البرنامج تم الرفع على الفور شير اشكر كل من ساهم معي في بناء البرنامج http://www.4shared.com/rar/ER1K4MGGba/__online.html تم إضافة المرفق الى المشاركة لعموم الفائدة ================================= المراكز الصحية.rar

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

ارفق لكم مثال لعيادة طبية المثال بسيط لكن فيه عملية بحث جميله جدا . يمكنكم الاستفادة من البرنامج بصورة عامة وليس البحث فقط. بحث متعدد.rar

مشكور يا بن مصر لمزيد من الاثراء اليك هذا الحل الاخر استخراج اول واخر حركة 1.rar

'طبعا ممكن ! ولكن عمل الكود في وحدة نمطية عامة ثم استدعاؤها ! ارفعي مرفق به كذا نموذج واحدها به الاوامر المطلوبة . تحياتي

أخوتى أسمحوا لى مشاركة هذه الكوكبة بهذا الحل لعد الأسماء الفريدة ضع أستخدم هذه الصيغة وهى معادلة صفيف أى لابد من الضغط على " ctrl+shift+enter" {=SUM(($C$3:$C$19<>"")/MMULT(0+($C$3:$C$19=TRANSPOSE($C$3:$C$19)),ROW(INDIRECT("1:"&COUNTA($C$3:$C$19)))^0))} وهذه للتسلسل =IF(COUNTIF(C$3:C3,C3)=1,MAX($B$2:B2)+1,INDEX(B$2:B2,MATCH(C3,C$2:C2,0))) تقبلوا تحياتى

الحل الأول لم يعجبني فإليك حل آخر بدون استخدام أعمدة مساعدة Count Unique2.rar

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

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

تفضل أخي الحبيب المرفق التالي قمت بإضافة عمود مساعد على يمين البيانات عشان الترقيم يتظبط خليت الأسماء على اليمين Count Unique.rar

اسف لم انتبه لتك المشاركة الحمد لله اخونا الفاضل Xima Alfadni، وضع لك رابط به شرح الموضوع .. برجاء قراءته .. خالص الشكر لأخونا الكريم Xima Alfadni تحياتي

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

السلام عليكم الرجاء الاطلاع على الرابط التالى : http://www.officena.net/ib/index.php?showtopic=56486&hl=

أستاذي أبو البراء الف ألف مبروك الترقيه عن جداره تستحقها جزاك الله خيرا على كل ما تقدمه لنا من دروس ، مساعدات ،نصائح ،توجيهات ...إلخ إستفدت اليوم من درس المتغيرات. طبقته في كود التالي تهنئه بخصوص الترقية Sub تهنئة() Dim MyYasser As String MyYasser = "ألف ألف مبروك الترقية.أستاذي أبو البراء" MsgBox MyYasser End Sub

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

تفضل أخى كما توقعت الأولى جمع الصفر مع شرط الأسم =COUNT(IF(ISNUMBER(SEARCH("محمد",$C$1:$C$13)),IF($E$1:$E$14=0,$E$1:$E$14))) المعادلة معادلة صفيف أى لابد من الضغط على " CTRL+SHIFT+ENTER" لعد الأسماء بإستثناء الأرقام =COUNTIF($C$1:$C$13,"*"&"محمد"&"*") ويمكن وضع رقم حلية بدل الأسم ك " FI " ويتم تغيرالأسماء منها بدل كتابة الأسم فى المعادلة جمع الصفر فى العمود بدون أى شروط أخرى =SUMPRODUCT(--(E1:E14=0)*(E1:E14<>"")) تقبل تحياتى الجمع بالعديد من الشروط.rar

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

شكرا لك اخي اسير على التعديل

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

اعمل بمحل لبيع المطابخ واريد برنامج اسجل من خلاله اسم العميل واجمالي قيمة العقد واسم البائع والدفعة المقدمة والدفعات التالية وتوافر استعلامات لكل من ( اجمالي المبيعات جميع المندوبين ولكل مندوب علي حده وايضا المبالغ المتبقية علي كل عميل وجميع العملاء ) وجزاكم الله خيرا مقدما علي ما تقدموه من مساعدات

الكود التالي لتوسيط العناصر في الفورم يمكنك التعامل معه لضبطه على ما تريد Private Sub Form_Load() DoCmd.Maximize Me.Command0.Left = (Me.InsideWidth - Me.Command0.Width) / 2 Me.Label1.Left = (Me.InsideWidth - Me.Label1.Width) / 2 End Sub

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

اخي الكريم تكون هذه المشكله عادة عندما يكون هنالك تنسيفات مختلفه لبعض الخلايا والتى تسبب فى كبر حجم الملف قم بالتاشير على الخليه A30 اخر خليه فى الجدول ثم كنترول + شيفت ثم سهم سار + سهم اسفل ثم clear format نزل حجم الملف من 118 ميجا الى 30 kb الملف بالمرفقات بعد ازالة التنسيقات فى الخلايا الغير مستخدمه مسودة الصف الرابع 00.rar

ملفك اخي الكريم مغلق برقم سري واعتقد ان المشكلة لديك في طريقة حفظ الملف اليك اخي الكريم ... كل امتدادت الاكسيل والفرق بينهم ( راجعهم واختار ما يناسبك منهم ) وان كانت المشكلة غير ذلك اخبرنا XLS تستطيع قرائتها بالإكسل 2003 XLS تستطيع الإحتفاظ بالكود فيها بداية من أوفيس 2007 ، تم استبدال XLS بثلاث إمتدادات xlsb ، xlsx ، xlsm وثلاثتهم لايستطيع الأوفيس 2003 قرائتهم إلا بإضافة أداة جديدة إضافية 1- الإمتداد xlsx لحفظ ملفات الإكسل العادية التي لاتحتوي علي أكواد ، فإن كتبت كود وحفظت الملف بهذا الإمتداد ولم تنتبه لرسالة التنبيه وأغلقت الملف ، فلن تجد الكود مرة أخري عند الفتح 2- الإمتداد xlsm لحفظ ملفات الإكسل التي تحتوي علي أكواد 3- الإمتداد xlsb لحفظ ملفات الإكسل (مع أكوادها) ، ولكن لاتستطيع عمل مشاركة لهذا النوع من الملفات للعمل بأكثر من مستخدم علي الملف في الشبكة ، أي Share وننصح باستخدام xlsb بدلا من xlsm لقلة حجم هذا النوع الملحوظة بالنسبة للآخرين (( إلا في حالة مشاركة الملف علي الشبكة )) ارجو ان اكون قد افدتك ولو قليلا تقبل خالص تحياتي

الدرس الاول على شكل ملف pdf الدرس الاول.rar

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

نعم اخي نفس المشكلة ، جزاك الله خيرا

رحم الله والدك رحمة واسعة وجزاك الله كل خير

الحلقة الثالثة طبعا واحد هيقولي ارحم نفسك .. كفاية كدا النهاردة ..!! أقولك ايه النهاردة أجازة وبعدين أنا عايز أخلص الشوية اللي دايما بنطول فيهم عشان نبدأ نتعلم جديد .. مش كل اما دورة تبدأ تلاقي الموضوع يبقا زي الفل وياخد وقته في البدايات والأساسيات وفجأة الدورة تتقطع .. هنتكلم شوية في الحلقة دي عن تسجيل الماكرو .. واحد رفع ايده وبيقول أيوا أنا متمكن فيها (أقوله كتر خيرك !) بس أنا مش عايزك متمكن .. إحنا بس هنستفيد من حكاية التسجيل دي في أمور معينة .. واحد تاني هيرفع ايده ويقول طيب أنا أقدر أعمل الكود بالشكل اللي أنا عايزة من غير ما يكون عندي فكرة بالأكواد ووجع الدماغ هقوله إنت صح وغلط .. صح من جهة وغلط من جهة .. بس مش هناقش الموضوع ده المهم نبدأ نشوف ايه حكاية التسجيل دي.. قبل ما نبدأ نتعلم إزاي نخلي نافذة الإكسيل ونافذة محرر الأكواد جبنا إلى جنب خلي عينك ع الاتنين ..!! نفتح الاتنين (بلاش الجمعه عشان أجازة الموظفين) نفتح النافذتين وبعدين نفعل نافذة الإكسيل ونضغط على علامة الويندوز اللي ف لوحة المفاتيح اللي ما بين CTRL و ALT في الناحية الشمال .. لو ملقتهاش يبقا إنت مرجعتش لوحة المفاتيح اللي قلت لك رجعها أو رجعتها بس نصب عليك تاني !! بنضغط على زر الويندوز + سهم شمال مثلا .. ونروح نفعل النافذة التانية ونضغط على زر الويندوز + سهم يمين . بحيث تكون النافذتين جنب بعض عشان نتأمل في جمالهم وهما جنب بعض كدا زي عريس وعروسة .. في محرر الأكواد : هندرج موديول جديد أو مش شرط .. وفي الإكسيل هنروح للتبويب Developer طبعا خلاص عرفنا إزاي نوصله ونضغط على Record Macro قبل ما نضغط منستعجلش نبص الأول على الشكل المرفق مع الأمر هنلاقي علامة دايرة حمرا ولو ركزنا في شريط الحالة اللي في أسفل تطبيق الإكسيل هنلاقي نفس العلامة .. معنى كدا إن تسجيل الماكرو متاح في التبويب وفي شريط الحالة (أضف إلى معلوماتك) لما نضغط عليه هنلاقي نافذة طلعت لنا بنسجل فيها اسم الماكرو واتعرفنا شروط الاسم ..وممكن نعمله اختصار وأنا مش بحب الحركة دي لأن الإكسيل ملياااااااااان اختصارات فممكن يحصل تعارض ما بين اختصارات الإكسيل والاختصار اللي سيادتك هتعمله .. إحنا شوية وهنتعلم إزاي نربط الكود بزر لتشغيله من داخل الإكسيل أو ورقة العمل أفضل. وبعدين بيقولك هتخزنه فين وأنا أفضل تتركه زي ما هو This Workbook لو فتحت القايمة دي هتلاقي فيه مصنف باسم Personal.XLSB ودا بيكون مكانه في البارتشن C: وبيكون مخفي وممكن تظهره عن طريق التبويب View ثم Unhide هتلاقي اسم المصنف موجود ممكن تظهره ..أنا بقا لا أحب أظهره ولا أخفيه أنا بحذفه عشان بيضايقني بظهوره في محرر الأكواد في نافذة المشروع .. دا مجرد ارتياح شخصي وطبعا إنت ليك كامل الحرية في حذفه أو عدم حذفه عشان ممكن شركة مايكروسوفت تزعل مني عموما المصنف دا لزمته ايه .. المصنف معمول إنك تخزن فيه الأكواد الخاصة بك عشان تقدر تنفذها في أي مصنف مفتوح بدون إدراج الكود مرة أخرى (بس يا سلام بقا لو أكوادك كلها اللي بتستعملها محفوظة فيه ومعندكش منها نسخة تانية وفجأة الكهربا تقطع ودا مبيحصلش كتير في مصر والحمد لله تلاقي الويندوز سقط والحمد لله أكوادك في خبر كان ) عموما هي ميزة بس أنا شايفها مش ميزة .. بالنسبة لمسار المصنف دا بيكون في : C:\Users\Administrator\AppData\Roaming\Microsoft\Excel طبعا Administrator دا اسم المستخدم بيختلف من جهاز للتاني .. روح للمسار ده هتلاقي المصنف احذفه وريح بالك (ليك مطلق الحرية) أنا طبعا شرحته بالتفصيل أهو رغم إني مش بستخدمه بس عشان محدش يقول إني قصرت ... آخر حاجة وصف الكود واللي هتكتبه هنا هيظهر لك على شكل تعليق .. بصراحة دي بقا رغم إن فيه كتير بيطنشها بس أنا شايف إنها مهمة .مهم جدا توثق أكوادك بتعليقات عشان تقدر بعد فترة لو حبيت تعدل على الأكواد تكون الأمور واضحة بالنسبة لك .. هتقولي أنا اللي كاتب الكود وحافظ كل كبيرة وصغيرة فيه ... يتهيأ لك والله أنا ساعات أندمج في كتابة كود بشكل معين وبعد فترة أحتاج للكود تاني أقوم أروح للكود الاقي نفسي تايه رغم إني أنا اللي كاتبه ومطبقه قبل كدا .. التوثيق مهم صدقوني .. المهم بيظهر التعليق في الكود بلون أخضر .. طيب إزاي أعمل تعليق طبعا بيكون بالضغط على ' طبعا اللي نظرهم ضعيف مشافوش .. لما يكون اتجاه الكتابة إنجليزي نضغط حرف الطاء اللي بعد العلامة دي بيتم تجاهله تماما يعني متقلقش مش هيتنفذ الأمر لو كان قبله علامة ' دي .. جمد قلبك واضغط أوك هتبدأ عملية التسجيل (وطبعا مننساش المايك والكاميرا يكونوا راكبين في الجهاز وكله تمام بس المشكلة إننا مش محتاجينهم اخلعهم تاني يا مراد بلاش وجع قلب) اضغط أوك ولاحظ علامة التسجيل اللي قلنا عليها من بدري هنلاقيها اتغيرت لشكل مربع صغير لونه أزرق اللي هو دليل إن التسجيل شغال .. العلامة موجودة زي ما قلنا في التبويب وفي شريط الحالة كمان (بيل جيتس مش حارمنا من حاجة أبداً) طيب واحد هيقولي خلص ابدأ تسجيل عشان الوقت هيتحسب في التسجيل هقوله متقلقش التسجيل بيكون لكل حركة إنت بتعملها ملهاش علاقة بالوقت ... طيب نعمل ايه ؟ فكروا معايا أنا بحاول الاقي فكرة .. قول إنت يا جمال .. جمال رد وقال : حدد الخلية اللي فيها اسمي وخلي المحاذاة لليمين .. الخلية اللي فيها اسم جمال هي A3 مثلا ننقر عليها بزر الماوس الأيسر (تعليم تقليدي) يا عم حدد الخلية بس خلاص وبعدين من التبويب Home نعمل محاذاة لليمين (اللي ميعرفش يسأل اللي جنبه) نسيت أقولكم على أهم حاجة (منك لله يا جمال نسيتني كنت عايز أقول ايه) .. عنينا وإحنا نسجل على محرر الأكواد (إنتو نسيتو إن النافذتين مفتوحتين ولا ايه ) عشان نشوف سعادته شغال إزاي .. نبدأ تاني نحدد الخلية A3 واحد هيقولي مفيش حاجة حصلت هقولك عشان إنت واقف في المكان الغلط .. لما بنيجي نسجل الماكرو بيتم إضافة موديول جديد يعني ارجع تاني خطوة لورا واضغط على موديول 2 اللي تم إدراجه من غير ما تاخد بالك.. دبل كليك عليه عشان تتابع من الأول .. معلش يا جماعة أنا مركز على حكاية المتابعة دي عشان تقدروا تستفيدوا من التسجيل نحدد الخلية A3 هوب اقف عندك Range("A3").Select السطر دا اتكتب لوحده يا سلام سلام دا أحلى كلام ولا في الأحلام .. بيكتب لوحده يا عمر .!! طيب نحدد خلية تانية هنلاقي السطر اللي فات اتغير وأصبح A4 ايه الحكاية هي الأسطر مش بتفضل ثابته .. أقولك آه بتفضل ثابتة لكن الشغل بيكون على خلايا محددة يعني إنت حددت A3 وبعد شوية غيرت رأيك وحددت A4 هتلاقي محرر الأكواد غير رأيه عشان مينفعش يشتغل على اتنين في نفس الوقت إلا إذا حددتهم مع بعض نروح للتبوبيب Home وركز عينك على محرر الأكواد هتلاقي With Selection .HorizontalAlignment = xlRight .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With كل دا تم إضافته لما دوست على محاذاة لليمين .. طيب جرب بقا إنت اعمل شوية تنسيقات هتلاقي الدنيا بقت هيصة .. طبعا دا كله ميلزمناش أقصد الأسطر الكتير دي كلها أنا يهمني المفيد وبس ..يعني ممكن أختصر الكود اللي فات أقولك آه وبسطر واحد بس مش بدا كله بالشكل ده Range("A3").HorizontalAlignment = xlRight شفتوا بقا إني أشطر من التسجيل .. طبعا دا اللي يأكد كلامي في الأول إنه مينفعش نستخدم التسجيل بشكل دائم وبردو منستغناش عنه ..طيب ايه الفايدة إننا بندور على اللي يهمنا ونبدأ نكتبه بطريقتنا .. طبعا اتعلمنا إزاي نشير إلى الكائن Range بنفتح بعديه قوس وعلامة تنصيص ومننساش بردو نفس القفلة بس علامة التنصيص الأول وقفلة القوس ..معلش أصل الجو برد شوية عليه.. بعد كدا بنتبعه بنقطة ونكتب الخاصية Property طبعا خلاص استوعبتوها كويس HorizontalAlignment معناها محاذاة أفقية وطبعا قلنا إن الخاصية بيتحدد ليها قيمة وهنا القيم معروفة المحاذاة بتكون إما لليمين (ربنا يجعلنا من أهل اليمين) XlRight وإما توسيط وإما محاذا لليسار XlCenter (واحد متوقع إني هقول ربنا لا يجعلنا من أهل الشمال .. بس أنا هكسفه ومش هقولها) XlLeft >> أظن كدا بقا الكود واضح .. يعني التسجيل اللي اتعمل في 12 سطر (أراهن فيه ناس هتعد ورايا) عملناه في سطر واحد ..بس أنا استفدت ايه إني أقدر أطلع الكلمات اللي عايزاها وأشكلها زي ما أنا عايز .. يعني خلاصة الكلام في الحلقة دي إحنا اشتغلنا خبازين (خدنا العجينة اللي هي الماكرو المسجل .. وشكلناها بمهارة عشان تقدر تطلع بالشكل اللي إحنا عايزينه ) وإلى لقاء مع رغي جديد .. الواجبات : قم بتسجيل ماكرو حدد فيه النطاق من A1:B10 وخلي نوع الخط أي نوع ترغبه وحجم الخط 14 ولون الخط أزرق بلاش الأحمر عشان واحد هيقولي ايه حكايتك مع اللون الأحمر وخلي عريض Bold يعني وخلي المحاذاة الأفقية توسيط .. وطبعا اللي هيجيب الواجب تسجيل ماكرو مش هقبله منه .. أنا عايزك تختصر الأسطر الكتير اللي هتظهرلك في أسطر قليلة ... في رعاية الله كان معكم أخوكم أبو البراء من فرن أوفيسنا (يلا ورورني مين هياكل العيش طازة)

حزاك الله خيرا

1 1 هو هدية ومفتوح للجميع ليستفيد منه الجميع

الرقم السري للاكواد0606

الله ينور برجاء ارفاق ملف العمل المطبق عليه .. كما اتفقنا

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير تعامل-مع-ملفات-الاكسل-عن-طريق-الاستعلام-،-وبدون-كود-،-عن-طريق-استعلام-مسقط/ سِحر-جداول-الاكسس-في-تسجيل-الوقائع-عن-طريق-tables-data-macro/ القسم الثاني : النماذج: شرح أداة WebBrowser 1 2 شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 | توسيط النماذج داخل النافذة أو الإطار طريقة إبداعية لتغيير خلفيات جميع النماذج إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) ⭐ كيف تغير اللغة في برامجك ⭐ ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ التحكم الكامل فى واجهة اكسس ( تصغير بجوار الساعة - توسيط - اخفاء - تغيير أيقونة شعار أكسس ) فصل الارقام مثل (الرقم القومى/الهوية) - الرقم التآمينى .. الخ القسم الثالث : التقارير: مسقط التقارير او صانع التقارير انشاء شريط طباعة للتقرير القسم الرابع : الماكرو والوحدات النمطية VBA: إنشاء دروس VBA أكسس كشكول VBA ترجمة النصوص وتحويلها إلى صوت في vba باستخدام جوجل دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: اجعل برنامجك يعمل على النواتين 32بت و 64بت اجعل برنامجك يعمل على النواتين 32بت و 64بت _ طريقة ثانية دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) دوال عامة وافكار مختلفة ( FileDialog ) دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) دوال عامة وافكار مختلفة ( FileDialog ) (ImmediateWindowHelper) تفقيط عام متعدد : تحويل الارقام وقيمة ارقام العملة أو ( عملات متعددة ) الى نص مع التفقيط باللغة العربية ولغة اخرى منتقى التواريخ "Date pickers" إصدار-جديد-فكرة-بسيطة-لطباعة-أو-إظهار-رسائل-بنتائج-الأكواد-مع-إمكانية-التفعيل-والتعطيل/? التحكم-الكامل-فى-واجهة-اكسس-تصغير-بجوار-الساعة-توسيط-اخفاء-تغيير-أيقونة-شعار-أكسس/ متعقب-التغييرات-الذكي-2024 اداة البحث المتعددة الوظائف مُطَهَّرُ النُّصُوصِ الْعَرَبِيَّةِ ( ازالة المسافات الزائدة و التشكيل و تنظيف النصوص - و توحيد الاشكال المختلفة للأحرف ) مُطَهَّرُ النُّصُوصِ الْعَرَبِيَّةِ الاصدار 2 ( ازالة المسافات الزائدة و التشكيل و تنظيف النصوص - و توحيد الاشكال المختلفة للأحرف ) أتمتة عمليات الضغط وفك الضغط للملفات و المجلدات (WinRAR / Seven Zip ) تنفيذ الأوامر والملفات في بيئة Windows مع تحكم دقيق في العمليات القسم الخامس : قواعد البيانات SQL وما يتعلق بها: أكسس و اسكيوال سيرفر Access with Sql Server الأكسس و SQL جُمل SQL مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server [تطبيق] تحويل قاعدة بيانات اكسس الى SQL Server (الجزء الاول _ الجزء الخامس) ربط الاكسيس ب php القسم السادس : البرامج والأدوات والإضافات: إدارة الجداول المرتبطة ، أداة وشروحات نظام مراسلة واشعارات شبيه بالفيس بوك معالج بحث وتصفح مسقط التصفح كارنيهات باستخدام باركود ماتركس - QR code محاكاة برنامج واتساب بالاكسس .. هدية لاوفيسنا القائمة المختصرة - Shortcut menu ارسال رسائل whatsapp (وتساب) بدون حفظ الرقم رسائل whatsapp (وتساب) في اكسس رسائل whatsapp (وتساب) بدون حفظ الرقم ( الكاتب الذكي لدوال المجال في أكسس Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg) ⭐⭐(( مكتبة الأكواد الخاصة )) :: الإصدار الثاني 2.0 ⭐⭐ ، /// ، مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁 - 📟 آلة حاسبة 📟 - هدية مميزة مفتوحة المصدر 🎁 🖌️✏️👨😉🧑‍💻 ... برنامج دردشة بين المستخدمين على الشبكة ... 👨‍💻🧑‍💻✍️😊✏️🖊️ 🎁 :: هديتي لكم :: 🌷📨 >> برنامج مرسال الواتسأب - مع المرفقات - << ✉️ 🙂🌷💌 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 🎁 هدايا الأكسس ✨ | 03| زاد المثابر للحصول على أسماء العناصر في أكسس | أداة رائعة للمطورين 🧛🏻‍♂️ [الاصدار الثاني] ارسال رسائل جماعية لعدد x من المستخدمين على الواتس اب في الاكسس هدية: برنامج تصدير بيانات من جداول/استعلامات اكسس الى اكسل ، 32بت و 64بت هداء لكم برنامج بسيط للديون والسداد 🟢 واتساب ويب web.watsapp 🟢 هدية : تصدير كائنات دفعة واحدة الى قاعدة أخرى أو حسب إختيارك 🧮 الكاتب الذكي لدوال المجال |::| 📜 نسخة مطورة ومحدثة |::| 😊 الإصدار الثاني 2.0 ⭐ كيف تغير اللغة في برامجك ⭐ اختيار صورة من (Shell32.Dll) وحفظها بمجلد وبجدول وعرضها طريقة ابداعية للتحديث من خلال الانترنت تغيير لغة النظام في Unicode القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان windows وتسجيل المكتبات عند تنصيب البرامج هام لمطورى ومصممى قواعد البيانات إنتبهوا حتى لا تواجهوا مشاكل مع العملاء خلاصة الأقوال .. حول مسائل الحماية 🔒🔑💪🏻 القسم الثامن : مواضيع متنوعة: ملف للبحث عن المواضيع في هذا المنتدى بعض المواضيع المتميزة والمهمة ( 8 ) الحماية برقم القرص الصلب والمعالج واللوحة الأم شرح أكسس 2003 - 2007 - 2010 - 2013 ( صوت وصورة ومرفقات ) رفع نسخة احتياطية على السحابة (google drive) ::💡 أفكار وفوائد 💡:: أسهل طريقة لعمل مربعات صح ✔ أو خطأ ✘ بالحجم واللون الذي تريده ❌☑️✔️✅❎ ⭐⭐ طريقة إبداعية لتحديث نسخة الواجهات FE 🖥️ لدى المستخدمين بدون برامج أو أدوات خارجية 😊👌⭐⭐ رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: ------------------------------------------------------ 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين

أخى الفاضل جرب المرفق شاشة ادخال2.rar

السلام عليكم و رحمة الله و بركاته الاخوة الاحباب بالمنتدى أقدم اليكم قاعدة بيانات للموارد البشرية HR وكان هذا طلب من الاخ العزيز / alwaleed4ever84 كلمة المرور : 111 و أسأل الله العلى العظيم أن ينفعكم بهذا العمل و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته HR.rar

الاخوة الاعزاء اشكركم على مناقشة هذا الموضوع الشيق وأود ان الخص الموضوع ببساطة شديدة جدا إضافة لكل ما تم ذكرة من قبل الاخوة الاعزاء بالنسبة لل P S فى المشاريع يرجى العلم انه من الممكن ان يكون له العديد من الاشكال وهى :- 1- قيمة المبالغ الاحتياطية تكون من ضمن قيمة العقد : وفى هذه الحالة إذا تم إصدار الامر بعمل اى بند احتياطى لابد من مقارنة التوقيت بما هو معتمد فى البرنامج الزمنى فإذا كان بعد التاريخ الموجود بالبرنامج يعتبر امر تغييرى عادى له تمديد زمنى ان وجد له تاثير على البرنامج وايضا له مطالبة مالية فى حاله إثبات ان السعر التعاقدى غير متلائم مع سعر السوق الحالى 2- قيمة المبالغ الاحتياطية ليست من ضمن المبلغ الاجمالى للعقد : وفى هذه الحالة يلتزم المقاول بتنفيذ اى بند إحتياطى خلال مدة المشروع بنفس القيمة المذكورة بالعقد " فى حالة نص العقد ذلك " وبدون مطالبة مالية ولكن بتمديد زمنى بعد توقيع تاريخ المباشرة على البرنامج المعتمد ودراسة التاثير الزمنى ولكن لو نص العقد على مدة محددة لإصدار اوامر العمل بالبنود الاحتياطية حق للمقاول مطالبة مالية إذا صدرت اوامر العمل بعد المدة المنصوص عليهابالعقد 3- البنود الاحتياطية فى المشاريع cost plus :- ينطبق عليها نفس الحالات السابقة الا انها ليس لها اى مطالبات مالية الا فى حالة G M P تستخدم لرفع قيمة العقد القصوى المحددة

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