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

بعد إذن إخوتى وأساتذتى ياريت تكون مشاركتى فى هذه الكوكبة ذات قيمة اريد مساعده.rar

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

السلام عليكم =B2/100 التاريخ اليوم =VALUE(MID(D2;7;2)) الشهر =VALUE(MID(D2;5;2)) السنة =VALUE(MID(D2;1;4)) وهكذا تحياتي

السلام عليكم جرب الكود التالي Sub Macro1() With ورقة2.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) .Resize(1, 6).Value = WorksheetFunction.Transpose(ورقة1.Range("F4:F9")) End With ورقة1.Range("F4:F9").ClearContents MsgBox " تم الترحيل بنجاح ", vbMsgBoxRight + vbMsgBoxRtlReading, "الحمد لله" End Sub تحياتي

هدية جميلة تسلم ايد من صممها وتسلم ابداعات من تم اهدائها اليه

ماأجملها من هدية وماأجملك من " أخ " بارك الله فيك وفى كل أخوتى فى هذا الصرح تقبل الله منا ومنكم صالح الأعمال

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

استاذى الحبيب / عبد الله باقشير بسم الله ما شاء الله ابداعات لا تنتهى تصل الى المطلوب من أقصر وأذكى الطرق ولإثراء الموضوع هذا حل آخر على خطى أستاذى الحبيب ترحيل1.rar

السلام عليكم جرب التالي Sub kh_Start() Dim M As Long On Error GoTo 1 M = WorksheetFunction.Match(ورقة1.[F4], ورقة2.Range("A2:A10000").Value, 0) With ورقة2.Cells(1, "A").End(xlUp).Offset(M, 0) .Resize(1, 6).Value = WorksheetFunction.Transpose(ورقة1.Range("F4:F9")) End With ورقة1.Range("F4:F9").ClearContents MsgBox " تم التعديل بنجاح ", vbMsgBoxRight + vbMsgBoxRtlReading, "الحمد لله" 1: If Err Then MsgBox "استخدام خاطىء": Err.Clear End Sub تحياتي

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

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

شكل باللوان اخرى

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

أليك أخى المرفق بعد عمل ( USER FORM ) لإخفاء الأوراق التى تريدها برنامج نتيجة الإمتحانات الأصدار الثانى.rar

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

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

اردت ان اجمع هذه المواضيع فى موضوع واحد حتى تسهل الحصول على المعلومة ولا ادرى ان كان هذا الموضوع سيهم بقية الزملاء ام لاء الخروج السريع http://www.officena.net/ib/index.php?showtopic=29072 أداة تحويل صيغ المعادلات الى اكواد http://www.officena.net/ib/index.php?showtopic=15699 الحلول الذكية لمشاكل الاكسل http://www.officena.net/ib/index.php?showtopic=13997&st=0&p=60720&#entry60720 خيركم من تعلم العلم وعلمه http://www.officena.net/ib/index.php?showtopic=29061 يا شباب أبحث عن برنامج أو عمل ينبهني بالمواعيد الضرورية http://www.officena.net/ib/index.php?showtopic=28891 *** دوال مستحدثة - برامج - أدوات ذكية *** http://www.officena.net/ib/index.php?showtopic=23009 هل توجد طريقة لتنسيق خلية بناء على قيمة خلية اخرى؟ http://www.officena.net/ib/index.php?showtopic=29123 اختبار في عملية الضرب http://www.officena.net/ib/index.php?showtopic=29118 جدول الضرب للصغار http://www.officena.net/ib/index.php?showtopic=29108 حذف الصفوف الخالية http://www.officena.net/ib/index.php?showtopic=29064 كيف يمكنني اظهار الفورم في الاكسل تلقائيا http://www.officena.net/ib/index.php?showtopic=29178 فرز الناجحين والراسبين http://www.officena.net/ib/index.php?showtopic=28873 ضع كلمة مرور لاوراق العمل إخفاء وحماية http://www.officena.net/ib/index.php?showtopic=29106 The Duplicate http://www.officena.net/ib/index.php?showtopic=29130 اساتذتى الاعزاء لو اعجبكم الموضوع برجاء تثبيته ووعد بتكملته ان شاء الله

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

ملف اكسل لفتح المنتديات او الفيس بوك كود فتح منتديات مجدى يونس.rar

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

جرب المرفق لعله يكون المطلوب H_اريد مساعده.rar

السلام عليكم جرب هذه Sub ABBAS2() Dim sh0 As Worksheet Dim sh1 As Worksheet Set sh0 = ThisWorkbook.Sheets("الرقم الامتحاني") ThisWorkbook.Sheets("استمارة").Copy After:=Sheets(Worksheets.Count) Set sh1 = ThisWorkbook.Sheets(Worksheets.Count) sh1.Name = sh0.[E4].Value sh1.[F4].Value = sh0.[e6].Value sh1.[e5].Value = sh0.[E7].Value sh1.[M3].Value = sh0.[E3].Value sh1.[L5].Value = sh0.[K5].Value sh1.[M5].Value = sh0.[K6].Value sh1.[N5].Value = sh0.[K7].Value sh1.[L5].Value = sh0.[K5].Value sh1.[C5].Value = sh0.[F4].Value sh1.[C6].Value = sh0.[E4].Value sh1.[L5].Value = sh0.[K5].Value sh1.Range("b8:n" & sh1.UsedRange.Rows.Count + 10).Clear sh0.Range("a2:c" & sh0.[K7].Value + 1).Copy sh1.Range("B8").PasteSpecial (xlPasteValues) sh1.Range("b7").Copy sh1.Range("b8:n" & sh1.[N5].Value + 7).PasteSpecial (xlPasteFormats) sh1.[b7].Select Application.CutCopyMode = False End Sub تحياتي

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

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

اختي الفاضلة الأستاذة // أم عبدالله باركَ الله لكـِ وجزاكـِ خيرا علي ماتقدميه من مساعدات طيبة تقبل الله منا ومنكـِ صالح الأعمال تقبلِ تحياتي واحترامي

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

أخى الفاضل / أكرم جلال تفضل هذا هو الكود المستخدم فى الاستبدال Private Sub CommandButton2_Click() If Me.TextBox2 = "" Then Exit Sub For i = 1 To Sheets.Count Sheets(i).Cells.Replace TextBox1, TextBox2 Next End Sub استبدال كلمة فى جميع الصفحات.rar

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

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

السلام عليكم جرب هذه Sub ABBAS() Sheets(2).[F4].Value = Sheets(1).[e6].Value Sheets(2).[e5].Value = Sheets(1).[E7].Value Sheets(2).[M3].Value = Sheets(1).[E3].Value Sheets(2).[L5].Value = Sheets(1).[K5].Value Sheets(2).[M5].Value = Sheets(1).[K6].Value Sheets(2).[N5].Value = Sheets(1).[K7].Value Sheets(2).[L5].Value = Sheets(1).[K5].Value Sheets(2).[C5].Value = Sheets(1).[F4].Value Sheets(2).[C6].Value = Sheets(1).[E4].Value Sheets(2).[L5].Value = Sheets(1).[K5].Value Sheets(2).Name = Sheets(1).[E4].Value Sheets(2).Range("b8:n" & Sheets(2).UsedRange.Rows.Count).Clear Sheets(1).Range("a2:c" & Range("a" & Rows.Count).End(xlUp).Row).Copy Sheets(2).Range("B8").PasteSpecial (xlPasteValues) Sheets(2).Range("b7").Copy Sheets(2).Range("b8:n" & Sheets(2).Range("b" & Rows.Count).End(xlUp).Row).PasteSpecial (xlPasteFormats) Application.CutCopyMode = False End Sub عندي استفسار هل يتم تغير اسم الصفحة المسماة استمارة او يتم ادراج صفحة جديدة باسم المدرسة منسوخة من صفحة استمارة تحياتي

تم تعديل الملف كما طلبت لعله يكون المطلوب SchoolDalil_HH.rar

بعد اذن أستاذى الحبيب / عبد الله باقشير هذه فكرة أخرى طباعة محددة.rar

السلام عليكم ورحمة الله وبركاته الاخ الحبيب الشهابي اعتقد ان السبب في السطر التالي من الكود If C = 0 Then End فاذا تحقق شرط الدالة If في السطر السابق فيتم انهاء الكود بدون تنفيذ الاوامر في الاسطر اللاحقة من الكود بما فيها امر تفعيل الحساب التلقائي جرب تعديل السطر السابق بحيث عند تحقق الشرط ينتقل الكود الى قبل السطر الخاص بتفعيل الحساب التلقائي وليس انهاء تنفيذ الكود والله اعلم في امان الله

لوجو المركز الاعلامي بشكل متحرك أخر

أخى الحبيب ( ABDOO_FOX ) شكرا على مرورك وكلماتك الجميلة بارك الله فيك

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

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

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

السلام عليكم الملف تم التعديل عليه بحيث يقبل الكتابة مرة واحدة فقط بعدها لا يمكن التعديل جرب المرفق مرفق 2.rar

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

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

موجود والله أخى لوحضرتك عملت بحث داخل المنتدى ستجد كل ماتريد وعلى العموم تابع هذا الرابط ستجد به ماتريد http://www.officena.net/ib/index.php?showtopic=44949&hl=

السلام عليكم جرب المرفق تحياتي test+.rar

السلام عليكم كل الشكر لصاحب الملف وللفائدة من امكانيات الملف اعيد رفعه اليكم بعد إزالة الحماية عنه لحساب السن اليوم والتاريخ الهجري المقابل وسن التقاعد للمعاش.rar

هل تعلم (2) يمكنك نسخ محتويات الخلية التي تسبق الخلية المحددة بصف واحد مع البقاء في حالة تعديل محتويات الخلية بالضغط على Ctrl + ' بينما يمكنك نسخ محتويات الخلية التي تسبق الخلية المحددة بصف واحد مع الخروج من حالة تعديل محتويات الخلية بالضغط على Ctrl + d

هل تعلم (1) : يمكنك كتابة تاريخ اليوم في الخلية المحددة بالضغط على Ctrl +; يعطيك تاريخ اليوم كقيمة اما اذا اردته كدالة تتغير بتغير التاريخ كل يوم فتكتب الدالة التالية =Date()

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

نادر الفايل بعد التعديل ارجوا انو يكون الحل الصحيح officena.rar

مرفق ملف به أغلب اختصارات الاكسيل و هو بالانجليزية ، و قد جمعته من فترة و بدأت فى اعداد الملف المعرب و لكن مع تأخري فى ذلك ساضعه نصف معرب به ورقة عمل للاختصارات بالانجليزية و الاخري نصفها معرب ياريت تراجعوه و لو فيه تصليح اخبروني Keys2.rar