بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
Leaderboard
Popular Content
Showing content with the highest reputation since 01/10/2021 in all areas
-
السلام عليكم، كثيراً ما ارى طلبات "كيفية عمل صلاحيات المستخدمين" قمت بعمل مثال بطريقة مبسطة جدا لكيفية عمل هذه الصلاحيات في تحديد فتح النماذج لمن لا يعرف ماذا اقصد بصلاحيات المستخدمين, مثال: اليوزر A غير مسموح له بفتح فورم الاعدادات مثلاً، اما اليوزر B مسموح له بفتح فورم الاعدادات اي سؤال انا موجود. تحياتي لكم Permission.accdb7 points
-
وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة =IFERROR(DATEDIF(TODAY(),E12,"y") & "سنة " &DATEDIF(TODAY(),E12,"ym")&" شهور "&DATEDIF(TODAY(),E12,"md")&" يوم ","") 1رقم قومي - نسخة.xlsx5 points
-
5 points
-
وعليكم السلام-فقط يمكنك استخدام هذه المعادلة =IF([@[تاريخ الإنتهاء الفعلي]]="",[@[التاريخ المخطط للإنتهاء]]-[@[تاريخ إرسال المهمة]],[@[تاريخ الإنتهاء الفعلي]]-[@[تاريخ إرسال المهمة]]) المهام -2.xlsx5 points
-
وعليكم السلام-تفضل لك ما طلبت بمعادلات المصفوفة ... لابد من الضغط على (Ctrl+Shift+Enter) بعد نسخ المعادلة وليس Enter فقط كباقى المعادلات MM1.xlsx4 points
-
السلام عليكم 🙂 اعرف ان هذا الموضوع مخالف ، فلا علاقة له بالاكسس ، ولكن له علاقة بالمبرمج 🙂 ملف اكسل فيه اوراق لتسهيل قضاء الصلوات الفائته - أدوات عامة - أوفيسنا (officena.net) جعفر4 points
-
السلام عليكم ورحمة الله وبركاته تفضل اخوي العزيز .. امكانية حذف البيانات الموجودة في DataEntry .. في الخلية W الى AK .. الا اذا انته تستخدمها في مكان اخر .. تم تغيير اسم الصفحة الى Report .. تم اضافة عدد الطلاب من ضمن الجدول الاساسي في العامود R .. All Subjects2 .xlsb4 points
-
أهلا بك في المنتدى ..... اخي الكريم لو ارفقت مثال لما تريد لوجدت المساعدة من اعضاء المنتدى أهلا بك مرة اخرى في المنتدى4 points
-
وعليكم السلام ... يمكنك استخدام هذه المعادلة بالتنسيقات الشرطية =OR(AND(I5=$F5,I5<>""),AND(I5=$G5,I5<>"")) حساب.xlsx4 points
-
4 points
-
أعزائي طلاب العلم، السلام عليكم ورحمة الله وبركاته، يسعدني أن أتواصل معكم من خلال هذه المنصة الرائدة في تقديم المعرفة وتبادل الخبرات التعليمية. سأقوم إن شاء الله تعالى من خلال هذا الموضوع بشرح خطوات عمل البحث العلمي أو بحث التخرج مع التركيز على العلوم الاجتماعية والتربوية. أيضا سيتم من خلال هذه الشروحات بإذن الله تعالى تقديم أمثلة عملية تدريبية للمهتمين من طلاب العلم ومناقشة اهتماماتهم البحثية. وسيتم تقديم هذه الدروس إن شاء الله على شكل سلسلة يتم فيها شرح خطوات البحث العلمي ومشروع التخرج واحدة تلو الأخرى وصولا إلى البحث كاملا. وسيتم بإذن الله تقديم شروحات واف3 points
-
وعليكم السلام-عليك بإستخدام هذه المعادلة =IFERROR(IF($A2="خاص",VLOOKUP($O2,المسافة!$B$2:$G$110,6,0)/2,VLOOKUP($O2,المسافة!$B$2:$G$110,6,0)),"") معادلة - 1خاص.xlsm3 points
-
وعليكم السلام اخوي ابو ابراهيم 🙂 طريقه جميلة ، شكرا لك على هذه التحفة 🙂 ولكني اخاف على صاحب الموضوع منها ، لأنها بطيئة ، وسيدخل في WebBrowser وحلاوة الوانه وخصوصا في البحث ، ويضيع ، مثل اخونا وائل عبد الرحمن 🙂 جعفر3 points
-
شكرا لك استاذ ماجد مجهود كبير بارك الله فيك3 points
-
3 points
-
تفضل ::::: وهذ هو الكود الذي تحدث عنه أخي @ 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) Cal3 points
-
وعليكم السلام-يمكنك ذلك بهذه المعادلة =IF(DATEDIF(A4,B4,"md")>22,1+DATEDIF(A4,B4,"M"),DATEDIF(A4,B4,"M")) أما اذا كنت تريد ان تتأكد من امكانية تطبيق هذه المعادلة بالأكسيس فعليك برفع مشاركة اخرى بقسم الأكسيس فرق بالشهور1.xlsx3 points
-
3 points
-
بعد ادن استادي واتراء للموضوع هذه طريقة متواضعة التنفيذ بالفورم تاريخ التقاعد.xlsm3 points
-
بارك الله فيك استاذ ماجد وزادك الله من فضله3 points
-
السلام عليكم 🙂 شكرا اخوي ابوعبدالله 🙂 وهاي دالة لإستخراج الرقم من وسط بيانات الحقل 🙂 مثلا ننقر مزدوجا على الرقم 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 content3 points
-
وعليكم السلام-يمكنك استخدام هذه المعادلة لطلبك =IFERROR(VLOOKUP($A2,$K$2:$L$60,2,0),"") numbers1.xlsx3 points
-
تم التعديل 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 + 13 points
-
3 points
-
3 points
-
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 F3 points
-
عمل رائع بارك الله فيك استاذ ماجد وزادك الله من فضله3 points
-
تفضل جرب هذا الملف , يمكنك التعديل عليه كما تشاء UserformKeypad.xls3 points
-
3 points
-
3 points
-
وعليكم السلام استاذ صالح .. جرب هذا وأتمنى ان يفيدك فقد تم نقاش وتناول هذا الموضوع من قبل عمل برنامج يعمل علي الموازين التي تطبع باركود كيف يتم احتساب وزن وسعر واسم الصنف في ملصق الباركود3 points
-
السلام عليكم اتفضلى هل هذا ما تريديه ؟ انا قمت بادخال المعيار فالاستعلام الداخلى للتقرير لانى لا اعرف فى اى نموذج سوف يتم استدعاء التقرير بالتوفيق ايجار معدات للغير1.rar2 points
-
ويمكنك استخدام الكود في حدث الشيت 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 Sub2 points
-
بسم الله الرحمن الرحيم فى البداية لا اعلم ان كان قد تطرق احد الى هذا الموضوع الاتى شرحة من قبل ام لا وعلى كل لا ضرر فى توضيحة من جديد طبعا الحل دا هتلجأ لى بعد ما تنفذ منك كل سبل تصغير حجم قاعدة البيانات او ممكن تستخدمة عند انشاء برنامجك من البداية الموضوع ببساطة هو تحويل قاعدة بياناتاك من Access الى Sql تحويل الخلفية فقط ( الجداول ) اما النماذج فيتم انشائها فى اكسس عادى طريقة العمل المتطلبات ------------------ 1 - Microsoft SQL Server 2008 R2 RTM - Management Studio Express لينك التحميل https://www.microsoft.com/en-us/download/details.aspx2 points
-
تضامنا مع ما تفضل به استاذنا خالد هذه نفس الخطوات لنسخة انكليزية2 points
-
2 points
-
السلام عليكم ورحمة الله وبركاته تفضل اخوي العزيز .. تم تغيير الاجازة يوم الجمعة والسبت .. tf02780235_win321.xlsx2 points
-
الآن اطلعت على عمل الاستاذ جعفر .. ما شاء الله برنامج متكامل اخذ كثيرا من جهده ووقته جزاه الله خيرا ولكني ايضا اعجب من مسايرته لك فالصفحات ليس لها معنى في اكسس ، فأنت اذا تحولت الى العمل على اكسس فليس للصفحات مكان فيه . ومشكلتك في عدم تمكنك من النسخ واللصق هو رقم الصفحة وانا متأكد ان الاستاذ جعفر قام بادخال ارقام الصفحات يدويا واحدة واحدة فبدلا من البحث عن الصفحات فأكسس يتيح لك البحث عن : التصفية من و الى التصفية حسب السنة او الشهر أو الأسبوع او اليوم التصفية حسب الاسم التصفية حسب المخزن التصفية والجمع حسب السالب والموجب والكل (( علما ان هذا نختص2 points
-
سلسلة تعليم بور كويري الجزء الرابع جلب بيانات من نطاق أو من جدول في الفيديو دة تقدر تسحب بيانات من نطاق أو من جدول والفرق بينهم https://www.youtube.com/watch?v=6kckAB1dkRQ2 points
-
ممناز استاذ ابراهيم لكن كي لا تكون النتيجة بشكل تاريخ بوجود علامة "/" مثلاً jun 02 يجب ادراح السطر في المربع الأحمر من الصورة2 points
-
السلام عليكم ورحمة الله استخدم هذا الكود بعد تحويل تنسيق العمود "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 Sub2 points
-
2 points
-
2 points
-
2 points
-
وعليكم السلام ورحمه الله وبركاته تفضل اخى الكريم Sub File_Save_As() ThisWorkbook.SaveAs Filename:="e:\" & Format(Date, "ddd") & "-" & Format(Date, "dd-mm-yyyy") & "new", FileFormat:=52 End Sub2 points
-
وعليكم السلام 🙂 انا عندي هذه المسطرة العائمة ، ما لها علاقة بالاكسس ، ولكن يمكن الاستفادة منها ، مثلا : عرض هذا الحقل حوالي 5.889 سنتيمتر او المسافة بين السهمين حوالي 5.650 سنتيمتر جعفر ImRuler.zip2 points
-
فقط يمكنك استخدام معادلة المصفوفة (Ctrl+Shift+Enter) =OFFSET($B$10,MAX(ROW(B:B)*(B:B<>0))-10,0) Sheets1.xlsx2 points
-
هذا الأمر بسيط جداً وكان أولى ان تقوم بعمله بنفسك ... تم تكبير المدى الى 1500 بالمعادلة 1مخازن 2021.xlsm2 points
-
السلام عليكم ورحمة الله وبركاته إخواني الكرام .. أحاول دائماً أن آتي إليكم بما هو مفيد وجديد ، في عالم الإكسيل ، اللامتناهي ، والممتد أقدم لكم اليوم دالة معرفة .. تقوم الدالة باستخراج البريد الإلكتروني أو الايميل Email من داخل النصوص ... قد تفيد أحد ما في وقت ما .. أترككم مع الدالة ومع الملف المرفق .. تقبلوا تحياتي Extract Email Address.rar2 points