بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 23 أبر, 2020 in all areas
-
وعليكم السلام 🙂 نفترض ان حقل اليوم هو iDate ، وحقل العطلة هو iLeave ، عليه ، ممكن نضع هذا الكود على حدث "بعد تحديث" iDate : select case me.iDate case "Friday" , "Saturday" , "الجمعة" , "الجمعه" , "السبت" me.iLeave ="عطله رسمية" else case me.iLeave ="" end select . اما اذا اردت ان تجعلها في استعلام ، فيمكن استعمال الكود التالي للحقل iLeave : iLeave: iif([iDate]="Friday" or [iDate]="Saturday" or [iDate]="الجمعة" or [iDate]= "الجمعه" or [iDate]="السبت" ,"عطلة رسمية" , "") جعفر4 points
-
وذلك بوضح هذه الأكواد بحدذ الصفحة Public oldval As Double Sub KH_TEST() oldval = 0 End Sub Private Sub Worksheet_Change(ByVal Target As Range) If [x1] = False Then GoTo 1 If Not Intersect(Target, Range("C3:m101")) Is Nothing Then Application.EnableEvents = False If IsNumeric(Target) Then _ Target = oldval + Target Else Target = oldval Application.EnableEvents = True End If 1 End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [x1] = False Then GoTo 1 If Not Intersect(Target, Range("C3:m101")) Is Nothing Then Application.EnableEvents = False If IsNumeric(Target) Then oldval = Target Else oldval = 0 Application.EnableEvents = True End If 1 End Sub الصلاة١.xlsm4 points
-
3 points
-
السلام عليكم استاذ حربي العنزي هذه محاولة ارجو ان تكون موفقة يرجى التاكد من النتائج قبل الاستخدام النهائي ملاحظة : دالة العدد الصحيح هي دالة لاحد الاساتذة وعذرا لاني لا اعلم من هو ام دالة الكسر فهي محاولة وهي ايضا مبنية على دالة العدد الصحيح مع بعض التعديلات Root4500.rar3 points
-
السلام عليكم ورحمة الله الاستاذ / عبد الفتاح فى بى اكسيل الاستاذ / الرائد 77 تهنئة مزدوجة بمناسبة حلول شهر رمضان المعظم اعاده علينا وعليكم وعلى الامة الاسلامية بالخير والبركات و المناسبة الاخرى لترقية الزميلين الفاضلين مع اطيب التبريكات و التهانى عن جدارة و استحقاق3 points
-
رمضان كريم الاستاذان عبدالفتاح في بي اكسيل و الرائد 77 الف مبروك الترقية التي تستحقانها عن جدارة3 points
-
بعد اذن استاد علي كود بطريقة اخرى انقر على اي قيمة من الخلايا المحددة سيطلع مربع حوار اكتب القيمة وسيتم الاضافة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim xRtn As Variant If Selection.Count = 1 Then If Not Intersect(Target, Range("c:m")) Is Nothing Then If IsNumeric(Target) And Target <> "" Then xRtn = Application.InputBox("Insert your value please") If xRtn <> False And IsNumeric(xRtn) Then Target.Value = Target + xRtn End If End If End If End If End Sub الصلاة2.xlsm3 points
-
2 points
-
مبروك الأستاذان عبدالفتاح في بي اكسيل و الرائد 77 إنضمامكما لعائلة الخبراء ,أسأل الله لكما التوفيق والنجاح دائما ..وأعانكما الله على هذه المسئولية الجديدة وسدد الله خطاكما عن حق وجدارة بارك الله فيكما وزادكما الله من فضله2 points
-
تفضل اخي العزيز ارجو ان يكون طلبك في النموذج الثاني فيه طلبك الثاني Root100.rar2 points
-
تفضل اخي العزيز Rep2: IIf([Type] = 1;"عربي";IIf([Type] = 2;"انجليزي";"فرنسي")) ارجو ان يكون طلبك ملاحظة : اسم الحقل Type من الكلمات المحجوزة وعليه يجب تبديل الاسم2 points
-
السلام عليكم 🙂 الكود باللون الاصفر يعمل تغيير معين في ريجستري الكمبيوتر (لا اعرف هذا التغيير) ، ولا علاقة له بالنسخ 🙂 جعفر2 points
-
طريقة اخرى مع طرق المبدع @jjafferr ممكن تضع مصدر مربع النص هذا الكود .... على افتراض ان مربع النص الذي يظهر فيه عبارة الخميس والجمعة هو a =IIf([a]="الخميس" Or [a]="الجمعة";"عطلة رسمية")2 points
-
السلام عليكم 🙂 اعتقد اخوي @ابوخليل عنده معرفة في هذا الموضوع اكثر مني 🙂 جعفر2 points
-
شكرا لك إستاذي العزيز علي وإن شاء الله في ميزان حسناتك مشكور استاذي عبد الفتاح وإن شاء الله في ميزان حسناتك2 points
-
اخي وعزيزي احمد الحسيني في هذا المنتدى لست بحاجة الى اضافة لقب : المبرمج .. هذا موقع علمي يشترك فيه الاعضاء لاكتساب المعرفة والخبرات يمكنك الاعلان عن اعمالك في المواقع المخصصة لذلك ، علما ان موقع اوفيسنا يوجد به قسم خاص بالاعلانات التجارية2 points
-
2 points
-
2 points
-
بما انك لم تقم برفع ملف موضح علي المطلوب بكل دقة ...فكان عليك استخدام خاصية البحث بالمنتدى فبه طلبك ,فتم تناول هذا الموضوع مئات المرات ..فمن فضلك ومن قوانين المنتدى وتعليماته .عدم رفع مشاركة جديدة الا بعد البحث والتأكد بعدم وجود طلبك بالمنتدى أولاً حضور وانصراف موظفين كود إنصراف الموظفين طلب تعديل شيت حضور وانصراف الموظفين2 points
-
وعليكم السلام اخى @beLaL 100 جرب ووافنى بالنتيجه ان شاء الله يكون ما تريد تم تغيير الرقم 4 الى 6 وجزاها الله خيرا ام عهود DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 6) ' Next line shows the required path for the backup database NewFile = "e:\العملاء" & "\" & DBwithoutEXT & " Backup Date " & Format(Date, "yyyy_mm_dd") & " Time " & Format(Now(), "Hh Nn AMPM") & Right(DBwithEXT, 6) بالتوفيق اخى قاعدة بيانات.rar2 points
-
تفضل اخي الكريم مع انني ضد فكرة حذف الملفات تلقائيا والسبب في بعض الاحيان تحتاج الى الرجوع لملف قديم للاطلاع على تعديل ما ملاحظة هامة جدا :: الكود يحذف كل الملفات في المجلد D:\Backup نسخة احتياطية مضغوطة.rar2 points
-
شكرا اخي احمد وانا مش زعلان من حدة الكلام واناعارف انك مش قصدك وطبعا انامقدر الموقف ومتشكر علي المغلومات هذة وطبعا اكيد استفدت منها حاليا وايضا في بناء البرنامج واكيد مش هستغني عن خدماتك واكيد هترد عليا في تحديثات البرنامج ولا انت قفلت مني خلاص1 point
-
كلمات الشكر قليلة جداً مع انسان رائع مثلك1 point
-
اخى الفاضل هل يمكن ارفاق مثال لما لديك او اقتصاص جزء من برنامجك وبه بعض البيانات الوهميه حتى يرى اخوانك واساتذتنا المشكله ومعالجتها فالصور لا تكفى لشرح المشكله بالتوفيق اخى1 point
-
1 point
-
نسال الله ان ينفعنا بعلمكم و ان نفيد الاخرين1 point
-
1 point
-
بصراحه قرات هذه المعلومه ولم احب ان انقلها فقط ولكن انتظرت تعليقكم اخوانى واساتذتى حتى لا انقل معلومه خاطئه جزاك الله خيرا اخى ومعلمنا العزيز @jjafferr ورمضان مبارك وتقبل الله منكم صالح الاعمال1 point
-
من المعروف ان Null قيمته اقل من الارقام ، لذا يجب ان نحتال على الاكسس ، حتى نظهر الارقام (بالتسلسل التصاعدي) فوق الخانات الفارغة Null ، فاللي عملته للحقلين ، هو تغيير اسم الحقلين (بإضافة الرقم 2 عليهم) ، ثم عمل معادلة ، بحيث نطلب من اكسس ان يستبدل الخانة الفارغة بالحرف A : . والنتيجة تصبح مثل ما نريد : . والان في التقرير ، نطلب من الحقل ان يغير القيمة A الى فراغ (حتى نخفي A ) (رجاء ملاحظة تغيير اسماء الحقول مرة اخرى) ، مع استعمال الحقلين للفرز (انظر اسفل التقرير) : . والنتيجة : . جعفر 1212.TEST_QUERY.accdb.zip1 point
-
1 point
-
استاذي الفاضل husamwahab خادم ربك يا طيب كلمة شكرا قليلة في حقك اللهم ربي يحفظك ويمن عليك وعلى عائلتك الكريمة بالصحة والعافية والستر في الدنيا والاخرة اللهم آميين يارب العالمين1 point
-
1 point
-
1 point
-
استاذ Hawiii نعم كلامك صحيح واعتذر للاخوة الاساتذة والاعضاء على هذا الخطا ارجو من ادارة المنتدى حذف المرفق واجدد للجميع اعتذاري مرة اخرى1 point
-
1 point
-
الاستاذ والاخ جعفر المحترم ... وقبل ان افتح المثال لايسعني الا ان اقف مبهورا امام هذه الروعه في التوضيح والفهم والافهام ... اما ثانيا : الفرز التصاعدي ... فعلا لم اجد احدا تطرق له وتابعت كثير من الامثلة والشروحات والكود على الفرز فهو يتم لحقل واحد وليس لحقلين معا بنفس الوقت ... ساشرح الامر عندي ( هناك رحلات مغادرة DEP وقادمة ARA منها خارجية OUT ومنها داخلية IN ، ويتم ادراج بياناتها الخاصة يوميا والمطالبة بتقرير مشترك لهما (تقرير القادمة خارجية داخلية OUT_IN_ARA او المغادرة خارجية داخلية OUT_IN_DEP) فعند الاملاء مرة يكون عدد الخارجية اكثر تسلسلا ومرة يكون عدد الداخلية اكثر تسلسلا ) الذي يحدث ( ان في التقرير عندما تكون مثلا الداخلية اكثر ولايقابلها شيء في الخارجية فان التسلسل الاخير يظهر في المقدمة والعكس صحيح ايضا ) فاردت اي طريقة يكون فيها التسلسل متدرجا بشكل طبيعي وان لم يقابله ذات التسلسل يعني ( اذا تسلسل الخارجية 8 والداخلية 9 فيبقون مرتبين للاسفل لكن الذي يحدث ان تسلسل 9 يقفز ليصبح قبل 1 ) والمصدر هو استعلام التوحيد نفسه . ولو لاحظت صورة المثال الاخير (ستجد ان التسلسل داخلي هو رقم 4 ثم 5 ثم 6 ثم 7 ثم 8 ثم 1 ثم 2 ثم 3 لعدم وجود تسلسل موازي له في تسلسل خارجي ) ... فرج الله همك اخي العزيز استاذ جعفر ....وجميع الاخوة في الموقع .1 point
-
بارك الله فيكم أساتذتي الكرام. أنا تلميذ هذا الصرح العظيم و الرائع. كل عام و أنتم بخير و بارك الله فيكم . و جعل كل ما تقدمونه في ميزان حسناتكم. ووفقكم لما يحبه و يرضاه. بارك الله فيك أستاذنا علي . و جزاك الله خيرا1 point
-
يا اخي لست بحاجة الى اكثر من 6000 صف لمعاينة عمل ماكرو الماكرو الذي ينفذ على صف واحد يمكن ان يعمل على الوف الصفوف تم ادراج ملف يحتوي على بضغة بيانات للتجربة واليك النتيجة الكود Option Explicit Sub SansDoublons_By_FirstAcurance() If ActiveSheet.Name <> "Sheet1" Then Exit Sub Dim d As Object Dim Lr_c#, i#, k#, a(), b() Dim x x = [G4].CurrentRegion.Rows.Count If x > 6 Then _ [G4].CurrentRegion.Offset(6).Resize(x - 6).Clear Lr_c = Cells(Rows.Count, "c").End(3).Row If Lr_c < 10 Then Exit Sub Set d = CreateObject("Scripting.Dictionary") a = Range("C10:D" & Lr_c) ReDim b(1 To UBound(a, 1)) For i = LBound(a) To UBound(a) If a(i, 1) <> vbNullString Then For k = 1 To UBound(a, 2): b(k) = a(i, k): Next d.Item(a(i, 1)) = b End If Next i With [G10].Resize(d.Count, UBound(a, 2)) .Value = Application.Transpose(Application.Transpose(d.items)) .Borders.LineStyle = 1 .InsertIndent 1 End With End Sub الملف مرفق Without_Duplicate.xlsm1 point
-
الله يحفظك استاذ جعفر ويحفظ استاذنا ومعلمنا الاستاذ الفاضل ابوخليل والله لم تقصرو مع كل من يطلب المساعدة دون استثناء جزاكم الله خيرا سائلا الله جل وعلا ان يحفظكما ويمن عليكما وعلى كل زملائنا في هذا الصرح العلمي الكبير بالصحة والعافية والستر في الدنيا والاخرة1 point
-
جزاك الله خيرا اخى حسام وان شاء الله اخواننا واساتذتنا لن يبخلوا علينا بالتفسير ان كان لديهم معلومه تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق1 point
-
جزاك الله خيرا اخى @kanory1 point
-
طيب ايه السبب اخى حسام هذا ما حدث معى وانا اقوم بعمله فشتت تركيزى بالرغم انى قمت بعمله سابقا فى برنامج لى مما جعلنى ارجع لبرنامجى اتفحصه فلم اجد شىء غير انى نموذجى نموذج فردى وهنا مستمر وبالفعل قمت بانشاء نموذج فردى بالمثال المرفق وتم ظهور الاسماء بالتمام فياريت لو فى تفسير للموضوع ده حتى نفهم وجزاك الله خيرا1 point
-
تفضل انظر الطريقة .......... moh.accdb1 point
-
ممكن عملها بطريقة أخرى .... وهي أن المربع الاختيار يكون موجود للجميع ... لكن عند اختيار وظيفة معينة يتم وضع علامة صح امام جميع من يمثل تلك الوظيفة ....1 point
-
الاستاذ العزيز @عبد اللطيف سلوم شكرا جزيلا روعة لكني ام اوضح جيدا السبب مني انا لا اريد ان يظهر اسم المريض بعد اختيارة اول مرة1 point
-
بارك الله فيك أستاذنا أحمد الفلاحجى والحمد لله أنا بخير ونسأل الله أن يرفع عنا جميعا البلاء والوباء وسيئ الأسقام ملحوظة .. أنا قاهرى 😀1 point
-
منور اخى واستاذى @essam rabea ان شاء الله تكون بخير انت والاهل واهل اسكندريه كلهم جزاك الله كل خير1 point
-
1 point
-
1 point
-
السلام عليكم جرب المرفق و لا ادري ان كانت هناك اخطاء او لا الصادر و الوارد_.rar1 point