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

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

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

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

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

أخى و أستاذى الغالى أباالبراء بارك الله فيك مشكور أستاذى على الاضافة الجميلة لكن الدالة 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

اخ عبدالله اسمح لي بالراي الشخصي التالي : 1. ارى انك بدأت وانهيت الموضوع في فترة وجيزة ولم يظهر هنا حاجتك للتعاون من الخبراء وكان فقط راي الاخوة الاعضاء وهنا كذلك لم تعطي مساحة للنقاش ووضع تصور لاطار العمل 2. العمل ليس سهلا فكان الله في عونك ولا شك في قوة فائدتها للتعلم بشرط اكتماله في وظائفه متمنيا عدم التوقف في جزئية معينة وهذا مايحدث غالبا في هكذا فكرة 3. هل لديك الخلفية في سير عمليات العيادات الطبية ام ستستعين بصاحب خبرة او عميل حالي .. انصح بوجود احدهما اخيرا : كان احد البرامج المقترحة برنامج محاسبي وهنا http://www.officena.net/ib/topic/61446-برنامج-محاسبة-accurate-من-تصميمي/ هل تقصد انشاء برنامج مختلف ؟ ولماذا ؟ بالتوفيق

عظم الله اجرك اخي مارد واحسن الله عزاؤكم ! وهذه سنة الحياة لا يجزع منها مؤمن !

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

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

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

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

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

بسم الله ما شاء الله أخي الغالي المتميز مختار تسلم الأيادي وتكيد الأعادي .. تسلم يا ابن بلادي إليك زيادة في الخير .. دالة لدمج القيم في خلية واحدة ويمكنك تحديد نوع الفاصل بين القيم من خلال المعادلة 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

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

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