أكاديمية الصقر للتدريب

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


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





كود تلوين كلمات بدون حلقة تكرارية

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


موضوع مغلق


20-05-2020 03:12 مساء
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 

السلام  عليكم   
لقد  قمت  بعمل  هذا  الكود  من غير  حلقة  تكرارية  يوجد خطا  ولا يقم  بعملية  التلوين  اتمنى  ممن  لديه  الخبرة  توضيح  الخطا  وكيفية  المعالجة 
Sub gg()
Dim lr As Integer
lr = Cells(Rows.Count, "a").End(xlUp).Row
If Cells(lr, 1) = "finish" Then
Cells(i, 1).Font.Color = vbRed
Else
Cells(i, 1).Font.Color = vbGreen
End If
End Sub
 
 
  colo‬.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(17.959) KB



أفضل إجابة مقدمة من salim وهي:
ربما يكون هذا الملف أكثر إفادة
الكود

Sub Salim_cod()
Dim lr%, I%, Colr%, p%, n%
lr = Cells(Rows.Count, "A").End(xlUp).Row
With Range("A1").Resize(lr)
.Characters.Font.ColorIndex = 1
.Font.Bold = False
End With
For I = 1 To lr
  With Cells(I, 1)
  Select Case True
     Case InStr(UCase(.Value), UCase(Trim("not finish")))
       Colr = 10: p = InStr(UCase(.Value), UCase(Trim("not finish")))
       n = 10
      Case InStr(UCase(.Value), UCase(Trim("finish")))
       Colr = 3: p = InStr(UCase(.Value), UCase(Trim("finish")))
       n = 6
      Case Else: GoTo Next_I
    End Select
    .Characters(p, n).Font.ColorIndex = Colr
    .Characters(p, n).Font.Bold = True
    End With
Next_I:
Next
End Sub


الملف مرفق
عرض الإجابة




20-05-2020 06:12 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كود تلوين كلمات بدون حلقة تكرارية
الكود الصحيح

Option Explicit
Sub gg()
Dim lr%, I%, Colr%
lr = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1").Resize(lr).Characters.Font.ColorIndex = 1
For I = 1 To lr
  With Cells(I, 1)
  Select Case Trim(.Value)
    Case Is = "finish": Colr = 3
    Case Is = "not finish": Colr = 10
    Case Else: GoTo Next_I
   End Select
    .Characters.Font.ColorIndex = Colr
      End With
Next_I:
Next
End Sub

الملف مرفق
 
 
  Colrorize_cells.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(26.629) KB


20-05-2020 07:21 مساء
مشاهدة مشاركة منفردة [2]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كود تلوين كلمات بدون حلقة تكرارية
ربما يكون هذا الملف أكثر إفادة
الكود

Sub Salim_cod()
Dim lr%, I%, Colr%, p%, n%
lr = Cells(Rows.Count, "A").End(xlUp).Row
With Range("A1").Resize(lr)
.Characters.Font.ColorIndex = 1
.Font.Bold = False
End With
For I = 1 To lr
  With Cells(I, 1)
  Select Case True
     Case InStr(UCase(.Value), UCase(Trim("not finish")))
       Colr = 10: p = InStr(UCase(.Value), UCase(Trim("not finish")))
       n = 10
      Case InStr(UCase(.Value), UCase(Trim("finish")))
       Colr = 3: p = InStr(UCase(.Value), UCase(Trim("finish")))
       n = 6
      Case Else: GoTo Next_I
    End Select
    .Characters(p, n).Font.ColorIndex = Colr
    .Characters(p, n).Font.Bold = True
    End With
Next_I:
Next
End Sub


الملف مرفق
 
 
  Color_cells.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(28.086) KB


20-05-2020 09:04 مساء
مشاهدة مشاركة منفردة [3]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif كود تلوين كلمات بدون حلقة تكرارية
جزيت خيرا  استاد  سليم   خصوصا  الملف  الثاني  قمة  الابداع 



الكلمات الدلالية
تلوين ، عمود ، بناء ، قيمة ، بدون ، حلقة ، تكرارية ،


 










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

الساعة الآن 10:05 صباحا