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

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

اخواني الكرام هذه بعض الاكواد المنفصلة و البسيطة التي قد تهم البعض وخاصة المبتدئين مثلي وارجوا من الاخوة الكرام كل من لديه كود يضيفه وأجر الجميع على الله وتسهيلاً على اخواننا في متابعة الموضوع اردت وضع فهرس بالمشاركات التي تحتوي على الاكواد وهنا الفهرس مقسم على ثلاثة أجزاء يحتوي على هذه المشاركات وهذه الملفات من النوع (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

السلام عليكم: في البداية اعتذر عن التاخر عن الرد بسبب عدم دخولي بالنت بالمرة.. ثانيا:الفكرة جميلة جدا, لكن اخشى انها قد تصيبك بالاحباط لسبب واحد هو انك ستصدم بقلة التفاعل والتجاوب والذي سببه ليس انتقاص الاخرين لموضوعك ولكن لأختلاف مشارب واهتمامات الاخرين والتي قد لا تتوافق مع اختيارك لأحد المواضيع اعلاه. وكما ترى ان 99% من المشاركين هم ممن يدخلون ليجدوا المساعدة من الاخرين وحسب, بينما 1% هم من يتصدرون لمساعدة الاخرين وهؤلاء يعدون بالاصابع هذا ان وجدوا الوقت الكافي للمشاركة.. كانت لي فكرة مشابهة لفكرتك وهي "بناء مشروع مختبرات طبية" وكنت قد قطعت فيه مشوار لاباس به ولكن حال الجريض دون القريض واظنك تعلم مايمر به اليمن من مخاض لايبعد عما انتم فيه بسوريا, ومن الممكن اشاركك ماقد قمت به ولك الخيار في البدء من جديد او اكمال المشوار والامر يعود اليك.. اعلم ان التصويت قد انتهى وانا اشد على يديك واقول الله يعينك وانا معك من الالف الى الياء حسبما تسمح به الظروف...

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

السلام عليكم و رحمة الله و بركاته تفضّل أخي الفاضل مثالا على ذلك : التاريخ باسم اليوم الميلادي و الهجري بإمكانك تضيف أو تخذف أو تغير أرقام الليبلات مثلما شئت التاريخ الميلادي و الهجري.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 تقبل تحياتي

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

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

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

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

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

الله يرحمها و يرحم اموت المسلمين امبن يارب العالمين

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

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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته وبعد اولا : احب ان ابارك لكم بقرب شهر الخير والبركات .. شهر رمضان .. فكل عام وانتم بخير ومبارك عليكم الشهر الفضيل جعلنا الله واياكم من صوامه وقوامه .. امين ثانيا : اسمحو ان ارفق مع هذه التهنئة هدية بسيطة في كيفية الترقيم التلقائي بفكرة استخدام خصائص مربع التحرير والسرد وكقيمة افتراضية وهي فكرة اكثر من ان تكون معلومة ! وحسب استراتيجية يبدا الترقيم من اعلى رقم ! تكمن الفائدة الاكثر بتعديل مصدر الاستعلام بوضع شروط معقدة لفلترة قائمة التحرير والسرد للحصول على الترقيم المطلوب مثلا : ترقيم بداية كل سنة - ترقيم باختلاف الصنف .. الخ . فالترقيم ينظر الى الارقام التي بالقائمة وحسب وجودها ! هذه المعادلة او التعبير للترقيم : =Nz([id_no].[itemdata]([id_no].[ListCount]-1);0)+1 يمكن وضع الخاصية ممكن = لا التطبيق بالمرفق ولكم خالص تحياتي aotu_num.rar

شكراً للجميع لقد وجدت الحل بالبحث قمت بتغيير ايميل الحساب الى الياهو و استخدمت POP3

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

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

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

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

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

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