m_127899

Sub colorCells() Dim ws As Worksheet Dim lastRow As Long Dim lastColumn As Long Dim i As Long Dim j As Long Set ws = ActiveSheet ' تعيين الصفحة المفتوحة كـ ws ' تحديد عدد الصفوف والأعمدة في الصفحة lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row lastColumn = ws.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column ' تكرار الصفوف والأعمدة وتحديد اللون الذي تريده لكل خلية For i = 1 To lastRow For j = 1 To lastColumn Select Case j ' يمكنك تغيير هذه الأرقام والألوان لتناسب احتياجاتك Case 1 ws.Cells(i, j).Borders.LineStyle = xlContinuous ws.Cells(i, j).Borders.Color = RGB(255, 0, 0) ' اللون الأحمر Case 2 ws.Cells(i, j).Borders.LineStyle = xlContinuous ws.Cells(i, j).Borders.Color = RGB(255, 255, 0) ' اللون الأصفر Case 3 ws.Cells(i, j).Borders.LineStyle = xlContinuous ws.Cells(i, j).Borders.Color = RGB(0, 255, 0) ' اللون الأخضر Case 4 ws.Cells(i, j).Borders.LineStyle = xlContinuous ws.Cells(i, j).Borders.Color = RGB(0, 0, 255) ' اللون الأزرق Case 5 ws.Cells(i, j).Borders.LineStyle = xlContinuous ws.Cells(i, j).Borders.Color = RGB(255, 0, 255) ' اللون الأرجواني Case 6 ws.Cells(i, j).Borders.LineStyle = xlContinuous ws.Cells(i, j).Borders.Color = RGB(0, 255, 255) ' اللون الأزرق الفاتح End Select Next j Next i End Sub

أخي المبدع سليم سلمت أيديك الذهبية

جزاااااااااااااااااااااااااااااااكم الله خير أحبتي وبارك الله فيكم ....ابداع ولكن هل يمكن استبدال الكودات بمعاملات اكسل المتوفرة ؟؟

السلام عليكم ورحمة الله وبركاته كيف يمكن استخدام دالة ( RANDBETWEEN ) في عمود يتكون من ( 14 صف ) بشرط عدم تكرار القيم من ( 1 - 14 ) في نفس العمود

أرجو ممن لديه المعرفة المساعدة

كيف يتم صناعة برنامج للحضور والمغادرة بهذه المواصفات المدرجة بالصورة الموجودة في الملف

جميع الصور السابقة في ملف واحد http://www.4shared.com/office/V-rAfezi/___.html?

جميع الصور في ملف واحد http://www.4shared.com/office/nAOG-XQM/___online.html?

لطفا وتفضلا منكم أخواني الأكارم هل يمكن أن تكون النسخة المحفوظة في درايف د مخفية تلقائيا للرفع

هل يمكن أنت تكون النسخة المحفوظة في درايف د مخفية تلقائيا للرفع

أخوي الفاضلان HaNcOcK وأحمد زمان رفع الله درجاتكما في الجنة وبارك الله بكما وحفظكما من كل سوء عندي ولو تفضلتما علي سؤال آخر على نفس الملف قيمة خلية ما[رقم] ( لنفرض الخليةE25 تحتوي على رقم " أي رقم غير مهم مثلا 10 ممكن أقوم بتغيره وأنا أعمل في الملف") أريد تغيريها بعد حفظ الملف وإغلاقه أن تتغير دائما إلى رقم آخر ثابت 11 مثلا هذا الرقم لا يتغير عند كل حفظ جديديبقى قيمته في الخلية 11 بحيث لو فتحت الملف مرة ثانية أجد أن قيمة الخلية أصبح 11 في الملف الأصلي والملف المحفوظ على "D"

سؤال كيف يتم تعطيل الأمان للماكرو دائما في جهاز " وتمكينه دائما " ( لعدم ظهور رسالة التحذير كل مرة )

أخي HaNcOcK جزاك الله كل خير ونفع بك أمة حبيبي ونبيي محمد صلى الله عليه وسلم

أخي احمد يعقوب بارك الله بك وحفظك من كل سوء 1- أريد الحفظ عند إغلاق الملف " الملف موجود على الفلاش ميموري " 2- أريد حفظ نسخة تلقائية ثانية على " D " مثلا باسم ماجد" أستطيع فتح النسخة الثانية حتى ولو أزلت الفلاش ميموري " 3- مع ملاحظة أن الملف الأصلي على الفلاش يبقى موجود

للرفع

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

الحمد لله على كل شيء

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

الملاحظة السادسة كيف يمكن أن أ- أن أضع خيار في البرنامج أن لا يدرس معلم ما حصة ما أو مجموعة من الحصص في يوم أختاره أنا ب- أن أضع خيار في البرنامج أن يدرس معلم ما حصة ما أو مجموعة من الحصص في يوم أختاره له أنا

الملاحظة الخامسة عدد الحصص على مدار الاسبوع للمعلم الواحد تكون موزعة بانتظام فليس منطقيا أن يكون عدد الحصص الكلي مثلا 25 حصة ويكون له في يوم حصة وفي يوم آخر سبعة وفي يوم آخر أربعة وفي يوم آخر ستة وفي يوم آخر خمسة وفي يوم آخر حصتين على فرض أن أيام التدريس في الأسبوع خمسة

الملاحظة الرابعة قد نضطر إلى ان تكون مادة تأتي مكررة في اليوم الواحد ومتتابعة للفصل الواحد( أي تكون حصتين متتابعتين ليس بينهما فاصل )مثل مادة الحاسوب أو مادة المهني

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

الملاحظة الثانية في الصفحة الرئيسة جدول ( تعيين فصول معينة للمعلمين ) أنت وضعت ( 10 فصول فقط مسموحة للمعلم ) في مدارسنا قد يسمح للملعلم أن يدرس ( 30 فصل ) مثل معلم مادة الفن أو الرياضة

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