لماذا عند إبدال حرف بحرف ملون يتم تلوين جميع ما في الخانة

[عبد الكبير نواري]

السلام عليكم ورحمة الله تعالى وبركاته..لمذا عند إبدال حرف بحرف ملون يتم تلوين جميع ما في الخانة سؤاء كلمة أو جملة؟

وهل من طريقة للإبقاء على تلوين باقي الأحرف الإخرى أو الكلمات المنسقة؟ جزاكم الله خيرا

4.xlsx

[حسونة حسين]

وعليكم السلام ورحمه الله وبركاته

كيف تقوم بالابدال اخي عبدالكبير

 

[محمد هشام.]

اخي لم تجب عن سؤال الاستاد hassona229 ...

وهو ما هي الطريقة المستخدمة لتبديل الوان الحروف !!!!!!! . قد قمت باستبدالها يدويا بدون ادنى مشكلة  والنتيجة كما في  الصورة

[محمد هشام.]

اخي هناك فكرة قد تم تناولها مع احد الاخوة سابقا في احد المواضيع  ربما تسهل عليك عملية التلوين بما ان الكلمات و الحروف مكررة يمكنك استخدام كود ينوب عنك في هده المسالة فقط ادخل اوقم بنسخ  الكلمة او الحرف المطلوب في الخلية  (F2)  بنفس الشكل المكتوب به مثال : ( فَبَشِّرْهُم) لا يمكن كتابتها  (فبشرهم)  وسوف يتم تلوين جميع الكلمات دفعة واحدة مع الاحتفاظ بالتنسيق ..كما يمكنك  تعديل رقم اللون المطلوب داخل الكود  للون المطلوب كما في الصورة تحت

Sub ChangeColor2()
'البحث في عمود("a")
Application.ScreenUpdating = False
Dim Rng As Range
Dim MH As String
Dim MH2 As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
MH = Range("F2").Value
If Len(MH) < 1 Then Exit Sub
xArrFnd = Split(MH, ",")
'''   قم بتحديد النطاق المطلوب ''''''     
Range("A1:A100000").Select
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
MH2 = ""
For x = 0 To m - 1
MH2 = MH2 & Split(Rng.Value, xStr)(x)
'3= اللون الاحمر
'قم باستبدال الرقم  3 برقم اللون المطلوب
.Characters(Start:=Len(MH2) + 1, Length:=y).Font.ColorIndex = 3
MH2 = MH2 & xStr
Next
End If
Next xFNum
End With
Next Rng
Range("F2").Select
Application.ScreenUpdating = True
End Sub

قائمة الالوان اختر اللون المناسب وقم باستبداله داخل الكود

في حالة تعدر عليك الامر  يمكنك رفع الملف للتعديل فسوف نكون سعداء بمساعدتك في هدا العمل الطيب  

(فخِدْمَةَ الْقُرْآنِ مِنْ خَيْرِ الْأَعْمَالِ وَأَشْرَفِهَا، وَأَعْظَمِ الْقُرُبَاتِ وَأَعْلَاهَا، فَهُوَ خَيْرُ دَارٍ، وَحَسَنَاتٌ جَارِيَةٌ لِصَاحِبِهِ، حَيًّا وَمَيِّتًا.) ووفقنا الله واياكم اخي  لما يحب ويرضى

4.xlsm

[عبد الكبير نواري]

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

أقوم بالإبدال عن طريق ctr +H واضع الحرف الذي أريد استبداله فوق والحرف الذي اريد استبداله به تحت واغير التنسيق ثم أضغط على OK لكن يتغير اللون في جميع الخانة.

شكرا

[محمد هشام.]

منذ ساعه, عبد الكبير نواري said:

قوم بالإبدال عن طريق ctr +H واضع الحرف الذي أريد استبداله فوق

اخي يجب الاستبدال من داخل الكود كما جاء في الشرح في المشاركة السابقة

[عبد الكبير نواري]

جزاكم الله خيرا سيدي محمد الغزال رائع الملف عاد فهمتوا

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