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

السلام عليكم ورحمة الله برنامج مساعد لمعلم القرآن بطريقة مبتكرة ويمكن توظيف مواد اخرى مع القرآن حيث عملت على مرونة تسمية الحقول كلمة المرور = 1 جاهز لاي استفسار او ملاحظات

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والاذكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود التنقل الى اي صفحة في ملف اكسيل طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر [/center] ' ' هذا الكود للعالم العلامة عبد الله باقسير Sub GO_TO() On Error Resume Next Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute If Err.Number > 0 Then Err.Clear Application.CommandBars("Workbook Tabs").ShowPopup End If Activewindow.ScrollColumn = 1 Activewindow.ScrollRow = 1 On Error GoTo 0 End Sub في هذا الكود البسيط والمفيد عند الضغط على الزر ستنسدل قائمة بأسماء كل الصفحات الموجوده بالملف اختر منها الورقة التي تبعاها ودمتم في حفظ الله التنقل بين الصفحات.rar

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

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

بعد إذن الأستاذ الكبير // ابراهيم ابو ليله أخى الكريم / الاستاذ / عاشق الاسلام قم بتغيير جزء معين من الكود الى الآتى ListBox1.List(V, 0) = Q.Offset(0, 3).Value ListBox1.List(V, 1) = Q.Offset(0, 2).Value ListBox1.List(V, 2) = Q.Offset(0, 1).Value ListBox1.List(V, 3) = Q.Offset(0, 0).Value ListBox1.List(V, 4) = Q.Offset(0, -1).Value وتقبل منى وافر الاحترام والتقدير

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

الاستاذة والوالدة الفاضلة // أم عبد الله الاستاذ الكبير والاخ الكبير الفاضل // سليم حاصبيا كم استمتعت بحلولكما وكم سعادتي انني وسط عباقرة من عباقرة مادة الرياضيات.. هنيئا لكم ابنائكم من الطلبة.. تقبلوا وافر احترامي وتقديري لكما..

السلام عليكم ورحمة الله أضن أن السؤال مفتوح لا يقتصر على إحابة محددة فمثلا في لغة برمجية غير الايكسل و لتكن الاوتوبلاي نضع الكود التالي حيث حددنا البحث في مجال عددي أقل من 100000 -على سبيل المثال - e = "" x = 1; while (x < 100000) do x = x + 1; if Math.Mod(x, 2)==1 and Math.Mod(x, 3)==1 and Math.Mod(x, 4)==1 and Math.Mod(x, 5)==1 and Math.Mod(x, 6)==1 and Math.Mod(x, 7)==0 then e =e ..x.."-" end end result = Dialog.Message("Notice", e); سينتج في الرسالة الأعداد المحققة للشرط : 301-721-1141-1561-1981-2401-2821-3241-3661-4081-4501-4921-5341-5761-6181-6601-7021-7441-7861-8281-8701-9121-9541-9961-10381-10801-11221-11641-12061-12481-12901-13321-13741-14161-14581-15001-15421-15841-16261-16681-17101-17521-17941-18361-18781-19201-19621-20041-20461-20881-21301-21721-22141-22561-22981-23401-23821-24241-24661-25081-25501-25921-26341-26761-27181-27601-28021-28441-28861-29281-29701-30121-30541-30961-31381-31801-32221-32641-33061-33481-33901-34321-34741-35161-35581-36001-36421-36841-37261-37681-38101-38521-38941-39361-39781-40201-40621-41041-41461-41881-42301-42721-43141-43561-43981-44401-44821-45241-45661-46081-46501-46921-47341-47761-48181-48601-49021-49441-49861-50281-50701-51121-51541-51961-52381-52801-53221-53641-54061-54481-54901-55321-55741-56161-56581-57001-57421-57841-58261-58681-59101-59521-59941-60361-60781-61201-61621-62041-62461-62881-63301-63721-64141-64561-64981-65401-65821-66241-66661-67081-67501-67921-68341-68761-69181-69601-70021-70441-70861-71281-71701-72121-72541-72961-73381-73801-74221-74641-75061-75481-75901-76321-76741-77161-77581-78001-78421-78841-79261-79681-80101-80521-80941-81361-81781-82201-82621-83041-83461-83881-84301-84721-85141-85561-85981-86401-86821-87241-87661-88081-88501-88921-89341-89761-90181-90601-91021-91441-91861-92281-92701-93121-93541-93961-94381-94801-95221-95641-96061-96481-96901-97321-97741-98161-98581-99001-99421-99841-

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

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

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل // اسامة 1 ) بعتذر أخي الفاضل على التاخير نظراً لوجود بعض المشاكل بالنت 2 ) بالنسبة لحالة الطالب سوف تضع هذه المعادلة في اول خلية في عمود حالة الطالب في الخلية Hc10 ثم اسحب لاسفل =IF(E10="";"";IF(HE10<>"";HE10;IF(U10="محروم";"محروم";IF(U10="مفصول";"مفصول";IF(AND(U10="معيد";IM10="راسب");"راسب وليس له حق في الاعادة";IF(AND(U10="ناجح";IM10="راسب");"راسب و له حق في الاعادة";IF(IM10="ناجح";"ناجح";IF(IM10="له دور ثان";"له دور ثان")))))))) 3 ) لي ملحوظة بسيطة اتمنى ان تفهم مقصودي فيها وهي انت الان عندك حالاتان اضفتهما جديد وهما اما مفصول أو اما محروم تمام؟!!.....تمام. طيب في الحالة النهائية للطالب المحروم أو المفصول اذا كان مستجدا او معيداً ماذا سيكون مصيره ؟! هل هو راسب وله حق الاعادة ؟! او ليس له حق الاعادة او ماذا سيكتب له في نتيجته؟! وفي انتظار اي استفسار..