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

برنامج نظام الوثائق : إضافة - تعديل - حذف - بحث - تقارير لأخي الفاضل وأستاذنا أبوعبدالله اقترح الاخ ابو شرف في مشاركته في موضوع برنامج الوثائق مع التقدم الرقمي باضافة صور الوثائق مع الفورم لذلك وبعد اذن اخي ابوعبدالله صاحب الموضوع الاصلي قمت بتعديل بسيط علي برنامج نظام الوثائق ليشمل صور الوثائق الحماية (( 123)) بناء علي طلب بعض الاخوة الذين يستخدمون التقويم الهجري تم اضافة نسخة للتعامل بالتاريخ الهجري بالمشاركة رقم 18 برنامج الوثائق مع الصور.rar

السلام عليكم هذا كود بسيط لمحوى جميع المعادلات في أي صفحة عمل كانت ويضع مكانها القيمة التي تحويها يجب الغاء الحماية ليعمل الكود Sub Test() For Each cl In ActiveSheet.UsedRange If cl.HasFormula Then cl.Value = cl.Value Next End Sub

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم مع تحياتي اخيكم // ضاحي الغريب برنامج الايجارات الاصدار الثاني - ضاحي الغريب.rar

السلام عليكم من المعروف ان دالة counta تعطينا عدد الخلايا في مجال معين حتى و لو كانت بعض الخلايا تحتوي على "" بعفل معادلة ما ......................................... دالة جديدة countnotfree تبّين لنا عدد الخلايا المشغولة في مجال معّين متجاوزة المعادلات أرجو ان تنال اعجابكم countfree.rar

السلام عليكم ورحمة الله وبركاته شكرا أخي الحبيب // سليم حاصبيا على مواضيعك المميزة بجد من فترة كنت محتاج الى هذا الكود ولكن الحمد لله توصلت للحل ولاثراء الموضوع هذا هو الحل اتمنى تقييمه =COUNTIFS(B1:B17;"<>0")-COUNTBLANK(B1:B17) countfree-braa.rar

السلام عليكم ورحمة الله وبركاته اخواني الأعزاء طرحت مسبقا لنموذج فاتورة عربي ونموذج فاتورة انجليزي لكن اليوم سوف اتناول الفاتورة بشكل وفكر جديد حتي تخدم شريحة كبيرة من المستخدمين مع حركات اخي الحبيب / شوقي ربيـع الجديد في النموذج فورم واحد ولكن يمكنك من خلاله الاختيار بين لغة الفاتورة (عربي - انجليزي ) ولغة الايصال (عربي - انجليزي) اختيار سهل للاصناف اختيار طريقة السداد بيان رصيد العميل واترككم مع النموذج أدعو الله سبحانه وتعالي ان يكون النموذج فيه الفائدة لكم ولا تنسونا بدعائكم بصلاح الحال بظهر الغيب فاتورة مبيعات اوفيسنا_2.rar

اخواني الكرام السلام عليكم ورحمة الله وبركاته تحيه عطره لكل الاساتذه في هذا المنتدى العريق اريد التعديل على برنامج نظام الوثائق للاخ القدير ابو عبدالله اطال الله بعمره وعافاه حيث اريد ان يضاف لي في وضع الصلاحيه تحذير بانه قارب على انتهاء صلاحية الوثيقه ( وباللون الاصفر) واريد ايضا ان يكون لون الخليه الغير منتهيه صلاحية الوثيقه ( لون اخضر) وعند انتهاء صلاحية الوثيقه يكون هناك ( لون احمر ) للخليه وايضا تاريخ الاصدار وتاريخ الانتهاء يقبل ان يكون ميلادي وهجري ( اي انه من الممكن ان اجعل في السطر الاول بالتاريخ الميلادي لوثيقه ما وفي السطر الثاني بالتاريخ الهجري لوثيقه اخرى 0 كلمة السر 123 اتمنا ان لا اكون قد اطلت عليكم وجعلها الله لكم في ميزان حسناتكم ملفات مرفقة برنامج نظام الوثائق.rar

ايجاد الأرقام الناقصة في تسلسل ما و إعادة ادراجها موضوع جميل missing number.rar

أستاذن االكبير / ضاحي الغريب السلام عليكم ورحمة الله وبركاته جزاك الله خيرأ إبداع بجد ملف رائع جداً وإضافات رائعة جداً جزاكم الله خيراً وجعله الله في ميزان حسناتكم. لكم كل التحية والتقدير.

1111 غيره بالباسورد الحماية لديك Sub Test() If Date >= CDate("15/05/2014") Then ActiveSheet.Unprotect (1111) For Each cl In ActiveSheet.UsedRange If cl.HasFormula Then cl.Value = cl.Value Next ActiveSheet.Protect 1111, DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub

أستاذنا الكبير / أبو حنين السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذا الكود الرائع جعله الله في ميزان حسناتك. الأستاذ / محمد إليك الملف به الكود بعد إذن أستاذنا الكبير / أبو حنين لعدم تواجده حالياً بالمنتدى. الصحة بيانات.rar

أخي الحبيب // مصطفى كامل والله اعلم ان الملف به الكثير من الاخطاء والسبب الرئيسي ان احد الاخوة طلبه منى وكنت مضطر ان انفذه له بسرعة مع بعض الارهاق الذهني الذي يصبنى لبعض الظروف التى امر بها مما نتج عنه بعض الاعمال الفاشلة لي من وجهة نظري والتى خرجت على غير مما اريده على الرغم ان الاخطاء بسيطة جدا وليست اخطاء بجهل ولكن اخطاء العجلة والارهاق ولهذا قررت ان اخذ فترة من الراحة الذهنية ثم اعاود العمل في مما بدات فيه من اعمال ولهذا اخي الكريم اكتب مقترحاتك بدقة وبإذن الله انا في خدمتك في الاصدار الثاني الناسخ لهذا الاصدار...

تفضل اخي هذا المطلوب 1معطل -موقوف مؤقتا.rar

السلام عليكم اخى الحبيب ابو اياد سوف يعمل الكود فى شهر يناير يوم 15 سنه 2015 ارجو ان يفى بالامر كيف يمكن تطبيق هذا الكود2.rar

الأستاذ / أحمد السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. معطل -موقوف مؤقتا.rar

أستاذي / ضاحي الغريب أنت

جزاك الله خيراً على هذا الملف الرائع استاذنا الفاضل محمد لى رجاء لماذا عند تغيير الاسماء الملف لا يعمل ويعطى علامات غير مفهومة اريد ان يكون 300 اسم فقط الفصول من الاول الى الثامن وكل فرقة ثلاث فصول ولا داعى لتاريخ الميلاد والسن الرجاء اضافة خلية للصف والفصل مع ارقام الجلوس وبيانات الطلاب مثلا 1 / 1 حتى يصلح لمدرستنا الاصدار الأول _ كشوف المناداة + أرقام الجلوس1.rar

جزاك _الله_ خيرا ما شاء _الله_ لا قوة إلا بالله

السلام عليكم ورحمة الله وبركاته الاخ الحبيب والاستاذ الفاضل ضاحي الغريب ابو عمرو المبدع حفظكم الله اعمال واضافات في غاية الابداع والروعة جعله الله في ميزان حسناتكم واللمحات الفنية واضحة في جميع اعمالكم جزاك الله خيرا تقبل فائق احترامي وتقديري وبعد اذن الاساتذة بالنسبة لملاحظة اخي الاستاذ ابو ادهم بارك الله فيه اعتقد يجب اولا استخراج الملف من برنامج الضغظ وسوف تنتهي المشكلة عند استخدام الملف المستخرج هذا حسب علمي والله تعالى اعلم تقبل فائق احترامي وتقديري

اخي الحبيب استاذ// ضاحي الغريب دائما مميز ولك بصمات فنية ملموسة حداً جعل الله اعمالك في ميزان حسناتك ...

بارك الله فيك و لكن تظهر عندى مشكلة _ عند استدعاء الوثيقة اوفيس2007_WIN XP PAC3

السلام عليكم أستاذي الفاضل ضاحي أعمالك دائما متقنة ومميزة بارك الله فيك و جزاك الله خيرا

استاذي // عبد الله باقشير شكراً على التوجيه الصحيح لضبط طريقة الحل جعل الله اعمالك في ميزان حسناتك..

استبدل UsedRange بالنطاق الذي تريده مثلا Range("D3:G16")

استاذ// بهاء وجزاك الله خيرا وللعلم هناك بعض الاخطاء البسيطة وجاري معالجتها ورفع الملف مرة أخرى بإذن الله تعالى

السلام عليكم ملحوظة : الكود الذي اوردته هو تسجيل للخطوات التي قام بها اخي محمد ابو البراء لكن هو لم يذكر خطوة مهمة وهي ان تضغط على الزر خيارات وتشيك على الخيار ( مطابقة حالة الاحرف ) ثم تضغط استبدال الكل .

تفضل أخي الملف وبه الاحصائيات ولا يهمك التعب أخي انت امر بس.. نهائي ثانيةbraa2.rar

أخي الكريم // جلال السلام عليكم تم اضافة كمبوبكس لاختيار اسم المستفيد والبيان وضبط الطباعة واضافة شعار للشركة وبياناتها يمكنك تغيرها من الفورم كما تشاء مع تحياتي المرفق 2003 سند صرف مع بيان الدفعات 2003.rar

اصدقائي الأعزاء أجمل مافي هذا المنتدى وهو الذي يشدني دائما اليه هو هذا الإصرار على المساعدة وابداء الرأي وتقديم الدعم لجميع المشاركين أشكر جزيلا الأخوة سليم ومحمد والعنكوش على المرور الكريم واهتمامهم بالموضوع أما بالنسبة للأخ طالب المساعدة والذي اشجعه على تغيير اسمه للعربية لنتمكن من مناداته بالشكل الصحيح فأقول: أني جربت الملف قبل الإنتهاء منه لأني أيضا رأيت المشكلة التي تحدثت عنها وهي عدم تغيير النتيجة وكان السبب بأن شروطه جميعها لم تتحقق, واذا جربت أن تحقق الشرط الأول فإن النتيجة ستظهر كما ترغب ولكن هذا كان خطأي اني جربت فقط الشرط الأول صديقي العزيز المشكلة أن دالة AND تأخذ شروط منفردة وليس مجتمعة لذلك يجب أن لا تطلب قيمة الخلية محصورة بين قيمتين بشرط واحد بل يجب أن تطلب كل قيمة بشرط خاص وستلاحظ بالمرفق أني جعلت الشروط الموجودة هي ثلاثة ضمن الدالة يمكنك التجريب على هذا المرفق بعد التصحيح وبعد نصيحة الأخ العنكوش بالتوفيق Book2.rar

الاستاذ // ahmed ayman جزاكم الله خيرا على التقييم وشكرا على الاضافة ولكن هذه الاضافة لا تصلح في هذا المنتدى التعليمي لصانع الملف حتي يستفيد الجميع من المعادلات ويمكن استخدام هذا الكود بطريقة شخصية لمن يحب ذلك ويخشى العبث..

الأستاذ الفاضل / محمد أبو البراء السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذا الملف الرائع يحتاجه الكثير منا هذه الأيام ويكون أكثر روعة عندما تتفضل وتضيف مكان اللجنة. جعله الله في ميزان حسناتك. وزادك الله من فضله وعلمه وأتمنى عمل الملاحظة لأنها مرهقة جداً وخاصة للمدارس الكبيرة ويوجد اكثر من ملف للملاحظة بالمنتدى ولكنه لا يناسب البعض وأعتقد عايز فريق عمل لإخراجة بصورة مميزة . ما هو رأيك. لك كل التحية والتقدير.

الاستاذ / ضاحي الغريب تأكيدا لما سبق كتابته كلماتي كانت بسيطة لكنك شخص يستحق هذه الكلمات واكثر لذا تؤثر الكلمات البسيطة المستحقة للشخص المستحق بما لا تفعلة الكلمات العظيمة للشخص غير المستحق تحياتي لجميع فريق العمل جزاكم الله عنا خير الجزاء

استاذنا الفاضل / محمد أبو البراء السلام عليكم شاكر جدا اهتمام سيادتكم شاكر جدا للاستاذ / عبد الله لي وجهه نظر متواضعة الحل بطريقتكم يؤدي الي استبدال ( الاصفار) جميعها حتي التي بداخل الارقام مما يؤثر علي البيانات

الاستاذ ضاحي الغريب جزاك الله الف خير والله يجعلة في ميزان حسناتك انت مبدع كل عادة في طرحك وتنسيقك تسلم ايدك

السلام عليكم ورحمة الله وبركاته جرب الكود التالي Sub Macro1() ActiveSheet.UsedRange.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub تحياتي

ومن بعض التصورات التي قد تطابق ما عندك إذا كان النموذج الأول مفتوحا، يمكنك الحصول على أي قيمة من النموذج للسجل الحالي فيه ثبت في النموذج الثاني Me!MyFieldName = Forms!NameOfFirstForm!NameOfFieldInFirstForm كما يمكنك تمرير أي قيمة إلى النموذج الثاني من النموذج الأول عند فتح النموذج الثاني من النموذج الأول باستخدام DoCmd.OpenForm "NameOfSecondForm",,,,,,"String To Pass" في النموذج الثاني يمكنك استرجاع هذه القيمة باستخدام Me!MyFieldName = Me.OpenArgs والحالات لا حصر لها والله اعلم

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب ضاحي الغريب حفظكم الله واثابكم على اعمالكم اعمال في قمة الابداع والروعة وكل يوم تاتي بالجديد المفيد جزاكم الله خيرا وزادكم من فضله علما ومعرفة واعلى مقامكم في الدارين تقبلوا فائق احترامي وتقديري

اخى العزيز الغالى // أبوعمرو السلام عليكم ورحمته الله وبركاته وحشتنا ياأبو عمرو..... ووحشتنا أعمالك الله العظيم أسأل أن يبارك فيكم وفى ذريتكم إنى أحبكم فى الله ...... تقبل وافرإحترامى وتقدير اخيكم // ابوسلمى وعبدالرحمن

اخى / ضاحى الغريب جزاك الله خيرا_ و بارك الله فيك عندما تنتهى كلمات الابداع عندك و تبدأ من جديد و تنتهى عندك

السلام عليكم ورحمة الله ارجو تصحيح اسم الورقة (الأعلى السابق) في ملف المشاركة السابقة حتى لا يحدث خطأ في الكود عند الترحيل الكود في المرفق يقوم بالترحيل من خلال زر في امان الله ‫‫ملف zmzm الخاص بمنتيات اوفسينا3.rar

مشكككككككككككككككككككور

السلام عليكم ورحمة الله أخي الكريم أبو حنين، لا يا أخي ما زلت لا أفهم الفكرة، هل إذا كان ربع الراتب في العمود A هو 250 يجب أن لا تكون قيمة الحد الأقصى في العمود B أكثر من 450 (450 = 250 + 200) أم تقصد أمرا آخر؟ يا حبذا أن يكون الشرح بمثال ؟ بالنسبة لعدد الساعات أن تكون أكبر قيمة له هي 27 هذه مفهومة... أخوك بن علية

ممكن كود اخفاء اسطر التي تكون فيها القيمة صفر او الرمز( - دج) او الرمز(-)

ممكن تنسيق شرطي لخلية تحتوي على 20 رقم فقط مثال خلية A فيها 20 رقم 14257869321457856985 في حالة كتابة 19 رقم في خلية 1425786932145785698 او 21 رقم 142578693214578569814 تخرج لي رسالة تنبيه وتقل لي اقل او اكثر من 20 رقم

السلام عليكم ورحمة الله وبركاته لقد طرح أخي معلمي الأستاذ // عبدالله باقشير (( حفظه الله)) نموذج فورم فاتورة بكود سهل بعد أذنه قمت بالتعديل الطفيف لتتناسب مع الاعمال التجارية جميع البيانات في الفورم من بيانات الشركة والبيانات التي تظهر اسفل الفورم يمكن تغيرها بسهولة من (( شيت 1)) وكذلك جميع البيانات الخاصة بالعميل - رقم الفاتورة التاريخ - الكمية - كود الصنف - اسم الصنف - سعر الوحدة - الاجمالي ) يمكن التغير عليها من الشيت الاول وذلك لسهولة تغيير البيانات واستخدمها بما يتناسب اغلبية الطلبات بالمنتدي الحبيب والشكر كل الشكر لاخي ومعلمنا الاستاذ // عبدالله باقشير علي طروحاته القيمة التي نتعلم منها جعل جميع اعماله في ميزان حسناته والله ولي التوفيق نموذج الفورم نموذج فاتورة مع الطباعة (E) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=46761#entry280633 ولا تنسونا بدعوة بظهر الغيب بصلاح الحال فاااااااتورة خبورية 2.rar

افتح موضوع جديد وضع به مرفق

صدقت اخي حسن ما شاء عليك استاذ عبدالله

السلام عليكم ... وجدت ملف أعجبني ما فيه من إبداع .. فأحببت أن أعرضه عليكم من باب الفائدة ... و أخاف أن يكون مكررا.,. فإن كان مكررا .. فأرجو حذف الموضوع.. Y.rar