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

السلام عليكم أخى الحبيب / ابراهيم أبو ليله تسلم ايديك أخى الحبيب / محمود الشريف تسلم ايديك وبعد اذنكم هذا حل أخر لاثراء الموضوع كنت قد جهزته قبل انقطاع التيار الكهربى Sub ragab() Application.ScreenUpdating = False T = 5 + Month(Now) If T = 6 Then T = 7 If T = 17 Then T = 16 Columns("G:R").EntireColumn.Hidden = True Range(Cells(4, T), Cells(4, T + 2)).EntireColumn.Hidden = False Application.ScreenUpdating = True End Sub مشتركى الدوحة نت.rar

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

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

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

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

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

أحمد الله على أنك بخير أستاذى العزيز

السلام عليكم المسالة سهلة جدا اضف تعليق على راس العمود وضع اسم القائمة في التعليق المرفق 2010 PF Template 21.rar

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

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

اخى ابو عبيد الفكره كلها طبعا ليك والفضل دائما يعود لصاحب الفكره ----------------------------------------- والاعمال التى تبنى على افكار الغير ما هي الا تعبير عن الشكر والعرفان بالجميل لصاحب الفكره ------------------------------------------ نسأل الله ان يجعل اعمالك فى ميزان حسانتك ------------------------------------------- اسمح لى ان اقدم نفس الفكره بالاعتماد على رقم الهارد ورقم الدرايف المتغير C للحصول على الكود قم بضرب اول 3 ارقام فى اخر 3 ارقام بصرف النظر عن جود حروف ام لا بمعنى انه اذا كانت اول اربع ارقام هى 12A35 واخر اربعة ارقام Z050 نقوم بضرب 123 * 050 ------------------------------------ الباسوورد 123 protect with drive.rar

انا قمت بالتعديل فقط على عجالة لتحقيق الطلب اليك الكود الآن بعد التدقيق ( تم اجراء بعض التقديم والتأخير وحذف مالا يلزم ) Dim rcos, r As Long Private Sub Command1_Click() On Error GoTo Err r = rcos + 20 txtNumbers = "" Dim s For s = rcos To r txtNumbers = txtNumbers & "973" & txtnum & " , " DoCmd.GoToRecord , , acNext rcos = rcos + 1 If rcos = r Then Exit Sub End If Next s Err: If Err.Number = 2499 Then Exit Sub End Sub Private Sub Form_Load() rcos = 1 End Sub

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

الاستاذ العزيز الفاضل // احمد ابو زيزو السلام عليكم ورحمته الله وبركاته بداية ... أسأل الله تعالى أن تكون بكامل الصحة ثانيا .... نرجو الافاده والتجربه أولاً يجب على سيادتكم تحديد أسم الملف الذي تريد تثبيت أسمه في اول الكود كما بالمثال "zizo_Xl" تقبل وافر احترامى وتقديرى وجزاكم الله خيرا Private Const Nm_Fil As String = "zizo_Xl" Option Explicit '====================================================== Private Const Nm_Fil As String = "zizo_Xl" Sub auto_open() Dim NewName As String, MyBook As String, MyPath As String, MyTyp As String, MyName As String '============================ On Error GoTo Err_kh_Name '============================ If Nm_Fil <> ThisWorkbook.Name Then '============================ With ThisWorkbook MyBook = .Name MyPath = .Path & Application.PathSeparator End With MyTyp = Mid$(MyBook, InStrRev(MyBook, ".")) MyName = Replace(MyBook, MyTyp, "") '============================ NewName = MyPath & Nm_Fil & MyTyp If Dir(NewName, vbDirectory) = vbNullString Then ThisWorkbook.SaveAs Filename:=NewName Kill MyPath & MyBook MsgBox "تم إسترجاع اسم الملف", vbOKOnly, "الحمدلله" End If '============================ Err_kh_Name: If Err Then MsgBox "Err.Number : " & Err.Number Err.Clear End If End If End Sub

أخى فى الله الأستاذ الحبيب // محمد ابو البراء بارك الله فيكم على مروركم الكريم ودعاؤكم الطيب لى أسأل رب العالمين أن يكون لكم حظا وفيرا من دعاؤكم تقبل منى خالص تقديرى واحترامى

جزاك الله عنا كل خير

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

السلام عليكم لا اضن ان هذا الموقع المناسب لطلبك لاكن لابأس البرنامج الوحيد الذي يمكنه تنفيذ طلبك و يدعم العربية هو برنامج Readiris Corporate فيديو يشرح البرنامج http://www.youtube.com/watch?v=HbNNQNBmX7Y

جزاك الله خيرا اخي الكريم

بارك الله فيكم

اخي الحبيب ضاحي الغريب

بارك الله فيك استاذنا الجليل الاخ قنديل الصياد

السلام عليكم ورحمة الله وبركاته 1 ) جزاك الله خيرا على كلامك أخي الحبيب استاذ // جماااال 2 ) ما جعلني سعيد جدا في هذا الموضوع شعوري بانك ترغب في التعلم وهذا شعرت به اول الموضوع ومن خلال استفساراتك 3 ) اما شرح ما قمت به فهو كالتالي اولاً : ما هو طلبك ؟! الاجابة : انك تريد ترحيل بيانات الناجحين لوحدهم والراسبين لوحدهم ماذا يعني هذا الكلام ؟! هذا يعني اننا نريد عملية ترحيل بيانات معينة مشتركة في شي واحد في مكان، وبيانات اخرى في مكان أخر وما المشكلة؟! المشكلة ان هذه البيانات أ _ غير مرتبة _ بمعني اننا نرى طالب مجموعه ناجح ثم راسب ثم راسب ثم ناجح ثم راسب وهكذا ب _ ليس هناك عامل مشترك واحد _ بمعنى انني اعلم ان الطالب الذي تجاوز ال450 ناجح والطالب الذي اقل من 450 راسب وهذا اعرفه بالنظر ولكن ليس عندي في الشيت شي عملي يدل على ذلك. وهذا الكلام يعني ايضا اننا ليس عندنا عامل مشترك لجميع الطلاب سوف نرحل عليه وبعد هذا الكلام الطويل !!! ما العمل ؟! العمل اننا لا بد ان نربط بين التلاميذ بعامل مشترك وطالما انني اريد ان اقسمهم على اساس النجاح والرسوب اذاً هذا هو العامل ترحيل على اساس حالة الطالب كيف اقوم به ؟! _ أو خطوات العمل _ ؟! 1 ) اقوم باضافة عمود لحالة الطالب الناجح او الراسب 2 ) اما الخطوة الثانية وهي الاصعب معرفة شروط نجاح الطالب ورسوبه وسوف اقسم شرح هذه الخطوة على جزئين أ ) جزء نظري ب ) تحويل الكلام النظري الى عملي أ ) الكلام النظري لمعرفة الطالب الناجح _ او ما اسميه بالقرارات الوزرارية _ او بمعنى اخر!! من هو الطالب اناجح ومن هو الطالب الراسب؟! الاجابة : الطالب الناجح أ - من تجاوز مجموع كل مادة عن نصف الدرجة ولكن بشرط ان لا يقل الطالب عن 15 درجة في اختبار التحريري للنصف الثاني الطالب الذي له دور ثان هو الطالب الذي لم يتجاوز مجموعه نصف المادة او تجاوز نصف المادة واقل من 15 درجة وركز في هذه الجزئية لاننا سوف ننتقل الى القسم الثاني وهو العملي يلا نحول هذا الكلام الى معادلات لمادة واحدة فقط وقبل ان ابدئ في المعادلات علينا ان نراجع قاعدة مهمة (and ) و (or) الاثنين بمعني او ولكن بينها فرق عند التنفيذ كيف هذا؟! مثال ( رسوب الطالب في المادة به شرطين الاول اقل من النصف و الثاني اقل من 15 درجة ) فــــ (and ) تستخدم عند وجوب تحقق الشرطين بمعني ( اعلى من النصف ;اعلى من 15 درجة ) ; ناجح ; راسب النتيجة التى ستخرج ناجح (لتحقق الشرطين) اما اذا كانت ( اعلى من النصف ;اقل من 15 درجة ) ; ناجح ; راسب النتيجة سيكون راسب ( والسبب عدم تحقق الشرطين ) اما or يتم عند تحقق شرط واحد نفس المثال السابق ولكن ب or ( اعلى من النصف ;اقل من 15 درجة ) ; ناجح ; راسب النتيجة ناجح ( والسبب هو تحقق شرط واحد وهو اعلى من النصف ) . اتمنى ان تكون وصلت الفكرة قبل السير في تكملة الموضوع والسير في الجزء العملي لاننا الان بالفعل في الجزء العملي وهذه الفكرة التى استخدمتها لحل مشكلة تقسيم الطلبة بعامل مشترك ( النجاح والرسوب ) طيب الان قربنا من الحل وعندنا حلول لتنفيذ المعادلة على الشيت اما ان اقوم في هذا العمود الذي اضفته واستخدم قواعد or و and لكل المواد حتي الموجودة على الشيت مباشرةً لاخرج بهذه الكلمة اما الطالب ناجح او راسب اوالطريقة الثانية التى استخمدتها هنا في الشيت حيث اعتمدت على مواد الرسوب الموجودة في اخر اشيت واشترطت عند وجود ( خلية العربي فيها كلمة عربي ) الطالب راسب وهكذا في الانجليزي وهكذا في باقي المواد يتحقق الشرط الاول وهو الرسوب اما عند عدم التحقق فتخرج النتيجة الطالب ناجح مثال ذلك =if(or( خلية العربي = عربي ; خلية الانجليزى = انجليزي.....وهكذا في باقي المواد) "راسب" ; "ناجح" وهذه المعادلة تعني عند وجود اي خلية من خلايا مواد الرسوب فيها مادة فالطالب له دور ثان اما اذا كانت جميع الخلايا في مواد الرسوب فارغة فالطالب ناجح اتمنى ان تكون وصلت الفكرة وارجع للمعادلة لتربط المعادلة الموجودة في العمود الذي اضفته بالكلام النظري وانا في انتظار اي استفسار لتكملة الجزء الترحيل والسلام عليكم ورحمة الله وبركاته

بعد مشاركة استاذنا الفاضل / رجب جاويش ده حل اخر عن طريق الاكواد H-مثال.rar

ثالثا كنترول الصف الثانى الثانوى أدبى كنترول رجب 2014 ثانية ثانوى أدبى.rar

ثانيا كنترول الصف الثانى الثانوى علمى كنترول رجب 2014 ثانية ثانوى علمى.rar

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