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

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

  1. أبوبسمله

    أبوبسمله

    الخبراء


    • نقاط

      14

    • Posts

      3,240


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

    سليم حاصبيا

    أوفيسنا


    • نقاط

      13

    • Posts

      8,723


  3. kanory

    kanory

    الخبراء


    • نقاط

      10

    • Posts

      2,189


  4. الرائد77

    الرائد77

    الخبراء


    • نقاط

      5

    • Posts

      238


Popular Content

Showing content with the highest reputation on 03 يون, 2020 in all areas

  1. السلام عليكم و رحمة الله مشاركة مع الأخي ابو بسمله رغم اتمام الاجابة و الطريقة تصفية كل النموذج و تقرير عن طريق vba az2.accdb
    3 points
  2. استبدل الى هذا الماكرو (يجمع كل الألوان ما عدا الابيض) Option Explicit Private Sub Cmd_sum_Click() Dim s#, Sh As Worksheet, x As Boolean For Each Sh In Worksheets x = Sh.Range("A1").Interior.ColorIndex <> xlNone s = s + IIf(x, IIf(IsNumeric(Sh.Range("A1")), _ Sh.Range("A1"), 0), 0) Next Me.My_lebl.Caption = IIf(s <> 0, s, "No Numbers") End Sub الملف من جديد User_form_1.xlsm
    3 points
  3. استخدم هذا الكود a=nz([Text1];"لم يباشر")
    3 points
  4. بسم الله الرحمن الرحيم السلام عليكم اخواني الكرام الموضوع كيف يعامل مجموعة مستخدمين مع قاعدة البيانات من خلال الانترنت بدلا من الشبكة المحلية ( الداخلية ) لتباعد المسافات بين المستخدمين الفكرة سهلة كنا بنجمع الاجهزة علي الشبكة المحلية عن طريق وسيط وهو اسلاك بتربط الاجهزة ببعضها خلاص بيقي عايزين وسيط غير الاسلاك الوسيط هو موقع وله برنامج هننزله عنوان الموقع https://my.zerotier.com/login صفحة تحميل البرنامج https://www.zerotier.com/download/ 1 – نحمل البرنامج من صفحة التحميل 2 – نسطب البرنامج زي اي برنامج نسيب البرنامج بقي كدة خلاص نروح الموقع ونسجل فيه ندوس علي المربع الاصفر دي الصورة طبعا احنا عضو جديد ندوس علي ريجستر زي الصورة 1 2 اذهب الي الايميل بتاعك وفعل العضوية بعد ما تفعل العضوية هيدخلك علي الصفحة دي دوس علي نتوورك زي الصورة من اول هنا بقي يبدأ الجد ركز مع الصور اتبع الارقام الموجودة علي الصورة ونفذ الموجود بها وتوصل لرقم 3 وتضغط كما هو موضح بالصورة هيدخلك علي الصورة اللي جاية -- دي صفحة اعدادات الشبكة بتاعتك اتبع ما جاء بالصورة انسخ الرقم وضعه كما في الصورة القادمة كدة شبكتك تمام وجاهزة للشغل بس فيه سؤال هو كل واحد من المستخدمين هيعمل الدوشه دي كلها ؟؟؟ الاجابة : لا طبعا دي انت بس علشان انت صاحب الشبكة اما المستخدمين يعني الاجهزة التانية يا دوب هيسطب البرنامج ويحط الرقم اللي انت اديتهوله وهو بالنسبة للشبكة دي اللي عملناها دلوقت 885033839097d605 وكل شبكة طبعا ارقامها بتختلف عن غيرها أي واحد هيسطب البرنامج ويضيف الرقم ده في مكانه مثل الصورة وانا اقبله من عندي يبقي مشترك معايا علي الشبكة وممكن احذفه واضيف غيره يعني الاضافة والحذف براحتك سؤال تاني هو كام جهاز ممكن يشتركوا في الشبكة بتاعتي ؟ طبعا لان حضرتك عضو مجاني عندهم لك تضيف لغاية 100 جهار بعد كدة بفلوس طبعا انت مش محتاج كل ده المشاريع الصغيرة اللي عندنا يا دوب من 3 : 10 اجهزة يعني انت تبعنا في ابو بلاش ------------------------------------------------------------------------------------------------------------------------------------------------------------- كدة اللي فاضل نجهز قاعدة البيانات ونقسمها ونشيرها نفتح قاعدة البيانات بتاعتنا حدد مكان التقسيم في جهازك وخلاص اتقسمت اصبحت جزء باسم قاعدة البيانات لو اسمها مثلا ( اشرف ) والجزء الثاني اشرف ) وهو ده اللي فيه الجداول ده هو اللي هيتشير فقط _be ( يفضل اعدادات الشير – شوف يا باشا دي سهلة بس ركز مع الصور في جهازك روح علي Control Panel Network and Internet Network and Sharing Center Advanced sharing settings تلاقيها بالشكل ده يفضل ازاي نشير قاعدة البيانات اول حاجة نضع جزء الجداول في مجلد ونسميه اي حاجة ثم نضغط كليك يمين علي المجلد ونختار Give access to Specific people بكدة يبقي احنا شيرنا الملف اللي فيه الجداول نعطي بقي نسخة من الجزء الثاني من قاعدة البيانات للاحهزة المراد ضمها للشبكة وكل مستخدم يعدل مسار الجداول المرتبطة علي مكان الشير في جهازك اللي يعتبر سيرفر للتجربة انا مشير نموذج علي جهازي اللي عايز يجرب اولا يحمل البرنامج ويسطبه كما في الصور اعلاه ويضع الرقم 885033839097d605 وانا ان شاء الله هقبل اضافته للشبكة اللي عملناها دي ولما اقبله جهازي هيظهر عنده باسم اشرف ويحمل النموذج من الموضوع هنا ونتواصل مع بعض علي القاعدة دي عن بعد و يمكن من بلاد مختلفة لتوضيح الفكرة ولمعرفة سرعة استجابة القاعدة في التعامل وذلك بعد العاشرة مساء بتوقيت القاهرة او لما تلاقيني متواجد بالموقع ولمدة يومين فقط للتجربة بعدها ساغلق الشبكة ملاحظة : الجهاز اللي متشيره عليه الجداول يعتبر زي سيرفر يعني لو مغلق او النت مفصول فلا يمكن التواصل انتهي الموضوع اتمني ان يعجبكم اسف علي الاطالة لكن كان لازم التفصيل احتراما وتقديرا لطلب الاساتذة ( حلبي - Barna - أحمد الفلاحجى - الأمير هشام ) واي استفسارات انا معاكم ان شاء الله اشرف.accdb
    2 points
  5. تامر اخى @فايز.. استخدمنا داله iif فى حاله ان الحقل n1 غير فارغ نفذ داله dlookup والا ضع 0 داله dlookup لجلب القيمه من الحقل piece بالجدول جدول القطع ( ولان جدول القطع متكون من كلمتين وبينهم مسافه فوضعناه بين [] ) الذى رقمه ID = n1 ولان حقل الرقم حقل رقمى فكتبناه "ID=" & [n1] اما لو كان نصى فسنكتبه كالتالى "ID='" & [n1] & "'" ارجو ان اكون قد وفقت للشرح اخى فايز وازيدك فالشرح لاساتذتنا جزاهم الله خيرا 💐 بالتوفيق
    2 points
  6. تعديل الماكرو Option Explicit Private Sub Cmd_sum_Click() Dim s#, Sh As Worksheet, x As Boolean For Each Sh In Worksheets x = Sh.Tab.ColorIndex <> xlNone s = s + IIf(x, IIf(IsNumeric(Sh.Range("A1")), _ Sh.Range("A1"), 0), 0) Next Me.My_lebl.Caption = IIf(s <> 0, s, "No Numbers") End Sub
    2 points
  7. وعليكم السلام-من فضلك انتبه قبل رفع المشاركة من استخدام خاصية البحث بالمنتدى , تفضل كود لحماية نطاق دون حماية ورقة العمل لكامل المستند
    2 points
  8. TextBox1.Value = Format(TextBox1.Value, "HH:mm:ss")
    2 points
  9. وده نفس الحل لكن بالاستغناء عن حقول التسميه والاعتماد ع تسميه الزر نفسه واكيد فى حلول افضل az2.accdb
    2 points
  10. واياك استاذي وجوهرة المنتدى @احمد الفلاحجي بارك الله فيك وجهودك الواضحة في المنتدى
    2 points
  11. هذا الماكرو Private Sub CommandButton2_Click() Sheets("sheet2").Range("A5").CurrentRegion.Clear Sheets("sheet1").Range("A5").CurrentRegion.Copy _ Sheets("sheet2").Range("A5") End Sub
    2 points
  12. كان من المفروض رفع ملف الوقت ضيق جداً لإنشاء ملف يحتوي عما تريد لكن حيث انها المرة الاولى اليك هذا النموذج User_form.xlsm
    2 points
  13. عشان بس اتاكد من ان المعلومة هتوصل قلت ارفع سعر حلبى شوية يعنى كده خلاص بكره ان شاء اراجع كله واعرف ماذا دار بالصبط لان خلاص وصلت لعدم التركيز جزاك الله ابنى ومعلمى الفاضل / احمد وربنا يجعله فى ميزان حسناتك ويرحم الله والديك كما اتوجه بالشكر والتقدير لاستاذنا / اشرف الذى قام بنشر معلومة فى اكسس فى غاية الاهمية بالنسبة لى على الاقل وربنا يجعلها فى ميزان حسناته ويرزقه من حيث لا يحتسب ويبارك فى علمه لكما كل الشكر والتقدير
    2 points
  14. تسلم استاذي الفاضل دعائي لك اللهم أعطه مايتمنى وما تحب له وترضى، اللهم أسألك لهذا الإنسان بأن تجعله عن الهم بعيد والرحمة قريب وحقق له كل مايريد وأجعل اليوم له عليه سعيد.
    2 points
  15. تظهر عندى صحيحة راجع اعدادات اللغة من كنترول بانل
    1 point
  16. واضح جزاك الله خيرا ودي أجي مصر .. بس ما فيش طيران ...
    1 point
  17. فكرة رائعة استاذنا الرائد سلمت يمينك فعلا جميلة ومفيدة
    1 point
  18. تمام استاذنا الفاضل abouelhassan هذا الذي كنت ابحث عنه بارك الله فيك
    1 point
  19. تفضل هدا الماكرو يعتمد على تسجيل التاريخ اليوم في الخلية A1 ادا وجد تاريخ اليوم هو نفسه تاريخ اليوم . لن يشتغل الماكرو . و ان وجد تاريخ غير اليوم يشتغل عادي و يسجل تاريخ اليوم في الخلية A1 Book2.xlsm
    1 point
  20. الملف محمى بباسورد اخى اسم المستخدم ayman الباس 123
    1 point
  21. تفضل فتح صفحة انترنت بالفورم.xlsm
    1 point
  22. تجد برنامج الغاء الشفت في هذه المشاركة
    1 point
  23. az2.accdb 608 kB · 1 تنزيلات الاستاذ المبدع ابو بسملة ماقصرت ربي يحفظك من كل سوء الاستاذ Abu Farid لن اعلق يكفي ما قالة الاستاذ ابو بسملة عن مشاركتك جزاكم الله عني كل خير
    1 point
  24. شكراً اخي العزيز على سرعة الاجابة نعم هذا ما اوريد داعياً الله عزوجل بالتوفيق لك
    1 point
  25. وعليكم السلام اخى @محمد التميمي اتفضل ان شاء الله يكون ما تريد =IIf([n1]<>"";DLookUp("piece";"[جدول القطع]";"ID=" & [n1]);0) بالتوفيق اخى piece.rar
    1 point
  26. اعلم اخى انه لتنوع الحلول ولكنى افضلها فعلا احسن الله اليك وجزاك الله خيرا 💐 وجزاك الله خيرا على ظنكم الحسن فى واسال الله ان اكون عند حسن ظنكم
    1 point
  27. اخي العزيز شاركت الموضوع مجرد لتنوع الحلول لا للافضلية، اجابتك و اخلاقك و اسلوبك مع الناس في المنتدى افضل من اجابتي ب مراتب
    1 point
  28. شاهد هذا الموضوع عله يفيدك
    1 point
  29. عند حماية الشيت حدد هذا المربع في الصورة
    1 point
  30. منح حق الوصول ل الخيار الاخير واتبع الصور التي وضعها اخونا احمد في الرسالة السابقة
    1 point
  31. المعادلات محمية ضد الخذف او التغيير بالنسبة للفرز يمكنك الفرز (بدون Header)
    1 point
  32. تم معالجة الأمر Salim_dates.xlsm
    1 point
  33. جرب هذا الملف الكتابة فقط في الخلايا الخضراء لا لزوم لتغيير الشهر كل مرة يكفي اختيار الشهر من القائمة المنسدلة في الخلية R1 واكسل يدرج لك كل التواريخ للشهر المناسب Salim_dates.xlsx
    1 point
  34. مفتوح البرنامج .... مكن الشيفت وادخل على البرنامج ..... ابحث في المنتدى عن برامج تمكين الشيفت تجدها ....
    1 point
  35. جواهر المنتدى هو انتم اخوانى واساتذتى فلست سوى طالب علم اتعلم منكم واساعد اخوانى كما اتعلم منكم جزاكم الله عنا خير الجزاء ورزقكم من فضله وعلمه 💐
    1 point
  36. تمام زى الفل سجل 123456 بمبلغ 10000000000 مبحبحها اوووووووووووووووى ههههههههههههههههههههههههههههه
    1 point
  37. أنت عملت في التقرير control Source لمربع نوع الانذار الكود السابق وهو تقريبا صحيح لكن طبعا لن يتم تنفيذه لأن الشرط في جميع حالات Switch يحتوي على معامل مقارنة + قيمة المقارنة ولكن لا يحتوى على العنصر المراد تطبيق الشرط عليه بمعنى اكتبه في التقرير هكذا : =Switch([S]>=26;"راسب بسبب الغياب";[S]>=25;"انذار نهائي";[S]>=20;"إنذار رابع";[S]>=15;"إنذار ثالث";[S]>=10;"إنذار ثاني";[S]>=5;"انذار اول") وفي الاستعلام هكذا : A: Switch([All_Sum]>=26;"راسب بسبب الغياب";[All_Sum]>=25;"انذار نهائي";[All_Sum]>=20;"إنذار رابع";[All_Sum]>=15;"إنذار ثالث";[All_Sum]>=10;"إنذار ثاني";[All_Sum]>=5;"انذار اول")
    1 point
  38. وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP(H7,$B$9:$C$13,2,0),"") 1mohd.xlsx
    1 point
  39. هو المطلوب أستاذى الكريم جعله الله في ميزان حسناتك
    1 point
  40. تم قسمة مجموع الهروب على 4 راجع النتيجة غياب 7.mdb
    1 point
  41. في حقل a1 جعلنا حدث بعد التحديث a2 = Year(Date) - [a1] في a2 ايضا حدث بعد التحديث a1 = Abs([a2] - Year(Date)) استخدمنا دالة abs لابعاد القيمة السالبة
    1 point
  42. جرب المرفق وكل عام وانت طيب حساب العمر بالسنة(1).accdb
    1 point
  43. بارك الله فيكم إخواني وأحبابي على الحلول الجميلة أخي الكريم إتش جرب الملف التالي عله يفيدك .. Sub CountSumCF() Dim Ws As Worksheet, I As Integer, J As Integer Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets Ws.Activate I = I + CountCFCells(Ws.Range("A1").CurrentRegion, Sheet1.Range("F1"), False) J = J + CountCFCells(Ws.Range("A1").CurrentRegion, Sheet1.Range("F1"), True) Next Ws MsgBox "Yellow Cells In All Sheets Count = " & I & vbNewLine & "Yellow Cells In All Sheets SUM = " & J Sheet1.Activate Application.ScreenUpdating = True End Sub Function CountCFCells(Rng As Range, C As Range, bCount As Boolean) Dim I As Single, J As Long Dim Chk As Boolean, Str1 As String, CFCELL As Range Application.Volatile Chk = False For I = 1 To Rng.FormatConditions.Count If Rng.FormatConditions(I).Interior.ColorIndex = C.Interior.ColorIndex Then Chk = True Exit For End If Next I J = 0 If Chk = True Then For Each CFCELL In Rng Str1 = CFCELL.FormatConditions(I).Formula1 Dim II As Integer Dim IIFlg As Boolean Dim Tmp IIFlg = False For II = 1 To Len(Str1) Tmp = Mid(Str1, II, 1) If ("0123456789" Like "*" & Tmp & "*") Then IIFlg = True Else If (IIFlg) Then Exit For End If Next Tmp = Right(Str1, Len(Str1) - II + 1) Str1 = "=" & CFCELL.Address & Tmp If bCount = False Then If Evaluate(Str1) = True Then J = J + 1 Else If Evaluate(Str1) = True Then J = J + CFCELL End If Next CFCELL Else CountCFCells = "Color Not Found" Exit Function End If CountCFCells = J Set Rng = Nothing Set C = Nothing End Function تقبل تحياتي Count & Sum Conditional Formatting Cells YasserKhalil.rar
    1 point
  44. اخواني الكرام تسهيلا على اخواننا في متابعة الموضوع اردت وضع فهرس بالمشاركات التي تحتوي على الاكواد كما ارجوا من الاخوة المشرفين ادراج هذه المشاركة في الصفحة الاولى yahiaoui توليد ارقام عشوائية في مدى معين يوسف عطا كود صندوق حوار يظهر عند فتح الملف yahiaoui كود منع اضافة اوراق جديدة كود منع طباعة حماية ورقة بواسطة زر اختيار اخفاء/ اظهار ورقة بزر اختيار كيفية ربط Label من فورم بقيمة خلية yahiaoui فهرسة الاوراق في الورقة1 yahiaoui كود ملء الشاشة ، اخفاء شريط الادوات ،اخفاء شريط الصيغة hyasser تجميع بعض من الاكواد yahiaoui كود رسالة تحذير عند فتح الملف aah_aah2008 منع كتابة الارقام في تكست بوكس و اخر يمنع كتابة الحروف في تكست بوكس اخر hyasser ادراج المفكرة ( رزنامة ) في ملف اكسل yahiaoui كود بسيط لعمل عداد hyasser كود ساعة رقمية + ساعة عادية yahiaoui صندوق ادخال مع صندوق حوار yahiaoui كود كتابة جملة في شريط الحالة abumode75 كود معاينة قبل الطباعة yahiaoui كود لتحديد عدد مرات استعمال البرنامج hyasser إخفاء وحماية اوراق العمل hyasser شاشة دخول اكسل hyasser المؤشر الى نص yahiaoui تقسيم الخلية الى عدة اسطر galal_mk كود للفرز ولكن حسب رقم العمود المختار hyasser كود يقوم بعمل حماية على جميع أوراق العمل hyasser فرز البيانات بمجرد الضغط المزدوج Double Click على أي عنوان من عناوين الأعمدة Headers في الصف الأول alidroos طريقة التغلب على تحديد اللون وكبر الخط في القائمة المنسدله alidroos كود لجمع الخلايا ذات اللون المعين alidroos كود لتلأم العمود لمحتوى النص yahiaoui كود اضافة دالة اسم اليوم tahar1983 رسالة تأكيد ضهور معلومات yahiaoui تغيير ترتيب اسماء من خلال مربع قائمة yahiaoui كود قائمة منسدلة متناقصة yahiaoui كود تغيير لون خلية عشوائيا yahiaoui كود يجعل الملف يختفي لمدة من الزمن تحددها انت hyasser كود لفصل النص عن الرقم hyasser كود لتلوين الخلية النشطة naderwatfa منع إضافة أوراق naderwatfa طباعة الحقول الممتلئة فقط naderwatfa رسالة لتمكين الماكرو hyasser كود ترحيل واشياء اخرى hyasser ترقيم اجباري واعادة بدء الترقيم yahiaoui كود اظهار رسالة من عدة اسطر
    1 point
×
×
  • اضف...

Important Information