اذهب الي المحتوي
أوفيسنا

معادلة ايجاد كل القيم التي تخص رقم معين


romadream
إذهب إلى أفضل إجابة Solved by Ali Mohamed Ali,

الردود الموصى بها

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

 Vlookupخواني : هل من الممكن استخدام معادلة 

علشان اعمل ادراج لجميع القيم الخاصة بالمتغير ال عايز ابحث عنه  زي ماموجوده في الاكسل  المرفق؟

ارجو المساعد والشرح ازاي اطلع القيم الخاصة بالمتغير

وشكرا مقدما جدا

 

فولك اب.xlsx

رابط هذا التعليق
شارك

  • أفضل إجابة

وعليكم السلام -اهلا بك في المنتدى

بالتأكيد لا يمكن عمل هذا بمعادلة Vlookup - ولكن يمكن بمعادلات المصفوفة كما بالملف 

وتم عمل اكثر من المطلوب شوف بنفسك

 

 

ايجاد كل القيم التى تخص رقم معين.xlsx

  • Like 6
رابط هذا التعليق
شارك

رائع استاذ علي ومعادلات رائعة ايضاً

لكن اسمح لي ان اضيف كود لهذا الغرض لعل فيه افادة لمن يريد التعمق اكثر في عالم الــ Diuctionary من خلال الــــ  VBA

Option Explicit
Sub Get_Phone()
Rem  ====>> Created By Salim Hasbaya On 18/7/2019
Application.ScreenUpdating = False
Dim Dict As Object
Dim Salim As Worksheet
Dim Itm, K, i%: i = 2
Dim My_Arr, M_key

 Set Dict = CreateObject("Scripting.Dictionary")
 Set Salim = Sheets("Salim")

 With Salim
      .Range("D2").CurrentRegion.Offset(1) _
      .Resize(, 10).ClearContents
     i = 2
    Do Until .Range("A" & i) = vbNullString
     K = .Range("A" & i): Itm = .Range("B" & i)
        If Not Dict.Exists(K) Then
          Dict.Add K, Itm
         Else
           Dict(K) = Dict(K) & ";" & Itm
         End If
       i = i + 1
     Loop
    '========================================
    i = 2
    With Dict
         For Each M_key In .keys
            Range("D" & i) = M_key
             My_Arr = Split(.Item(M_key), ";")
                If UBound(My_Arr) = 0 Then
                  Range("E" & i) = .Item(M_key)
                Else
                  Range("E" & i).Resize(, UBound(My_Arr)) = My_Arr
                End If
             i = i + 1
         Next
    End With
    '========================
    .Range("D2").CurrentRegion.Value = _
    .Range("D2").CurrentRegion.Value
  End With
  Dict.RemoveAll: Set Dict = Nothing
  Salim.Columns("E:H").AutoFit
  
  Application.ScreenUpdating = True
End Sub

الملف مرفق

 

FIND_PHONE.xlsm

  • Like 5
رابط هذا التعليق
شارك

  • 3 weeks later...
  • 2 weeks later...

جزاك الله خير
مرفق لحضرتك نموذج انو مش بيجيب كل التكرار ارجو تعديل الكود

وجزاك الله خير لو في طريقة للتواصل مع حضرتك اكون شاكر جدا

FIND_PHONE.xlsm

تم تعديل بواسطه romadream
رابط هذا التعليق
شارك

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

ولكن يبحث عن كل القيم ماعدا اخر قيمه كما هو موضح بالأكسل المرفق

والكود عمل الأخ الفاضل / سليم حاصبيا 

جزاه الله خير الجزاء

FIND_PHONE.xlsm

رابط هذا التعليق
شارك

كنت حابب اتواصل مع حضرتك يا استاذ سليم 
عايز اعمل كود بحث وحابب مساعده حضرتك 
لو عندي ارقام ببحث عنها على موقع على النت وعايز اعمل حاجه اتوماتك تبحث عن الارقام دي وتجبلي نتيجه البحث في شيت الاكسل
لو تقدر تساعدني في عمل كود زي كده اكون شاكر لحضرتك جدا ولو بمقابل مادي وجزاك الله خير

 

رابط هذا التعليق
شارك

أسف ليس لدي الخبرة الكافية للبحث في النت من خلال الـــ Vba فهذا ليس من اختصاصي

يمكنك الاستعانة بخاصية البحث في Google لايجاد هكذا اكواد

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information