اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

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

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

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


    • نقاط

      8

    • Posts

      13165


  2. جلال الجمال_ابو أدهم

    • نقاط

      3

    • Posts

      1417


  3. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      3

    • Posts

      8723


  4. أبو حنــــين

    أبو حنــــين

    الخبراء


    • نقاط

      2

    • Posts

      2845


Popular Content

Showing content with the highest reputation on 10/16/16 in all areas

  1. بارك الله فيك أخي الغالي أبو حنين الكود الخاص بك يظهر اللغة العربية بحروف غريبة .. أخي الكريم وائل جرب الملف التالي ، وإن شاء الله يفي بالغرض .. سيظهر لك نافذة تحدد من خلالها المجلد الذي يحتوي الملفات النصية قم بتحديد المجلد لتظهر لك كل النتائج في العمود الأول .. Copy All Text Files From Folder To Worksheet YasserKhalil Officena
    2 points
  2. مرحبا أخى الفاضل ابو حنين "اخوكم في الله" سابقا فكم لكم عندى من فضل نسأل الله أن يجزيكم عنا خيرا أجرب ثم أوفيك اخى بالنتيجة وشكر الله لك اهتمامك ومشاركتك الطيبة جعلها الله في ميزان حسناتك
    2 points
  3. السلام عليكم قمت بوضع كود لكن الكتابة ظهرت غير سليمة جرب الكود عندك بوضع الملفات النصية في نفس مسار ملف الإكسيل Sub Get_My_File() Dim i As Integer, M Set M = CreateObject("Scripting.FileSystemObject") Set iPath = M.GetFolder(ThisWorkbook.Path & "\") i = 1 Application.ScreenUpdating = False For Each iFile In iPath.Files If Right(iFile.Name, 3) = "txt" Then Open iFile For Input As #1 Cells(i, 1) = Input$(LOF(1), 1) Close #1 i = i + 1 End If Next Application.ScreenUpdating = True End Sub
    2 points
  4. اثراء للموضوع هذا الملف يمكن للمستخدم اختيار عدد الصفوف المطلوب اخفاءها مع كل كبسة Hide choosen rows.rar
    2 points
  5. السلام عليكم ورحمة الله وبركاته أحمد شوقي ، من الأعضاء الفاعلين المتميزن في منتدنا العتيد، وقد امتاز برفع مجموعة كبيرة من الأمثلة الرائعة والمفيدة. أحببت هنا، حفاظا على تراث المنتدى أن ألخص لكم ما قدمه أخي شوقي المعطاء حتى الآن "مستخدما كلماته الجميلة" : 1. ( مراسلات ) يعني نظام محفوظات او الصادر والوارد او سميه زي ما انت عايز 2. ( مسج بوكس بتاع الاكسس ) يعني message box بس انت اختار نوع البوكس عايزه ايه ( ستوب - استعلام - تنبيه - باسوورد ....؟ ) وتختار العلامة وتكتب انت عايزيطلع معاك في البوكس 3. ((( مسير رواتب ))) لقيته من المخزن عندي مدفون وعدلت عليه شئ بسيط جدا ( يعني خلفية وشوية لوازم ) مع الاعتذار لصاحب الموضوع اللي انا مش عارفه بس انشاء الله ربي يجازيه خير 4. اجندة مواعيد ( خواجات ) وبشغلات حلوة اخليك انت تشوف وتحكم 5. اجندة مواعيد بالاكسس , حلوة جدا جدا وطريقة جديدة ومش حتصدق انها معمولة بالاكسس 6. ازاي تبعت ايميل بكشف درجات الطلبة او الطالب باستخدام الاكسس ( شغل خواجات ) 7. اقولك ايه ... طب بص على الازرار دي وقولي رايك ...... بالذمه مش حلوة 8. البرنامج اسمه ( المهن والحرف ) وهو خاص بتسجيل اعضاء في مؤسسة حرفيه ومهنية وفتح ملفات وظيفية لكل عضو وكمان عاملها الاستاذ ( كمال النحال ) اللي عامل البرنامج عاملها انترفيس حلو 9. البرنامج ده بتاع شغل الباراكود (( جامد )) عبارة عن ADDIN وبيديك خاصية التعامل مع الباراكود من خلال الاكسس 10. البرنامج ده بيصلح قاعدة البيانات بعد ما تنضرب ويرجع البيانات التالفة وينقذك بكل تأكيد من مأزق محقق 11. البرنامج ده عبارة عن برنامج تربوي تنظيمي للمدارس .... يعني بيخدم قطاع التعليم 12. الرشاقة .......... يعني ايه ؟؟؟؟ طيب ايه علاقة الاكسس بالرشاقة ......... بص وشوف واحكم انت بنفسك ؟؟؟؟ 13. الشامل للتقيم الاداري بالمؤسسات التعليمية, برنامج كامل ورائع بالاكسس يخدم المؤسسات التعليمية 14. المؤذن بالاكسس 15. المرفق عبارة عن سجلات منسقة على فورم ...... سهلة ......... لا لا استنى مش اي فورم 16. آه ..... ودي بقه قاعدة بيانات كاملة وحلوة وانيقة ( حركات الميكروسوفت ) لادارة المراكز التجارية بس بغير شكل .... جرب وشوف الحلاوة 17. اهو مثال اخر للساعات ........ بيديك توقيت مدن وعواصم في العالم 18. مثال حلو يارب يعجبكم عن كيفية النسخ ومكان النسخ وكيفية اجراء نسخ احتياطي للقاعدة .... ممكن ترفقه ببرنامجك وتسوي به حركات فنانة ومحترفة 19. بالاستعانة بخبرات الخبراء في منتدانا اوفيسينا ... ادامه الله استطعت ان البي رغبة صديقي ببناء قاعدة بيانات لجهة عمله ( المرافق والاسكان ) 20. بر نامج النهارده بيحولك قاعدة بياناتك لـ SQL 21. برنامج بالاكسس لصناعة ازرار احترافية للاكسس 22. برنامج محاسبة ثقيل اجنبي على الاكسس اسمة ( بيت البيانات DataHouse 4.2 ) مش بس كدة ده معاه المانوال بتاعوا او كتيب التعليمات 23. برنامج مسير رواتب - كلمة سر 123 24. برنامج يخدم اصحاب المصحات البرنامج ده بعمل ريبورت لحالات المرضى عن بنض القلب وضغط الدم وعمليتي ( السيستول والدياستول ) يعني ( الانقباض والانبساط القلبي ) 25. تحويل الملفات mde الى mdb 26. تعرف ترسم خريطة بالاكسس وادل على مكان ؟؟؟ خريطة جغرافية يعني ؟؟؟ ولا صعبة ولا حاجة 27. ثلاث برامج ( 3 ) لعمل رسائل الاكسس 28. جايبلكم كتاب حلو ...ز استفدت منه في بداية تعليمي للاكس ودلني عليه احد اخوتي في المنتدي ... الكتاب ده اسمه اكسل & اكسس بس تحفه ... خطوة بخطوة لغاية الاحتراف 29. حد منكم فكر يتجوز ؟؟؟؟؟؟؟ طيب ليه ما تحمل البرنامج بتاع شغل الاكسس ده وتتفرج وتشوف انت عايز ايه علشان تتجوز ؟؟؟؟؟ اوعوا تتخضوا 30. برنامج اكواد الاكسس ... كمان معمول بالاكسس حيديك ( الاكواد المستخدمة في النماذج - والاكواد المستخدمة في الجداول - والاكواد المستخدمة في التقارير والماكروات وكل شئ 31. صيانة قواعد البيانات المعطوبة وطريقة استخدامه بسيطة وسهلة للغاية 32. صيدلية ..... علشان الصيادلة ما يزعلوش ( كاملة ومفتوحة المصدر ومفيش باس وورد ولا حاجة ) 33. طب وعلى ذكر سيرة التعليم ... مرة لقيت برنامج كان عاملة الاستاذ حسام سفر .. طيب الله ذكره ... برنامج عن المعاهد وكل ما يختص بالمعاهد التدريبية او التعليمية ... يعني شؤون الطلبة ... شؤون ا 34. قاعدة بيانات اسلامية معمولة بالاكسس فيها طريقة العرض وطريقة البحث واشياء اخرى ممكن تكتشفوها وحدكم 35. قاعدة بيانات بالاكسس وواجهة استخدام حلوة لمصحة طبية اسمها ( مصحة مرحبا ) . يوجد بها خيارات عديدة تخدم الجانب المالي والجانب الوظيفي والرواتب ونسبة الطبيب من كل حالة كشف على مريض 36. قاعدة بيانات لجهة عمله ( المرافق والاسكان ) 37. قاعدة بيانات للمخالفات المرورية مش كبيرة ولا معقدة ........... بسيطة ... بس شاشتها حلوة ..... تنسيقها جميل 38. قاعدة بيانات للموظفين 39. قاعدة بيانات لمعظم الادوية المصرية 2008 40. كل كوم ولما تعرف امكانية اكسس في عمل صفحات انترنت .... وموقع كامل معمول بالاكسس ... ده هو اللي مش معقول 41. كمان برنامج الميزان للمحاسبة التجارية والميزانية العمومية شجرة الحسابات الرائعة و........ البرنامج كامل من كله ومفتوح المصدر يعني ( بالسورس كود ) جميل وقوي وبدون اي حماية 42. مثال اخر حلو برضة عن كيفية تغيير الخط واختيار اللون ونوع الخط .......... ممكن تستفيد منه باضافة الخاصية الى برامجك 43. مثال عن الجمعيات التعاونية قاعدة البيانات مقسمة الى قسمين ( واجهة استخدام + قاعدة بيانات لتخزين البيانات ) 44. مثال يشمل استخدامات عديدة للميكرو 45. محاسبة لمكتب تدريبي ( بيدي دورات في الحاسب الالي واللغات ..... ومش عارف ايه ) 46. برنامج مخازن 47. ننظام محاسبي حلو .... طريقة تقسيم قاعدة البيانات الى قسمين ... واجهة هيكلية لادخال البيانات و قاعدة بيانات لاستيعاب البيانات ... حلووووو جدا 48. نظام مخازن ومبيعات وعملاء ومحاسبة تكاليف ومشتريات كلمة السر 11796376 49. هو برنامج كامل لمحلات الحلويات ( زبائن وحلويات وفواتير وموظفين ومبيعات ومشتريات ومردود مبيعات وطلبيات واحصائيات وتقارير ..... حلو طبعا مفتوح المصدر 50. وده بيديك معلومات عن الهارد ديسك بتاعك 51. وده مثال اجنبي عن كيفية اجراء النسخ الاحتياطي لقاعدة البيانات ... المثال لقاعدة بيانات زبائن وبضائع بالصور 52. وده مثال حلو لامكانية تكيبر الصورة وتصغيرها .... ابداعات في الاكسس ملهاش حدود 53. ودي ...... ايوه ..... دي اله حاسبة .... بش مش زي الة حاسبة ثانية ... دي الة حاسبة للمعادلات الكيميائية .... يعني مركبات كيميائية واوزان جزيئية و... بلاوي زرق في الكيمياء 54. ودي قاعدة بيانات للخدمات الطبية للاخ اكسس من منتدانا ..... يعطيه العافية 55. يا سلام يا شباب ..... الباحث في القرآن بالاكسس ولمن عنده داون لوود سريع اقدم هذا الرابط من مخزني لديوان الشوقيات الذي يشمل (55) المثال المذكورة أعلاه بحجم مضغوط 50 ميجا بايت وبعد فك الضغط تصبح 176 ميجا بايت. أسأل الله أن يكتب لشوقي بكل حرف كتبه أو رفعه الأجر. إضغط هنا لإنزال الشوقيات ولمحبي شوقي اقدم هديتي لكم ، هذا البرنامج وهو عبارة عن فهرس لموضوعاته حيث يوضع المجلد السابق بعد فك الضغط عنه في الدليل الرئيس \:c ويوضع فهرس الشوقيات التالي في سطح المكتب ويصبح بذلك عندك أداة للوصول السريع للشوقيات. Ahmad_Shouqi.zip مع وافر الاحترام والتقدير
    1 point
  6. اخوانى بالموقع السلام عليكم ورحمة الله هنا اضع لكم قوائم الفصول بعد اضافة شيتات اعمال السنة وسميتها معدل 1 وكل تعديل سوف اجريها سوف انزله باسم اخر من الرابط التالى وفى شيت اعمال سنة ثانوى متصل تواجهنى صعوبة الطباعة لانه بيضبع صفحات خالية كثير اترك لكم الشيت ومنتظر لو هناك تعديل من احد الاخوة انا يسعدنى وسوف اكمل بعد ذلك انشاء الله لو فى العمر بقية كشوف المناداه وبيان توزيع اللجان http://up.top4top.net/downloadf-289uu6o1-rar.html
    1 point
  7. السلام عليكم من المرفقات القديمة ايضا لعبة حسابية على ما أذكر كانت للاخت روان من الفريق العربي للبرمجة جزاها الله عنا كل خير طريقة اللعبة هي ان تختار رقم من منزلتين مثل 25 او 39 او 44 وهكذا ثم تقوم بجمع المنزلتين 5+2 = 7 ثم تقوم بطرح 25-7 =18 ابحث عن الرقم 18 ضمن النموذج ثم ستجد بجانبه صورة ثم اضغط على زر شاهدني ستجد ان الصورة التي اخترتها قد ظهرت 8-3.rar
    1 point
  8. السلام عليكم ورحمة الله وبركاته حلول في غاية الروعة يعجز لساني عن شكركم .......ولكني أدعو الله لكم بظهر الغيب بارك الله فيكم فقد وسّع الله بكم ضيّقا أخوكم أحمد أبو محمد
    1 point
  9. شكرا جدا حضرتك تمام شغال زي الفل لو سمحت ضمن البروجيكت ده المفروض اني اعمل داله تجمع قيم معينه طبقا لرقم ثابت بمعني اني عندي مجموعه من الاصفف تاخد رقم 1 ومجموعه تاخد رقم 2 ومجموعه تاخد الرقم 3 يعمني اطلع مجموع كل الخلايا الي في الصف 1 ومجموع الخلاياا في الصفوف الي ليها رقم 2 وهكذا انا عملت جدول مع الفلتر بطلع قيمة المجموع بالفعل لكن مع استخدام الماكرو بيبتدي يكرر لي الصف الي في المجموع وده غير الي انا عاوزه يعني انا محتاج دايما الصف بتاع المجموع يبقي اخر اخر هل حضرتك في فكره معينه ممكن اطبقها مرفق صوره تمام وصلت ليها عن طريق دالة SUBTOTAL شكرا جدا لحضرتك
    1 point
  10. لقد وجدت حل الترقيم الالي التسلسلي في الكود التالي With Feuil19 Last = wr.Range("b31").End(xlUp).Row + 1 .Cells(Last, 1) = Last - 20 End With ولكن يبقى الاشكال عند الحذف على العموم اعلم ان الطلب شبه مستحيل و صعب اشكر كل من اطلع على الموضوع و حاول تقديم المساعدة ...واخص بالذكر الاستاذ ياسرالذي شرفني بمروره الطيب على الموضوع بارك الله في الجميع
    1 point
  11. السلام عليكم أخي الكريم وائل ..امنحنى بعض الوقت وإن شاء الله أحاول العمل على طلبك ... راعي أن لكل منا ما يشغله فالمنتدى نتواجد فيه قدر استطاعتنا
    1 point
  12. مرفق فورم الشيكات المستحقه لـ اخى الفاضل طلعت محمد حسن مطلوب التعديل 1_ تعديل بيانات الادخال بالفورم لتكون كالاتى اسم العميل (بحث بحساسية الاحرف) من صفحة تكويد رقم الوحده من صفحة تكويد قيمة الشيك تاريخ الشيك البنك الفرع ملاحظات 2 _ يتم ترتيب الشيكات المدخله تلقائيا حسب التاريخ 3 _ عرض كشف الشيكات المستحقه بالليست بين تاريخين و ليس تاريخ واحد فقط مع الجمع بالليست . 4_ تصدير الكشف الى شيت جديد لطباعته مع رؤوس العناوين فورم الشيكات القائمه.rar
    1 point
  13. تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة التعديل على الفورم تم ارفاق كود التعديل من الفاضل _ أ / طلعت محمد حسن و لا تنسونا من صالح الدعاء الكتاب بشكل ثاني تعديل 4 (1).rar
    1 point
  14. بعد اذن اخي ياسر أظن انني فهمت المطلوب المطلوب salim.rar
    1 point
  15. طلعت محمد حسن اخى الفاضل جزاك الله خيرا
    1 point
  16. السلام عليكم حسب ما فهمت ..جرب الكود التالي في حدث ورقة العمل حيث سيكون التأثير على الصف الذي يتم فيه التعديل فقط Private Sub Worksheet_Change(ByVal Target As Range) Dim Lr As Long Lr = Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False If Target.Row > 7 And Target.Row <= Lr And Target.Column = 18 Then Target.Offset(, 1).Value = Application.WorksheetFunction.Sum(Target.Offset(, -2).Resize(1, 3)) End If 'يمكن بنفس الطريقة تطبيق الثلاثة أسطر السابقة على بقية النطاقات مع تغيير طفيف Application.ScreenUpdating = True End Sub
    1 point
  17. 1 point
  18. تم تحويل كود البحث ليعمل من الصفحة ترحيل تفضل Book6.rar
    1 point
  19. تفضل اخي الكريم ( ان احسنت الفهم عنك) نصيحة ابتعد عن المسافات في التسمية مثلا In Port اكتبها InPorts هذا يسهل عليك التعامل برمجيا Project shipment 1.rar
    1 point
  20. مشكور اخي محمد سلامة رحمة الله على اموات المسلمين اجميعن
    1 point
  21. استاذى الفاضل اشكرك على المرور انا تلميذ لحضرتك هذا نتاج ما تعلمتة من حضرتكم يشرفنى مرورك الجميل جزاكم الله خير على هذة الردود الطيبة واتمنى لكم جميعا الفائدة ونسال الله العظيم ان يرزقنا الاخلاص فى القول والعمل
    1 point
  22. السلام عليكم و رحمة الله تحية طيبة مرفق المطلوب : New Microsoft Excel 97-2003 Worksheet (2).rar
    1 point
  23. السلام عليكم اخي الكريم تم التعديل على الملف حسب المطلوب علما بان كود البحث واستخراج الصورة هو من اعمال استاذنا القدير ياسر العربي حفظة الله . اقبل تحياتي واحترامي الكتاب بشكل ثاني تعديل 4.rar
    1 point
  24. وعليكم السلام أخي الكريم عاطف صراحة عندي مشكلة في فهم الملفات الخاصة بكم كمحاسبين لأنني لا أعمل بالمجال ولا أفهم طبيعة عملكم مما يجعلني أتوه في الملفات المرفقة ولا أصل لخيط أبدأ به العمل قم بشرح المطلوب بلغة الإكسيل ..صفوف أعمدة ورقة عمل .. حتى أفهم المطلوب كما وضح ما هي شكل النتائج المتوقعة والترحيل من أين سيتم وإلى أين سيتم وما هي شروط الترحيل بالتفصيل أرجو ألا تكون متضايق من ردي هذا
    1 point
  25. تفضل أخي الكريم الملف التالي عله يفي بالغرض إن شاء المولى رابط الملف المرفق من هنا
    1 point
  26. أخي الغالي مختار حسين تفضل باستخدام المصفوفات Sub Using_Arrays() Dim Arr As Variant Dim Temp As Variant Dim I As Integer Dim J As Integer Dim P As Integer Dim Cnt As Integer Dim tSum As Double Range("C6:I9").ClearContents Arr = Range("L5:R9").Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2) + 1) For I = 2 To UBound(Arr, 1) Cnt = 0: tSum = 0 For J = LBound(Arr, 2) To UBound(Arr, 2) If Not IsEmpty(Arr(I, J)) Then Temp(I - 1, Cnt + 1) = Arr(I, J) Temp(I - 1, Cnt + 2) = Arr(1, J) tSum = tSum + Arr(I, J) P = P + 1 Cnt = Cnt + 2 End If Next J Temp(I - 1, UBound(Temp, 2) - 1) = tSum Cnt = Cnt + 2 Next I Range("C6").Resize(UBound(Temp, 1), UBound(Temp, 2)).Value = Temp End Sub
    1 point
  27. أخي الكريم هل تريد الحل بالمعادلات وفقط أم ان هناك إمكانية للحل بالأكواد؟
    1 point
×
×
  • اضف...

Important Information