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

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

  1. د.كاف يار

    د.كاف يار

    الخبراء


    • نقاط

      6

    • Posts

      1,681


  2. ابو عارف

    ابو عارف

    الخبراء


    • نقاط

      6

    • Posts

      481


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

    سليم حاصبيا

    أوفيسنا


    • نقاط

      4

    • Posts

      8,723


  4. Ali Mohamed Ali

    Ali Mohamed Ali

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


    • نقاط

      4

    • Posts

      11,621


Popular Content

Showing content with the highest reputation on 17 سبت, 2019 in all areas

  1. فورم اضافة ومسح وحذف وتعديل و بحث بعددة طرق مختلفة الفيديو الصور
    2 points
  2. فورم سرى الدخول لمجموعة من العاملين الفيديو
    2 points
  3. تفضل اخي التعديل على طريقة تحديد سجلات 37 سجل في كل صفحة test120 (1).mdb
    2 points
  4. أحسنت استاذ سليم اكواد ممتازة وهذا من حظ الأخ مجدى لطفى فالحل الذى قدمه استاذ سليم من افضل واروع الحلول التى سوف تقدم فى حالة موضوعك هذا-فلم يترك اى جزئية من متطلبات الحل والا قام بعلاجها فى هذا الحل ولا يوجد أفضل من هذا الحل لكى يقدم من اى شخص أخر ,جزاك الله خير الثواب استاذ سليم وجعلك الله لنا دائما ولجميع الأعضاء زخرا ومنارة ومرجعا لنا دائما يجب عليك استاذ مجدى بالضعط على الإعجاب لهذا الحل الممتاز -لو بيدى قد قمت بالضغط على الإعجاب والشكر لأستاذنا الكبير عدة مرات بارك الله فيك وزادك الله من فضله
    2 points
  5. جرب هذل الملف أولاً الماكرو Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$C$1" Then Call filter_me(Range("A3").CurrentRegion, 6, Target.Value) End If Application.EnableEvents = True End Sub '=========================================== Sub Create_dat_val() Rem created By Salim Hasbaya On 17/9/2019 Dim s1 As Worksheet: Set s1 = Sheets("sheet1") Dim ro_n: ro_n = s1.Range("A3").CurrentRegion.Rows.Count Dim i% Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary") With s1 For i = 4 To ro_n dict(.Range("F" & i).Value) = "" Next With .Range("c1").Validation .Delete .Add xlValidateList, Formula1:=Join(dict.keys, ",") End With End With dict.RemoveAll End Sub '=========================================== Sub filter_me(rg As Range, n, My_st) Rem created By Salim Hasbaya On 17/9/2019 If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData rg.AutoFilter End If rg.AutoFilter field:=n, Criteria1:=My_st End Sub '=========================================== Sub Show_Me_All() Rem created By Salim Hasbaya On 17/9/2019 If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Range("A3").CurrentRegion.AutoFilter End If End Sub ثانياً الملف Filter_By_Select.xlsm
    2 points
  6. تفضل اخي الكريم هذه فكرة مبدئية بناء على جدول الاكسل في ما بعد تستطيع انشاء شهادات لحضور الدورات و امور كثير بإستطاعتك تنفيذها اسم المستخدم : Admin كلمة المرور : 123 ** مع العلم لقد تركت المصدر مفتوح لكي تستيطع التعديل عليها و طلب المساعدة تدريب.mdb
    2 points
  7. السلام عليكم ارجو الحصول على مساعدة في كيفية تطبيق نظام الوارد اولا صادر اولا في الاكسس امثلة او شروحات عملية تحياتي
    1 point
  8. و هذا حل آخر على طريقة مختلفة قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar
    1 point
  9. الله يبارك فيك اخي واستاذي الفاضل ابو ياسين جزاك الله كل خير
    1 point
  10. اعمل قاعده جديده واستور كل شي الى الجديد او حاول تعمل ضغط واصلاح
    1 point
  11. أخي انقل الامضاء من تذييل التقربر الى تذييل الصفحة و تنحل المشكلة ان شاء الله
    1 point
  12. طالما انك لم تقم برفع ملف -فكان لزاما عليك استخدام خاصية البحث فى المنتدى فهناك العديد من الموضوعات التى تخص طلبك ومنها https://www.officena.net/ib/topic/95467-فورم-اضافة-وتعديل-وحذف-وحفظ-الملف/
    1 point
  13. السلام عليكم عادة ما تكون هذه الاسطوانات مدفوعة و ليس مجانية و هنا فى الموقع لا نسمح بنشر ما لم يسمح صاحبه بتداوله بالبحث على جوجل ستجد مواد مجانية كثيرة اون لاين مثال اضعط هنا
    1 point
  14. جازاكم الله بارك الله فيكم
    1 point
  15. الأخ الفاضل اسلام سيد فقط قم برفع الرصيد السابق من التفصيل الى رأس التقرير عسى أن يكون المطلوب قيمه فى حقل اريدها تظهر فى اول سجل فقط.zip
    1 point
  16. السادة الزملاء الأفاضل محتاج مساعدتكم لنسخة برنامج أكسس لمتابعه الأقساط يتم البيع بالتقسيط
    1 point
  17. قبل فترة نزلت برنامج بهذا الخصوص ابحث في المنتدى بتلاقيه
    1 point
  18. اخى الفاضل ابو زاهر هو للأسف صورة الباركود لم تكن واضحة تماما بحيث يتم قرائتها بذراع القارئ المتوفر لدى(Metrologic MS5145) .. ولكنى قمت بإنشاء نفس الباركود (60190-312300) عندى وطبعته سواء على الطابعة العادية او طابعة الباركود (Zebra TLP 2844) وتم قرائتهم بكفاءة .. وأرفق اليك صورة الباركود الذى قمت بطباعتة عندى .. جرب قرائته .. فإذا قرأه تمام ففى هذه الحالة يجب أن تعرف نوع خط الباركود المتوفر لديك حتى يتم تمكينة على قارئ الباركود الخاص بك .. وإذا لم يقرأه بصورة صحيحة أيضا .. فأعتقد والله أعلم أن السبب يرجع لإعدادات نظام الويندوز لديك. مرفق: 1-صورة PDF للباركود 2-تعليمات تمكين والغاء تمكين انواع الأكواد الخاصة بذراع قارئ الباركود وإن أمكن المحاولة مرة أخرى بإرسال صورة واضحة يا سلام لو بكاميرا ديجيتال 🤩😀 ودعنى أجرب معك والله الموفق BarCode.rar
    1 point
  19. الله يفتح عليك ممتاز والله العظيم ربنا يرفع قدركم وباقى الحقول جعلتها تساوى انفس الحقل فى النموذج الرئيسى (فى القيمه الافتراضيه )
    1 point
  20. السلام عليكم مجرد مشاركة الفكرة MsgBox DateSerial(Year(DT), IIf(Day(DT) <= 15, Month(DT), Month(DT) + 1), 1) [DT] اسم الحقل التاريخ
    1 point
  21. استاذي الفاضل ابا جودي الله لايحرمنا من شخصك الكريم والطيب بارك الله فيك وجزاك الله خيرا وجعلها الله جل وعلا في ميزان حسناتك يارب نعم هذا هو المطلوب ممنون منك يا طيب
    1 point
  22. عليكم السلام المشكلة اتك ربطت نموذج الرئيسي و الفرعي بثلاثة حقول منهم العميل و المورد و للحل تلك المشكلة اكتفاء على ربط حقلي السريال فقط من كل نموذج مشكله الحقل الفارغ.accdb
    1 point
  23. اخي الكريم يوجد خطأ في بناء الجداول اقترح عليك الآتي - جدول الأطباء ( المفتاح الرئيسي رقم الطبيب) - جدول المرضى ( المفتاح الرئيسي رقم المريض ) يجب اضافة المفتاح الرئيسي لرقم الطبيب - جدول المستهلكات ( المفتاح الرئيسي رقم المادة ) المفتاح الرئيسي لرقم المريض / كذلك بالامكان اضافة المفتاح الرئيسي لرقم الطبيب و تفيد في حال الرغبة باستخراج تقرير بالمستهلكات من طرف كل طبيب لو لاحظت بأن الربط اصبح هرميا او تراكميا بهذه الطريقة يسهل عليك عمل التقارير و ربط الجداول مع بعضها الربط الأول :( ربط جدول الأطباء مع جدول المرضى) الربط الثاني : ( ربط جدول المرضى مع جدول المستهلكات " باعتبار انها محسوبة على المريض " )
    1 point
  24. الف شكرا لك اخي الكريم على هذه الكلمات المحفزة و المشجعة و مرورك العطر
    1 point
  25. ماشاء الله دئما مبدع اخي حسن كمال
    1 point
  26. 1 point
  27. انظر الى هذا الاستعلام وأستاذى العزيز واخى الحبيب الاستاذ @kha9009lid اكتشفت شئ بمرفق اخونا الحبيب الاستاذ @مرحبا البي ماذا ان كان التاريخ >>----> 16/12/2019 لقد قمت بعمل الكود الاتى لحل هذه المشكلة Function RD(MyDate As Date) Select Case Nz(Month(MyDate), "") Case Is <= 11 Select Case Nz(Day(MyDate), "") Case Is <= 15 RD = Format("01" & "/" & Format(MyDate, "mm/yyyy"), "dd/mm/yyyy") Case Is > 15 RD = Format("01" & "/" & Format(MyDate, "mm") + 1 & Format(MyDate, "/yyyy"), "dd/mm/yyyy") End Select Case Is = 12 Select Case Nz(Day(MyDate), "") Case Is <= 15 RD = Format("01" & "/" & Format(MyDate, "mm/yyyy"), "dd/mm/yyyy") Case Is > 15 RD = Format("01/01/" & Format(MyDate, "yyyy") + 1, "dd/mm/yyyy") End Select End Select End Function ---------------------- test5.accdb
    1 point
  28. بارك الله بك استاذ علي و زيادة في توضيح الامور هذا الملف From To.xlsx
    1 point
  29. بارك الله فيك استاذ سليم وهذا يتم بمعادلة المصفوفة -فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات =IFERROR(INDEX($D:$D,SMALL(IF($A:$A=$G$5,IF($B:$B>=$H$5,IF($B:$B<=$H$6,ROW(B$6:B$7000)-ROW(B$6)+1))),ROWS($K$6:K6))),"") Book11.xlsx
    1 point
  30. جر ب هذا الشيء Evaluation _Salim.xlsx
    1 point
  31. تحياتي، جرب هذه المرة الملف المرفق لعل فيه ما تريد وزيادة... بن علية حاجي سند.xlsx
    1 point
  32. 1 point
  33. وعليكم السلام-تفضل هذا الكود Option Explicit Sub opening_multiple_file() Dim i As Integer With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Filters.Clear .Filters.Add "Excel Files", "*.xls*" If .Show = True Then For i = 1 To .SelectedItems.Count Workbooks.Open .SelectedItems(i) Next i End If End With End Sub
    1 point
×
×
  • اضف...

Important Information