Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Leaderboard

Popular Content

Showing content with the highest reputation since 01/10/2021 in all areas

  1. السلام عليكم، كثيراً ما ارى طلبات "كيفية عمل صلاحيات المستخدمين" قمت بعمل مثال بطريقة مبسطة جدا لكيفية عمل هذه الصلاحيات في تحديد فتح النماذج لمن لا يعرف ماذا اقصد بصلاحيات المستخدمين, مثال: اليوزر A غير مسموح له بفتح فورم الاعدادات مثلاً، اما اليوزر B مسموح له بفتح فورم الاعدادات اي سؤال انا موجود. تحياتي لكم Permission.accdb
    7 points
  2. وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة =IFERROR(DATEDIF(TODAY(),E12,"y") & "سنة " &DATEDIF(TODAY(),E12,"ym")&" شهور "&DATEDIF(TODAY(),E12,"md")&" يوم ","") 1رقم قومي - نسخة.xlsx
    5 points
  3. وعليكم السلام-تفضل تاريخ التقاعد1.xlsx
    5 points
  4. وعليكم السلام-فقط يمكنك استخدام هذه المعادلة =IF([@[تاريخ الإنتهاء الفعلي]]="",[@[التاريخ المخطط للإنتهاء]]-[@[تاريخ إرسال المهمة]],[@[تاريخ الإنتهاء الفعلي]]-[@[تاريخ إرسال المهمة]]) المهام -2.xlsx
    5 points
  5. وعليكم السلام-تفضل لك ما طلبت بمعادلات المصفوفة ... لابد من الضغط على (Ctrl+Shift+Enter) بعد نسخ المعادلة وليس Enter فقط كباقى المعادلات MM1.xlsx
    4 points
  6. السلام عليكم 🙂 اعرف ان هذا الموضوع مخالف ، فلا علاقة له بالاكسس ، ولكن له علاقة بالمبرمج 🙂 ملف اكسل فيه اوراق لتسهيل قضاء الصلوات الفائته - أدوات عامة - أوفيسنا (officena.net) جعفر
    4 points
  7. السلام عليكم ورحمة الله وبركاته تفضل اخوي العزيز .. امكانية حذف البيانات الموجودة في DataEntry .. في الخلية W الى AK .. الا اذا انته تستخدمها في مكان اخر .. تم تغيير اسم الصفحة الى Report .. تم اضافة عدد الطلاب من ضمن الجدول الاساسي في العامود R .. All Subjects2 .xlsb
    4 points
  8. أهلا بك في المنتدى ..... اخي الكريم لو ارفقت مثال لما تريد لوجدت المساعدة من اعضاء المنتدى أهلا بك مرة اخرى في المنتدى
    4 points
  9. وعليكم السلام ... يمكنك استخدام هذه المعادلة بالتنسيقات الشرطية =OR(AND(I5=$F5,I5<>""),AND(I5=$G5,I5<>"")) حساب.xlsx
    4 points
  10. وعليكم السلام-تفضل أسماء جميع العاملين بالمدرسة.xlsm
    4 points
  11. أعزائي طلاب العلم، السلام عليكم ورحمة الله وبركاته، يسعدني أن أتواصل معكم من خلال هذه المنصة الرائدة في تقديم المعرفة وتبادل الخبرات التعليمية. سأقوم إن شاء الله تعالى من خلال هذا الموضوع بشرح خطوات عمل البحث العلمي أو بحث التخرج مع التركيز على العلوم الاجتماعية والتربوية. أيضا سيتم من خلال هذه الشروحات بإذن الله تعالى تقديم أمثلة عملية تدريبية للمهتمين من طلاب العلم ومناقشة اهتماماتهم البحثية. وسيتم تقديم هذه الدروس إن شاء الله على شكل سلسلة يتم فيها شرح خطوات البحث العلمي ومشروع التخرج واحدة تلو الأخرى وصولا إلى البحث كاملا. وسيتم بإذن الله تقديم شروحات واف
    3 points
  12. وعليكم السلام-عليك بإستخدام هذه المعادلة =IFERROR(IF($A2="خاص",VLOOKUP($O2,المسافة!$B$2:$G$110,6,0)/2,VLOOKUP($O2,المسافة!$B$2:$G$110,6,0)),"") معادلة - 1خاص.xlsm
    3 points
  13. وعليكم السلام اخوي ابو ابراهيم 🙂 طريقه جميلة ، شكرا لك على هذه التحفة 🙂 ولكني اخاف على صاحب الموضوع منها ، لأنها بطيئة ، وسيدخل في WebBrowser وحلاوة الوانه وخصوصا في البحث ، ويضيع ، مثل اخونا وائل عبد الرحمن 🙂 جعفر
    3 points
  14. بعد ادنكم ربما تقصد هذا الشيء Classeur1.xlsx
    3 points
  15. تفضل ::::: وهذ هو الكود الذي تحدث عنه أخي @ mohamedd2003 On Error Resume Next Langauge ELanguage.Ar Dim fOK As Boolean Dim strTemp As String Forms!whatsapp.SetFocus strTemp = Me.txtMessage fOK = SetClipboardData_clt(strTemp) '========================================================================================================= Langauge ELanguage.en Application.FollowHyperlink "https://wa.me/" & txtNumbers auseTime = 40 start = Timer Do While Timer < start + auseTime DoEvents Loop Call SendKeys("~", True) Call SendKeys("{Enter}", True) Call SendKeys("^v", True) Cal
    3 points
  16. وعليكم السلام-يمكنك ذلك بهذه المعادلة =IF(DATEDIF(A4,B4,"md")>22,1+DATEDIF(A4,B4,"M"),DATEDIF(A4,B4,"M")) أما اذا كنت تريد ان تتأكد من امكانية تطبيق هذه المعادلة بالأكسيس فعليك برفع مشاركة اخرى بقسم الأكسيس فرق بالشهور1.xlsx
    3 points
  17. السلام عليكم ورحمة الله النتائج.xlsx
    3 points
  18. بعد ادن استادي واتراء للموضوع هذه طريقة متواضعة التنفيذ بالفورم تاريخ التقاعد.xlsm
    3 points
  19. 3 points
  20. السلام عليكم 🙂 شكرا اخوي ابوعبدالله 🙂 وهاي دالة لإستخراج الرقم من وسط بيانات الحقل 🙂 مثلا ننقر مزدوجا على الرقم 12670 : والنتيجة تفتح لنا النموذج مسند على الرقم اعلاه : . ننادي الدالة هكذا ، بحيث نرسل بيانات الحقل ، والنقطة/المكان اللي تم النقر مزدوجا فيها : Private Sub EH_DblClick(Cancel As Integer) DoCmd.OpenForm "مسند", , , "[Mno]=" & Get_Number(Me.EH, Me.EH.SelStart) End Sub . وتقوم هذه الدالة بإرجاع الرقم فقط : Public Function Get_Number(fld As String, P As Long) As Long ' 'fld = Field content
    3 points
  21. وعليكم السلام-يمكنك استخدام هذه المعادلة لطلبك =IFERROR(VLOOKUP($A2,$K$2:$L$60,2,0),"") numbers1.xlsx
    3 points
  22. تم التعديل Option Explicit Dim lr% Dim How_many Dim Sh As Worksheet Dim i%, k%, x '+++++++++++++++++++++++++++++++ Sub Begining() Set Sh = Sheets("Media") lr = Sh.Cells(Rows.Count, 2).End(3).Row If Val(Sh.Cells(1, "k")) < 1 _ Or Sh.Cells(1, "k") > lr - 1 Then How_many = 10 Else How_many = Int(Sh.Cells(1, "k")) End If Sh.Cells(1, "k") = How_many End Sub '+++++++++++++++++++++++++++++++ Private Sub cmd_reset_Click() Me.ListBox1.Clear UserForm_Initialize End Sub '++++++++++++++++++++++++++++++++++++ Private Sub Cmd_Show_Click() Begining Dim t: t = 1 If lr < How_many + 1
    3 points
  23. اتفضل اخى لعله يفى بالغرض Sheet0.xlsx
    3 points
  24. Try This Macro Option Explicit Dim E As Worksheet Dim O As Worksheet Dim RO%, RE%, i%, col% Dim x1%, x2%, y%, Total% Dim F_rg As Range Dim Where As Range Dim Bol As Boolean '+++++++++++++++++++++++++++++++++++ Sub Begin() Set O = Sheets("ONE") Set E = Sheets("Ehtiag") RO = O.Cells(Rows.Count, 1).End(3).Row col = E.Cells(1, Columns.Count).End(1).Column RE = E.Cells(Rows.Count, 1).End(3).Row Set Where = O.Range("J1:J" & RO) E.Range("C3").Resize(RO - 2, col - 2).Clear End Sub '+++++++++++++++++++++++++++++++++ Sub Ila_al_Amam_Ser() Application.ScreenUpdating = False Begin F
    3 points
  25. عمل رائع بارك الله فيك استاذ ماجد وزادك الله من فضله
    3 points
  26. تفضل جرب هذا الملف , يمكنك التعديل عليه كما تشاء UserformKeypad.xls
    3 points
  27. بنسخة 365 أى بمقابل مادى
    3 points
  28. تفضل هذا الفيديو به طلبك سيفيدك بما انك لم تقم برفع ملف
    3 points
  29. وعليكم السلام استاذ صالح .. جرب هذا وأتمنى ان يفيدك فقد تم نقاش وتناول هذا الموضوع من قبل عمل برنامج يعمل علي الموازين التي تطبع باركود كيف يتم احتساب وزن وسعر واسم الصنف في ملصق الباركود
    3 points
  30. السلام عليكم اتفضلى هل هذا ما تريديه ؟ انا قمت بادخال المعيار فالاستعلام الداخلى للتقرير لانى لا اعرف فى اى نموذج سوف يتم استدعاء التقرير بالتوفيق ايجار معدات للغير1.rar
    2 points
  31. ويمكنك استخدام الكود في حدث الشيت Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("a2:l2")) Is Nothing Then If Not IsNumeric(Target.Value) And Target.Value <> vbNullString Then Target.Interior.Color = xlNone GoTo 1 End If '================= If Target >= 100 Then Target.Interior.Color = 255 End If '================== If Target < 100 Then Target.Interior.Color = 5296274 End If End If 1: End Sub
    2 points
  32. بسم الله الرحمن الرحيم فى البداية لا اعلم ان كان قد تطرق احد الى هذا الموضوع الاتى شرحة من قبل ام لا وعلى كل لا ضرر فى توضيحة من جديد طبعا الحل دا هتلجأ لى بعد ما تنفذ منك كل سبل تصغير حجم قاعدة البيانات او ممكن تستخدمة عند انشاء برنامجك من البداية الموضوع ببساطة هو تحويل قاعدة بياناتاك من Access الى Sql تحويل الخلفية فقط ( الجداول ) اما النماذج فيتم انشائها فى اكسس عادى طريقة العمل المتطلبات ------------------ 1 - Microsoft SQL Server 2008 R2 RTM - Management Studio Express لينك التحميل https://www.microsoft.com/en-us/download/details.aspx
    2 points
  33. تضامنا مع ما تفضل به استاذنا خالد هذه نفس الخطوات لنسخة انكليزية
    2 points
  34. السلام عليكم ورحمة الله وبركاته تفضل اخوي العزيز .. تم تغيير الاجازة يوم الجمعة والسبت .. tf02780235_win321.xlsx
    2 points
  35. الآن اطلعت على عمل الاستاذ جعفر .. ما شاء الله برنامج متكامل اخذ كثيرا من جهده ووقته جزاه الله خيرا ولكني ايضا اعجب من مسايرته لك فالصفحات ليس لها معنى في اكسس ، فأنت اذا تحولت الى العمل على اكسس فليس للصفحات مكان فيه . ومشكلتك في عدم تمكنك من النسخ واللصق هو رقم الصفحة وانا متأكد ان الاستاذ جعفر قام بادخال ارقام الصفحات يدويا واحدة واحدة فبدلا من البحث عن الصفحات فأكسس يتيح لك البحث عن : التصفية من و الى التصفية حسب السنة او الشهر أو الأسبوع او اليوم التصفية حسب الاسم التصفية حسب المخزن التصفية والجمع حسب السالب والموجب والكل (( علما ان هذا نختص
    2 points
  36. سلسلة تعليم بور كويري الجزء الرابع جلب بيانات من نطاق أو من جدول في الفيديو دة تقدر تسحب بيانات من نطاق أو من جدول والفرق بينهم https://www.youtube.com/watch?v=6kckAB1dkRQ
    2 points
  37. ممناز استاذ ابراهيم لكن كي لا تكون النتيجة بشكل تاريخ بوجود علامة "/" مثلاً jun 02 يجب ادراح السطر في المربع الأحمر من الصورة
    2 points
  38. السلام عليكم ورحمة الله استخدم هذا الكود بعد تحويل تنسيق العمود "E" الى "Text" Sub ConcaText() Dim LR As Long, i As Long LR = Range("G" & Rows.Count).End(3).Row i = 3 Do While i <= LR Range("E" & i).Value = Range("H" & i).Value & " / " & Range("G" & i).Value i = i + 1 Loop End Sub
    2 points
  39. 2 points
  40. جرب المرفق التالي واعلمني بالنتيجة kan_mosnad.accdb
    2 points
  41. وعليكم السلام ورحمه الله وبركاته تفضل اخى الكريم Sub File_Save_As() ThisWorkbook.SaveAs Filename:="e:\" & Format(Date, "ddd") & "-" & Format(Date, "dd-mm-yyyy") & "new", FileFormat:=52 End Sub
    2 points
  42. وعليكم السلام 🙂 انا عندي هذه المسطرة العائمة ، ما لها علاقة بالاكسس ، ولكن يمكن الاستفادة منها ، مثلا : عرض هذا الحقل حوالي 5.889 سنتيمتر او المسافة بين السهمين حوالي 5.650 سنتيمتر جعفر ImRuler.zip
    2 points
  43. فقط يمكنك استخدام معادلة المصفوفة (Ctrl+Shift+Enter) =OFFSET($B$10,MAX(ROW(B:B)*(B:B<>0))-10,0) Sheets1.xlsx
    2 points
  44. هذا الأمر بسيط جداً وكان أولى ان تقوم بعمله بنفسك ... تم تكبير المدى الى 1500 بالمعادلة 1مخازن 2021.xlsm
    2 points
  45. السلام عليكم ورحمة الله وبركاته إخواني الكرام .. أحاول دائماً أن آتي إليكم بما هو مفيد وجديد ، في عالم الإكسيل ، اللامتناهي ، والممتد أقدم لكم اليوم دالة معرفة .. تقوم الدالة باستخراج البريد الإلكتروني أو الايميل Email من داخل النصوص ... قد تفيد أحد ما في وقت ما .. أترككم مع الدالة ومع الملف المرفق .. تقبلوا تحياتي Extract Email Address.rar
    2 points


×
×
  • Create New...