البحث عن رقم ضمن رقم في متسلسلة بالاكسيل

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء ..لدي ملف اكسل  وفيه مطلبان

المطلب الاول: البحث عن رقم ضمن مجموعة ارقام 

المطلب الثاني : عمل متسلسلة كما في العمود E الملف  ..تحياتي للجميع

1- نعم  البحث عن طريق ادخال قيمة البحث في خلية معينة.

2- عند العثور على القيمة يذهب المؤشر الى الخليه التي فيها القيمة وتلوينها باللون الاصفر

تحياتي

test.xlsx

[محمد هشام.]

تفضل اخي الكريم خلية البحث (G3)

'البحث في عمود A,B
Sub ChangeColor()
    Set MR = Range("A1:B10000")
    For Each cell In MR
    If cell.Value = Range("g3") Then
    cell.Interior.ColorIndex = 6
    End If
    Next
End Sub
'''''''''''''''''''''''''''''''''''''''''
' E,البحث عن القيمة في  متسلسلة عمود
'وتغيير لون الكتابة

Sub FindLoop()
 Dim strFirstAddress As String
 Dim rngFindValue As Range
 Dim rngSearch As Range
 Dim rngFind As Range
 Set rngFind = ActiveSheet.Range("E1:E100000")
 Set rngSearch = rngFind.Cells(rngFind.Cells.Count)
 Set rngFindValue = rngFind.Find(Range("g3"), rngSearch, xlValues)
 If Not rngFindValue Is Nothing Then
   strFirstAddress = rngFindValue.Address
   rngFindValue.Font.Color = vbRed
   Do
     Set rngFindValue = rngFind.FindNext(rngFindValue)
     rngFindValue.Font.Color = vbRed
  Loop Until rngFindValue.Address = strFirstAddress
 End If
End Sub

 

298667823_.xlsm

[Ahmed_J]

السلام عليكم استاذ @Mohamed Hicham

بارك الله فيك

طلبي كان واضح هو  ايجاد قيمة رقم  ضمن الاقام مثل ايجاد  رقم (260000)  وهو موجود في  الصف 4  (257500- 262449)

المتسلسلة غير صحيحة في العمود E    ...تحياتي للجميع

 

 

[محمد هشام.]

1-  البحث عن طريق ادخال قيمة البحث في خلية معينة.

2- عند العثور على القيمة يذهب المؤشر الى الخليه التي فيها القيمة وتلوينها باللون الاصفر

أخي قد تمت الاجابة بناءا على طلبك هذا !!!!!

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

ربما أخي تقصد تلوين أرقام  معينة داخل الخلية لأنك واضع المتسلسل  (257500- 262449)  في خانة واحدة...؟؟؟؟؟

[Ahmed_J]

استاذ محمد  السلام عليكم

1- طريقة عمل المتسلسلة غير صحيح في العمود E  اريد عمل المتسلسة في خلية واحدة  كما الارقام في الخلايا A و C

2- كيف اجد رقم 260000 وهو موجود في الرقم 262449 

تحياتي

[محمد هشام.]

هذا سؤال آخر ليس له علاقة بطلبك الأول أخي وغير واضح!!!!

[محمد هشام.]

على حسب ما فهمت من طلبك المشكلة ليست مجرد البحث عن رقم معين وتلوينه على حسب ما جاء في طلبك الاول

انت تبحث عن استخراج  رقم موجود بين عددين وهدا موضوع اخر لم توضحه من قبل على العموم سيتم تعديل طلبك بالعثور على القيمة بشرط الخلية  F2

الى حين توضيح المطلوب الثاني ..بالتوفيق

 

[محمد هشام.]

تفضل اخي اليك طلبك

Sub ChangeColor2()
'البحث في عمود("E")
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("E1:E100000").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)
.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
'''''''''''''''''''''''''''''''''''''''
'البحث في عمود a,b
Sub ChangeColor()
    Set MR = Range("A1:B10000")
    For Each cell In MR
    If cell.Value = Range("F2") Then
    cell.Interior.ColorIndex = 6
    End If
    Next
End Sub

MH.xlsm

[Ahmed_J]

السلام عليكم استاذ محمد

شكرا على تعبك معي بارك الله فيك

لكن ليس هو المطلوب

المطلوب

1- طريقة عمل المتسلسلة غير صحيح في العمود E  اريد عمل المتسلسة في خلية واحدة  كما الارقام في الخلايا A و C  (يعني نفس الارقام ) وهي ارقام حقيقية

2- كيف اجد رقم 260000 وهو موجود في الرقم 262449  ( يعني ايجاد رقم موجود داخل رقم)

انظر للملف المرفق

تحياتي للجميع

MH.rar

[محمد هشام.]

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

بالنسبة للطلب الثاني صراحة لم أستوعب الفكرة  لنفترض أنك كما جاء في الملف تبحث عن الرقم 260000 فهو موجود في 462499 كما ذكرت لاكن السؤال في حالة وجود الرقم 512499 فهو كذلك موجود بداخله ما هو العمل؟