اذهب الي المحتوي
أوفيسنا

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

  1. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      9

    • Posts

      9995


  2. ياسر خليل أبو البراء

    ياسر خليل أبو البراء

    المشرفين السابقين


    • نقاط

      7

    • Posts

      13165


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

    سليم حاصبيا

    أوفيسنا


    • نقاط

      5

    • Posts

      8723


  4. صالح حمادي

    صالح حمادي

    أوفيسنا


    • نقاط

      4

    • Posts

      1748


Popular Content

Showing content with the highest reputation on 02/12/17 in مشاركات

  1. وعليكم السلام تفضل . الكود هو Private A, B, C As Integer Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If Me.Sec = "الاستقبال" Then A = A + 1 ElseIf Me.Sec = "الصيانه" Then B = B + 1 ElseIf Me.Sec = "المطبعه" Then C = C + 1 End If End Sub Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) Me.txt_A = A Me.txt_B = B Me.txt_C = C A = 0 B = 0 C = 0 End Sub جعفر 576.الجمع بشرط فى تقرير.accdb.zip
    3 points
  2. الاخ محمود الشريف شكرا لكلاماتك وعندك حق لاحظت ان فيه عدم اتفاق بين الجميع واسلوب لم يرضى الاخرين ولم يرضينى الحوارات بهذا الاسلوب وسبق وتكلمت انى عشت الامتحانات فى جميع المراحل وقد ارسلت غلاف للموضوع على أمل ان الشباب يجمعوا مجموعة الافكار وجمعها ثم عرضها فى ملف يشمل جميع الافكار من مقدمة او واجهة / بيانات " المحافظة والمديرية والادارة واسم المدرسة ومدير المدرسة ورئيس الكنترول " شيت باسماء الطلبة وبياناتهم " اسم الطالب وتاريخ الميلاد وحالة القيد " منقول او معيد" والديانة " مسلم او مسيحى "والجنسية ودى منحتاجة فى الكنترول العام والمدارس الخاصة واللغات " انجليزى / فرنسى / عربى " عدد 3 شيت " فصل اول وفصل ثان ودور ثان " شيت لارقام الجلوس والسرى " مرسل ملف فى الاسفل" كشوف للمناداة / شيت بإسم الطالب ورقم جلوسة واللجنة احصاء عام بالنتيجة واحصاء للمواد فورم يعمل على الشيت الرئيسى او مجموعة فورمات كل فورم مسئول عن شيت أتمنى انى لم اطيل عليكم ولكم تحياتى وجذاكم الله خير الرقم السري لكنترول المدارس اصدار معدل.rar
    2 points
  3. جرب هذا الملف العامود الاخضر تعديل معادلة sa;im.rar
    2 points
  4. السلام عليكم حل أول باستعمال الدالة SUMPRODUCT في المرفق... بن علية تعديل معادلة.rar
    2 points
  5. السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. إليكم هذا البرنامج الصغير الذي يقوم بإظهار شريط طباعة مع كل تقرير و بإستعمال أكواد قليلة يقوم شريط الطباعة بضبط إعدادات الصفحة ، طباعة الصفحة الحالية، طباعة الصفحات التي تريدها حسب الإختيار، التكبير و التصغير ، الإنتقال بين السجلات، عرض مجموعة من الصفحات في التقرير. رغم أنه يوجد مثال من قبل للأستاذة زهرة حفظها الله. إلا أنني في هذا المثال إستعملة طريقة مغايرة قليلا و بإستعمال أسطر أقل. إنشاء شريط طباعة.rar
    1 point
  6. هنا قاعدة بيانات اكواد VBA للاكسل مع الشرح والامثلة ((( مرجع للجميع ))) السلام عليكم ورحمة الله وبركاته الفكر من الموضوع عمل قاعدة بيانات باكواد VBA للاكسل مع الشرح والامثلة ((( تكون مرجع للجميع ))) امل من الجميع اثراء الموضوع ....
    1 point
  7. السلام عليكم اخوتي في الله عايزين نبدء مشاركة لكل الاعضاء واللي عنده معلومة يشارك بيها من حيث بناء قاعدة بيانات مبيعات ومشتريات ومن حيث التعلم واخذ فكرة عن انشاء عمل كمثل هذا انا واحد من الناس قمت بانشاء عديد من البرامج ولكن عجزت امام انشاء قاعدة بيانات مبيعات ومشتريات انا بصراحة في الاول كنت افتكرها سهلة وكان عندي بعض المعلومات عنها لكن بطرحي سؤال في المنتدي الغالي اوفيسنا اتضحلي ان كل المعلومات اللي عندي لانشاء قاعدة البيانات خطأ وبالتحدث مع الاستاذ الفاضل رضوان ( rudwan ) لقيت ناقصني كتير وانه فيه جداول كنت متخيل انها مش ضرورية في البرنامج لان كان الفكرة في انشاء برنامج بالنسبالي هو شاشة بيع واضافة رصيد للجداول من نفس الشاشة طلبت من الاستاذ رضوان بانشاء موضوع جديد لعمل قاعدة بيانات مبيعات ومشتريات ومشاركة كل واحد من الاعضاء ولو بفكرة عشان نقدر نوصل لنتيجة كويسة الفكرة من انشاء قاعدة البيانات هي ان اللي مش عارف يتعلم وياخد فكرة عن المشروع ولو حب ينفذه يلاقي حاجة تساعه في العمل انا قمت بعمل بعض الجداول واللي شايف ان فيه جداول المفروض تكون موجودة يقدر يضفها ويرفق الملف توكلنا علي الله مبيعات ومشتريات.rar
    1 point
  8. السلام عليكم ورحمة الله وبركاته كيف يمكن إزالة الارتباط التشعبي من ملف بدون الإخلال بالتنسيق، عملية نسخ النص ولصقه باختيار (نص غير منسق) سيزيل الجداول والرسومات، وهذا الخيار لا أريده. يرجى التكرم بمساعدتي لطفاً للوصول للحل. دمتم بخير
    1 point
  9. مبروك عليك الترقية أخوي أبو عبدالله الحلوانى تستاهل ، وان شاء الله للأمام جعفر
    1 point
  10. وجزيت خيراً الموضوع بسيط ولابد من تعلم الأساسيات .. يوجد هذا السطر للتعامل مع ورقة العمل النشطة With ActiveSheet إذا أردت التعامل مع ورقة العمل المسماة add على سبيل المثال ، ستقوم بتغيير كلمة ActiveSheet إلى التالي With Sheets("aadd")
    1 point
  11. وعليكم السلام جرب الكود التالي Option Explicit Private Sub CommandButton1_Click() Dim x As Variant Dim y As Long With ActiveSheet x = TextBox1.Value y = (.HPageBreaks.Count + 1) * (.VPageBreaks.Count + 1) If x = "" Or Not IsNumeric(x) Or x > y Then MsgBox "Enter Valid Value", vbExclamation: Exit Sub .PrintOut From:=1, To:=x End With End Sub لاحظ أنه عندما يكون الموضوع مباشر والطلب واحد ومحدد تجد استجاية أفضل (راجع الموضوعات التي لم تجد فيها استجابة ستجد أن هناك تشتت وأكثر من طلب) أحببت أن أنوه لك لكي ينتبه الجميع للأمر ، فالله يعلم أني أريد المصلحة والمنفعة للجميع وفقنا الله وإياكم لكل خير
    1 point
  12. وجزيت خيراً أخي الكريم أبو حمادة بمثل ما دعوت لي والحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي
    1 point
  13. الله ينور عليك اخي الغالي استاذ ياسر تسلم ايدك وجزاك لله خيرا
    1 point
  14. وعليكم السلام جرب الكود بالشكل التالي Option Explicit Private Sub UserForm_Initialize() Dim sh As Worksheet Dim i As Integer Dim valeurs1 As Variant Dim sDic1 As Object Set sh = Sheets("add") Set sDic1 = CreateObject("Scripting.Dictionary") With Application .ScreenUpdating = False .DisplayAlerts = False End With With sh valeurs1 = .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row).Value valeurs1(1, 1) = "الكل" For i = LBound(valeurs1) To UBound(valeurs1) If Not IsEmpty(valeurs1(i, 1)) Then sDic1(valeurs1(i, 1)) = "" Next i End With If IsArray(valeurs1) Then Me.ComboBox4.List = sDic1.keys With Application .ScreenUpdating = True .DisplayAlerts = True End With End Sub
    1 point
  15. أخي عبدالفتاح بارك الله فيك، إجابة سليمة 100% ولا يوجد عليها غبار. بارك الله فيك الله يعطيك العافية
    1 point
  16. أستاذي بن علية حاجي بدءا قد وفّيت وانه المطلوب، ثُمّ إنه لمن المحرج أن لا اجد ما يعبر عن شكري وامتناني، غير اني آمل من الله أن يكرمك ويجزيك خيرا بقدر ما هو أهلً له من كرم وسخاء، شكرا استاذي كما لا يفوتني ابدا أن ادعو لكل أساتذتنا في اوفيسنا من الاستاذ ياسر ابو البراء الى خبور الى الاستاذ جاويش اليهم جميعا فردا فردا.... فإننا نقدر مجهوداتهم ولا نخفي جميلهم جميعا. شكرا
    1 point
  17. بعد إذنك (مستر مصطفي) لدي قاعدة بيانات قمت بتصميمها بعد متابعة شرح ( إنشاء سوبر ماركت علي الفيجوال بيسك ) ولكني لم أكمل البرنامج لوجود إختلاف وصعوبة في الفيجوال . وأنا أجدها قاعدة بيانات قوية وملمة بنواحي كثيرة في مشروع السوبر ماركت أو أي مشروع مبيعات ومشتروات .لذا أرجو من الأخوة الخبراء العمل عليها وإستكمالها . وأتمني من الأخوة الأعضاء عندإضافة أي جديد في هذا الموضوع أن يقوم بشرح الخطوات . لكي يستفيد الآخرين Super Market.rar وهذا رابط الشرح
    1 point
  18. وعليكم السلام جرب الكود التالي Private Sub UserForm_Initialize() Label1.Caption = Format(Label1.Caption, "#,###.##") End Sub
    1 point
  19. هذا صحيح لأن اكسس ينتهي من العمل من تضبيط وحساب بيانات راس الصفحة قبل ان يذهب الى قسم التفاصيل (الذي به البيانات) ، ثم الى قسم ذيل الصفحة حيث يلقى مجاميع البيانات جاهزة للعرض جعفر
    1 point
  20. كلام سليم، لكن ما أتحدثه عنه هو عبارة عن 1000 ارتباط تشعبي أو ما يزيد، عملية الذهاب لكل ارتباط وإزالته بطريقتكم ستأخذ وقت طويل جداً، أريد طريقة مختصرة وسريعة لذلك. أشكرك لك مشاركتك
    1 point
  21. السلام عليكم ورحمة الله وبركاته إخواني الكرام في الصرح العملاق أوفيسنا (الذي يعتبر بمثابة الأم التي تحتضن أبناء الوطن جميعهم) أقدم لكم موضوع بسيط جدا في كيفية تظليل عمود وصف الخلية النشطة بناءً على رغبة الأخ الحبيب أحمد غانم (حفظه الله ورعاه) إذا أردت تنفيذ الفكرة بنفسك قم بعمل الآتي : أولاً حدد خلايا ورقة العمل بأكملها ..مش صعبة يا أحمد ثانياً روح للتنسيق الشرطي ..واختار New Rule ثم Use a formula to determine which cells to format ثم اكتب المعادلة التالية : =COLUMN()=COLUMN(INDIRECT($P$1)) اضغط Format ثم التبويب Fill واختار اللون اللي على مزاجك (يا لذيذ يا رايق) كرر نفس الخطوات السابقة مرة أخرى واكتب المعادلة التالية أيضاً .. =ROW()=ROW(INDIRECT($P$1)) ثالثاً : كليك يمين على ورقة العمل ثم View Code واكتب الكود التالي : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Range("P1").Value = Target.Address Application.ScreenUpdating = True End Sub رابعاً ودي أهم خطوة : بس خلاص جرب الملف المرفق .. في الملف المرفق قمت بتلوين بعض النطاقات ، وعمل تنسيق شرطي للتأكد من أن الكود لا يؤثر بأي حال على التنسيق الشرطي الموجود ولا على الخلايا التي تم تلوينها من قبل ، ويسمح أيضاً بتلوين أي خلايا تريدها Highlight Activecell's Row And Column V2.rar
    1 point
  22. وجزيت خيراً بمثل ما دعوت لي أخي الغالي مجدي يونس تقبل تحياتي
    1 point
  23. السلام عليكم ورحمة الله أخي الكريم، تم عمل المطلوب باستعمال الكود السابق (مع بعض التعديل) وإضافة أمر "الترحيل" (سطر واحد)... وتم نسخ الكود نفسه باسم آخر (بعد التعديل) لأجل الترحيل دون الطباعة مع حذف أمر "الطباعة" (سطر واحد)... أرجو أن يفي الغرض المطلوب... بن علية ترحيل من خلية الى صفحات مفهرسة + طباعتها.rar
    1 point
  24. آمين ولك بالمثل أرجو أن نستطيع تقديم هذا العلم النافع وجزاك الله خيرا
    1 point
  25. استاذ أبو عيد ممكن تشرحلي شوية على الكود الي عمله الاستاذ ابو البراء هوه اشتغل تمام وعملت له اختبار وعمله 100% (سواء معادلة او كود) لكن ما فهمتش طريقة عمله احسه مبهم شوية عشان ممكن في أي وقت تتغير المدة الدنيا والقصوى او ممكن رقم المستوى يتغير واريد ان افهم الكود عشان استطيع اني اغير بسهولة طلبي المستوى الدنبا القصوى 3 365 545 5 545 730 7 730 910 1 .. .. OFF .. .. احتمال كبير جدا خلال 6 اشهر يكون فيه مدة دنيا وقصوى ل OFF وممكن يضاف رقم مستوى جديد مثل (2 او 4 او 6) في هذه الحالة لا اعرف كيف اعدل على الكود ارجوا ان لا تعتبر اني قد تجاهلتك بالسؤال بعد اجابة الاستاذ ابو البراء ولكن من حسن نية وجدته وضع الكود فقمت بسؤاله ولذلك فلك جزيل الشكر اخي الحبيب
    1 point
  26. تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة عدة ادخالات بفورم واحد تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير مرفق الملف و الشرح فورم ترحيل و ادخال طبقا لرؤوس الاعمده.rar __________________________________.rar و فورم ادخال و ترحيل افقى للبيانات مرفق الملف و الشرح ________________________.rar و لا تنسونا من صالح الدعاء تحياتى
    1 point
  27. 1 point
  28. وفقك الله اخي ابو عبدالله ..وجزاك بكل خير .. أصاب الله ببرك مواقعه ، ولا جعل الله لك إلى لئيم حاجة ، ولا سلب نعمة عن كريم قوم إلا جعلك سبباً في ردها .
    1 point
  29. 1. هكذا نسحب عدد المتغيّر المطلوب ، 2. جرب جعفر
    1 point
  30. كود البرنامج في مشاركتي الاولى ، هنا: جعفر
    1 point
  31. استاذ محمد ... بعد التحية معادلةجيدة ولو كانت ظويلة حبتين لكن نتائجها غير مضمونة (حيث انك حددت الارقام) 1000 , 5000, 10000 ..الى اخره لنفرض ان الرقم هو 1500 أو 9800 مثلاً لاحظ ماذا تحصل
    1 point
  32. السلام عليكم جرب هذا لعله يوافق مطلبك ajazat.rar
    1 point
  33. أستاذ محمد حسب فهمي للموضوع أظن أن هذا ما تبحث عنه Gotorecord.rar
    1 point
  34. فينك يا رجال غبت عنا - ولا الاكسل أخذك منا - شفت متابع أخبارك ازاى جزاك الله خيرا وأرجو أن يكون تم برنامجك الخير على خير أيها الرجل الطيب . أستاذى الغالى جزاك الله خيرا - هذا وسام آخر تهنئتكم أعتز به
    1 point
  35. 1 point
  36. حياك اخ محمد اولا خلينا ننبه على شي وبعدين نشوف النموذج مرتبط بالجدول ومربع السرد مرتبط بحقل بالجدول التنبيه : اثاناء عملية البحث انت بتعدل قيمة السرد بالسجل الحالي للنموذج ! لاحظ ان تبحث عن Oda Oda ستجده حل محل القيمة السابقة لهذا السجل وهذا شي خطير فمارايك ؟
    1 point
  37. =VLOOKUP($B$2,{1000,273;5000,381;10000,802;20000,1055;30000,1870;40000,2627;50000,2772;60000,3261},2)*(1+IF($D$2="ليلاً ",0.5,0)) جرب هذه المعادلة
    1 point
  38. السلام عليكم جميعا.. إليكم طريقة إلغاء الزر الأيمن لكائن المستعرض بأبسط طريقة من داخل أكسس! 1- الخطوة الأولي اضف المكتبة الخاصة بمستندات HTML من مكتة المراجع ( Microsoft Html Object Library ) 2- افتح محرر الشفرة للنوذج وأضف الإعلان التالي في رأس المحرر.. (WithEvents) تنشئ أحداثا خاصة للغرض المعلن عنه! Public WithEvents HTML As HTMLDocument 3- من القائمة المنسدلة اليسرى في أعلى المحرر: اختر الغرض (HTML) الذي سبق الإعلان عنه 4- من القائمة المنسدلة اليمنى: اختر الحدث (oncontextmenu) هذا الحدث يعيد قيمة منطقية (TRUE, FALSE).. اسند القيمة (FALSE) لهذا الحدث كالتالي Private Function HTML_oncontextmenu() As Boolean HTML_oncontextmenu = False End Function 5- في حدث (onload) للنموذج: أضف السطرين التاليين.. [قم بتبديل ما يلزم] Private Sub Form_Load() Me.WebBrowser0.Navigate "ABOUT:BLANK" Set HTML = Me.WebBrowser0.Document End Sub هذا كل شي.. إليكم المثال web_browser.zip
    1 point
  39. الف مبروك يستاهل ابوعبدالله وقبل ذلك هو خبير في ادب الحوار ادب العلم عطاء وأخذا روح الفكاهة التي لا تفارقه يشرف منتدى انت فيه يا ابا عبدالله
    1 point
  40. هذا شرف كبير أستاذى العزيز - تهنئتكم أحب الى من الترقية ولكنى كنت أعتقد أن بعد الفضية الذهب وكنت أنتظر الذهبية (طبعا أسعار الذهب مرتفعة فى مصر هذه الأيام - ووسام ذهب كان هيعمل مبلغ كبير - يلا كل شىء نصيب )
    1 point
  41. تفضل غيّرت في طريقة الحساب ، وان شاء الله تشتغل في الطريقتين ، وهذا هو الكود الجديد: Private txtPageCount2 As Integer Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) Me.txtPageCount = txtPageCount2 txtPageCount2 = 0 End Sub Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) If PrintCount = 1 Then txtPageSum = txtPageSum + [تسمية79] End If txtPageCount2 = txtPageCount2 + 1 End Sub جعفر 570.1.حساب عدد الأسر.accdb.zip
    1 point
  42. وعليكم السلام اخي أشرف اطلعت على مرفقك ولكن لم أفهم طلبك الرجاء الشرح بلغة الأكسل يعني بقول مثلا : أريد في الصفحة (كذا) فرز العمود (كذا) بناء على النطاق (كذا) بحيث تكون النتيجة المطلوبة ........ هذه هي لغة الأكسل تحدد الصفحة والأعمدة والخلايا التي سيكون بموجبها الفرز تحياتي
    1 point
  43. الاخ الكريم / ياسر بارك الله فيك لاهتمامك الشديد بالموضوع انا كنت بعت رد لحضرتك يو السبت بخصوص 03/09 و قلت لحضرتك ان استخدام المعادلات مش عملى خالص لان الملف بيبقى ثقيل جدا و بيهنج الجهاز. الرجاء القاء نظرة على الملف المرفق و ان امكن حضرتك تعدل الكود ( حضرتك كنت بعتهولى قبل كدة فى مشاركة سابقة فى ملف اسمة حسابات جديدة + معادلات + كود ) لان استخدام الاكواد اسهل و اخف على الجهاز من استخدام المعادلات لعمل كشف الحساب. بارك الله فيك مقدما على مجهودك و سعة بالك حسابات جديدة - كود ياسر.rar
    1 point
  44. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته انظروا الى المرفق ودمتم في حفظ الله وسلامته تحياتي وسلامي اخوكم/ خبور Dawah.rar
    1 point
  45. مرفق المثال بالاكسس و به 4 طرق واحدة باستخدام IIF و 3 بال VBA مع تحياتي Grades.rar
    1 point
×
×
  • اضف...

Important Information