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

برنامج نظام الوثائق : إضافة - تعديل - حذف - بحث - تقارير لأخي الفاضل وأستاذنا أبوعبدالله اقترح الاخ ابو شرف في مشاركته في موضوع برنامج الوثائق مع التقدم الرقمي باضافة صور الوثائق مع الفورم لذلك وبعد اذن اخي ابوعبدالله صاحب الموضوع الاصلي قمت بتعديل بسيط علي برنامج نظام الوثائق ليشمل صور الوثائق الحماية (( 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

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

اخواني الاعزاء واستاذتي الفاضل لقد تناول اخواني بالمنتدي موضوعات كثيرة حول استخراج كشف حساب بالاكواد لكن اليوم سوف نتاول معا كشف الحساب عن طريق الفورم مع استخراج قيد اليومية الخاص بحركة معينة وقد استخدمت في الشرح مشاركة سابقة لاخي ومعلمي الاستاذ / عبدالله باقشير (بارك الله فيه وجعل جميع اعماله في ميزان حسناته) وبعد اذن ادارة المنتدي قمت بفتح مشاركة جديدة لتسهيل عملية الوصول للموضوع وحتي يستفيد منه عدد كبير ولسهولة البحث واضفت شرح تفصيلي لكشف الحساب بالفورم في موضوعي ((امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=47476&p=293524 ادعوا الله سبحانه وتعالي اكون وفقت في عرض وشرح الموضوع ولا تنسونا بدعوة بصلاح الحال في ظهر الغيب كشف الحساب.rar

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

وبعد بعد طلب أحد الاخوة الافاضل في عمل كشوف مناداة بطلبات معينة اردت ان يكون الاستفادة للجميع وهذا هو[ الاصدار الأول ] كشوف المنادة + ارقام الجلوس اهم المميزات 1 ) بالنسبة لكشوف المناداة أ ) تستطيع ادخال اكثر من 2000 اسم ب ) تستطيع طباعة اكثر من 120 لجنة ج ) تستطيع طباعة 2 كشف للورقة الواحدة د ) فيه بداية رقم اول لجنة واخرها هـ ) فيه عدد المسلمين والمسيحيين و ) فيه الديانة للطالب 2 ) بالنسبة لرقم الجلوس أ ) تستطيع طباعة اكثر من2000 رقم ب ) الورقة بها 10 ارقام جلوس ج ) رقم الجلوس به اغلب بيانات الطالب والمدرسة...الخ ------------------------------- وعند وحود اي خطأ أو اي اقتراحات انا في خدمتكم والسلام عليكم ورحمة الله وبركاته الاصدار الأول _ كشوف المناداة + أرقام الجلوس.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

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

استاذ / ضاحى بجد تسلم ايدك ولا اروع

السلام عليكم اخى الحبيب ابو اياد استعانه بالكود الجميل الذى اضافه اخى الحبيب شوقى ... جزاه الله كل الخير تم اضافه لكى يقوم الكود بفك الحمايه ... وثم وضع الحمايه مره اخرى وهى 123 ارجو ان يفى بالامر Sub Test() Application.ScreenUpdating = False On Error Resume Next ActiveSheet.Unprotect "123" For Each cl In ActiveSheet.UsedRange If cl.HasFormula Then cl.Value = cl.Value ActiveSheet.Protect "123" Next End Sub كيف يمكن تطبيق هذا الكود.rar

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

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

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

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

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

======================== الاخ الحبيب/ ضاحي الغريب ======================== و

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

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

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

تفضل أخي الملف وبه الاحصائيات ولا يهمك التعب أخي انت امر بس.. نهائي ثانيةbraa2.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 تحياتي

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

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

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

عايز احدد خلايا لها تنسيق واحد دون استعمال التنسيق الشرطي حيث اريد اجراء عملية نسخ أو قص لها

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

السلام عليكم الاخ الكريم / زاكي بوشلاغم بارك الله فيك اولا اخي الكريم ... ليمكن الاجابة علي طلباتك بسهولة يجب عليك فتح موضوع جديد بطلبك مع ارفاق ملف به مثال لما تريده للعمل عليه حيث وجدت لك اكثر من سؤال في اكثر من موضوع مما يجعل موضوعك وطلبك غير ظاهر للجميع ليمكن الاجابة عليه برجاء ارفاق ملف مع كل طلب بمثال للشكل الموجود لديك جزاك الله خيرا الاجابة علي الرابط http://www.officena.net/ib/index.php?showtopic=49017&st=0&p=298710

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

ممكن تنسيق شرطي لخلية تحتوي على 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

السلام عليكم مع شكري وتقديري لأخي منذر عساج على جهوده المتواصلة عزيزي ابراهيم ، إن ما يحدث هنا هو من الممنوعات المباحة فإستخدام حقل بأسم no أو name أو year أو date في جدول لا يؤدي إلى خطا مباشر في تعريفه في الجدول ولكنه للأسف يؤدي لخطأ قاتل في البرمجة عندما يتم استخدامه كما حدث معك وبل أكثر من ذلك قد يؤدي إلى الخطأ 2456 المشهور والذي ترشدك ميكروسوفت عندما تراجع حيثيات الخطأ بأن تغير أسماء بعض الحقول وهذا الإرشاد غير كافي . ما يجب فعله لحل المشكلة هو أن تقوم بتغيير اسم الحقل إلى شيء أخر مثل myno أو myname أو myyear أو mydate على الترتيب ثم تفتح قاعدة بيانات جديدة وتستورد جميع العناصر من السابقة لها وذلك يؤدي إلى اصلاح المشكلة . ibraheem.zip تذكير : لا تستخدم في أسماء الحقول no أو name أو year أو date مع وافر الاحترام والتقدير