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

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

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

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

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


    • نقاط

      23

    • Posts

      13,165


  2. omar elhosseini

    omar elhosseini

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


    • نقاط

      9

    • Posts

      1,950


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

    • نقاط

      8

    • Posts

      1,417


  4. أبو حنــــين

    أبو حنــــين

    الخبراء


    • نقاط

      6

    • Posts

      2,845


Popular Content

Showing content with the highest reputation on 05 سبت, 2016 in all areas

  1. تحياتى طالما هذا الموضوع تم فتحه كنت متردد فى مناقشة موضوع هام و هو رسالة من القلب و خاصه للطيور المهاجره او المتقطعه _ لعصر ذهبى جديد لهذا المنتدى فالى الساده المحترمين محمد طاهر عمر الحسيني ياسر خليل أبو البراء أبو حنــــين الاخوه الافاضل جزاكم الله خيرا ارى ان هناك مجهود مميت من مجموعه من الاعضاء بدون ذكر اسماء حتى لا انسى احد حتى يظل هذا المنتدى عاليا كما كان و سيظل بأذن الله مناره مضاءة دائما و لكن ما يحزنى انه فى يوم من الايام كان هناك مجموعه متميزه افتقدنا مشاركتها فى فتره زمنيه قصيره منها لكثرة الاشغال او ظروف سياسيه فى بلدهم او لاسباب خاصه او للرحيل ( رحمة الله عليه _ الحسامي ) و حقا نرجو التواصل الجاد معهم و رجعوهم لهذا المنتدى العظيم و حتى للاطمئنان عليهم و ان يكون تواجدهم مميز كما كان من قبلو هذا فضلا و ليس امرا ( مع حفظ الالقاب و تحياتى لشخصهم الكريم ) و منهم ( مع احترامى الشديد لمن لم اذكره ) عبدالله باقشير _ شوقي ربيع _ ضاحي الغريب _ حماده عمر _ حسام عيسى _ الصقر _ يحيى حسين _ عبدالله المجرب _ جمال عبد السميع _ رجب جاويش _ عادل حنفي _ إبراهيم ابوليله _ ياسر العربى ابو اياد ( الاسيوطى ) _ خالد الرشيدى _ محمد الريفى _ محمود الشريف _ محمد حسن المحمد _ طارق محمود _ احمد حمور-ابوعبدالله _ احمد فضيله _ احمدزمان _ هشام شلبى _ ابو عبدالله _ ياسر الحافظ _ ibn_egypt _ احمد فؤاد _ أم عبد الله _ وائل احمد المصري _ إبراهيم محمد _ محمد يحياوى _ قنديل الصياد _ محمدى عبد السميع _ محمد أبو البراء و هذا الموضوع محتاج وقت لتنفيذه و اجراءات و ادوات جريئه قد لا اعرفها لتنفيذه و خصوصا من الفاضل / محمد طاهر و كل عام و انتم بخير و ايام مباركه تحياتى
    4 points
  2. السلام عليكم ورحمة الله وبركاتة فكرة البرنامج كانت مقدمة من ااحد الاخوة الاعضاء وقد اعجبتني فكرة الموضوع فكانت النتيجة برنامج يعمل علي الاتي :: صفحة تكويد الاصناف مع الرصيد الاساسي ( رصيد اول المدة ) صفحة اضافة صنف الي اي من المخازن الثلاثة صفحة صرف صنف من اي من المخازن الثلاثة صفحة لكل من المخازن الثلاثة بها ارصدة الاصناف بالمخزن المعني يمكن الفلترة عليها صفحة حركة المخزون وهي تسجل جميع الاجراءات للصفحات السابق ذكرها ولا يتم التعامل معها من قبل المستخدم اضافة وصرف الي ومن ثلاثة مخازن.rar ارجو ان ينال اعجابكم
    3 points
  3. السلام عليكم ورحمة الله وبركاته مرفق مشروع فكرة برنامج مخزن بسيط هدية مني لاعضاء المنتدي اخص بالذكر ان جميع الاكود و المعادلات الموجودة بالبرنامج اخذت من المنتدي و معلمينا الكيبار بالمنتدي و ليس لي اي جهد يذكر كلمة السر 123 برنامج المنار للمخازن.rar
    3 points
  4. كيف يمكن يمكن القيام بهذا التنسيق الشرطي zebra-lines with Cond_Format.rar
    2 points
  5. السلام على اساتذتنا و معلمينا الافاضل اسمحو لي ان اضم صوتي لصوت الاستاذ جلال الجمال ابو ادهم فعلا هناك العديد من الاساتذة الخبراء الاكفاء القادرين على تقديم اضافة كبيرة لهذا المنتدى الرائع و الممتاز ولكن للاسف الظروف تمنعهم من التواجد الدائم بالمنتدى ولكن ان شاء الله القادم سيكون افضل ...اما نحن الاعضاء الجدد فالحمد لله وجدنا في هذا الصرح العظيم الصداقة و الاخوة و المعرفة فبارك الله في الجميع ونأمل في كل هذا استمرار المنتدى و رقيه فهو حتى الان قادر على منافسة المنتديات الاجنبية فرنسية كانت او انجليزية ...وبارك الله في اساتذتنا بدون استثناء و اسمحو لي في الاخير ان اشكر كل من الاستاذ ياسر و الاستاذ عمر و الاستاذ ابو حنين و الاستاذ طاهر على هذا الحوار الراقي ...ودمتم متميزين دائما لانه فخر و شرف كبير لنا ان نرى اعمالكم الرائعة و مساعداتكم لكل اعضاء المنتدى بدون استثناء ...دمتم و دام المنتدى عملاقا بعمالقته ...تحياتي للجميع و السلام عليكم
    2 points
  6. الأخ الكريمياسر خليل أبو البراء مشكور على كلماتك الطيبة بخصوص الكود المقدم من ولكن لى ملاحظة على التعديل الذى تفضلت به (الأشارة الى صفحات العمل خلال الماكرو لا تفيد فى اعمال الكنترول لأنه بعد اتمام عملية الرصد للدرجات يتم الترحيل لذلك وضعت زر فى الورقة المراد الترحيل منها ولم اشر الى الصفحات كما تفضلت) اما بخصوص النقطة الثانية لأرفاق الملفات كثير من الأعضاء بعد الرد عليهم يطلبون تنفيذ الكود على المرفق الم تلاحظ ؟؟؟؟؟؟
    2 points
  7. تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / رحمه الله_ الحسامي و لا تنسونا من صالح الدعاء تحياتى واجهة برنامج...hosami (1).rar
    2 points
  8. السلام عليكم هم كثيرون حفظهم الله و أضيف عن ما ذكر سابقا - الدغيدي - بن عليه
    2 points
  9. طيب ممكن تفتح الملف وتبدأ تدرسه .. أو ممكن لو عايز تستخدم الفورم في ملفك بسيطة جداً روح لمحرر الأكواد ( Alt + F11) هتلاقي الفورم في نافذة المشروع ..دور على كلمة UserForm1 اعمل كليك يمين عليه ثم اختر الأمر Export File . وصدره لسطح المكتب مثلاً ، حدد سطح المكتب وانقر Save خلاص اقفل الملف اللي فيه الفورم روح لملفك اللي عايز تدرج فيه الفورم وافتح وكرر نفس الخطوات تروح لمحرر الأكواد وفي نافذة المشروع في أي مكان كليك يمين والمرة دي اختار Import File وروح لسطح المكتب واستورد الملف اللي صدرته من شوية بعد كدا كليك يمين على الفورم واختار View Code وغير الاسم وكلمة السر إلى ما تريد من خلال السطر التالي If TextBox1.Value = "hosami" And TextBox2.Value = 123 Then بعد كدا ضع الكود التالي في حدث فتح المصنف ودا بيكون عن طريق دبل كليك على الكائن ThisWorkbook ثم الصق الكود التالي في حدث المصنف Private Sub Workbook_Open() UserForm1.Show End Sub احفظ ملفك واقفله .. وارجع افتح مرة تانية ومبرك عليك
    2 points
  10. الاخ جلال الجمال_ابو أدهم جزاك الله كل خير اخي جلال الجمال_ابو أدهم في تذكر الاخوة الاعزاء وازيذ استاذتي العظام الفاضل الاستاذ محمد حجازي والفاضل الاستاذ علي السحيب وهم من تتلمذت تحت عبائتهم
    2 points
  11. وعليكم السلام أخي الكريم حامل المسك بالنسبة للخطأ في العمود L سببه أن دالة التفقيط وهي دالة معرفة غير موجودة بالملف .. ولكي تتجنب الخطأ يجب نسخ الدالة ووضعها في موديول عادي داخل المصنف .... بالنسبة للطلب الثاني قم بتعديل المعادلة في الخلية K2 بالشكل التالي =IF(J2="","",IF(J2="ح","محروم",IF(J2="غ","غائب",(IF(J2>=95,"أ+",IF(J2>=90,"أ",IF(J2>=85,"ب+",IF(J2>=80,"ب",IF(J2>=75,"جـ+",IF(J2>=70,"جـ",IF(J2>=65,"د+",IF(J2>=60,"د","هـ")))))))))))) إذا حدث معك خطأ قم باستبدال الفاصلة العادية بفاصلة منقوطة
    2 points
  12. وعليكم السلام أبا سلمان بالنسبة للسؤال ثاني غير نوع المتغير من Integer إلى Long بالنسبة للطلب الأول إليك الكود التالي يقوم باسخراج القيم المكررة للأرقام في جدول يبدأ في الخلية A1 ، وجدول آخر بالقيم المكررة للأسماء في جدول آخر يبدأفي E2 ... وذلك في ورقة العمل المسماة Test1 .. أما بالنسبة للتلوين فإعتقد التنسيق الشرطي يكفي رابط الكود من هنا
    2 points
  13. كلنا نتعثر لست وحدك .. المهم أن ننهض من عثرتنا ونصل لخط النهاية تقبل وافر تقديري واحترامي
    1 point
  14. 1 point
  15. جزاك الله خيرا اخي ياسر و صدقني مازلت أتعثر في المصفوفات نوعا ما و كل مرة اكتشف خطوة
    1 point
  16. نعم أخي عبد الباري ألاحظ ذلك .. وأتعمد عدم إرفاق ملفات ليس كسلاً مني ولكن رغبةً في أن يتقدموا ثم إن الملف المرفق أيسر بالنسبة لي إذا كانت الفكرة في التيسير وأقل في الوقت والجهد .. لكني أحب أن أفصل للعضو ماذا فعلت بالضبط حتى يطبق الحل بنفسه ، وحتى يتدرب على هذه الأمور وتكون بالنسبة له أمر عادي ومألوف .. وهذا يساهم فيما بعد في إنشاء جيل قادر على تقديم المساعدات لإخوانه بالمنتدى بارك الله فيك وجزاك الله خيراً
    1 point
  17. الفضول أدى بي الى الاطلاع على الدالة الموجودة في النتسيق الشرطي فاكتشفت حينها انني مع الدوال كالخطان المتوازيان حيث انهما لا يلتقيان أبدا
    1 point
  18. مر حبا جرب الكود التالي Sub iCopy() Dim sh As Worksheet, wr As Worksheet, j As Double, R As Double, Ary() Set sh = Sheets("ورقة1"): Set wr = Sheets("ورقة2") If wr.Range("a" & Rows.Count).End(xlUp).Row > 1 Then _ wr.Range("A2:E" & wr.Range("a" & Rows.Count).End(xlUp).Row) = "" With sh LsRow = .Range("a" & Rows.Count).End(xlUp).Row For j = 3 To LsRow If WorksheetFunction.CountIf(.Range("a3:a" & j), .Range("a" & j)) = 1 Then R = R + 1 ReDim Preserve Ary(1 To 5, 1 To R) Ary(1, R) = .Cells(j, 1): Ary(2, R) = .Cells(j, 2): Ary(3, R) = .Cells(j, 4) Ary(4, R) = WorksheetFunction.SumIf(.Range("a3:a" & LsRow), Ary(1, R), .Range("E3:E" & LsRow)) Ary(5, R) = Ary(3, R) * Ary(4, R) End If Next If R Then wr.Range("A2").Resize(R, 5).Value = WorksheetFunction.Transpose(Ary) End With wr.Select End Sub المرفق bb33.rar
    1 point
  19. السلام عليكم كل عام وانتم بخير وبمناسبة ذكر العيد في هذا البرنامج المميز خطر على بالي السؤال التالي في البداية قلت انك يجب ان احدد ايام العطل من بداية العمل او السنة ولكن يبقى عندنا الاعياد الفطر والاضحى قد تكون ايامهم مختلفة عما سجلناه في بداية العمل او السنة بحيث نسجل ان عيد الفطر سيكون 5-6-7/ 7/ 2016 ثم كما ورد في المثال المذكور سابقا ان احد الموظفين اخذ اجازة 10 ايام من ضمنها او اخرها قبل العيد تماما او ضمنه فإذا قمنا بتغيير تاريخ العيد الى تاريخه الصحيح فهل سيؤثر ذلك على اجازة الموظف أم لا تحياتي للجميع
    1 point
  20. استخرجت الجداول عن طريق هذا البرنامج لكنه يعمل مع اصدار 2003 و ما قبل accessfix.rar
    1 point
  21. اخي الكريم عليك استخدام الدالة DSUM واذا صعب عليك الامر ارسل مرفقا مع توضيح الطلب
    1 point
  22. معلم الله عليك يا كبيرنا بس انت معودنا على انك بتشرح بالصور انت معلم والكل منك يتعلم
    1 point
  23. ألف شكر أستاذنا الفاضل / ياسر خليل أبو البراء جزاك الله خيرااااااااااااااااااااااااااا بارك الله فيك دائماً
    1 point
  24. وعليكم السلام ضع المعادلة التالية في الخلية B2 ثم قم بسحبها لأسفل ولليمين =SUMPRODUCT((main!$B$1:$B$819=$A2)*(main!$D$1:$D$819=Sheet1!B$1)*(main!$F$1:$F$819)) إذا لم تعمل المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة
    1 point
  25. طب بتتعمل ازاى دى لو ينفع شرح اوك يبقى تمام يعنى عاوزين نتعلم اسرق الشعار بتاع الاخ ياسر عاشق جديد للاكسل
    1 point
  26. تريد جمع فواتير الزبون 1 مقابل دفعاته ثم رصيد زبائن حلب ثم رصيد زبائن سويا و هكذا
    1 point
  27. اسعدك الله عزيزي ياسر انت مبدع والابداع في حقك قليل .. تشكرات يا باشا
    1 point
  28. حياك الله حبيبنا الغالي .. أبدا توجيهاتك سعادة ومنكم نستفيد ... ظننت موضوعها واحد . على بركة الله مع جزيل الشكر وعظيم الامتنان ..
    1 point
  29. الاستاذ المحترم / محمد الدسوقي السلام عليكم ورحمة الله وبركاته اللهم بارك مجهود ممتاز و حل رائع ينم عن امكانيات عالية في الاكسيل جعلك الله عون للمشتركين في هذا المنتدا العظيم ( منتدا اوفيسنا ) بارك الله في جميع المنتمين الي هذا الصرح الرائع
    1 point
  30. لاحظ أخي ديدو أن المنتدى لا يقدم برامج كاملة لأسباب عديدة لن أذكرها .. ولكن بالصبر والمثابرة يمكنك بناء برنامج كامل حسب رؤيتك .. تناول كل مشكلة أو نقطة في موضوع حتى إذا انتهيت منها قمت بالانتقال لموضوع آخر وهكذا ، ولن يمنعك أحد من طرح الموضوعات (ولو وصلت لمليون موضوع) .. طبعاً صعب توصل لمليون موضوع (وآدي دقني لو عرفت توصل لألف موضوع حتى )
    1 point
  31. أخي الكريم حامل المسك إذا كان الطلب مختلف عن الموضوع الحالي يفضل أن يفرد لكل طلب موضوع مستقل .... لا تنزعج من التوجيهات بارك الله فيك ووفقك الله لما يحب ويرضى اطرح موضوع جديد بعنوان معبر مع ملف مرفق ، مع إرفاق شكل النتائج المتوقعة (على أن يكون الملف المرفق معبر عن الملف الأصلي بشكل كبير) ..
    1 point
  32. شكرا أخي الكريم ياسر خليل أبو البراء دمتم في حفظ الله
    1 point
  33. اخي الكريم ياسر ... تم حل المشكلة بارك الله فيك معلش تعبتك معايا انت و الاستاذ الشهابي والا ستاذ زيزو بارك الله فيكم اخدت الملف الذي ارسله الاستاذ زيزو الله يكرمه و اضفت عليه باقي العمل والشيتات ما ليش حظ مع الاكواد واهو بساعد نفسي على قد علمي وبأحاول اتعلم منكم ...معلش صعيدي بقى ...هههههههه ربنا يعزكم جميعا ويعز ويكرم الاخ عبد الباري وابوعيد لهم علي أفضال لا تنكر ولا تنسى في عمل هذا البرنامج ..كنت اتمنى ارفعه لكي يستفاد منه الجميع برنامج كامل للكنترول والكمال لله وحده والسلام عليكم ورحمة الله
    1 point
  34. الاخ احمد ديدو اذا كنت مازلت ترغب في تنفيذ عمل شيت مخزن المستشفى ساعد نفسك حتي يتم تنفيذ المطلوب قم بالاتي لعمل اختبارات الاكواد عبئ الاوراق التالية ببيانات لا تقل عن 25 سطر كود الصنف اضافة صنف صرف صنف
    1 point
  35. أستاذى ومعلمى الفاضل الأستاذ / ياسر خليل أبوالبراء بعد إذنك وإذن السادة الأفاضل الذين تقدموا بمشاركتهم فى هذا الموضوع أنا جربت أعمل هذا الترحيل عن طريق المعادلات فى كل صفحة ترحيل على حدة ـ كما هو مطلوب كما يوجد صفحة إجمالية باسم (Mohamed EL_Desoky ) تحتوى على قائمة منسدلة نختار منها البيان المراد ترحيله، فيتم المطلوب ، ... وهكذا مع خالص تحياتى Transfer Data To Proper Sheets Using Filter Method YasserKhalil معدل.rar
    1 point
  36. وجدت هذا الحل في مواضيع سابقة ،، وبقي التضليل بلون مختلف على الجدول الاصلي.
    1 point
  37. اللهم امين يا رب العالمين وتقبل اللهم منا ومنكم صالح الاعمال والدعاء
    1 point
  38. اخى الكريم العزيز الى قلوب الملايين / ياسر خليل ابو البراء ربنا يبارك فى عمرك انت بتصعبها عليا وعلى كلا انا ها حاول وهتابع التعليمات زى توجيهاتك وربنا يقوينا لان الموضوع مش ساهل والوقت ضيق جدا وشكرا ليك اخى الكريم
    1 point
  39. شكرا جزيلا لحضرتك بارك الله فيك وأكثر من أمثالك ونفعنا بعلمك وكل عام وأنت بخير
    1 point
  40. اخى الحبيب محمد سلامة اهلا اهلا اهلا هلا والله يا سلام اهو انا فى انتظر التجربة دى هو ده الكلام . انا مستنى التجربة دى كل سنه وانت طيب يا قمر
    1 point
  41. قمت بتحميل الملف ووجدته ملف أكسس وليس إكسيل يمكن طرح الموضوع أو نقله إلى قسم الأكسس حيث يوجد خبراء هناك في الأكسس ..
    1 point
  42. السلام عليكم ورحمة الله تعالى وبركاته اخى الحبيب تحية طيبة وبعد البرنامج حسب ايام العيد الاربعة + الوقفة باعتيارها عطلات رسمية + ايام الجمعة والسبت باعتيارها عطلات اسبوعية 1/9/2016 -الخميس 1 2/9/2016 -الجمعة 1 3/9/2016 -السبت 2 4/9/2016 -الاحد 2 5/9/2016 -الاثنين 3 6/9/2016 -الثلاثاء 4 7/9/2016 -الاربعاء 5 8/9/2016 -الخميس 6 9/9/2016 - الجمعة 3 10/9/2016 -السبت 4 11/9/2016 -الاحد 5 واقفة عرفات 12/9/2016 -الاثنين 6 اول ايام عيد الاضحى 13/9/2016 -الثلاثاء 7 ثانى ايام عيد الاضحى 14/9/2016 -الاربعاء 8 ثالث ايام عيد الاضحى
    1 point
  43. السلام عليكم أرى أن الحل المناسب في يد الأعضاء . لو إلــتزم كل عضو بعدم الإجابة عن السؤال الذي لا يتقيد صاحبه بشروط المنتدى ( عدم ارفاق ملف - شرح غير موجود او غير كافي - العنوان غير مناسب . . . .. ) لتم التخلص من هذه المشكلة في وقت قصير .
    1 point
  44. السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم كود متميز جداً .. كود في منتهى الروعة .. إن شاء الله تستفيدوا منه أقصى استفادة .. الكثير منا يبحث عن موضوع فصل الناجحين والراسبين .. ها أنا أقدم لك على طبق من كود : الكود الذهبي الذي سيقوم بذلك بمنتهى السهولة واليسر .. هذا هو الشكل العام للكود Sub SplitFilteredData() 'الإعلان عن المتغيرات Dim MySheet As Worksheet Dim MyRange As Range Dim UList As Collection Dim UListValue As Variant Dim I As Long 'تخصيص ورقة العمل النشطة Set MySheet = ActiveSheet 'إذا لم تحتوي ورقة العمل على فلترة يتم الخروج من الإجراء الفرعي If MySheet.AutoFilterMode = False Then Exit Sub End If 'حدد العمود الذي يحتوي على البيانات المراد عمل تصفية لها Set MyRange = Range(MySheet.AutoFilter.Range.Columns(5).Address) 'إنشاء كائن تجميعي Set UList = New Collection 'وضع قيم في الكائن التجميعي بالقيم الفريدة أي الغير مكررة فقط On Error Resume Next For I = 2 To MyRange.Rows.Count UList.Add MyRange.Cells(I, 1), CStr(MyRange.Cells(I, 1)) Next I On Error GoTo 0 'حلقة تكرارية للقيم الموجودة داخل الكائن التجميعي For Each UListValue In UList 'حذف أية أوراق عمل تم إنشاءها من قبل On Error Resume Next Application.DisplayAlerts = False Sheets(CStr(UListValue)).Delete Application.DisplayAlerts = True On Error GoTo 0 'عمل تصفية لمطابقة القيمة الحالية MyRange.AutoFilter Field:=5, Criteria1:=UListValue 'نسخ النطاق الذي تم تصفيته إلى ورقة عمل جديدة MySheet.AutoFilter.Range.Copy Worksheets.Add.Paste ActiveSheet.Name = Left(UListValue, 30) Cells.EntireColumn.AutoFit 'إعادة الحلقة التكرارية مع قيمة أخرى Next UListValue 'الذهاب للصفحة التي تحتوي على البيانات وإزالة الفلترة MySheet.AutoFilter.ShowAllData MySheet.Select End Sub في الفيديو شرح لكيفية استخدام الكود .. ومرفق في الموضوع الملف الذي تم الشرح عليه إليكم رابط الفيديو لا تنسونا من صالح دعائكم ، ولا تنسوا اللايكات في اليوتيوب ... تقبلوا تحيات أخوكم أبو البراء Split Filtered Data VBA.rar Split Filtered Data VBA V2.rar
    1 point
  45. السلام عليكم هذا الكود يمكن ان أسميه فخ أو لغم من المعلوم أن هناك برامج لفك حماية الشيتات لا نستطيع مقاومتها أومنعها من كسر الحماية والمستخدم يقوم بكسر حماية الشيت للحصول على المعلومات السرية داخل البرنامج (معادلات ـ أعمدة مخفية .....الخ) إذا منعنا المستخدم من الحصول على هذه المعلومات السرية فنكون قد حققنا الهدف يبدأ عمل الكود من حدث الصفحة SELLECTION CHANGE ثم ينتقل إلى الإجراء booom وهو يقوم بحذف أوراق محددة عندما يتم فك حماية الورقة (الشيت) والنقر على أي خليه فيها ولكن انتبه : فيمكن أن يكون المبرمج نفسه هو ضحية لهذا الكود (كما حصل لي شخصيا أثناء العمل على هذا المرفق) إذا عاود المبرمج فك حماية الصفحة لتعديل أي معادلة مثلا وتحديد أي خلية سينفجر اللغم وتحذف الأوراق تلقائيا ويقفل البرنامج لذا بعد الانتهاء من عمل أي برنامج وبعد حماية الصفحات يتم وضع هذا الكود فإذا اراد المبرمج في وقت لاحق فك الحماية على الصفحة للتعديل عليها فيجب قبل ذلك الذهاب لمحرر الفيجوال والدخول على الماكرو booom وتعليق السطر الآتي ' Sheets(Array(1, 3, 4)).Delete لأنه المسؤول عن حذف الأوراق (الأولى والثالثة والرابعة) تفضلوا المرفق والشرح داخل الكود abo eed file.rar
    1 point
  46. سيتم حذف اوراق العمل وإغلاق الملف إذا تم فك الحماية تفضل حذف أوراق عمل1.rar راجع أيضا موضوعي هنا http://www.officena.net/ib/topic/63306-منع-المستخدم-من-فك-حماية-الشيت/?do=findComment&comment=411097
    1 point
  47. تحياتي للأستاذ ياسر ، صاحب الاعمال المتميزة الرائعة ( سلسلة الانفجارات ) فكرة الاستاذ سليم ، وهي تنفيذ الكود من خلال القائمة المنسدلة ..( لعناوين الاعمدة ). فكرة عملية جداً وقد تناولها الاستاذ : عبد الله باقشير ، وزاد عليها زر .. خذف اوراق الفلترة انقلها ليستفاد منها All-Items.rar
    1 point
  48. اخي الكريم رحلة ال 1000 ميل تبدأ بخطوة المرفق التالي يشبه طلبك كثير ولكن توجد بعض الفروقات باختصار قم بقتح النموذج daybox اضغط على زر عرض القيود سيظهر نموذج اسمه كشف حساب الحقل ( الرصيد ) قيمته لن تكون صحيحة الا بعد استخدام احدى طرق البحث جرب الآن اكتب الرقم 161 في حقل ( بحث حسب الاسم ) وسترى النتيجة كان بودي لو ساعدتك حسب طلبك بالضبط ولكن عدم خبرتي بالامور المحاسبية هو ما اعاقني ارجو ان يفيدك المرفق التالي وسنتعاون انشالله لتصل الى طلبك 100 % صندوق يومي.rar
    1 point
  49. سؤال اخير هل هناك مشكلة لو حصلت على ميزان المراجعة عن طريق نموذج عوضا عن الاستعلام ؟؟؟؟؟؟
    1 point
×
×
  • اضف...

Important Information