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

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

  1. محمد أبوعبدالله

    • نقاط

      6

    • Posts

      1,998


  2. الرائد77

    الرائد77

    الخبراء


    • نقاط

      5

    • Posts

      238


  3. أبوبسمله

    أبوبسمله

    الخبراء


    • نقاط

      5

    • Posts

      3,240


  4. husamwahab

    husamwahab

    الخبراء


    • نقاط

      4

    • Posts

      1,047


Popular Content

Showing content with the highest reputation on 19 يون, 2020 in all areas

  1. مع انني لا أحب ان اتعاطى مع اليوزر فورم بجميع اشكاله لكن بما انك عضو جديد فأهلاً وسهلاً بك جرب هذا الملف تم وضع كود لزر الاضافة يمكنك اضافة الأكواد لبقية الأزرار Moh_Mos.xlsm
    4 points
  2. بعد اذن حبيبي abouelhassan تفضل Private Sub CommandButton1_Click() Sheets("feuil3").Activate Sheets("feuil3").Range("c69").Select End Sub
    2 points
  3. اولاً :تم اضافة حقل = Text6 في نموذج البيان ثانياً لا بد ان يكون نموذج = البيان مفتوح واليك الملف بعد التعديل مثال1.rar تحياتي
    2 points
  4. وعليكم السلام ورحمة الله وبركاته السبب اسم التقرير = État1 الافضل اعادة تسميته بحروف لاتينية ( انجليزية ) مثل = rpt1 تحياتي
    2 points
  5. وعليكم السلام فى مشكله عندك فى اعدادت اللغه لانى لما غيرت اسم التقرير لى Etat1 فتح المحرر عادى بالتوفيق مشكل في التقارير.accdb
    2 points
  6. تفضل اخي العزيز ارجو ان يكون طلبك mohamed hassan-10.rar
    2 points
  7. وجزاكم بمثل مادعوتم أخي الكريم النظام لدي يستخدم نواة 32 بت أما عندك فهي 64 بت وهو بحاجة تحديث الديكلير كما ترى وأنا بصراحة استخدمت كوداً لأحد الأساتذة الكرام يقوم بالتحويل من 32 إلى 64 بت ولم يفلح للأسف ، كنت قد نصحني منذ مدة أحدهم بحذف ما هو مكتوب بالأحمر ولا أدري إن كانت ستنجح هذه الطريقة. بانتظار أحد الأساتذة الكرام الذين لهم باع طويل في الأكواد والـ VBA ... تقبل تحياتي العطرة.
    2 points
  8. السلام عليكم ورحمة الله وبركاته من المعروف ان الاوفيس يأتي بصيغة 32 بت وصيغة 64 بت ، ونظام التشغيل وندوز كذلك يأتي بصيغة 32 بت و 64 بت ، وقد يختلط الأمر على بعض الاشخاص فيعتقدون بأنه يجب تنصيب الاوفيس 64 بت على الوندوز 64 بت ، بينما في واقع الامر ، فإن مايكروسوفت توصي بإستخدام الاوفيس 32 بت على جميع نظم التشغيل ، الرابط التالي من مايكروسوفت يوضح هذا: https://technet.microsoft.com/en-us/library/ee681792.aspx وهناك حالات خاصة لتنصيب الاوفيس 64 بت (كذلك المعلومة موجودة في الرابط اعلاه) ، وهذه الحلات لا تنطبق على الاكسس. ومن المعروف انه اذا كان لديك الاوفيس 64 بت ، فإن معظم البرامج السابقة والتي تحتوي على دالة API المحتوية على 32 بت ، فإن البرنامج لن يشتغل وسيعطيك أخطاء لذلك ، وكما يقول المثل: الباب اللي يجيك منه ريح ، سده واستريح فاذا عندك اوفيس 64 بت على جهازك ، فآن الاوان ان تمسح/تلغي تنصيبه ، وتنصب اوفيس 32 بت ---------------------------------------------------------------------------------------------------------------- تحديث بتاريخ: 20-5-20 في الصفحة الرسمية لمايكروسوفت بتاريخ 8/3/2019 ، فإن مايكروسوفت الآن توصي بتنصيب الاوفيس نواة 64 بت ، وهي النواة التي يتم تنصيبها تلقائيا في الاوفيس 2019 والاوفيس 365. طبعا لا يمكن تنصيب الاوفيس نواة 64 بت ، إلا على الوندوز نواة 64 بت. شو فائدة هذه الرسالة لنا؟ اعتقد من الافضل ان نبدأ بتحويل برامجنا الى النواة 64 بت ، فقد يأتي اليوم الذي تُلغى في نواة 32 بت جعفر
    1 point
  9. محتاج مساعده انا جديد فى موضوع الاكسل بالنسبة للاكواد انا صممت فورم محتاج بس انه يرحل البيانات استطلاع.xlsm
    1 point
  10. بسم الله الرحمن الرحيم الحمد لله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه إخوتي ...أحبتي الكرام وأساتذتي الأجلاء السلام عليكم ورحمة الله وبركاته اعترافاً بفضلكم وجهودكم المتواصلة في إيصال المعلومة الصحيحة والعلم النافع أقدم تجربة في إعداد برنامج مخازن جمعت به من كل بستان زهرة نهلت من علمكم وقد رأيت دروساً للأستاذ الكريم عماد غازي فطبقتها في محاولة صنع برنامج لا يصل إلى غبار علمكم فلكم السبق في كل شيء وكذلك نسخت أكواد شاشة البداية من أستاذي الصقر (لا يوجد جديد إلا محاولتي إعداد برنامج فلا تؤاخذونني على التقليد الذي لا أعتبره كذلك)... أرجو أن أكون قد خطوت خطوة إلى الأمام...راجياً منكم إبداء آرائكم به علماً أنني اعتمدت الجداول بدلاً من النطاقات وقد تكون نقطة ضعف لدي اسم المستخدم :admin كلمة المرور: 123 حماية الأوراق داخل المصنف دون كلمة مرور والسلام عليكم. ملاحظة: يرجى توجيهي نحو كل خطأ أو تقصير لاستدراكه برنامج المخازن.xlsm
    1 point
  11. برنامج بسيط لتسجيل طلاب الصف الأول ويصلح لجميع المراحل ابتدائى / اعدادى / ثانوى كلمة السر 1970 تقديم الصف الأول.rar تقديم الصف الأول.rar
    1 point
  12. الحمد لله من انت بخير كل غيبة بسلامة انا جربت طريقة الاستاذ ابو البشر لكن نفس الحال ساحاول ارسال الملف ان امكن مع تقديري واحترامي
    1 point
  13. السلام عليكم استاذ khasem اعتذر جدا من عدم الرد وذلك لوجود مشكلة في الانترنت وانت اعلم بحال النت عندنا هناك طريقة تقلل ضغط معالجة البيانات وهو ان نجعل تحديث البيانات لمدرسة مدرسة لانه الكود الحالي يقوم بالتحديث مع كل عملية تغيير للبيانات وذلك لعدم معرفتي بحجم البيانات الفعلي المهم اذا كانت الطريقة مفيدة بالنسبة لك فسنعتمدها husamwahab1974@gmail.com وهذا هو الاميل رغم ان هذا الحجم للملف حسب ما اعتقد لايمكن ارساله ملاحظة : هل جربت الطريقة التي اشار اليها الاستاذ ابو البشر وضغط الملف الذي اقصده هو عن طريق برامج الضغط مثل winrar وعذرا للاطالة
    1 point
  14. حضرتك على راسى ربنا يحفظك استاذنا بارك الله فيك استاذنا
    1 point
  15. اتفضل اخى ازهر ان شاء الله يكون ما تريد بالتوفيق الجمع باكثر من شرط.accdb
    1 point
  16. عاشت ايدك ابو عبدالله هذا هو المطلوب. ايضا اشكر اخوية محمد احمد على الاهتمام. شكراً لجميع اعضاء منتدانا الزاهر بالعطاء.
    1 point
  17. التحويل بواسطة برنامج VB6 نسخة خفيفة حوالي 30 ميقا وتعلمتها من المنتدي ويوجد شرح مفصل للطريقة بالمنتدى للاستاذ ياسر العربي حيث قام بشرح تفصيلي لربط الاكسل بالفيجوال بيسك والتحكم بملف الاكسل عن طريقه واما التحويل الى EXEفهي ميزة موجودة بالفيجول بيسك. https://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/ تحياتي
    1 point
  18. لعدم جعل قيم الصفر تظهر هده الميزة موجودة في أوفيس بدون معادلات 1 2 3 انزع علامة الصح من show zero in a cell that have zero value
    1 point
  19. اصدقائي وجدت الحل للتحويل بين 32 و 64 وهو اضافة كلمة ptrsafe مثل النموذج التالي Private Declare PtrSafe Function FindWindow Lib "user32"
    1 point
  20. شاكر ومقد أخ يوسف بفتح الكمبيوتر بعد شوي واجرب غفر الله لك ووالديك ومن تحب
    1 point
  21. اكتب الدالة بهذه الطريقة If DCount("[اسم الحقل]", "اسم الجدول", "[حقل المعيار] = 'CA'") Then ' Or If DCount("[اسم الحقل]", "اسم الجدول") > 0 Then تحياتي
    1 point
  22. استاذنا الفاضل عبد اللطيف سلوم الله يبارك في حضرتك جزاك الله خيرا الصحة والعافية والسلامة لك
    1 point
  23. اتفضل اخى ازهر ان شاء الله يكون ما تريد =IIf([L1]<>"";Nz(DSum("N1";"TBR";"[W]='X' and [L1]=" & [IDL]);0);" New Microsoft Access قاعدة بيانات(2).accdb
    1 point
  24. لا شكر على واجب ولك بمثل ما دعوت لا تنس اختيار أفضل إجابة حيث أن الموضوع أصبح مكتمل
    1 point
  25. مشكور استاذى بارك الله فيك ربنا يحفظك يارب
    1 point
  26. تم عمل التحقق من الصحة بحيث لا يتم الكتابة في العمود B إلا إذا كانت الخلية A2 بها بيانات وأيضا العمود C لا يتم الكتابة إذا كانت الخليةالمجاورة بالعمود B فارغة وأيضا العمود D لا يتم الكتابة إذا كانت الخليةالمجاورة بالعمود C فارغة وأيضا العمودE لا يتم الكتابة إذا كانت الخليةالمجاورة بالعمود D فارغة وأيضا العمودF لا يتم الكتابة إذا كانت الخليةالمجاورة بالعمود E فارغة وتم عمل معادلات بالعمود G للاستعانة حتى يتم الترحيل عندما تكون الخلايا من B : E غير فارغة وإلا لا يتم تنفيذ الترحيل وتظهر رسالة بيانات ناقصة New Microsoft Excel Worksheet2.xlsm
    1 point
  27. هذا بالفعل ما اريده جزاك الله خيرا وجعله فى ميزان حسناتك اشكرك لاهتمامك شكرا جزيلا على اهتمامك بسؤالى جزاك الله خيرا . عند الضغط عن الزر لا يظهر اى بيانات فى الكمبوبوكس
    1 point
  28. وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تم التعديل على خصائص النموذج ومصدر البيانات تشغيل 2.rar تحياتي
    1 point
  29. عليكم السلام استاذي العزيز فترة طويلة جدا لابد من وجود مشكلة هل ممكن ارسال جدول البيانات فقط وحاول ضغطه ورحم الله والديك وانا بخدمتك
    1 point
  30. تفضل تم تعديل الكود ليعمل بشكل أسرع بكثير من قبل Financial.xlsb
    1 point
  31. هل هذا هو طلبك ... mohamed hassan.accdb
    1 point
  32. تفضل أخي الكود يعمل بسرعة جيدة في حالة وجود بيانات أكثر . يعمل جيدا Private Sub CommandButton3_Click() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.EnableEvents = False If MsgBox("سيتم الحذف هل أنت متأكد؟", vbQuestion + vbYesNo) = vbYes Then Sheets("الأصناف").Cells(r, 1).EntireRow.delete MsgBox "تمت عملية الحذف بنجاح" For Y = 1 To 7 Controls("textbox" & Y).Value = "" On Error Resume Next Next Y ListBox1.Clear UserForm_Activate Else Exit Sub End If Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.DisplayStatusBar = True Application.EnableEvents = True End Sub حذف صنف.xlsm
    1 point
  33. و اذا تقصد اسم الدخول user name راجع هذا الرابط ، به شرح لتغيير اسم الدخول و الاسم الحقيقي أسماء الدخول ، و الأسماء الحقيقة للأعضاء
    1 point
  34. بارك الله فيك ... و لك بمثل ما دعوت به و زيادة تفضل المرفق بعد التعديل .. قمت بالغاء تفعليل الزر بدلاً من اخفائه .. بالتوفيق ss.rar
    1 point
  35. السلام عليكم 🙂 اما انا فأتفق مع اخوي عبداللطيف ان هذه المعلومات متوفرة في الانترنت ، واللي يريد هذا الشيء يمكنه الحصول عليها 🙂 ولكن اللي ما اتفق فيه مع اخوي عبداللطيف هو مخالفة قوانين المنتدى بوضع السيريال في البرنامج المرفق ، مما يجعله "مخالف لحقوق الملكية الفكرية" للبرنامج المرفق ، لذا وجب حذف رابط التحميل 🙂 جعفر
    1 point
  36. صديقي لو بحثت على اليوتيوب لتجد العديد من هذه البرامج انا قصدت مساعدة من ينسى الرقم السري اما من يريد اخذ برامج الاخرين فذنبه على جنبه
    1 point
  37. اتفضل حسب طلبك ان شاء الله ادخال بيانات.accdb
    1 point
  38. وعليكم السلام اخى واستاذى @Khalid Jnb حمدالله على السلامه منور 💐 اتفضل من اخى فاننى استزيد من مشاركتكم جزاك الله خيرا 💐 تقبل تحياتى وحمدالله على السلامه
    1 point
  39. السلام عليكم ورحمة الله وبركاته كل ما سيأتي الفترة القادمة هو كيفية التعامل مع الادوات والفورم مثال باذن الله عن كيفية عمل برنامج بسيط لتشغيل القرأن الكريم من موقع tvquran كالعادة نبدأ بالادوات عدد فورم واحد كومند للخروج واحد image اداة الويب الشرح كما موجود امامنا الفورم وعليه الادوات الصورة والزر وصفحة النت فقط لتعديل الفورم بهذا الشكل يتم عمل كما في الصورة الاتية بعد اخفاء الشريط نأتي للصورة خلصنا من الصورة ندخل علي اداة الويب بعد وضع كل الادوات بهذا الشكل نقوم بوضع اسهل كود وهو كالتالي اول كود في الكومند1 Private Sub Command1_Click() End End Sub ثاني كود وهو في حدث تنشيط الفورم وظيفة الكود فتح الموقع www.tvquran.com/add/index.htm Private Sub Form_Load() WebBrowser1.Navigate "www.tvquran.com/add/index.htm" End Sub دائما الملف بعد الانتهاء منه لا يظهر في الاسفل في taskbar نقوم بتعديل الفورم كالاتي ليظهر في التاسك بار عند تشغيله واالاختيار بأسفله center screen لوضع الفورم في منتصف الشاشة عند الفتح كان هذا المصحف هدية لاخي الغالي ابو يوسف منذ فترة والان تم وضع كيفية عمل الهدية نفسها علها تنفعنا وتنفعكم والسلام عليكم يتبع مرفق المصحف ملف تنفيذي والمشروع المصحف.rar
    1 point
×
×
  • اضف...

Important Information