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- مع ملاحظة أن الملف الأصلي على الفلاش يبقى موجود

للرفع