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

السلام عليكم عباقره المنتدى واخوتى فى الله وجميع اعضاء المنتدى حين كنت بصدد عمل برنامج تحليل المصروفات كان لدى تقرير بأسم الحساب ولكنى ما وددت ان افعله بطريقتى التقليديه عمل عمود مساعد ثم الترحيل بمعادله INDEX كان امامى طريقان وعليا ان اسلك احداهما معادلات الصفيف كما اطلق عليها من قبل انها معقده ولكنى رأيتها غير ذلك ، ولكنى حين قمت بالتنفيذ وجدتها كذلك ولكن الحمد لله توصلت للنتائج المرجوه ،،،،،،،،،،، استفدت كثيرا من شرح الاستاذ كيماس ( عبد الفتاح كيره ) ولكن ملفه لم يعمل معى لم يأتى بنتائج ايضا كشف حساب الموهبه الفذه العملاق ( يحي حسين ) رائع جدا قمت بتطويره وتطويعه كى يتناسب مع متطلباتى و اصل الى هدفى اما الطريق الثانى هو الكود ارجأته قليلا ،،،،،،،، لحين ان يأتى دوره معى فأنا لا احب ان ( اقفز السلم ) ارجو من اى عضو قادر على الاتصال بملك المعالادت ان يخبره انى اريد ان اطمئن عليه وعلى صحته وانتظر رده فى موضوعى هذا ( برنامج تحليل المصروفات ) http://www.officena.net/ib/index.php?showtopic=52644 فى النهايه اتيت لكم بهذا المرفق الرائع حين جولتى فى بعض المنتديات الاجنبيه اترككم مع الملف !!!!!!!!!!! ارجو ان يحوز الملف على اعجابكم طبعا هو من اعمالى ههههههههههههههههه = {( طبعا انا كداب )} CtrlShiftEnterBookFinishedFile.rar

السلام عليكم ورحمة الله وبركاته الاخ الحبيب أبو اياد وبصراحة قرات الملف بسرعة وطبعا زي ما انت عارف اخوك.... النتيجة {لم افهم شئ} اضغط ctrl + sheft+ enter وروح على النقطة اللي بعديها ورغم اني وبصراحة لي تحفظ على ارجو ان يحوز الملف على اعجابكم طبعا هو من اعمالى ههههههههههههههههه = {( طبعا انا كداب )} ولكن اضحك الله سنك كما اضحكتني وخليتني افكر طيب لو دست دلوقت ctrl + sheft+ enter بعد {( طبعا انا كداب )} الناتج هيكون ايه ههههههههه

الأستاذ /Samir السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب 2003 الملف المرفق3.rar

السلام عليكم ما قمت به خطأ ولم تنفذ شي مما قلته لم تلغي الشرط بل استبدلته بشرط خطأ وحذفت اسناد القيمة للمتغير id والمفروض ان تغير اسنادها لتاكست رقم التسجيل ====================================== هذا ما قصدته Sub EditAdd() Dim emptyRow As Long flag = False i = 0 id = UserForm1.TextBox8.Value emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 Do While Cells(i + 1, 1).Value <> "" If Cells(i + 1, 1).Value = id Then flag = True For j = 2 To 7 Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If i = i + 1 Loop If flag = False Then For j = 1 To 7 Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If End Sub جرب

السلام عليكم الاخ الكريم / ايهاب ممدوح بارك الله فيك شاهد المرفق ... ان شاء الله به طلبك تقبل خالص تحياتي حضور2.rar

السلام عليكم heshamhafez_126 اهلا وسهلا بك 1- اذكرك بضرورة تغير اسم الظهور الى اللغه العربيه لسهولة التواصل معك 2- رجاء ارفق ملف لتتضح الفكره لنا

شكراً جزيلاً بارك اله فيكم هذا هو المطلوب احبائي (( وليد فتحي ، محمد أبو البراء )) ابداع وثم تميز

عليكم السلام ورحمة الله وبركاته جرب اخي الفاضل الكود التالي لاحد الاساتذة الافاضل بالمنتدي لا اتذكر بالتحديد لمين مع ملاحظة انه يجب تسمية النطاق الذي يوجد به معادلا باسم (myrange) عن طريق تظليلها واذا كانت بعيده عن بعضها استخدم مفتاح Ctrl Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديك الصلاحية للتعديل" End If End Sub

السلام عليكم ورحمة الله وبركاته الاصدار الرابع : فورم اضافة وبحث وتعديل مرن مع استعراض الصور (تحكم كامل بالصورة ) المرفق 2003 فورم ادخال و تعديل مرن مع الصور.rar http://www.officena.net/team/khboor/kh_image/p86.png هام جدا بتاريخ ( 14 / 6 / 2023 ) لكي يعمل الفورم جيدا بدون اخطاء لابد من عمل الاتي 1- UnRegister MSCOMCT2.OCX ازاله تسجيل الملف MSCOMCT2.OCX تشغيل الامر cmd كمسئول ثم كتابه الأمر التالي لو كان الويندوز ٦٤ بت regsvr32 /u C:\Windows\SysWOW64\MSCOMCT2.OCX او regsvr32 /u C:\Windows\System32\MSCOMCT2.OCX لو كان الويندوز ٣٢ ثم بفك الضغط عن الملف المرفق بأسم MSCOMCT2.OCX ونقوم بنسخه الي المسار التالي ويندوز٦٤ بت C:\Windows\SysWOW64 ويندوز ٣٢ بت C:\Windows\System32 2- Register MSCOMCT2.OCX ثم نقوم بعمل ريجستر للملف الذي نسخناه في الويندوز عن طريق هذا الأمر ويندوز ٦٤ regsvr32 C:\Windows\SysWOW64\MSCOMCT2.OCX ويندوز ٣٢ regsvr32 C:\Windows\Sys\MSCOMCT2.OCX MSCOMCT2.zip

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

..... شاهدوا المرفق أخوكم عماد الحسامي

السلام عليكم ورحمة الله وبركاته أخي الكريم الملف مرتبط ببيانات ملفات أخرى الرجاء من وضع مثال توضيحي بسيط للعمل عليه

السلام عليكم شكرا أخي وليد فتحي شكرا أخي حمادة عمر على المشاركة في حل المشكلة ولكن لي وجهة نظر أقدمها لكم وبالأخص لصاحب المشاركة الأخ إيهاب ممدوح 1/ بما أن البرنامج يسجل وقت الحضور للموظف فلا حاجة لأن يختار الموظف الفترة الصباحية أو المسائية ولكن عن طريق المعادلة يستطيع البرنامج حدد إذا كان وقت الحضور قبل الساعة 12 ظهرا فتكون الفترة الصباحية وإذا كان بعد الساعة 12 ظهرا فتكون الفترة مسائية 2/ أقترح أن يضاف أيضا عن طريق المعادلة خانة لتحديد ما إذا كان الموظف متأخر عن الدوام أم لا وذلك بتحديد أقصى وقت يسمح فيه للموظف بالتأخر مثلا أذا كان حضور الموظف بعد الساعة 8 صباحا فيكون متأخرا أما قبل 8 فلا يعد متأخرا 3/ إذا كان عدد الموظفين قليل ( مثلا أقل من 50 موظف ) فأقترح بأن يضاف أسماءهم في قائمة combobox بحيث توفر على الموظف الكتابة يعنى أن الموظف سيختار أسمه من بين أسماء الموظفين ثم يضغط حضور وهذا يجعلك تتفادى الخطأ في كتابة الأسماء فمثلا الموظف أحمد قد يكتب اسمه ثلاثيا وقد يكتبه يوما من الأيام ثنائيا وقد يكتبه بوجود مسافات إلى غير ذلك تحياتي

السلام عليكم ورحمة الله وبركاته تفضل أخي الكريم الملف التالي مدة حل المشكلة.rar

الاخوة الزملاء السلام عليكم ورحمة الله وبركاتة اقدم لكم اليوم جدول الضرب لاطفالنا يبدأ الجدول من ضرب 1 * 1 حتى ضرب 10 * 10 وليس بالترتيب لعدم الحفظ يمكن التعديل عليه مع تشجيع الطالب بكتابة الملف اجابة صحيحة للاجابة الصحيحة واجابة خاطئة للاجابة الخاطئة عند الخطأ يقوم الملف بكتابة الرقم الصحيح مع حساب النتيجة النهائية فى الجذء العلوى لعدد 100 سؤال اليكم الصورة اليكم الملف على الرابط التالى

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

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

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

السلام عليكم ورحمة الله وبركاته بعد اذن أخي الحبيب الاستاذ حماده عمر اتفضل استاذ ايهاب هذه محاولة مني لعلها تفي بالغرض معك حضور3.rar

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

هل هذا ما تقصده بالنسبة للارقام هي عشوائية ولك ان تكتب ما يناسبك/بعد ازالة معادلة العشوائية الملف المرفق 1.rar

السلام عليكم تفضل التحكم بالأزرار3.rar

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

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

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

بعد إذن الأستاذي /ضاحي الغريب أستاذي إبراهيم انا جربت هذا الكود ونجح معي غير هذا الكود Application.Quit بهذا الكود ActiveWorkbook.Close False في Private Sub L_In_Click() Private Sub L_OUT_Click()

السلام عليكم تفضل أخى Sumproduct.rar

السلام عليكم ورحمة الله وبركاته الاخ الكريم / محمد محمود فهمت قصدك انت لديك قاعدة بيانات للعاملين وتريد تقرير كالشجرة بمعنى تقرير مرتبط برأس (جهة العمل) لتستخرج منها : 1-اسماء العاملين المتدربين - الدورات - رقم الموظف - عدد الموظفين فى كل جهة عمل على حدى -ثم عدد الموظفين المتدربين (اجمالى ) 2- اسماء العاملين الغير المتدربين - رقم الموظف - عدد الموظفين فى كل جهة عمل على حدى -ثم عدد الموظفين المتدربين (اجمالى ) انا قمت بعمل لك المطلوب لكــن عن طريق الاكسيل باستخدام البيفوت تابل ( وهو متوفر فى كل اكسيل ) تفضل المطلوب باستخدام الاكسيل * ملاحظه عند ادخال بيانات جديده فى شيت database عليك للذهاب الى data ثم عمل refresh all لتظهر فى التقرير المطلوب تقرير جهة العمل.rar

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

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

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

السلام عليكم ورحمة الله وبركاته وبعد اذن الاخ الحبيب// وليد فتحي هذا عبارة عن دمج كود الاستاذ وليد مع كود معاينة الطباعة والطباعة Private Sub CommandButton1_Click() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate Range("h6").Value = 0 End Sub مسح خلية_w1.rar

السلام عليكم ورحمة الله وبركاته احب اشكر اولا الاستاذ الحبيب والاخ العزيز الفاضل // وليد فتحي على الحلول المميزة كما اشكر الاستاذ الفاضل // أحمد أبو زيزو صاحب الشروحات البسيطة المفيدة وبعد اذنهم هذا العمل عبارة عن دمج الاكواد السابقة المميزة مع بعضها والذي تفضل بها الاخ الحبيب وليد فتحي ولهذا فسيكون الناتج كالتالي 1 ) يعطي خاصية الوقوف على الخلية المحمية 2 ) ثم اعطاء الرسالة التحذيرية 3 ) وعند الضغط على ok ينتقل الى الخلية المجاورة Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Not Intersect(Target, [a1:iv36536]) Is Nothing Then If Target.HasFormula Then MsgBox "عفوا ليس لديك الصلاحية للتعديل" If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End If End Sub ملحوظة : اذا كان الاكسيل لديكم اصدار اعلى من 2003 يمكن استبدال هذا الجزء في الكود [a1:iv36536] بهذا الجزء ليشمل جميع خلايا الورقة [a1:xfd1048576]

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل والاخ الحبيب // وليد فتحي جزاك الله خيراً على سرعة تلبيتك المعهودة واستاذنك أخي الحبيب في اثرء الموضوع بهذا الحل =IF(B3+B4<1000;1000;IF(B3+A9<2000;B3+B4;2000)) خارج محصور بين عددين_w1.rar

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

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

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

الاسم : سليم حسن سنة الميلاد : 1961 م المهنة : مدرس ثانوي/ رياضيات التعليم : خريج جامعة موسكو /ميكانيك 1988 الحالة الاجتماعية :متاهل /صبيين وينت/ ابني الأكبر يخدم في الجيش اللبناني الجنسية :لبناني اعشق الاكسل و البرمجة/عندي اهتمام بالوورد وقمت بعمل بعض البرامج وبيعها " وإن شاء الله سوف أقدم كل ما أستطيع من إفادة للموقع بعرض بعض الأفكار تليفون موبايل : 71173602 email: salimhas@hotmail.com

تفضل أخى ماأردت تقبل تحياتى كاس مصر.rar

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

أستاذنا الفاضل / أبو محمد عباس السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على جميع اعمالك وجعلها في ميزان حسناتك. إليك حل بسيط جداً فقط حضرتك تكتب المسلسل وليس بالدالة في ورقة الدرجات فقط. أدعو الله أن أكون وفقت في عمل المطلوب الذي حضرتك تريده. ترحيل البيانات.rar

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

عليكم السلام ورحمة الله وبركاته الاخ الفاضل أو حبيبة يمكن ان تضع الكود التالي في الورقة التي بها المعادلات ولن يتم الوقوف على الخلية التي بها معادلات ستتخطاها وتقف على الخلية الفارغة اتمني ان يفيدك هذا بطلبك Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub

أخى الكريم تم عمل المطلوب أسأل الله عز وجل أن يكون هو المطلوب اضافة البحث للمستودع.rar

أخي الفاضل تفضل الملف أرجو أن يفي الغرض كلمة المرور 123 سندات V.3.3.rar

بارك الله فيك اخي الكريم تقبل خالص تحياتي

مرور طيب وكريم من اخ كريم تقبل خالص تحياتي اخي الكريم / رائد

بالنسبة لتحديد شيت اعمال السنة اخي الكريم استبدل السطر التالي الموجود في الكود Range("A11:Y1000").Copy بهذا السطر .... لتحديد شيت ( اعمال سنة ) Sheets("اعمال سنة").Range("A11:Y1000").Copy وعذرا ع التأخر في الرد ... نظرا لانشغالي في العمل تقبل خالص تحياتي

وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520

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