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

كل الانشطه

هذه الصفحة تحدث تلقائياً

  1. Today
  2. الاخ العزيز Eng.Qassim شكرا لك على مجهودك وسعة صدرك ولكن مساهمتك لم تكن هى ما أريد وجزاك الله كل خير الاخ العزيز احمد الفلاحجي جزاك الله كل الخير فعلا هذا ما كنت اريده فشكرا لك وجزى الله جميع الاخوة بالمنتدى الغالى كل الجزاء على علمهم النافع
  3. واياكم مهندسنا العزيز وفى انتظار الاخبار بعد التحرى استاذى انتم الاروع اخوانى واساتذتى وجزاكم الله خيرا هذه الخطوات بالترتيب يادكتور محمد
  4. واسف جدا لم انتبه الي افضل اجابة حذفتها
  5. Yesterday
  6. محتاج النموذجين الايداعات والمسحوبات يندمجو في نموذج واحد ويتعمل ليهم حساب تراكمي واسف جدا علي التعب والمجهود اللي هيبذل في حلها وان شاء الله هيكون في ميزان حسناتكم
  7. انا اسف جدا اني سؤالي متفهمش بالشكل المطلوب وتفضل النسخة التي بها النماذج Database164.rar
  8. استاذ محمد شكرا على مساعدك فعلت الذي قلته ولكن بعد تغيير كلمة المرور يتم الدخول على الحساب الجديد فما هو الحل ارجوك
  9. وعليكم السلام ورحمة الله وبركاته استبدل هذا الكود Sub ButtonClick(btn As MSForms.CommandButton) With btn If .Caption <> "" Then Me.TextBox1.Value = .Caption & "-" & Left(Me.CmbMonth.Value, 3) & "-" & Me.CmbYear.Value dte.TextBox1.Value = Me.TextBox1.Value Unload Me End If End With End Sub بهذا الكود Sub ButtonClick(btn As MSForms.CommandButton) With btn If .Caption <> "" Then Me.TextBox1.Value = .Caption & "-" & Left(Me.CmbMonth.Value, 3) & "-" & Me.CmbYear.Value If dte.TextBox1.Value = "" Then dte.TextBox1.Value = Me.TextBox1.Value Else dte.TextBox2.Value = Me.TextBox1.Value End If Unload Me End If End With End Sub
  10. عند ترحيل بيانات الليست بوكس للشيت لو الليست بوكس فيه اكتر من بيان بتتسجل عمودى فوق بعضها تاريخ - اسم -صنف تاريخ - اسم -صنف تاريخ - اسم -صنف (كدا الفاتورة بتاخد صفوف كتير) هل ينفع اخلى بيانات الليست بوكس تتسجل افقى جنب بعض (تاريخ - اسم -صنف *تاريخ - اسم - صنف* تاريخ - اسم صنف) وشكرا New Microsoft Excel Worksheet.xlsm
  11. لحين ما نرى سويا مفاجأة استاذنا موسي @Moosak جزاه الله خيرا وجدت لك هذا الموضوع لعله يقارب لما تريد
  12. فلو تكرمت بتوضيح ما تريد بامثلة مصورة وما هو شكل التقرير المطلوب والنتيجة النهائية للبيانات المعروضة كيف شكلها - حتي يستطيع من اتسع وقته للمساعدة ان يمد لك يد العون فكما تعلم فهم الشىء فرع عن تصوره وجزاكم الله خيرا - لصبركم علي قراءة هذا الرد المليىء بالثرثرة
  13. السلام عليكم ورحمة الله وبركاته اولا حضرتك لم تنتبه علي رد م/ @Eng.Qassim فان لم يكن قد تم ايجاد حل لمشكلتك فازل علمة الاجابة لانها توحي بان مشكلتك قد انتهت ثانيا - لم اجد النموذج اللي حضرتك ذكرته بالمشاركة الأخيرة ولم اجد بالمرفق سوي الجداول والاستعلامات
  14. أ / محمد فتح الله عليك ..............هو ده المطلوب يا هندسة ......بارك الله فيك واشكرك على اهتمامك وتعبك ...... اشكرك بجد
  15. طلب مساعدة في عمل استعلام لحذف المسافات الفارغة في اول الحقل باستخدام دالة tirm ليكون الاستعلام بهذه الصورة المرفقة . حيث عملته ونسيت خطواته شاكرين اهتمامك الكريم ..
  16. أخي علي أنهيت 90% تقريبا من العمل ولله الحمد ..🙂 بقي لدي سؤال .. هل ستكون الأيام من السبت الى الجمعة؟.. أم من الأحد إلى الخميس ؟
  17. أسف فيه مشكلة ظهرت عند اضافة سجلات جديدة و عند ملائها بالارقام يتم تحديث السجلات من الاعلى وليست نفس الخلية
  18. مادام من الله سبحانه و تعالى عليك بالاجابة افدنا بها حتى نتمكن من التعلم و شكرا حتى لا نكون من المستهلكين فقط ههههههه
  19. اعمل على مشروع قاعدة بيانات لجمعية خيرية قاعدة البيانات سيكون فيها اكثر من 300 فرد فى بعض الاحيان ترسل بعض الجمعيات مساعدات لنقوم بتوزيعها ولاضافة مثلا اكثر من 100 اسم لنموذج المساعدات امر مرهق جدا وصعب بحثت كثير عن طريقة لاضافة اسماء الحالات عن طريق كومبو بوكس الكومبو بوكس مبنى على فئة الحالات التى نود تقديم المساعدات او مبنيه على المناطق ولكن ماعرفت اعملها معنى كلامى عاوز اعمل فى فورم تسجيل المساعدات كومبو بوكس عندما اختار منه مثلا حالات الاولى بالرعاية يجيب لى كل الاسماء اللى موجوده فى القعدة تحت فئة الاولى بالرعاية او اختار من كومبو بوكس المنطقة الاولى يجيب لى من القاعدة كل المسجلين تحت قائمة المنطقة الاولى
  20. استاذنا كيف نحصل على هذه الخصائص التى حضرتك ارسلت صورة منها جزاكم الله خير
  21. اخي ضع الكود التالي في حدث التغير Private Sub Worksheet_Change(ByVal Target As Range) ' Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. ' Set KeyCells = Range("A1:C10") lastrow = æÑÞÉ11.Cells(Rows.Count, "b").End(xlUp).Row Set KeyCells = æÑÞÉ11.Range("b2:b" & lastrow) If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then ' Display a message when one of the designated cells has been changed. ' Place your code here. MsgBox "Cell " & Target.Address & " has changed." End If ' End Sub شاهد المرفق المصنف1.xlsm
  22. نقاش رائع أساتذتنا @احمد الفلاحجي @Eng.Qassim ☺️ أخي بلال وضعته لك في مثال 🙂 : تضع الدالة على مصدر صندوق النتيجة هكذا : =DateDiff("yyyy";DateAdd("yyyy";3;[From]);[To]) التواريخ.accdb
  23. جزاك الله خيرا اخي واستاذي @احمد الفلاحجي على هذه المعلومة بصراحة اخذت المعلومة لان لدي حاسوبين ..الاثنان يعمل بوندوز 7 ...لكن احدهما اوفيس 2010 والاخر 2013 وحينما اشتغل على الاول لا اضع الفاصلة المنقوطة !! ساتحرى عن الاعدادات
  24. الحمد لله الذي بنعمته تتم الصالحات جزاكم الله خيرا وأحسن إليكم أخي الكريم على هذه الكلمات العذبة التي سطرتها. .... آمين يارب العالمين 🏵️ وجزاكم بمثل ما دعوتم🤲. والسلام عليكم ورحمة الله وبركاته 💐🌺🌸😊
  1. أظهر المزيد
×
×
  • اضف...

Important Information