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

هذا طلب من أحد الأعضاء وبصراحة كان طلب صعب وخاصا أنه يجب أن تكون معادلة واحدة لعمل الجدول بأكملة ولكن أستحرت الله فكانت هذه النتيجة والتى أرجو أن تكون بها الإفادة وخاصا ممن يجدون صعوبة فى عملها عن طريق الكود والأن إلى الحل حتى لاأطيل عليكم: دمج جدوليين بجدول واحد.rar

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

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

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

أخى الحبيب ( محمود الشريف ) ماأروع كلماتكم وأعمالكم فى هذا الصرح ،فهنيئا لهذا المنتدى بأساتذتة الجدد بارك الله فيكم وجعلكم الله ( خير خلف لخير سلف ) تقبل تحيات : أخيك

أستاذى ( مجدى يونس ) شرف لهذا المرفق أن يجتمع عليه كل أساتذة وعباقرة المنتدى شكرا أستاذى على مروركم الكريم وكلماتكم الجميلة المشجعة لتلميذكم بارك الله فيكم

أستاذى ومعلمى وعبقرى الوطن العربى ( عبد الله بقشير ) مروركم وكلماتكم شرف لأى تلميذ يتمنى أن يثنى عليه أستاذة الذى يحبة ويقدرة ويتخذ منه مثلا أعلى يتمنى من كل قلبة أن يكون فى يوما من الأيام فى علمة وعبقريتة تقبل تحيات تلميذكم العاشق لكم

أخى الحبيب ( live8523 ) شكرا أخى الحبيب على مروركم وكلماتكم الجميلة بارك الله فيك وجعل فى العمل الإفادة لكم فهذا هو الهدف الحقيقى منه تقبل تحيات : أخيك

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

شكرا أخى الحبيب جزاك الله عنى خير الجزاء تقبل تحياتى

أستخدم هذه المعادلة أخى وأسحبها لأسفل =SUBSTITUTE(A2;" ";" "&B2) =REPLACE(A1;FIND(" ";A1);0;" "&B1) تقبل تحياتى : أخيك

[ سلسلة حلول مشاكل أعمال الكنترول ] [ 1 - الشهادات ] بسم الله الرحمن الرحيم نظراً لكثرة الطلبات الخاصة ( بأعمال الكنترول ) وكنت حاولت قبل ذلك أن أقوم بكتابة موضوع ليشمل حلول أعمال الكنترول كلها _ ولكن وللأسف _ اتجه الموضوع لغير المراد ولذلك قررت أن اعمل سلسلة لحلول مشاكل أعمال الكنترول.. وستكون الطريقة _ بإذن الله _ شرح كل موضوع مستقل يكثر فيه الطلبات وسيكون الشرح للموضوع لشخص يجهل الإكسيل نهائيا حتى يصل إلى درجة الاحتراف في هذا الموضوع _ بإذن الله تعالى _ وبإذن الله سأستخدم كل الطرق للوصول إلى المعلومة فربما استخدم فيديوهات للأساتذة أو أقوم بعمل الفيديو بنفسي أو أقوم بشرحها وكأنه الشرح لشخص لأول مرة يعمل في الإكسيل والكنترول والله المستعان وها أول موضوع كثر الحديث عنه وهو [الشهادات من البداية إلى النهاية] وسيكون السير في هذا الموضوع في هذه النقاط 1 ) تصميم شهادة واحدة 2 ) جلب البيانات إليها 3 ) تصميم اكثر من شهادة وكيفية جلب البيانات إليها جميعا 4 ) الكود الخاص بطباعة شهادة واحدة فقط أو أكثر من شهادة 5 ) كيفية ربط هذا الكود مع صفحة الشهادات 6 ) كيفية تفادي أخطاء الطباعة وعمل الفنش النهائي لها فتابعونا مع شرح هذه النقاط الستة بالتفصيل في المشاركة القادمة والسلام عليكم ورحمة الله وبركاته

أقدم لكم كورس SharePoint Admin and Designer 2010 من انتاج مراكز اى تى شير للتدريب للمهندس / احمد ربيع البهوتى تحميل الكورس الحلقة الاولى : Why SharePoint تحميل الحلقة الثانية : Look and Feel Setting تحميل الحلقة الثالثة : Site Collection تحميل الحلقة الرابعة : SharePoint Pages and Change Master Page تحميل الحلقة الخامسة : SharePoint Publishing Feature تحميل الحلقة السادسة : SharePoint 2010 List تحميل الحلقة السابعة : Lookup - Create relationships between lists تحميل الحلقة الثامنة: SharePoint 2010 Library تحميل الحلقة التاسعة: Document WorkSpace تحميل الحلقة العاشرة : Security in SharePoint 2010 تحميل الحلقة الحادية عشر: Site Column in SharePoint 2010 تحميل الحلقة الثانية عشر : Search in SharePoint 2010 تحميل الحلقة الثالثة عشر: Document Set in SharePoint 2010 تحميل الحلقة الرابعة عشر: External List in SharePoint 2010 تحميل الحلقة الخامسة عشر: Database Connection in SharePoint 2010 تحميل الحلقة السادسة عشر : Soap Services Connection تحميل الحلقة السابعة عشر: Rest Service Connection تحميل الحلقة الثامنة عشر: Office Web Apps Within SharePoint تحميل الحلقة التاسعة عشر: WebDav Features تحميل

أرجو من العارفين ـــ أكرمهم الله وغفر لهم ـــ مساعدتى فى استخلاص كشف للأيتام من جميع الصفوف فى كشف واحد كما هو موضح بالمرفق الايتام).rar

السلام عليكم ورحمة الله وبركاته واصل ابداعاتك على بركة الله . جعله الله فى ميزان حسناتك واكثر الله من امثالك

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

بإذن الله سينظر في طلباتك واتمنى ان تتابع هذا الموضوع لعلك تستفاد منه بإذن الله تعالى http://www.officena.net/ib/index.php?showtopic=51714&hl=

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

أخى الكريم قمت بفصل اليتيم وغير اليتيم كل منهم بشيت مستقل أسأل الله عز وجل أن يكون هو المطلوب وتقبل منى وافر الإحترام والتقدير الايتام).rar

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

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

ابعته من المرفقات أخي الحبيب عن طريق 1 ) في كتابة رد 2 ) ستجد اسفله المحرر الكامل 3 ) تحت محرر الرد مرفقات 4 ) ارفع الملف ثم حرر المشاركة

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ / محمد ابو البراء جزاك الله خيرا اعطاك الله الصحة والعافية وزادك من علمه دمتم في رعاية الله وحفظه

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

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

أخى الحبيب ( ZMZM ) دعائك جميل تقبل الله منا ومنكم صالح الأعمال شكرا أخى الحبيب على دعائك هذا ولك مثلة أضعافا مضاعفة تقبل تحيات : أخيك

تابع وبإذن الله سيتم عرض موضوع خاص بالشهادات من اول خطوة الى اخر خطوة بالتفصيل الممل

يسر الله امرك ان شاء الله الاكسل عن الايتام فماهي المدرسة التي بها هؤلاء الايتام وماهو تكلفه كفاله يتيم لمدة سنة ...؟؟؟ .

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

السلام عليكم اريد منكم خدمه ..... اريد قاعدة بيانات للعملاء وربط هذه القاعده بصفحه اخره ....هذه الصفحه عند كتابة اسم العميل تظهر باقي معلوماته تلقائيا المعلومات : اسم العميل :تاريخ الميلاد : رقم الهاتف : رقم البطاقه الشخصيه

ميروك

جزاك الله خيرا وزادك علما و تواضعا الجزء رقم 2 2 ) لم تاتي النية بعد ليكون خالصاً كله لوجه الله لماذ ؟ ان كل اعمالك لوجه الله لهذا يجب علليك ان تحاول فى ههذه النقطة بالذات وسأظل ألح عليك حتى تشرع فى تصميم برنامج كامل مجانى لوجه الله فهذا ليس بكثير عليك احبك فى الله اخى محمد بارك الله فيك

أخى الكريم تفضل ما تريده تحديدا بالمرفقات تحويل الرقم الى كتابة بالعربي و بالإنجليزى بدون تفقيط وتقبلوا منى وافر الإحترام والتقدير تحويل الرقم الى كتابة عربي و انجليزى.rar

أخي العزيز / حيان علاء الدين وبعد الحل الرائع الذي قدمه أخي الحبيب الأستاذ / محممود الشريف شرف الله قدره وأعلى منزلته وبشهادة أستاذنا الكبير مجدي يونس حفظه الله ولكن هذا حل قد أعددته سابقاً فأحببت أن أشارك أخي الأستاذ محمود به وبعد اذنه طبعا من خلال الكود التالي : Sub Add_row() Application.ScreenUpdating = False Application.Calculation = xlManual For x = 2 To 6001 Step 2 Range("A" & x).EntireRow.Insert Next x Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub For x = 2 To 6001 Step 2 غير الرقم في السطر السابق حسب عدد الصفوف المراد الإضافة فيها بالضعف فتلاحظ الرقم عندك (6001) لأنه عند الإضافة سيزيد صف وباتالي سيزيد رقم الصف الآخر المراد الإضافة بعده أو على الأصح في هذه احالة قبله ابتدأ من الصف ( 2) إدراج صفوفو في نطاق.rar

أخي العزيز / shaerhamada وبعد اذن الأساتذة الكرام محمد أبو البراء وأم عبد الله وما دام الأرقام عندك في العمود (A ) متسلسلة فالأفضل لك أن تكتب في الأعمد المطلوب جلب أرقام الجلوس فيها في الصفين الأول والثاني يدويا بدون معادلة وتسحبها إلى الأسفل وهذا لن يؤثر على المعادلات في العمود المجاور ( أعمدة الدرجات ) اكتب في السطر الأول 1 2 3 4 5 وفي السطر الثاني 6 7 8 9 10 ثم حدد الصفين بكل الأعمدة واسحبها لأسفل وإن كنت تريد الحل بالمعادلات فحل الأستاذة الفاضلة أم عبد الله ما شاء الله فيه الكفاية لاحظ المرفق ومرفق آخر شرح فديو صامت للطريقة help.rar سحب وإفلات.rar

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

تم الحل والحمد لله. أورد الحل للإفادة. جزاكم الله خيراً الحل الأول: ( الأسرع والأفضل بنظري ) Sub hbsqn() Dim i As Long Dim x As Integer Application.ScreenUpdating = False For i = Range("A" & Rows.count).End(3)(1).Row To 2 Step -1 If Range("A" & i).Value = Range("A" & i - 1).Value Then Range("A" & i - 1).EntireRow.Delete End If Next i x = 9 Do Until x = 0 Range("A" & Rows.count).End(3)(0).Select Do Until ActiveCell.Row = 1 If ActiveCell.Value + 1 <> ActiveCell.Offset(1).Value Then ActiveCell.Offset(1).EntireRow.Insert ActiveCell.Offset(1).Value = ActiveCell.Value + 1 ActiveCell.Offset(1, 1).Value = 33 ActiveCell.Offset(1, 2).Value = "" ActiveCell.Offset(1, 3).Value = ActiveCell.Offset(, 3).Value End If ActiveCell.Offset(-1).Select Loop x = x - 1 Loop Application.ScreenUpdating = True End Sub الحل الثاني: Sub FormatClosingBalance() Dim rng As Range Dim i As Long Set rng = Selection rng.Copy rng.PasteSpecial xlPasteValues For i = rng.Rows.Count To 2 Step -1 Select Case rng(i - 1, 1) Case rng(i, 1) Rows(i - 1).Delete Case Is = rng(i, 1) - 1 'Do nothing here Case Is < rng(i, 1) - 1 Rows(i).Insert Cells(i, 1).Value = rng(i + 1, 1) - 1 Cells(i, 2).Value = 33 Cells(i, 4).Value = rng(i - 1, 4) i = i + 1 Case Else 'Headers dont match row 2 End Select Next i rng.Columns(3).Delete 'Delete this if you don't need to delete the Amount Column End Sub

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

السلام عليكم ورحمة الله وبركاته اولاً : اشكر الاساتذة الافاضل استاذنا وصاحب منتدانا البشمهندس // محمد طاهر اشكر الفنان / ضاحي الغريب ثانيا : الشعارات روعة جميعها ولكن لي عدة تعليقات بسيطة 1 ) الدائرة الموجودة في يسار الصورة مادامت لوجو فهي تحتاج الى ان تكون جزء من كلمة اوفيسنا مثل هذا الشعار الذي اشرت فيه الى الاخوة في المنتدي فلتلاحظ ان حرف الo جزء من الكلمة ( officna ) بلون اخر وهكذا 2 ) كتابة موقع المنتدي الذي تقصده يا بشمهندس www.officena.net فهي توضع في الاسفل بعيد عن الكلمة العربية( اوفيسنا) الفريدة لوحدها الظاهرة 3 ) ممكن تغيير الكلمات العربية ببعض الكلمات المميزة للمنتدي وهناك خطوط انجليزية وعربية رائعة ومختلفة لتكون سمة المنتدى وطابع له 4 ) لي تعليق ككل يا بشمهندس عل البنر ككل فتشعر بوجود الوان متداخلة عند وضعها على ارضية الموقع ومن الافضل تحويل الصورة الى صيغة png حتي لا تختلف الالوان مع الوان البنر ولفهم ما اقول انظر اسفل الى توقيعي أبو البراء فهو بصيغة png لتختفي مع ارضية الموقع واللون الابيض اما لو كنت عملت لها خلفية ملونة كان سيبقى اللون شاذ أخي ولعل ما اقصده في هذه الصورة وشكراً على حسن تفهمكم جميعاً..

أخى الكريم جرب النموذج المرفق لكم لعل يكون به المطلوب وتقبلوا منى وافر الإحترام والتقدير ادراج صفوف.rar

السلام عليكم ورحمة الله وبركاته بارك الله فيك لقيامك بهذا العمل والذي بإذن الله سيكون مميزاً في المستقبل ولكن ما ساقوم به الان هو مساعدة من نوع اخر وهو على طريقة لا تعطني سمكة ولكن علمني كيف اصتادها 1 ) عليك ان تبدا استاذي الكريم خطوة خطوة بمعني انك عليك الان ان تختار ما قام به عمالقة المنتدى من اعمال الكنترول وتعمل عليه كشيت الاستاذ رجب جاويش او الاستاذ جمال الفار أو شيت الاستاذ أحمد السيد او شيت الاستاذ ايسم او احد من عمالقة المنتدي واعتذر ان نسيت احد العمالقة 2 ) عليك ان تعرف ان فكرة الشيت هي فكرة سهلة تحتاج الى بعض التفكير وثانياً التعلم وثالثاً سؤال اخواننا من لا يبخلون علينا بالاجابة 3 ) والان مرحلة التعليم وسوف استغل بعض مواضيع اخوننا ونحاول مع بعضنا البعض كيفية اصطياد الاسماك من خبرات عمالقة منتدانا أ) وهو كيفية استخراج الاوائل من اي جدول خذ هذا الموضوع مميز http://www.officena.net/ib/?showtopic=38931 ب ) نسبة المادة والاحصائية هي بطريقة بسيطة تستطيع ان تعرف نسبة اي عمود ( مادة ) بطريقة رياضية والسؤال كيف نعرف عدد الناجحين الاجابة بدالة counif وهي تعني اخرج عدد بشرط وهنا قمت بعمل مثال على مادة العربي في شيت نصف العام فذهبت في اي خلية فارغة ووضعت هذه المعادلة =COUNTIF(K8:K98;">49") والمعادلة تعني اخرج عدد الذين اكبر من حصلوا على 49 درجة والنتيجة ظهرت بشخص واحد فقط اي 1 فقط هو الناجح بعد ذلك نستطيع معرفة الاحصائية بالمعادلة الرياضية السابقة وهي عدد الناجحين =1 في 100 على عدد الطلبة =الخلية التى قمنا بها من قبل لمعرفة عدد الناجحين*100/عدد الطلبة ---------------------------------- وللتعرف اكثر على دالة countif شرح بض الاخوة http://www.youtube.com/watch?v=AaBRzH4KRU8 ----------------------------- هذا شرح بسيط للافكار وانا في خدمتك اذا اعجبتك الفكرة لتكملة باقي الموضوع..

معلومة جميلة ولكن اذا اردنا اردنا العكس

لم يرحلها شيء لإن العمود الأول فارغ ؟ والكود بيأخذ اخر صف به بيانات من العمود الأول جرب التعديل التالي Public S As String Public Sub Ali_Rn() Dim W As Workbook, Wr As Workbook Dim Sh As Worksheet Dim iC, Sn$ Dim Shet As Worksheet Dim Path$, My_F$, A_Num, i%, Lc&, L_A&, C Dim Rng As Range Dim A_Lst As Range SPd False Ali_Clr Sn = "المبيعات اليومية بالتفصيل" On Error Resume Next Set Wr = ThisWorkbook Path = ThisWorkbook.Path & Application.PathSeparator My_F = Dir(Path & "*.xlsx") Do While My_F <> "" If Not My_F = Wr.Name Then Workbooks.Open Filename:=Path & "\" & My_F Set W = Workbooks(My_F) For Each Sh In W.Worksheets With Sh SPd False Set Rng = .Range(.Cells(2, 1), .Cells(500, 35)) With Rng S = Replace(W.Name, ".xlsx", "") Set A_Lst = .Cells(2, .Columns.Count).End(xlToLeft) A_Num = A_Lst.Column End With If Sh.Name = Sn Then iC = 2 Else iC = 1 L_A = .Cells(.Rows.Count, iC).End(xlUp).Row Set Shet = Wr.Worksheets(.Name) With Wr.Worksheets(.Name) Lc = .Cells(.Rows.Count, iC).End(xlUp).Offset(1, 0).Row For C = 1 To A_Num For i = 2 To L_A .Range("A" & Lc - 1).Cells(i, C).Value = Sh.Cells(i, C).Value .Range("A" & Lc - 1).Cells(i, A_Num + 1).Value = S Next i Next End With End With A_Num = 0: R_Num = 0 Next W.Close 0 SPd True End If My_F = Dir Loop SPd True End Sub Private Function SPd(Bn As Boolean) With Application .Calculation = IIf(Bn, -4105, -4135) .EnableEvents = Bn .ScreenUpdating = Bn .DisplayAlerts = Bn End With End Function Private Sub Ali_Clr() Dim Dh As Worksheet For Each Dh In ThisWorkbook.Worksheets Dh.UsedRange.Cells.ClearContents Next End Sub ولا عليك نحنو بالخدمه لاتتردد بأي سؤال

أليك أخى ماطلبت مشكلة تكرار.rar

أليك أخى كل ماطلبت مشروع الخبز.rar

اخواني اقسم بالله انني استفدت من هذا الموقع كثيرا فجزا الله القائمين عليه وجميع الاعضاء وجميع الخبراء بالاكسيل اخواني لدي طلب او مجموع طلبات لهذا البرنامج المرفق ويترتب على عمله ميزات كثيره ستشملني ان انا اكملته على الوجه المطلوب ومنها رخصه شهر ومكتب خاص فيني كعسري برتبة عريف مع مميزات اخرى في الدورات والترقيات و و و.. فأسال الله ان يوفق جميع من يساندني ويشاركني فأنا لااستغني عنكم وانتم خير معين لي بعد الله. الطلبات شاشة دخول مميزة الشكل (عسكريه) بصلاحيات 02عند نقل او تقاعد اي شخص بمجرد كتابة (منقول) بخانةالرتبه الاخيره تنتقل كامل معلوماته في شيت اخر. 03 اريد الغاء القائمه المنسدله والبحث عن المطلوب حسب الرتبه عن طريق الازرار في الاعلى 04عند امر الطباعه كتابة العنوان حسب المطلوب (مثلا) العقداء عند الضغط على الزر تظهر في ورقة الطباعه بيان العمداء وهكذا دون اكتبها كل مره 05الطباعه فقط من (a) الى (k) حتى لو اضفت خانات اخرى من بعد (k) 06عند الادراج لشخص جديديكون الترتيب حسب الآتي: أ-الرتبه ب-تاريخ الترقيه ج-الرقم حاولت يكون عن طريق الاكسس البرنامج ولكن عجزت عند ادراج شخص يكون ترتيبه في الاخير وانا اريد حسب رتبته ومن ثم حسب تاريخ الترقيه ومن ثم الرقم واذا تساوو في تاريخ الترقيه يكون الاقدم حسب الرقم .. والله اني وعدت المسئول وتفلسفت لاني كنت اشتغل على الاكسس شي بسيط وعلى الاكسيل شي بسيط ايضا كما ترون ولكن وقفت الى هنا وعجزت واحسست ان العمل غير مرضي بالنسبة لي اما بالنسبه للمسئول فأنبسط بهذا وقدم الدعم النفسي بخطاب شكر من القائد فطمعت في المزيد بمساعدتكم ولمساتكم عسى الله لايعدمني منكم...ولكم خالص شكري وعرفاني لكم.. مثال.rar

جزاك الله خيراً كيف نحسب مرتبي لمعلم خريج 1981 وحصل على الدرجة الثانية عام 24/10/1994 وعلى الدرجة الاولى عام 1/5/2002 وعلى درجة مدير عام 1/7/2008 وحصل على علاوة تشجيعية في 28/5/2000 وفي 16/5/2007 وفي 7/6/2009 ولكم جزيل الشكر.

مشكورين اخواني على ما قدمتم من مساعدات ولكن ياريت شرح طريقة الربط هذه على أوفس 2007 بحث عن شح في أوفيسنا ووجدت أكثر من شرح ولكن لم افهم شئ من الشرح وشكرا