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

الأخوة الأعزاء السلام عليكم ورحمة الله وبركاته أرفق للأخوه المحاسبين ملف لإحتساب ضريبة كسب العمل وفقاً للتعديلات الواردة بالقانون رقم 11 لسنة 2013. وهو الملف الذى أقوم بإستخدامه حالياً فى إحتساب ضريبة كسب العمل الشهرية ، علماً بأن طريقة الإحتساب هى نتاج قرائتى وفهمى لما ورد بالقانون المذكور أعلاه ولم أتمكن من مراجعتها بعد مع أحد المختصين بالشأن الضريبى لضيق الوقت. لذا لا مانع بالطبع من تصحيح أى خطأ ورد بمعادلات إحتساب الضريبة لما فيه صالح الجميع. خالص شكرى وتقديرى أخوكم عيد مصطفى Payroll Tax 2014.rar

جرب هذه المعادلة وأسحبها إلى اليسار أعتقد ستحقق المطلوب ، لو كنت فهمت السؤال " صح " =SUMPRODUCT(--($F$3:$F$15=K5)*($F$3:$F$15<>"")) تقبل تحياتى

تفضل أخى ماطلبت ونظرا لأن حضرتك تستخدم أوفيس أعلى من 2003 ستكون معادلتك كالأتى: =IFERROR(INDEX(tbl;SMALL(IF((date>=$C$4)*(date<=$D$4);MATCH(ROW(tbl);ROW(tbl));"");ROW(A1));COLUMN(A1));"") مع ملاحظة أن هذه المعادلة معادلة صفيف أى لابد من الضغط على " CTRL+SHIFT+ENTER " تقبل تحياتى البحث بين تاريخيين.rar

السلام عليكم Dim i As Integer For i = 1 To 6 Cells(i, 1).Value = 100 Next i حلقة دورانية عدد دوراتها ستة دورات بدايتها 1 نهايتها 6 المتغير i ياخذ قيمة الحلقة الدوارانة مثلا في الدورة الاولى يأخذ القيمة 1 والدورة الثانية يأخذ القيمة 2 .......الى غاية الدورة الاخيرة ليأخذ القيمة 6 cells(i,1) تعني الخلية التي تقع في العمود الاول والصف يكون بقيمة المتغير i مثلا في الدورة الاولى للحلقة التكرارية تكون cells(1,1) في هذا المثال تأخذ الخلية الاولى في العمود الاول القيمة 100 وهكذا الى نهاية الحلقة التكرارية Dim i As Integer, j As Integer For i = 1 To 6 For j = 1 To 2 Cells(i, j).Value = 100 Next j Next i حلقة تكرارية متداخلة هنا لدينا حلقة دورانية داخل حلقة اخرى الحلقة الرئيسة تنفذ الحلقة الفرعية التي في داخلها ستة مرات اما الحلقة الفرعية تنفذ الامر الذي بداخلها مرتين لكي تفهمها بشكل ابسط فل نستعرضها بالعرض البطيء نفرض اننا في الدورة الاولى للحلقة الرئيسسية اذا المتغير i الخاص بها يأخذ القيمة 1 عندما يصل التنفيذ للحلقة الفرعية (الحلقة الثانية) المتغير j الخاص بها يأخذ القيمة 1 لانه في الدورة الاولى للحلقة الثانية ملاحظة لاينتقل تنفيذ الكود الى الاكواد الاخرى الا بعد انتهاء دورات الحلقة او ان كان هناك امر للخروج من الحلقة exit for اذا اصبحت قيمة i = 1 / j =1 ومنه يصبح شكل الكود ceels(1,1) يعني اننا في الخلية الاولى للعمود الاول كما قلنا سابقا ان تنفيذ الكود لاينتقل الابعد انتهاء الحلقة التكرارية اذن ستكمل حلقتنا الفرعية دورتها الثانية ومنه المتغير j سيأخذ القيمة 2 لاكن المتغير i سيبقى على قيمته الاولى أي 1 لان الكود لم ينتهي من دورات الحلقة الثانية ولم ينتقل الى الدورة الثانية للحلقة الاولى ومنه الكود يصبح على الشكل cells(1,2) ومعناه الخلية الاولى في العمود الثاني وهكدا لبقية دورات الحلقتين عند انتهاء الكود يكون لدينا في الشيت من الخلية الاولى الى الخلية السادسة في العمود الاول تساوى 100 كذالك نفس الامر بنسبة للعمود الثاني Dim c As Integer, i As Integer, j As Integer For c = 1 To 3 For i = 1 To 6 For j = 1 To 2 Worksheets(c).Cells(i, j).Value = 100 Next j Next i Next c هاته ايضا حلقة تكرارية متشابكة او متداخلة ان صح التعبيري نفس الكلام السابق لاكن بدل من انه لدينا حلقتين الان لدينا ثلاث حلقات الحلقة الاولى تنفذ ما بداخلها ثلاث مرات والثانية ننفذ ما بداخلها ستة مرات والثالثة تنفذ ما بداخلها مرتين Dim i As Integer i = 1 Do While i < 6 Cells(i, 1).Value = 20 i = i + 1 Loop هي ايضا حلقة دورانية الاختلاف بينها وبين ماسبق من حلقات هو الاولى لديها بدايو ونهاية محدود ام الثانية (Do Loop) ليس لديها نهاية (لا نهائية) انما تتوقف عن الدوران بشرط في المثال اعلاه الحلقة تنفذ ستة دورات لان االشرط هو اذا كانت قيمة المتغير اصغر من الستتة واصل الدوران ان كان اكبر توقف عن الدوران هذا شرح للكود كلاميا ان صح التعبير ملاحظة المثال في الكود الاخير و في الكود الاول ليس بينهما أي فرق كلاهما يعطي نفس النتيجة الفرق الوحيد ان الاخيرة اسرع في التنفيذ من الاولى ارجو ان يكون الشرح حول الحلقات مفوه اوكافي وان ان كان هناك أي استفسارات فلا تتردد تحياتي للجميع

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

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

اليوم اقدم لكم أضخم كتاب عربي لتعلم برنامج EXCEL يحتوي على شرح مفصل لصيغ والدوال وكذالك مرفق مع الكتاب تطبيقات نموذجية . غلاف الكتاب المحتويات 1.بداية الكتاب معلومات اساسية عن برنامج إكسل 2007 2. استخدام الدالات في الصيغ 3. شرح كافة المعادلات في والتطبيق في إكسل 4. شرح صيغ الصفيف وأمثلتها المستحيلة في إكسل 5. شرح جداول Pivot والمراجع الدائرية المقصودة والمخططات والرسوم البيانية والتنسيق الشرطي والادوات والتنقيح 6.في النهاية الغير متوقعة شرح لغة VBA وطريقة كتابة الصيغ فيها لتحميل الكتاب اضغط هنا حجم الكتاب: 39.7 MB رابط اخر على 4shared أرجو الدعاء لي ولصاحب الكتاب وناشره جزاكم الله خيرا

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

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

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

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

أخى الفاضل جرب هذه الطريقة لحذف كود معين داخل موديول Const Mod_Num = "Module2" Const Cod_Nam = "Test" Sub ragab() With ThisWorkbook.VBProject.VBComponents(Mod_Num).CodeModule .DeleteLines .ProcStartLine(Cod_Nam, 0), .ProcCountLines(Cod_Nam, 0) End With End Sub فى السطر الأول تحدد اسم الموديول الذى يحتوى على الكود Const Mod_Num = "Module2" فى السطر الثانى تحدد اسم الكود المراد حذفه Const Cod_Nam = "Test" وسوف تجد فى الملف المرفق مثال لذلك ملحوظة : لكى يعمل الكود بشكل سليم قم بعمل الأتى من محرر الأكواد اختار References من قائمة tools ثم ضع علامة صح أمام الإختيار Microsoft Visual Basic For Applications Extensibility حذف كود فقط.rar

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

جزاكم الله خيرا أستاذ شوقي ربيع على الشرح الرائع وإثراءا للموضوع يمكن استخدام كلمة اسمها step مع الحلقة التكرارية for next وفائدتها تزيد الأرقام بمعد ثابت ففي المثال السابق يتم العد ( أو الزيادة ) بواحد أي تكون الأرقام 1 - 2 - 3 - 4 - 5 - 6 أي الحلقة تدور 6 مرات ( تنفيذ الأوامر بين for ... next ) أما في حالة كتابة step 2 مثلا تكون الحلقة التكرارية 3 خطوات فقط ( 1 - 3- 5 ) ويتم تنفيذ الأوامر 3 مرات فقط

بل الجديد هو انك زرت الموضوع وعطرته بجمال تعقيبه عليه .....يا عسل

أخي زمزم يمكنك الدخول للرابط التالي لتجد مثال لاستخدام أمر التكرار هذا في طباعة الشهادات http://www.officena.net/ib/index.php?showtopic=54088&hl= وسوف نوفيك بشرح لاستخدام الأمر إن شاء الله

تفضل اخي هذا مثال كما تريد مجاميع.rar

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

الساده / أعضاء المنتدى المحترمين السلام عليكم ورحمه الله وبركاته أقدم لكم طريقة مبسطة لشرح آلية الترحيل بالكود وقد إستخدمت كود مبسط لكى يكون سهل التعديل عليه حسب ما ترغبون وهذا الكود للترحيل مع مسح البيانات المدخله مع آلية الترقيم التلقائى الشرح في المثال المرفق ستجد ورقتا عمل " Invoice " " List" وسيتم إدخال البيانات في الورقه " Invoice " ثم بعد الإنتهاء نضغط على الزر لتنتقل في أماكن محدده بورقة العمل " List " .. * تعالوا نرى الكود كود: Sub MoveData() Dim EndRow As Long If Sheets("Invoice").Range("B3").Value = "" Or Sheets("Invoice").Range("D3").Value = "" Or Sheets("Invoice").Range("a5").Value = "" Or Sheets("Invoice").Range("D6").Value = "" Or Sheets("Invoice").Range("B8").Value = "" Or Sheets("Invoice").Range("D8").Value = "" Then MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ" Else EndRow = Sheets("List").Range("A1").CurrentRegion.Rows.Count Sheets("List").Cells(EndRow + 1, 1).Value = EndRow Sheets("List").Cells(EndRow + 1, 2).Value = Sheets("Invoice").Cells(3, 2).Value Sheets("List").Cells(EndRow + 1, 3).Value = Sheets("Invoice").Cells(3, 4).Value Sheets("List").Cells(EndRow + 1, 4).Value = Sheets("Invoice").Cells(5, 1).Value Sheets("List").Cells(EndRow + 1, 5).Value = Sheets("Invoice").Cells(6, 4).Value Sheets("List").Cells(EndRow + 1, 6).Value = Sheets("Invoice").Cells(8, 2).Value Sheets("List").Cells(EndRow + 1, 7).Value = Sheets("Invoice").Cells(8, 4).Value Sheets("Invoice").Range("B3,D3,A5:D5,D6,B8,D8").ClearContents MsgBox prompt:="تم ترحيل البيانات بنجاح", Title:="رسالة تأكيد" End If End Sub * الكود السابق هو الخاص بعملية الترحيل من الورقه " Invoice " الي الورقه " List " ولكن ماذا يعني الكود وكيف نعدل فيه حسب الرغبه ؟ * في الكود التالي وضعنا شرط على الخلايا التي يتم إدخال البيانات بها بالورقه "Invoice" بحيث تظهر رساله تفيد بأنه يجب التأكد من إدخال كافة البيانات مع العلم أنه يمكن الأستغناء عن بعض الخلايا أو كلها بحذف الشرط أو جزأ منه كود: If Sheets("Invoice").Range("B3").Value = "" Or Sheets("Invoice").Range("D3").Value = "" Or Sheets("Invoice").Range("a5").Value = "" Or Sheets("Invoice").Range("D6").Value = "" Or Sheets("Invoice").Range("B8").Value = "" Or Sheets("Invoice").Range("D8").Value = "" Then MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ" * وهنا سيبدأ البحث عن أول صف فارغ لنقل البيانات أليه مع الترقيم في العمود A كود: EndRow = Sheets("List").Range("A1").CurrentRegion.Rows.Count * هنا سيقوم بنقل البيانات المدخله في الورقه "Invoice" في الخليه الموجوده في الصف الثالث - العمود الثاني الي الورقه " List " في الخليه الموجوده في العمود الثاني - الصف الأول كود: Sheets("List").Cells(EndRow + 1, 2).Value = Sheets("Invoice").Cells(3, 2).Value * وهكذا ينطبق الكود السابق على باقي الخلايا المدخل بها البيانات الي أن نصل الي * هذا الكود يقوم بمسح البيانات المدخله بالورقه " Invoice" بعد نقلها للورقه " List " كود: Sheets("Invoice").Range("B3,D3,A5:D5,D6,B8,D8").ClearContents * بقي كود يظهر رسالة تأكيد بإنتهاء العمليه بنجاح كود: MsgBox prompt:="تم ترحيل البيانات بنجاح", Title:="رسالة تأكيد" أسأل الله العلى القدير أن أكون وفقت فى الشرح ومرفق نموذج للتطبيق العملى وتقبلوا منى وافر الإحترام والتقدير شرح الترحيل.rar

الاخ ابرهم شكراً ابدعت في توصيل المعلومة

أخى فى الله الأستاذ / زمزم للأسف ليس عندى برنامج تسجيل أما بالنسبة للأكواد فتوضع فى موديول بمحرر الفيجوال بيسك اكسل اتبع الخطوات التالية 1 - اضغط ALT+F11 2 - ثم اضغط على ادراج INSERT 3 - ثم اختر موديول MODULE 4 - وضع فيه الأكواد 5 - ثم قم بعمل زر فى الشيت المراد _( او ادرج اى شكل ) وقم بالضغط عليه كليك يمين واختر تعيين ماكرو ثم اختر اسم الماكرو اى اول جمله تجدها بالكود وتقبل منى وافر الاحترام والتقدير

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

اكتب في اول سطر من الكود محل المشكلة الجملة التالية : on error resume next

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

السلام عليكم اخي أو ايمان يمكنك عمل ذلك من خلال الكود التالي: () Sub delete_macro Dim x as object Set x=application.vbe.activevbproject.vbcomponents ("x.remove vbcomponents:=x.item(“textmodule end sub textmodule هو اسم الموديل المراد حذفه

بعد إذن أخى الفاضل أبو عيد أخى الفاضل أبو حنين إليك طريقة حذف موديول عند تاريخ محدد وهى كما يأتى ضع هذا الكود فى حدث الـ WORKBOOK Const Dat = #5/31/2014# Const mod_num = 1 Private Sub Workbook_Open() On Error Resume Next If Date >= Dat Then With ActiveWorkbook.VBProject.VBComponents .Remove .Item("Module" & mod_num) End With End If End Sub ومن السطر الأول فى الكود حدد التاريخ الذى تريده Const Dat = #5/31/2014# ومن السطر الثانى حدد رقم الموديول الذى تريد حذفه Const mod_num = 1 حذف موديول.rar

اخى محمود بارك الله فيك كود جميل وسهل يتسم بالبساطه ---------------------- اسمح لى بالمشارك بكود عن طريق الحلقه التكراريه ---------------------------------- Sub MoveData() Dim EndRow As Long If Sheets("Employee Profile").Range("B5").Value = "" Or Sheets("Employee Profile").Range("L8").Value = "" Or Sheets("Employee Profile").Range("L9").Value = "" Or Sheets("Employee Profile").Range("L10").Value = "" Or Sheets("Employee Profile").Range("L11").Value = "" Or Sheets("Employee Profile").Range("L12").Value = "" Or Sheets("Employee Profile").Range("L13").Value = "" Or Sheets("Employee Profile").Range("L16").Value = "" Then MsgBox prompt:="ÊÃßÏ ãä ÅÏÎÇá ßÇÝÉ ÇáÈíÇäÇÊ", Title:="ÎØÃ" Else EndRow = Sheets("DATA").Range("A1").CurrentRegion.Rows.Count Sheets("DATA").Cells(EndRow + 1, 1).Value = EndRow Sheets("DATA").Cells(EndRow + 1, 2).Value = Sheets("Employee Profile").Cells(8, 12).Value Sheets("DATA").Cells(EndRow + 1, 3).Value = Sheets("Employee Profile").Cells(5, 2).Value X = 4 For H = 9 To 16 Sheets("DATA").Cells(EndRow + 1, X) = Sheets("Employee Profile").Cells(H, 12).Value X = X + 1 Next MsgBox prompt:="Êã ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ" End If End Sub نموذج تعبئة11.rar

أخى " محمد " ممكن إستخدام معادلة البحث بشرطين لعمل المطلوب فى هذا المرفق بعد تغيير الشروط " لذكر " أو أنثى بالإضافة لشرط الصف وستكون المعدلة كالتالى: =IF(ROW(A1)>=30;"";INDEX(tbl;SMALL(IF(("ذكر"=النوع)*("الرابع"=الصف);ROW(tbl)-MIN(ROW(tbl))+1;"");ROW(A1));COLUMN(A1))) وأسف المرفق " ارقام الجلوس بشرطين" يحتوى على العديد من الروابط تقبل تحياتى

بارك الله فيك وألهمك المذيد من التفوق