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

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

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

تتميز الفكره بادخال حركات المخزن على صفحات الاكسيل مباشره لا على نوافذ حيث السرعه ستكون اكبر ومن الممكن انزال البيانات Copy و PAST اهدى اليكم الفكره لكل اصدقاء المنتدى مع المطالبه لكل مفكرى المنتدى باى اضافات ممكنه وذلك للافاده للجميع كارته مخزن.rar

برنامج شئون الموظفين يعمل بالتاريخين الهجرى والميلادى. امكانية البحث برقم الموظف . امكانية ربط الموظف بصورة الموظف من اى مكان من الحاسب (وليس وضع الصور بجانب الملف كما كان مسبقا). امكانية حذف موظف او تعديل بيانات الموظف . اصدار تقارير عن موظف واحد بطباعة بياناته فى صفحة مستقلة. امكانية تصدير التقارير لملف اكسيل جديد باسم جديد. البحث بين تاريخين . امكانية طباعة عدد من الموظفين سواء (اسم الموظف - الراتب - الاقامات - الادارة التابع لها - او اى بيانات مدخلة ). التحكم فى تغيير اسم الشركة . نافذة امان قبل الدخول للبرنامج بكلمة مرور يمكن اظهار النافذة او اغلقها. امكانية التحكم فى اعدادات المظهر (خلفية البرنامج - لون الخط ). للاطلاع عن المزيد من الصور والشرح للبرنامج من هنا او الاطلاع على دليل المستخدم من البرنامج شكر خاص للأستاذ/ عبد الله باقشير حيث استخدمت الكثير من اكواده الاكثر من رائعه وكذلك باقى الاعضاء الاخرين ملاحظة : باسورد نافذة الامان الافتراضى 12345 باسورد vba وقاعدة البيانات وفتح الملف 12345 لابد من تمكين الماكرو ليعمل الملف فى النهاية نسألكم الدعاء بظهر الغيب emp.rar

السلام عليكم ورحمة الله أخي الكريم، جرب المرفق لعل فيه المطلوب، مع إضافة صفوف بعدد الأشهر لكل سنة في الجدول المرحل إليه (يمكن تصفية الصفوف الفارغة حسب مثلا العمود الثاني) وإضافة تسمية لنطاق البيانات "المصدر" بالتسمية Rng... أرجو أن يفي الغرض المطلوب... أخوك بن علية Test.rar

dim i as intger i= DCount("Number1","table1","Number1=" & textNumber) if i > 0 then msgbox"يوجد مخالفة على هذا الرقم" end if

الوقت والتاريخ اضف تكست واكتب فيه ()Now= بالنسبة للمستخدم باعتبار ان هناك جدول خاص بالمستخدمين وفورم خاص بالدخول وليكن اسمه login وحقل اسم المستخدم اسمه user سوف تضيف تكست وتكتب فيه =[forms]![login]![user] بشرط ان يكون نموذج الدخول غير مغلق اى عند الدخول قم باخفاء النموذج بدلا من اغلاقه توضيح مرفق New Microsoft Access Database.rar

الأخت الفاضلة رشا يوسف يرجى عدم تخصيص عضو معين لتقديم المساعدة فلربما كان هناك من هو لديه حلول أفضل .. ويمتنع عن تقديم المساعدة بسبب ذلك الأمر إليكي الكود التالي عله يفي بالغرض Sub DeleteEntireRowForSpecificWords() Dim Rng As Range, Cell As Range, I& On Error Resume Next Set Rng = Application.InputBox("Select Range", "Officena", Selection.Address, Type:=8) Set Rng = Intersect(Rng, Columns(4)) If Rng Is Nothing Then MsgBox "Process Cancelled": Exit Sub Application.ScreenUpdating = False For I = Rng.Rows.Count + Rng.Row - 1 To Rng.Row Step -1 If Cells(I, 4) = "نشاط" Or Cells(I, 4) = "ش+ن" Or Cells(I, 4) = "ادارى" Or Cells(I, 4) = "خط" Or Cells(I, 4) = "كاتب" Then Cells(I, 4).EntireRow.Delete Next I Application.ScreenUpdating = True End Sub Delete Entire Row For Specific Words YasserKhalil.xls

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

برنامج مخازن

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

انا اصوت لبرنامج العيادة, وكنت اظن ان لديك التصور الكافي لبرنامج العيادة. وعليه انت الان مخاطب بالبحث عما تحتاجه العيادات الطبية اذا كان تصويتي سيجعل الاختيار منتهي. الله يعينك ^_^

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

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

ألف شكر أستاذي الغالي على التّشجيع الطيّب أخوك / عبد العزيز البسكري

السلام عليكم ما شاء الله بارك الله يوزر فورم ممتع ومرن...جزاكم الله خيراً..أخوكم أبو يوسف.

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

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

السلام عليكم ورحمة الله وبركاته انا لا ارى اى مشكلة بالمثال فهو يفتح الفورم المطلوب كل مرة ولكن المشكلة انه لا يعطى الرسالة عندما تكون الجنسية خالية والسبب انه لايحفظ السجل اصلا الا عندما تقوم بادخال الجنسية وذلك لان خاصية Required=yes لهذا الحقل ولذا لاداعى لاظهار الرسالة باقى الكود يعمل..

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

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

تم الحل ولله الحمد وهذا الكود بعد التعديل On Error Resume Next Dim x As Integer x = MsgBox("للمعاينة سجل المادة والصف المناسب ... للاستمرار ..نعم.. للخروج ..لا..", vbYesNo, "معلومة ") If x = vbYes Then Me.Visible = False DoCmd.Maximize DoCmd.OpenReport "اسم التقرير", acViewPreview موافق = False MsgBox "انت الان في وضع المعاينة", vbOKOnly, "انجزت المهمة " Else Cancel = True MsgBox "لم تنجز المهمة", vbOKOnly, "تنوية " End If

الموضوع مش مفهوم اخ عبدالله تماما ! ولكن يمكن وحسب الصورة التي ارفقتها في الرد رقم 5 انك تقصد انشاء القوائم او بالانجليش Ribbon وعن طريق ال xml وليس ال html ؟ هذا والله اعلم

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

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

أحسن الله عزاءك وجبر مصيبتك وغفر لميتك ...... إِنَّ لِلَّهِ مَا أَخَذَ ، وَلَهُ مَا أَعْطَى ، وَكُلٌّ عِنْدَهُ بِأَجَلٍ مُسَمًّى ، فَلْتَصْبِرْ وَلْتَحْتَسِبْ ....

البقاء لله.. الله يرحمها

شكراَ اخي محمد على هذه المغادلة لكن اذا اردت ان تشمل كل النطاق من B2 :c100 بمعادلة واحدة (صفيف) اكتب هذه في B2 و اسحب يساراً و نزولاً (لا نتس Ctrl+Shift+Enter) =IF(OR(ROWS(B$2:B2)+1>MAX(--($A$2:$A$100<>"")*ROW($A$2:$A$100)),COLUMNS($A1:A1)>2),"",CHOOSE((COLUMNS($A1:A1)),IF($A2<>"",CELL("address",$A2),""),IF($A2="",CELL("address",$A2),"")))

أحسن الله عزاك

بسم الله ما شاء الله أخي الغالي المتميز مختار تسلم الأيادي وتكيد الأعادي .. تسلم يا ابن بلادي إليك زيادة في الخير .. دالة لدمج القيم في خلية واحدة ويمكنك تحديد نوع الفاصل بين القيم من خلال المعادلة Public Function Concat(MyRange As Range, Optional myDelimiter As String) '=Concat(C9:I14," ") Dim rCell As Range Application.Volatile For Each rCell In MyRange Concat = Concat & rCell & myDelimiter Next rCell If Len(myDelimiter) > 0 Then Concat = Application.WorksheetFunction.Trim(Left(Concat, Len(Concat) - Len(myDelimiter))) End If End Function تقبل تحياتي

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

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

إنا لله وإنا إليه راجعون الأخ مارد عظم الله أجركم في فقيدتكم و غفر لها ما تقدم وما تأخر وأسكنها فسيح جناته آمين.

أحسن الله عزاءكم ، وغفر لميتكم ورحمه .

انا لله وانا اليه راجعون .... البقاء لله اللهم اغفرلها وارحمها يا ارحم الراحمين

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

الله يرحمها ويغفرلها ...... عظم الله أجركم ......

عظّم الله أجركم اللهم اجعل مثواها الحنة

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

لله ما اخذ ولله ما أعطا احسن الله عزاءكم

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

عظم الله لك الأجر وأحسن لك العزاء والله يرحمها برحمته ويسكنها فسيح جناته

ربنا يبارك فى حضرتك يااستاذنا محمد الحسن الف شكر على هذه التهنئه الغاليه اشكرك استاذى واخى المهندس ياسر الذى يسعدنى دائما بمروره

أبني وأستاذى (ابني في العمر الزمنى وأستاذى في العلم) رأيت في موضوعكم الجميل سيمفونية وأنت المايسترو فيها وتجاوب الاخوة معك باقي عازفى الأوركستر، ولم أكن أرى هذا الجمال البرمجي في الإكسل إلا في هذا الموقع الموقر تنمياتي بدوام التقدم والرقي

السلام عليكم اخي علي ضع سطر فك الحماية في بداية الكود وسطر إعادة لحماية في نهاية الكود

الاخ/ mahmoud شكرا للتهنئة بالعيد الان كيفية تحويل الارقام من الانجليزية للعربية بالاكسل اكسل 2003 و 2010 تحويل الارقام للعربية.rar

السلام عليكمو ورحمة الله اعزائي اخوتي في الله ارجو عمل كود VBA يقوم بالبحث والتجميع للمندوب عند كتابة ID الخاص به ويظهر بالتجميع علي شكل Text وليس معادلة ارجو ان لا اكون ثقيل في طلبي شكرا أخوكم أحمد مطلوب بديل بالكود للـ VLOOKUP.zip

أخى الفاضل / تـــــامر السلام عليكم تفضل أخى الفاضل تم عمل اللازم .. يارب ندخل فى موضوع جديد تحت أمركم .. نحن معا .. أخبرنى project 10.rar

لا دا كتير كله نازل يحل بطرق مختلفة (لسه الجراب ياما يحاوي) إليكم طريقة أخرى أخوكم أبو البراء Baraa.rar

الأخوة الأعزاء مرفق ملف أرجو المساعدة بعمل ماكرو لتنفيذ الآتي : ربط الخلية B2 بملف من نوع Pdf بمعنى اذا كانت الخلية تساوي 4 يتم فتح الملف باسم 4 واذا كانت الخلية = 5 يتم فتح الملف باسم 5 والملفات كلها من نوع Pdf علماً مرفق مجلد به ملف اكسل وعدد 2 ملف من نوع Bdf. ان كان ذلك بالأمكان أرجو المساعدة ولكم جزيل الشكر _____________________Pdf.rar