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

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

  1. أ / محمد صالح

    أ / محمد صالح

    أوفيسنا


    • نقاط

      12

    • Posts

      4,357


  2. د.كاف يار

    د.كاف يار

    الخبراء


    • نقاط

      5

    • Posts

      1,681


  3. حسونة حسين

    حسونة حسين

    أوفيسنا


    • نقاط

      4

    • Posts

      873


  4. جلال الجمال_ابو أدهم

    • نقاط

      3

    • Posts

      1,417


Popular Content

Showing content with the highest reputation on 25 أكت, 2021 in all areas

  1. اذا كانت صلة القرابة تعرف بآخر الإسم فتفضل هذا الكود انشئ Module جديد و الصق فيه الشفرة التالية Public Function StrLast_name(FullName As String) On Error Resume Next Dim name As String Dim first_name As String Dim mid_name As String Dim last_name As String name = FullName first_name = Left(name, InStr(name, " ") - 1) mid_name = Mid(name, InStr(name, " ") + 1, InStrRev(name, " ") - InStr(name, " ") - 1) last_name = Right(name, Len(name) - InStrRev(name, " ")) StrLast_name = last_name End Function في الإستعلام اضف الحقل التالي Strlast_name([ename2]) و ضع له المعيار التالي Strlast_name([Forms]![eform1]![ename]) و يكون بهذا الشكل و ستكون النتجية بهذا الشكل الإستعلام بناء على الإسم الأخير و كل من له علاقة بالإسم الأخير Database2.accdb
    2 points
  2. قصدق يكون ملف الاكسل متواجد على سطح المكتب والبرنامج في مكان اخر ؟؟؟؟ لان البرنامج الذي لديك هو نقل البيانات الى الملف وليس تكوين ملف جديد ّ!!!!! على كل حال جرب وضع ملف الاكسل على سطح المكتب والبرنامج في مكان اخر ..... تفضل التعديل ... aaa.rar
    2 points
  3. 🙈🙈🙈🙈 معذرة لا املك خبرة في المنتديات اصلا الردود الا الان عرفت كيف ارد على شخص
    1 point
  4. هذا ما قصدت تماما اخي العزيز
    1 point
  5. تفضل اخي اتمنى ان يكون هذا المطلوب تم تطبيقه على شهر يناير وتم اضافه خليه لحساب الاماكن الاخري برنامج حجز قاعات 2021%28نهائي%29.xlsx
    1 point
  6. السلام عليكم ورحمة الله وبركاته تفضل اخى الكريم Book5-1.xlsx
    1 point
  7. استاذنا ومعملنا / @د.كاف يار هو المطلوب تماما يادكتور الله يريح قلبك زى ماريحت قلبى ويبارك فيك وفى علمك ، فعلا انت احد اعمدة هذا الصرح العظيم اشكرك جدا جدا جدا جدا جدا جدا ربنا يرزقك بغير حساب يعطيك الصحة والعافية كل الاحترام والتقدير لكم
    1 point
  8. عن طريق حلقة تكرارية تستطيع ارسال قائمة الأسماء لديك الى جهة اتصال محددة سؤالك غير واضح يرجى شرح المطلوب بصورة مفصلة حتى تأخذ اجابة منطقية فعلى الأغلب لا توجد مصلحة لإرسال البيانات الى رقم محدد لكن فهم السؤال دائما نصف الإجابة فأتوقع انك تريد ان ترسل رسالة واتس اب الى عدة جهات اتصال فهل هذا صحيح ؟
    1 point
  9. 1 point
  10. وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي
    1 point
  11. واتفضل هذا مثال فقط ينقصه اعادة ربط الجداول المرتبطة من قاعدة الخلفية فقط حتى يعمل النسخ الاحتياطى على اكمل وجه frontend.mdb db.mdb
    1 point
  12. اخى نزل الملف مره اخرى تم تعديله او انسخ الكود مره اخرى Sub Test() Dim SH As Worksheet, WS As Worksheet, SHLR As Long, WSLR As Long, CEL As Range Application.DisplayAlerts = False Application.EnableEvents = False Set WS = ThisWorkbook.Worksheets("Total") For Each SH In Worksheets If SH.Name <> "Total" Then With SH SHLR = SH.Cells(Rows.Count, 4).End(xlUp).Row + 1 For Each CEL In SH.Range("D14:D" & SHLR) If CEL.Value <> Empty Then WSLR = WS.Cells(WS.Rows.Count, 1).End(xlUp).Row + 1 WS.Range("A" & WSLR) = SH.Range("I14") WS.Range("B" & WSLR) = SH.Range("L14") WS.Range("C" & WSLR) = CEL.Value End If Next CEL End With End If Next SH Application.DisplayAlerts = True Application.EnableEvents = True End Sub
    1 point
  13. وعليكم السلام ورحمة الله وبركاته تفضل اخى الكريم ان شاء الله يكون طلبك ضع هذا الكود في ملفك في userform1 بدل الأكواد الموجوده Private Sub CommandButton1_Click() For x = 2 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(x, 1) = TextBox1.Text Then Cells(x, 4) = TextBox4.Text Cells(x, 5) = TextBox5.Text Cells(x, 6) = TextBox6.Text Cells(x, 7) = TextBox7.Text Cells(x, 8) = TextBox8.Text Cells(x, 9) = TextBox9.Text Cells(x, 10) = TextBox10.Text Cells(x, 11) = TextBox11.Text Cells(x, 12) = TextBox12.Text Cells(x, 13) = TextBox13.Text Cells(x, 14) = TextBox14.Text Cells(x, 15) = TextBox15.Text Cells(x, 16) = TextBox16.Text Cells(x, 17) = TextBox17.Text Cells(x, 18) = TextBox18.Text Exit For End If Next x End Sub Private Sub CommandButton2_Click() UserForm1.Hide UserForm2.Show End Sub Private Sub CommandButton3_Click() sheet1.Activate UserForm1.Hide End Sub Private Sub CommandButton4_Click() UserForm1.Hide sheet3.Activate UserForm4.Show End Sub Private Sub TextBox1_Change() Dim x For x = 3 To Cells(Rows.Count, "A").End(xlUp).Row If TextBox1.Text = Cells(x, 1) And TextBox1.Value <> "" Then TextBox2.Value = Cells(x, "b").Value TextBox4.Value = Cells(x, "d").Value TextBox5.Value = Cells(x, "e").Value TextBox6.Value = Cells(x, "f").Value TextBox7.Value = Cells(x, "g").Value TextBox8.Value = Cells(x, "h").Value TextBox9.Value = Cells(x, "i").Value TextBox10.Value = Cells(x, "j").Value TextBox11.Value = Cells(x, "k").Value TextBox12.Value = Cells(x, "l").Value TextBox13.Value = Cells(x, "m").Value TextBox14.Value = Cells(x, "n").Value TextBox15.Value = Cells(x, "o").Value TextBox16.Value = Cells(x, "p").Value TextBox17.Value = Cells(x, "q").Value TextBox18.Value = Cells(x, "r").Value TextBox24.Value = Cells(x + 1, "d").Value TextBox25.Value = Cells(x + 1, "e").Value TextBox26.Value = Cells(x + 1, "f").Value TextBox27.Value = Cells(x + 1, "g").Value TextBox28.Value = Cells(x + 1, "h").Value TextBox29.Value = Cells(x + 1, "i").Value TextBox30.Value = Cells(x + 1, "j").Value TextBox31.Value = Cells(x + 1, "k").Value TextBox32.Value = Cells(x + 1, "l").Value TextBox33.Value = Cells(x + 1, "m").Value TextBox34.Value = Cells(x + 1, "n").Value TextBox35.Value = Cells(x + 1, "o").Value TextBox36.Value = Cells(x + 1, "p").Value TextBox37.Value = Cells(x + 1, "q").Value TextBox38.Value = Cells(x + 1, "r").Value TextBox19.Value = Cells(x, "ai").Value TextBox20.Value = Cells(x, "aj").Value TextBox21.Value = Cells(x, "ak").Value Exit For Else Dim cl As Control For Each cl In Me.Controls For i = 2 To 38 If cl.Name = "TextBox" & i Then cl = "" i = i + 1 End If Next i Next cl End If Next x End Sub
    1 point
  14. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أخر نسخة من البرنامج بعد عمل عدة تعديلات 1185844841_.rar
    1 point
  15. السلام عليكم ورحمة الله وبركاته جرب هذا التعديل اخى الكريم Sub Delete_Old_Date() Dim m As Long, r As Long, WS As Worksheet Set WS = ThisWorkbook.Worksheets("آخر حركة انقطاع ") Application.ScreenUpdating = False m = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row For r = 2 To m If Application.CountIf(WS.Range("A" & r & ":A" & m), WS.Cells(r, 1).Value) > 1 Then WS.Rows(r).Delete r = r - 1 End If Next r Application.ScreenUpdating = True End Sub
    1 point
  16. يمكنك استعمال دالتك وبعدها زائد واحد =DATEDIF(Start_date,End_date,"D")+1 بالتوفيق
    1 point
  17. حسب فهمي للمطلوب تم جعل صفحة الطباعة صفحة واحدة ويتم استدعاء باقي الصفحات بكتابة رقم الصفحة في الخلية E1 تم تلوين الخلايا التي وضع معادلات فيها ويمكنك زيادة عدد سجلات (صفوف) الصفحة وذلك باستبدال رقم 11 في المعادلات بالعدد المطلوب ونسخ المعادلات إلى الصف المطلوب لأسفل بالتوفيق ترحيل المجاميع.xlsx
    1 point
  18. تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة عمل نموذج ملىء خلايا عمود بنموذج بحث بالكود أو الاسم تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير مرفق الملف و الشرح ______________.rar ________3.rar ________.rar و لا تنسونا من صالح الدعاء تحياتى
    1 point
  19. تحياتى و ايام مباركه استكمالا للموضوع اعلاه لاهمية الاستفاده من الكود اعلاه تم اضافة فورم بحث و اضافه من اعمال استاذنا / عبدالله باقشير للملف اعلاه و عليه اذا كنت تقوم بعمل برنامج او ملف به عدد كبير من ادخال البيانات او عدد لا نهائى من تكويد الحسابات فقم باضافة الكود و الفورم للملف و قل الحمد لله و لا تنسونا من صالح الدعاء G_Double click_2020.rar
    1 point
  20. تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة طرق البحث تم ارفاق كود الحل من الفاضل _ رحمه الله/ الحسامي و لا تنسونا من صالح الدعاء تحياتى asam3 (بحث).rar بياااااااان شامل عن قطع الغيارlsm.rar
    1 point
  21. في نفس السياف ، سالني صديق نفس السؤال تقريبا علي إميلي الخاص وأرسل لي أيضا ملف تيكست به أكثر من 90,000 رقم تليفون كلها بالسعودية مثل 966503011273 966505584504 966503932916 966500477498 وكان طلبه: 1. ترتيب الارقام في جهات اتصال vCard ، بحيث ترتب الارقام تصاعديا من الاصغر إلى الاكبر 2. ثم تأخذ كل جهة اتصال اسما تسلسليا يبدأ من J00001 الحقيقة أن كثرة الأسماء ، جعلتني أفكر في وسيلة أخري والحمد لله باستخدام كود صغير يمكن إنشاء عدد كبييير من ملفات الـ vcf التي يمكن قرائتها من الأوتلوك أو من المحمول وبعد إذن صديقي ، سأستعير بعض أرقام التليفونات في الملف المرفق وبه الشرح فقط تضع في ملف الإكسل الإسم بالعمود الأول ثم الرقم بالعمود الثاني وتشغل الكود فينشيء لك عدد الكروت الـ vcf المطلوب في المجلد xxx علي القرص D الكود هو Sub write_VCF() LR = [A999999].End(xlUp).Row For i = 1 To LR a = Cells(i, 1): b = "TEL;CELL" & Cells(i, 2) Filename = "D:\xxx\" & a & ".vcf" Open Filename For Output As 1 Print #1, "BEGIN: VCARD" Print #1, "FN: " & a Print #1, b Print #1, "End: VCARD" Close #1 Next i End Sub والآن أترككم مع المرفق تحويل الأسماء.rar
    1 point
  22. السلام عليكم ضع هذا الكود بين اكواد الفورم Private Sub ListFind_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Integer For i = 1 To 3 If Len(Trim(Me.Controls("TextBox" & i))) = 0 Then Me.Controls("TextBox" & i) = Me.ListFind.Value Exit For End If Next End Sub ودمتم في حفظ الله
    1 point
  23. أردت فقط تهنئتكم أحبابي زوار مدونتي بالعيد الأضحى أعاده الله علينا وعليكم بكل خير وفقنا الله وإياكم لزيارة بيته الكريم تحياتي أخوكم أبو عبد الله محمد صالح
    1 point
  24. الشكر لله اخي الفاضل استاذ ماس ونرجو ان تضه لنا كنترول الاداره لكي يستفيد الاخوان من العمل وتستفيد انت من الدعوات اقول ذلك لانني متأكد من انك من ابطال المنتدى تعرف أخي قصي أن العمل في كنترول الإدارة التعليمية حساس للغاية ويحاط بالكثير من السرية ولكن سوف أحاول أن أرفق لكم الملف مفرغا بدون بيانات وكل عام أنتم بخير
    1 point
  25. طبعا الإجابة لا يمكن ولكن الممكن هو استبدال دالة المتوسط average بدالة أخرى لا تظهر خطأ القسمة على صفر وهي بنفس معنى المتوسط =SUM(A8:B8)/2 لأنك في هذه الحالة ستقسم على رقم ثابت وهو عدد الأعمدة وفي حالتك هذه هو الرقم 2 أتمنى أن يكون اتضح الأمر
    1 point
  26. أخي قصي الأمر لايحتاج إلى إرفاق ملف ولا مثال يمكنك عملها أنت في ملف عندك 1- قم بعمل معاينة قبل الطباعة ستجد أن عدد الصفحات مثلا 4 صفحات و5 سطور وتريد ضغط ال 5 سطور في الأربع صفحات بحيث يتم طباعة الجميع في 4 صفحات فقط - لعمل ذلك افتح page setup من قائمة file وفي الجزء الخاص ب fit fit to 1 page wide by 4 pages tall ok - قم بمعاينة الصفحات مرة أخرى ستجد أنها اصبحت 4 صفحات فقط والسلام عليكم ورحمة الله وبركاته
    1 point
  27. باختصار أخي فوزي gutter تعني هامش التوثيق أو بالعامية التدبيس فعندما نريد تدبيس مجموعة من الأوراق لتجميعهم كملف واحد يمكنك التدبيس في الناحية اليمنى أو اليسرى أو من الأعلى ويسألك برنامج الوورد عن مساحة هامش التدبيس بحيث يزيد الهامش في هذه الناحية عما هو عليه بمقدار هامش التوثيق هذا حتى يظهر باقي المستند بدون مشاكل بعد عملية التدبيس أعتقد أن الموضوع اتضح لمن يعرف اللهجة المصرية واعذروني إن كنت لا أعرف معنى الدبَاسة باللهجات العربية الأخرى أخوكم أبو عبد الله محمد صالح
    1 point
  28. أخي الكريم فوزي كل عام أنتم بخير موضوع ال scaling هذا يعني التحجيم وهو خاص بنسبة الملف إلى الحجم الصلي عند الطباعة وهذا هو معنى الجزء العلوي من التحجيم فإذا أردت طباعة الملف بنسبة 75% من حجمه الأصلي أو بنسبة 115% يمكنك عمل ذلك من الخاصية الأولى والخاصية الثانية مرتبطة بالأولى بحيث يمكنك التحكم في عدد الصفحات التي يطبع فيها الشيت وذلك يكون طبعا بتغيير نسبة الملف إلى حجمه الصلي فلو مثلا أردت طباعة شيت وفي المعاينة ظهر الشيت كصفحة وسطرين في الصفحة الثانية يمكنك باستعمال الخاصية الثانية في التحجيم بمناسبة الملف إلى صفحة واحدة عرض في صفحة واحدة طول وبذلك ستتم طباعة الشيت في صفحة واحدة فقط وبالطبع ستتغير نسبة التحجيم في الخاصية الأولى إلى اقل من 100% أتمنى أن يكون اتضح الأمر
    1 point
  29. شكرا للأخ قصي على النقل والشكر موصول للأخ كيماس وأؤكد أنني أعمل في كنترول الإدارة التعليمية ولا أستعمل الأكواد أيضا ولكن يرجى مراجعة المعادلات حيث يكون الطالب ناجحا ويظهر في تقديره دون وخاصة مع مادتي النشاط التربوي
    1 point
  30. يبدو أنه يوجد حلقة مفقودة قلت أنه 4 أرقام من أصل 19 وفي الأمثلة الأرقام من 6 خانات فهل تريد/ي عمل قائمة من 4 خانات للأرقام من 1 إلى 9 بدون تكرار رقم معين مثلا؟ يا ريت بالتفصيل الممل الرؤية لم تتضح بعد
    1 point
  31. يا ريت مزيد من التوضيح وإن شاء الله تجدي ما يسرك
    1 point
  32. وهذا حل آخر أخي صفوت وشكرا لأخي طارق وأخي يحيى mas-تسلسل الايام.rar
    1 point
  33. السلام عليكم الاخ الحبيب/ محمدي ----حفظه الله اكرمك الله واثابك بمثل ما دعوت لي اضعاف مضاعفة تقبل تحياتي وشكري ======================= الاخ الحبيب/ ابو اسامة العينبوسي----حفظه الله سرني مرورك اكرمك الله تقبل تحياتي وشكري ======================= الاخ الفاضل/ yahia----حفظه الله في المرفق ستجد ما تريد تقبل تحياتي وشكري ======================= الاخ الفاضل/ عادل----حفظه الله وانت بالف خير تقبل تحياتي وشكري ======================= الاخ الفاضل/ safwat----حفظه الله في المرفق ستجد ما تريد ======================= الاخ الفاضل/ قصي----حفظه الله الله يكرمك اخي الصفحة الرئيسية هي موجودة في فايل معين وبرفقتها ملفات اكسل معينة( هما دول الملفات التي يتم فيها البحث) ======================================== الاخ الفاضل/ engineer.salah----حفظه الله سرني مرورك اكرمك الله تقبل تحياتي وشكري ======================================== في الصفحة الرئيسية اضفنا جدول يتم من خلاله التحكم في اعدادات البحث الملفات والاوراق ونطاق البحث تفضلوا المرفق بحث بفورم في عدة ملفات.rar
    1 point
×
×
  • اضف...

Important Information