اذهب الي المحتوي
أوفيسنا

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

  1. عبد الله قدور

    عبد الله قدور

    الخبراء


    • نقاط

      5

    • Posts

      1183


  2. ياسر خليل أبو البراء

    ياسر خليل أبو البراء

    المشرفين السابقين


    • نقاط

      5

    • Posts

      13165


  3. رمهان

    رمهان

    الخبراء


    • نقاط

      4

    • Posts

      2390


  4. نور الدين وليد

    نور الدين وليد

    03 عضو مميز


    • نقاط

      2

    • Posts

      160


Popular Content

Showing content with the highest reputation on 08/01/15 in all areas

  1. 1 point
  2. اخواني الكرام هذه بعض الاكواد المنفصلة و البسيطة التي قد تهم البعض وخاصة المبتدئين مثلي وارجوا من الاخوة الكرام كل من لديه كود يضيفه وأجر الجميع على الله وتسهيلاً على اخواننا في متابعة الموضوع اردت وضع فهرس بالمشاركات التي تحتوي على الاكواد وهنا الفهرس مقسم على ثلاثة أجزاء يحتوي على هذه المشاركات وهذه الملفات من النوع (Pdf) ............................................................ الجزء الأول من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الأول.rar ............................................................ الجزء الثاني من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثاني.rar ............................................................ الجزء الثالث من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثالث.rar ............................................................ و هذه النسخة الاولى من برنامج محفظة الاكواد جمعت فيها جميع اكواد هذه الحلقات من هذا الموضوع المحفظة المفرغة من تصميم الاستاذ الكبير خبور جزاه الله خيرا محفظة اكواد_النسخة1.rar أخوكم محمد يحياوي
    1 point
  3. تتميز الفكره بادخال حركات المخزن على صفحات الاكسيل مباشره لا على نوافذ حيث السرعه ستكون اكبر ومن الممكن انزال البيانات Copy و PAST اهدى اليكم الفكره لكل اصدقاء المنتدى مع المطالبه لكل مفكرى المنتدى باى اضافات ممكنه وذلك للافاده للجميع كارته مخزن.rar
    1 point
  4. برنامج شئون الموظفين يعمل بالتاريخين الهجرى والميلادى. امكانية البحث برقم الموظف . امكانية ربط الموظف بصورة الموظف من اى مكان من الحاسب (وليس وضع الصور بجانب الملف كما كان مسبقا). امكانية حذف موظف او تعديل بيانات الموظف . اصدار تقارير عن موظف واحد بطباعة بياناته فى صفحة مستقلة. امكانية تصدير التقارير لملف اكسيل جديد باسم جديد. البحث بين تاريخين . امكانية طباعة عدد من الموظفين سواء (اسم الموظف - الراتب - الاقامات - الادارة التابع لها - او اى بيانات مدخلة ). التحكم فى تغيير اسم الشركة . نافذة امان قبل الدخول للبرنامج بكلمة مرور يمكن اظهار النافذة او اغلقها. امكانية التحكم فى اعدادات المظهر (خلفية البرنامج - لون الخط ). للاطلاع عن المزيد من الصور والشرح للبرنامج من هنا او الاطلاع على دليل المستخدم من البرنامج شكر خاص للأستاذ/ عبد الله باقشير حيث استخدمت الكثير من اكواده الاكثر من رائعه وكذلك باقى الاعضاء الاخرين ملاحظة : باسورد نافذة الامان الافتراضى 12345 باسورد vba وقاعدة البيانات وفتح الملف 12345 لابد من تمكين الماكرو ليعمل الملف فى النهاية نسألكم الدعاء بظهر الغيب emp.rar
    1 point
  5. السلام عليكم ورحمة الله أخي الكريم، جرب المرفق لعل فيه المطلوب، مع إضافة صفوف بعدد الأشهر لكل سنة في الجدول المرحل إليه (يمكن تصفية الصفوف الفارغة حسب مثلا العمود الثاني) وإضافة تسمية لنطاق البيانات "المصدر" بالتسمية Rng... أرجو أن يفي الغرض المطلوب... أخوك بن علية Test.rar
    1 point
  6. الوقت والتاريخ اضف تكست واكتب فيه ()Now= بالنسبة للمستخدم باعتبار ان هناك جدول خاص بالمستخدمين وفورم خاص بالدخول وليكن اسمه login وحقل اسم المستخدم اسمه user سوف تضيف تكست وتكتب فيه =[forms]![login]![user] بشرط ان يكون نموذج الدخول غير مغلق اى عند الدخول قم باخفاء النموذج بدلا من اغلاقه توضيح مرفق New Microsoft Access Database.rar
    1 point
  7. الأخت الفاضلة رشا يوسف يرجى عدم تخصيص عضو معين لتقديم المساعدة فلربما كان هناك من هو لديه حلول أفضل .. ويمتنع عن تقديم المساعدة بسبب ذلك الأمر إليكي الكود التالي عله يفي بالغرض 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
    1 point
  8. أخى و أستاذى الغالى أباالبراء بارك الله فيك مشكور أستاذى على الاضافة الجميلة لكن الدالة Concat لما جربتها وجدت أنها تربط خلايا نطاق كامل و لا تنفع مع الخلايا المتباعدة ولا أنا مش واخد بالى
    1 point
  9. انا اصوت لبرنامج العيادة, وكنت اظن ان لديك التصور الكافي لبرنامج العيادة. وعليه انت الان مخاطب بالبحث عما تحتاجه العيادات الطبية اذا كان تصويتي سيجعل الاختيار منتهي. الله يعينك ^_^
    1 point
  10. السلام عليكم ورحمة الله أخي الكريم، هذا حل من الحلول وأرجو أن يفي الغرض المطلوب... أخوك بن علية مكافأة أعضاء هيئة التدريس.rar
    1 point
  11. أخي راعي الغنم يرجى مشاركتك في التصويت لان التعادل هو الحكم الى الأن وكما قال أخي رمهان بالنسبة لبرنامج العيادة يفضل وجود اصحاب خبرة في هذا المجال لدعم المشروع لكن أصحاب الخبرة للأسف غير متوفرين في هذا المجال عندي فإن كان أحد من أعضاء المنتدى عنده الخبرة في هذا المجال فليتفضل بالمشاركة
    1 point
  12. السلام عليكم: في البداية اعتذر عن التاخر عن الرد بسبب عدم دخولي بالنت بالمرة.. ثانيا:الفكرة جميلة جدا, لكن اخشى انها قد تصيبك بالاحباط لسبب واحد هو انك ستصدم بقلة التفاعل والتجاوب والذي سببه ليس انتقاص الاخرين لموضوعك ولكن لأختلاف مشارب واهتمامات الاخرين والتي قد لا تتوافق مع اختيارك لأحد المواضيع اعلاه. وكما ترى ان 99% من المشاركين هم ممن يدخلون ليجدوا المساعدة من الاخرين وحسب, بينما 1% هم من يتصدرون لمساعدة الاخرين وهؤلاء يعدون بالاصابع هذا ان وجدوا الوقت الكافي للمشاركة.. كانت لي فكرة مشابهة لفكرتك وهي "بناء مشروع مختبرات طبية" وكنت قد قطعت فيه مشوار لاباس به ولكن حال الجريض دون القريض واظنك تعلم مايمر به اليمن من مخاض لايبعد عما انتم فيه بسوريا, ومن الممكن اشاركك ماقد قمت به ولك الخيار في البدء من جديد او اكمال المشوار والامر يعود اليك.. اعلم ان التصويت قد انتهى وانا اشد على يديك واقول الله يعينك وانا معك من الالف الى الياء حسبما تسمح به الظروف...
    1 point
  13. ألف شكر أستاذي الغالي على التّشجيع الطيّب أخوك / عبد العزيز البسكري
    1 point
  14. السلام عليكم ما شاء الله بارك الله يوزر فورم ممتع ومرن...جزاكم الله خيراً..أخوكم أبو يوسف.
    1 point
  15. السلام عليكم و رحمة الله و بركاته تفضّل أخي الفاضل مثالا على ذلك : التاريخ باسم اليوم الميلادي و الهجري بإمكانك تضيف أو تخذف أو تغير أرقام الليبلات مثلما شئت التاريخ الميلادي و الهجري.rar
    1 point
  16. السلام عليكم اخي رمهان انا حتى الان لم أبدأ في التصميم وسأبدأ ان شاء الله اليوم بأول خطوة في التصميم وهي تحليل البرنامج وسأقوم بالتحليل في المنتدى ثم نناقش موضوع التحليل وبعدها ننشئ قاعدة البيانات (الجداول) وهكذا خطوة خطوة وارجوا منك التصويت على برنامج معين فقد تساوت الاصوات بين المخازن و العيادة الطبية أما بشأن برنامج المحاسبة الذي ذكرته وهو من تصميمي فأنا بالنسبة لي عليه ملاحظات كثيرة أريد ان أتجاوزها ببرنامج جديد فيما بعد وشكرا جزيلا للأخ العزيز مارد على مروره الكريم وأقول لك قد لاحظت أن معظم من في المنتدى يبحثون عن برنامج مخازن لكن سابقا صممت برنامج مخازن ولكن حاليا البرنامج غير مفتوح المصدر والنسخة مفتوحة المصدر ذهبت أدراج الرياح مع تعطل الهارد ديسك عندي تحياتي لكما الاه مارد والاخ رمهان
    1 point
  17. اخى الكريم بارك الله فيك وانى منذ ان شرفت بتسجيل فى منتدانا الغالى وجدت ان اكثر من يبحث يبحث عن برامج للمخازن (راى شخصى ) لذلك على بركة الله اقترح برنامج مخازن
    1 point
  18. أخي الحبيب سليم أرى أن معادلة الأخ محمد الريفي أبسط وتؤدي نفس الغرض لما اللجوء إلى معادلة صفيف ومعادلة طويلة بهذا الشكل ... قد يكون الأمر له فائدة أخرى غابت عنا ، يرجى ذكر الفائدة
    1 point
  19. اخ عبدالله اسمح لي بالراي الشخصي التالي : 1. ارى انك بدأت وانهيت الموضوع في فترة وجيزة ولم يظهر هنا حاجتك للتعاون من الخبراء وكان فقط راي الاخوة الاعضاء وهنا كذلك لم تعطي مساحة للنقاش ووضع تصور لاطار العمل 2. العمل ليس سهلا فكان الله في عونك ولا شك في قوة فائدتها للتعلم بشرط اكتماله في وظائفه متمنيا عدم التوقف في جزئية معينة وهذا مايحدث غالبا في هكذا فكرة 3. هل لديك الخلفية في سير عمليات العيادات الطبية ام ستستعين بصاحب خبرة او عميل حالي .. انصح بوجود احدهما اخيرا : كان احد البرامج المقترحة برنامج محاسبي وهنا http://www.officena.net/ib/topic/61446-برنامج-محاسبة-accurate-من-تصميمي/ هل تقصد انشاء برنامج مختلف ؟ ولماذا ؟ بالتوفيق
    1 point
  20. الموضوع مش مفهوم اخ عبدالله تماما ! ولكن يمكن وحسب الصورة التي ارفقتها في الرد رقم 5 انك تقصد انشاء القوائم او بالانجليش Ribbon وعن طريق ال xml وليس ال html ؟ هذا والله اعلم
    1 point
  21. عظم الله اجرك اخي مارد واحسن الله عزاؤكم ! وهذه سنة الحياة لا يجزع منها مؤمن !
    1 point
  22. اخى الكريم انا لله وانا اليه راجعون عظم الله أجركم وأحسن عزاءكم وغفر لميتكم واسكنها فسيح جناته وان يجمعنا بها بالفردوس الاعلى انا لله وانا اليه راجعون
    1 point
  23. السلام عليكم ورحمة الله وبركاته..أخي مارد عظم الله أجركم وأحسن عزاءكم وغفر لميتكم...إنا لله وإنا إليه راجعون لله ما أعطى ولله ما أخذ وكل شيء عنده بمقدار...فلتصبر ولتحتسب... ملاحظة:لا نسمي مرضاً بالخبيث مهما اشتد أثره وعظم خطره ...بل قل - إن شئت - مرض إليم ..مرض خطير ... والسلام عليكم ورحمة الله وبركاته.
    1 point
  24. البقاء لله.. الله يرحمها
    1 point
  25. شكراَ اخي محمد على هذه المغادلة لكن اذا اردت ان تشمل كل النطاق من 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),"")))
    1 point
  26. بسم الله ما شاء الله أخي الغالي المتميز مختار تسلم الأيادي وتكيد الأعادي .. تسلم يا ابن بلادي إليك زيادة في الخير .. دالة لدمج القيم في خلية واحدة ويمكنك تحديد نوع الفاصل بين القيم من خلال المعادلة 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 تقبل تحياتي
    1 point
  27. مشكور أخي محمد الخازمي على مرورك الجميل وتشجيعك لي وسأضم صوتي الى صوت وأختار عيادة طبية وإن شاء الله سأبدأ غدا في مشاركة جديدة تصميم البرنامج تابعنا غدا في موضوع جديد
    1 point
  28. السلام عليكم على ما أظن الفكرة لم تعجب سوى عضوين من المنتدى وكانت نتيجة التصويت صوت للمحاسبة وصوت للمخازن وانتهت مهلة التصويت والنتيجة تعادل ولا أدري هل كيف أبدأ أم ألغي الفكرة من الاساس
    1 point
  29. إنا لله وإنا إليه راجعون الأخ مارد عظم الله أجركم في فقيدتكم و غفر لها ما تقدم وما تأخر وأسكنها فسيح جناته آمين.
    1 point
  30. الله يرحمها و يرحم اموت المسلمين امبن يارب العالمين
    1 point
  31. لله ما أخذ وله ما أعطى وكل شيء عنده بمقدار احسن الله عزاءك وجبر مصابك وغفر لوالدتك ان لله وانا اليه راجعون
    1 point
  32. عظّم الله أجركم اللهم اجعل مثواها الحنة
    1 point
  33. عظم الله اجركم استاذ مارد ربي يرحمها ويلهمكم الصبر والسلوان تغمدها الله برحمته الواسعة نسئل الله ان يجعل مرضها تكفيرا لذنوبها
    1 point
  34. لله ما اخذ ولله ما أعطا احسن الله عزاءكم
    1 point
  35. اخي العزيز مارد لله ما اعطى و له ما أخذ و كل شئ عنده بمقدار عظم الله اجركم و رحم ميتتكم و غفر لها و اسكنها الفردوس الاعلى من الجنة و الهمكم الصبر و السلوان انا لله و انا اليه راجعون
    1 point
  36. عظم الله لك الأجر وأحسن لك العزاء والله يرحمها برحمته ويسكنها فسيح جناته
    1 point
  37. ربنا يبارك فى حضرتك يااستاذنا محمد الحسن الف شكر على هذه التهنئه الغاليه اشكرك استاذى واخى المهندس ياسر الذى يسعدنى دائما بمروره
    1 point
  38. السلام عليكم ورحمة الله وبركاته وبعد اولا : احب ان ابارك لكم بقرب شهر الخير والبركات .. شهر رمضان .. فكل عام وانتم بخير ومبارك عليكم الشهر الفضيل جعلنا الله واياكم من صوامه وقوامه .. امين ثانيا : اسمحو ان ارفق مع هذه التهنئة هدية بسيطة في كيفية الترقيم التلقائي بفكرة استخدام خصائص مربع التحرير والسرد وكقيمة افتراضية وهي فكرة اكثر من ان تكون معلومة ! وحسب استراتيجية يبدا الترقيم من اعلى رقم ! تكمن الفائدة الاكثر بتعديل مصدر الاستعلام بوضع شروط معقدة لفلترة قائمة التحرير والسرد للحصول على الترقيم المطلوب مثلا : ترقيم بداية كل سنة - ترقيم باختلاف الصنف .. الخ . فالترقيم ينظر الى الارقام التي بالقائمة وحسب وجودها ! هذه المعادلة او التعبير للترقيم : =Nz([id_no].[itemdata]([id_no].[ListCount]-1);0)+1 يمكن وضع الخاصية ممكن = لا التطبيق بالمرفق ولكم خالص تحياتي aotu_num.rar
    1 point
  39. شكراً للجميع لقد وجدت الحل بالبحث قمت بتغيير ايميل الحساب الى الياهو و استخدمت POP3
    1 point
  40. أبني وأستاذى (ابني في العمر الزمنى وأستاذى في العلم) رأيت في موضوعكم الجميل سيمفونية وأنت المايسترو فيها وتجاوب الاخوة معك باقي عازفى الأوركستر، ولم أكن أرى هذا الجمال البرمجي في الإكسل إلا في هذا الموقع الموقر تنمياتي بدوام التقدم والرقي
    1 point
  41. برنامج مخازن واصناف ملىء بالاكواد والمعادلات متكامل ان شاء الله والكثير والكثير ونعتمد عليه كليا فى شركتنا ويعمل بشكل جيد جدا البرنامج مفتوح بالكامل ويمكن بشكل بسيط اضافة مخازن واصناف كارتة صنف.rar
    1 point
  42. الاخ/ mahmoud شكرا للتهنئة بالعيد الان كيفية تحويل الارقام من الانجليزية للعربية بالاكسل اكسل 2003 و 2010 تحويل الارقام للعربية.rar
    1 point
  43. السلام عليكمو ورحمة الله اعزائي اخوتي في الله ارجو عمل كود VBA يقوم بالبحث والتجميع للمندوب عند كتابة ID الخاص به ويظهر بالتجميع علي شكل Text وليس معادلة ارجو ان لا اكون ثقيل في طلبي شكرا أخوكم أحمد مطلوب بديل بالكود للـ VLOOKUP.zip
    1 point
  44. أخى الفاضل / تـــــامر السلام عليكم تفضل أخى الفاضل تم عمل اللازم .. يارب ندخل فى موضوع جديد تحت أمركم .. نحن معا .. أخبرنى project 10.rar
    1 point
  45. لا دا كتير كله نازل يحل بطرق مختلفة (لسه الجراب ياما يحاوي) إليكم طريقة أخرى أخوكم أبو البراء Baraa.rar
    1 point
  46. الأخوة الأعزاء مرفق ملف أرجو المساعدة بعمل ماكرو لتنفيذ الآتي : ربط الخلية B2 بملف من نوع Pdf بمعنى اذا كانت الخلية تساوي 4 يتم فتح الملف باسم 4 واذا كانت الخلية = 5 يتم فتح الملف باسم 5 والملفات كلها من نوع Pdf علماً مرفق مجلد به ملف اكسل وعدد 2 ملف من نوع Bdf. ان كان ذلك بالأمكان أرجو المساعدة ولكم جزيل الشكر _____________________Pdf.rar
    1 point
×
×
  • اضف...

Important Information