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

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

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

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

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

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

السلام عليكم اخى الحبيب ابو اياد سوف يعمل الكود فى شهر يناير يوم 15 سنه 2015 ارجو ان يفى بالامر كيف يمكن تطبيق هذا الكود2.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

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

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

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

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

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

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

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

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

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

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

أخي الكريم // جلال السلام عليكم تم اضافة كمبوبكس لاختيار اسم المستفيد والبيان وضبط الطباعة واضافة شعار للشركة وبياناتها يمكنك تغيرها من الفورم كما تشاء مع تحياتي المرفق 2003 سند صرف مع بيان الدفعات 2003.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 هذه مفهومة... أخوك بن علية

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

بسم الله الرحمن الرحيم اشكرك استاذى ومعلمى ومحببنا فى الاكسيل اجابة شافية

السلام عليكم ورحمة الله وبركاته لقد طرح أخي معلمي الأستاذ // عبدالله باقشير (( حفظه الله)) نموذج فورم فاتورة بكود سهل بعد أذنه قمت بالتعديل الطفيف لتتناسب مع الاعمال التجارية جميع البيانات في الفورم من بيانات الشركة والبيانات التي تظهر اسفل الفورم يمكن تغيرها بسهولة من (( شيت 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 مع وافر الاحترام والتقدير