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

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

  1. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      10

    • Posts

      9,814


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

    سليم حاصبيا

    أوفيسنا


    • نقاط

      5

    • Posts

      8,723


  3. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      4

    • Posts

      6,818


  4. حسين مامون

    حسين مامون

    الخبراء


    • نقاط

      3

    • Posts

      1,284


Popular Content

Showing content with the highest reputation on 18 ديس, 2020 in all areas

  1. ان كان ما تقصد هو نسخ الفاتورة ولصقها في اخر صف فارغ من نفس الورقة فاليك هذه التجربة المتواضعة ******تحياتي******* Sub copy_fact() Dim lr lr = Cells(Rows.Count, "g").End(3).Row + 5 Range("A1:H33").Copy Range("a" & lr) End Sub جدول.xlsm
    3 points
  2. جرب هذا الكود Option Explicit Sub auto_formula() Dim Mx% With Sheets("النتيجة") Mx = .Cells(Rows.Count, "B").End(3).Row .Range("A10").Resize(Mx - 9).Value = _ Evaluate("Row(1:" & Mx - 9 & ")") With .Range("AK10").Resize(Mx - 9, 3) .Formula = _ "=IF($AJ10=AK$7,COUNTIF($AJ10:$AJ$10,$AJ10),"""")" .Value = .Value End With End With End Sub
    3 points
  3. فورم شرح كيفية كتابة سورة الاخلاص على الاكسل الفيديو حمل الملف
    2 points
  4. السلام عليكم.. في موضوعي هنا شرحت طريقة منع الحفظ بواسطة التاب، طريقة مملة صراحة وممكن الأغلب لا تعجبهم.. وانا اتصفح بخيارات الفورم وجدت خيار في قائمة ( غير ذلك ) قم بتغيير الخيار من كافة السجلات الى السجل الحالي وسلامتكم. تحياتي, حسنين
    2 points
  5. حيا الله الدكتور حسنين 🙂 في الواقع الاكسس فيه الكثير من المزايا اللي تمكنك من عمل برنامج بعدة طرق ، وبسرعة 🙂 جعفر
    2 points
  6. الآن ومعي تركيز حضرتك ، صحيح انك تقدر تعمل 255 حقل في جدول ، ولكن مجموع عدد الحروف التي يمكنك ادخالها في السجل الواحد هو 4000 حرف ، وبشرط ان ان يكون : . بالاضافة الى المشكلة التي عندك الان في الاستعلام ، هذه مشكلة اخرى قد تصادفك في برنامجك ، بالاضافة الى ان البرنامج سيكون في غاية البطئ ، ومُعرض للتلف 😬 اذا تحب اساعدك في تفكيك برنامجك واعادة برمجة الجداول ، اخبرني 🙂 جعفر
    2 points
  7. همممم الظاهر لازم اثبت لك 🙂 طيب ، انا حذفت جميع الجداول ، ما عدا جدول واحد فقط ، علشان يكون البرنامج خفيف 🙂 وادخلت بيانات في الحقول (حقول النص) ، فرجاء ادخل اي معلومة تحب في اي من حقول النص، مثلا الحقول Remarks400 وما بعد ، وبعدها نتكلم ان شاء الله 🙂 جعفر Database1.zip
    2 points
  8. وعليكم السلام 🙂 عندك مشكلة في تصميم قاعدة بياناتك ، ويجب اعادة النظر فيها !! ملاحظاتي هي: عندك 5 جداول مطابقة لبعض في حقولها ، ويمكن استعمال جدول واحد فقط بدلا عن هذه الخمسة ، وذلك بإضافة حقل "الفرع" في الجدول ، عدد حقول الجدول الآن = 136 حقل ، والعدد المعقول حوالي 30 حقل ، لذا يجب عليك تفكيك الجدول الى عدة جداول ، تفكيك الجدول الى عدة جداول يكون حسب نوع الحقول ، فممكن جمع كل مجموعة في جدول واحد ، وعمل حقل serial في كل جدول ، ويأخذ نفس رقم الجدول الاساس ، ويكون هذا بعد عمل علاقة بين هذه الحداول بواسطة هذا الحقل ، عندك بعض الحقول مكررة مثل: Number1 ، Expire Date1 ، Remarks1 وتصل الى 15 ، مما يعني ان الجدول الخاص بهذه الحقول يكون فيها حقل واحد من هذه الحقول ، وبياناته مكرره ، لا تستعمل lookup للحقول ، وانما اعمل جدول خاص بهذه البيانات ، ثم من النموذج تختار القيمة التي تريدها ، لا يجعل الصور مضمنه في الجدول ، وانما احفظها في مجلد على الكمبيوتر ، واربطها بالبرنامج ، سواء بربطها برمجيا ، او عمل حقل مسار الصورة في الجدول. وبعد ان تعمل هذه التغييرات ، فيكون نقل الموظف من فرع الى آخر ، يكون فقط بتغيير قيمة حقل الفرع فقط ، وبدون نقل البيانات بين الجداول 🙂 جعفر
    2 points
  9. ‏ طريقة حفظ الخط المستخدم داخل ملف الورد طريقة حفظ الخط المستخدم داخل ملف الورد كي يستطيع الاخرون عرض الخط عند فتح الملف حتى لو كانت الخطوط غير مثبتة بكومبيوترهم https://youtu.be/9zNMSdmcZY0 ضمين الخطوط في ملف الوررد واضهارها باي كومبيوتر بدون مشاكل طريقة حفظ الخط داخل ملف الوررد فلما نرسل المستند لاي شخص سوف يظهر عنده الخط حتى لو كومبيوتره لا يح... حول موقع الويب هذا youtube.com طريقة حفظ الخطوط داخل ملف الورد كي يستطيع الاخرون عرض الخطوط حتى لو كانت الخطوط غيرمثبتة بكومبيوترهم الكود للنابغه ساجده العزاوي
    1 point
  10. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته اولا واخرا وقبل كل شئ سبحانك لا علم لنا الا ما علمتنا يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك الحمد لله الذى هدانا وما كنا لنهتدى لولا أن هدانا الله عزوجل أحبابى واخوانى الكرام أضع بين اياديكم تلك الهدية البسيطة المتواضعة راجيا من الله عزوجل تنال اعجابكم ورضاكم MultiSelectInContinuousForms (V2).mdb
    1 point
  11. اذا أردت تغير الاسم عليك بتعديله داخل كود الربط داخل البرنامج الي الاسم الذب تريد هذا كل شىء علي ما أعتقد فأنا لم أطلع علي المرفق
    1 point
  12. أذن صار لكل معلم ملف خاص! هذا سهل.. سهل الله أمرك.. الآن، نعم.. بعدها هذا التوضيح، لدي اقتراح فيما يتعلق بتصفية البيانات.. في اعتقادي أننا لسنا بحاجة إلى إنشاء جدول مؤقت لترحيل البيانات إلى أكسل! بل يمكن استخدام جدول الطلاب مباشرة! المنهج CopyFromRecordset له محددان إضافيان هما عدد الأعمدة، وعدد الصفوف المطلوب جلب البيانات منها في مصدر السجل.. إذا أردنا مزيدا من التحكم..
    1 point
  13. أخي فايز ... المفروض كل شعب المعلم الواحد تكون مرتبطة بالمعلم نفسه من خلال علاقة يفهمها البرنامج .... حتى اذا كتبت الكود في التصدير للاكسل يبدأ بالمعلم س وينفذ تصدير كل شعبه بالترتيب الى ملف الاكسل ثم يبدأ بمعلم آخر وهكذا تكون العملية صحيحة في رأي الخاص .... بارك الله في الجميع
    1 point
  14. أحسنت البيان أ. محمد.. وفي نظري أن بقاء كل شعبة في ورقة مستقلة أرتب للبيانات وأسهل في التعامل!
    1 point
  15. أولا- باعتذر لتأخري بالرد فانا لا أزور الموقع الا بشكل متقطع هذه الأيام ثانيا- لنصل الي الحل الذي يرضيك أعد النظر فيما قال أستاذنا أبو ابراهيم. ما هي الآلية التي ستضيف بها بيانات الشعبتين في الشيت الواحد هل ستكون اسماء الشعبة الأولي أولا ثم بيانات الشعبة الثانية تحتها بنفس الأعمدة أم سيتم تغير موضع ادخال كل شعبة أوضح لنا هذه الجزئية لكي نستطيع المساعدة؟ كيف تريد أن يكون شكل بيانات الشعبتين داخل الشيت الواحد؟؟
    1 point
  16. اولا فى وضع التصميم اختر مربع النص الخاص بالتأشير ثم بعد ذلك اذهب الى conditional formatting >>---> التنسيق الشرطى وغير ما بدك بس لا تحكى السر لحد
    1 point
  17. ركزت في التفاصيل مثل متفضلت تمام الموضوع مشي معي صحيح بس لون الاصفر تبع التأشير من وين ابدلة الى لون اخر
    1 point
  18. وعليكم السلام 🙂 مافي فرق بين نموذج منضم ومرتبط بإستعلام/جدول ، وبين نموذج غير منضم ، الاسرع يكون عند استخدام الطريقة الثالثة من خلال استخدام استعلام اكسس عادي 🙂 فالطريقة الاولى ، الاكسس يحتاج الى ان يعمل Compile لجملة الـ SQL التي ستضعها في الامر ، ثم ينفذ الامر ، والطريقة الثانية تحتاج الى ان تجلب الجدول الى ذاكرة الكمبيوتر العشوائية ، ثم تقوم بالمطلوب 🙂 جعفر
    1 point
  19. اولا لا شكر على واجب ثانيا ارجوك بدون القاب لازم تركز فى التفاصيل
    1 point
  20. تمام شفت المربع بس متصورت هو صاحب المشكلة ههههه على العموم تسلم استاذي
    1 point
  21. الف شكر اخ على محمد على دائما سباق بالرد
    1 point
  22. 1 point
  23. 1 point
  24. كل الشكر والتقدير لاخوانى الكرام واساتذتى على مشاعركم الطيبة تنويه بسيط .. تم التعديل على المرفق بحذف سطرين كنت قد نسيت ازالتهما اناا جدا اسف ☺️ كما تم تفعيل هاى لايت عند التأشير باختيار السجل على كامل السجل كنت قد نسيت ايضا تفعيله محدش يزعق انا عرفت غلطى
    1 point
  25. أهلا @كريمو2 كان بإمكانك تكوين علاقات بين الجداول ضمن الاستعلام واستخدام الحقول مباشرة دون اللجوء إلى استخدام دوال التجميع! لدي تحفظ على هذا المقطع من الاستعلام QryCD ...FROM (SELECT Company.CompanyID AS EmployeeID... راجع المرفق رجاءً.. Trans CD.mdb
    1 point
  26. الخطأ كان على مستوى الجزئية التالية [ImagePath2].Picture = [ImagePath2] ' هنا الخطأ [ImageFrame2].Picture = [ImagePath2] ' التصحيح
    1 point
  27. في هذه الحالة لا حاجة للفلتر (معادلة بسيطة) Fahd.xlsx
    1 point
  28. جزاك الله خيراً ونفع الناس بعلمك وزاد من العلم
    1 point
  29. السلام عليكم هذا الملف المطلوباللجان الانتخابية في كويت اليوم.xlsx
    1 point
  30. السلام عليكم ورحمة الله وبركاته ان شاء الله يكون هذا اللي تطلبونه .. alkwait.xlsx
    1 point
  31. السلام عليكم .. معكم ساجدة العزاوي من العراق خريجة جامعة بغداد/ علوم حاسبات / برمجة صفحتي التعليمية على الفيس بوك بعنوان ( اكسل vba برامج تطبيقات مع ساجدة العزاوي ) https://www.facebook.com/sajidaalazzawi313/ قناتي على اليوتيوب متخصصة فى تقديم الشروحات فى كثير من المجالات الكومبيوتر والموبايل (سوفت وير, اكسل vba, ورد, بوربوينت, ببلشر, , شرح برامج وتنصيبها . .يوتيوب https://www.youtube.com/channel/UCSEHgnsy257rL_Wca02Tx_w من بعض فديوهاتي لحل مشاكل تواجهنا في برنامج الوررد حل مشكلة التعداد الرقمي الترقيم التلقائي في الوورد ظهور مسافة بين الرقم والنص ساجدة العزاوي word حل مشكلة خروج الجدول خارج حدود الورقة في الوررد Microsoft word ساجدة العزاوي ترقيم صفحات فردية وزوجية مختلفة يمين يسار في رأس وتذييل الصفحة Microsoft word ساجدة العزاوي
    1 point
  32. الاساتذه الافاضل / @أبو عبدالله الحلوانى - @kha9009lid انا متابع للموضوع باهمية قصوى ولذلك اقترح مجرد اقتراح ولكم الافضلية - بان يكون الحوار عملى شوية بمعنى اننا تعلمنا من حضراتكم المقصود من عمل البرنامج هو بيع وشراء واستخراج التقارير اللازمة لذلك يعنى ايه المانع من ان نقوم اولا بتكوين الجداول مع شرح فائدة كل جدول فى كلمتين فقط - ثم نقوم بتكوين الاستعلامات وبناءا عليه نقوم بالحوار حول النقاط الهامة التى تؤدى بنا الى المراد ـ ثم يأتى دور النماذج والتقارير يعنى بناء برنامج بيع وشراء جملة وقطاعى خطوة خطوة وانا متأكد ان عدد كبير من الاخوان سوف يتابع معنا لانه موضوع ذو اهمية كبيرة مجـــــــــــــــــــــــــــــرد اقتراح
    1 point
  33. استاذ محمد لي عودة للتعقيب باذن الله
    1 point
  34. استاذ وليدفوده أين الضغط على الإعجاب ؟!!!!!!!!!
    1 point
  35. السلام عليكم ورحمة الله وبركاته يا من تعشقون سيرته، ويا من ترجون شفاعته، صلوا عليه وسلموا تسليما صلى الله عليك ياحبيبى يارسول الله كل عام وانتم بخير بمناسبة المولد النبوى الشريف ========================================================= اساتذتى فى هذا الصرح العظيم اوفيسنا اخواتى فى الله اقدم اليكم دالة HYPERLINK بدون استخدام اى دوال وسيطه مثل ال VLOOKUP اوINDIRECT او اى داله من دوال البحث الاخرى ====================================================== تقبلوا منى خالص تحياتى تعلم دالة hyperlink.rar
    1 point
  36. الموضوع جيد و الى الامام لكن عندي ملاحظتين ارجو تقبلها: 1- لا ضرورة لتحديد صفحة مجمد ثم نسخها (يكفي نسخها فقط) 2-في حال ادراج اسم موجود في العامود C او ان الخلية فارغة يحصل خطأ بالكود لذلك لتفادي هذا الخطأ يمكن اضافة شرط على الكود وهو ان عدد مرات تكرار الاسم لا يتجاوز الواحد او ان الخلية غير فارغة ليبدو الكود يهذا الشكل Private Sub Worksheet_Change(ByVal Target As Range) Dim cont%, lr If Target.Column = 3 Then lr = Sheets(1).Range("c" & Rows.Count).End(xlUp).Rows.Value cont = Application.CountIf(Range("c:c"), Target) If cont > 1 Or IsEmpty(Target) Then GoTo Exit_Me Sheets("Mohamed").Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count).name = lr Sheets(Sheets.Count).[b1].Value = lr End If Exit_Me: End Sub
    1 point
  37. أخي الكريم محمد غانم إزاي معندكوش رقم قومي .. عموماً في وجهة نظري بدلاً من التعديل يمكنك اعتماد أي رقم كرقم قومي والموضوع هيكون بسيط .. بس هتخلي الأرقام دي بالشكل التالي أول رقم من الشمال اللي هو بيكون رقم 2 لمواليد 1990 لحد 1999 .. أو 3 لمواليد 2000 فما فوق بعد كدا الرقمين يخصوا السنة (سنة الميلاد) ، والرقمين اللي بعد كدا شهر الميلاد والرقمين بعد كدا يوم الميلاد .. وبقية الأرقام ممكن تفبركها أي أي أرقام .. والرقم التاني من جهة اليمين لو كان الطالب ذكر خلي الرقم فردي ولو أنثى خليه زوجي بالمثال يتضح المقال : لو عندك طالب اسمه "أحمد غانم" (غريبة طلع الطالب على اسمك) ... وتاريخ ميلاده 12 من شهر فبراير لعام 2006 يبقا الرقم القومي هيكون بالشكل ده : 30602123300015 الأرقام من الشمال : 3 ، 06 (السنة) ، 02 (الشهر) ، 12 (اليوم) وأي 7 أرقام بس المهم الرقم التاني من جهة اليمين يكون فردي (لو ذكر) وزوجي (لو أنثى) والرقم دا ممكن تستخدمه ككود للطالب لأن الرقم دا لا يتكرر بأي حال من الأحوال تقبل تحياتي
    1 point
  38. هذا الشرح الذي كنت قد وعدتك به المؤلف : كريستوف وارين والمترجم: محمد علوي صوصي _____________DAO.rar
    1 point
×
×
  • اضف...

Important Information