tahar قام بنشر الثلاثاء at 19:18 مشاركة قام بنشر الثلاثاء at 19:18 عندي ارقام واسماء مقاطعات وجهة مقاطهة اريد عند اختيار رقم مقاطعة وعند تكرار رقم يقوم باخراج قائمة منسدلة لاختيار اسم المقاطعة ومن ثم ياتي بالنتائج وفي حالة رقم غير مكرر ياتي بالنتائج عادي لا داعى اضغط الملف طالما مساحته صغيره ray.xlsx رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر الأربعاء at 10:28 مشاركة قام بنشر الأربعاء at 10:28 (معدل) السلام عليكم اكتب الرقم في العمود F الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim ws As Worksheet Dim districtNumber As String Dim count As Integer Dim districtList As String Dim cell As Range Dim districtArray() As String Dim i As Integer Dim selectedDistrict As String Set ws = ThisWorkbook.Sheets("Feuil2") If Not Intersect(Target, ws.Range("F5:F" & ws.Cells(ws.Rows.count, "F").End(xlUp).Row)) Is Nothing Then districtNumber = CStr(Target.Value) If districtNumber <> "" Then count = Application.WorksheetFunction.CountIf(ws.Range("A2:A500"), districtNumber) If count > 1 Then districtList = "" For Each cell In ws.Range("A2:A" & ws.Cells(ws.Rows.count, "A").End(xlUp).Row) If cell.Value = districtNumber Then If districtList = "" Then districtList = ws.Cells(cell.Row, "B").Value Else districtList = districtList & "," & ws.Cells(cell.Row, "B").Value End If End If Next cell districtArray = Split(districtList, ",") With UserForm1.ListBox1 .Clear For i = LBound(districtArray) To UBound(districtArray) .AddItem districtArray(i) Next i End With UserForm1.Show If UserForm1.ListBox1.ListIndex <> -1 Then selectedDistrict = UserForm1.ListBox1.Value Else selectedDistrict = "" End If Target.Offset(0, 1).Value = selectedDistrict Else For Each cell In ws.Range("A2:A" & ws.Cells(ws.Rows.count, "A").End(xlUp).Row) If cell.Value = districtNumber Then Target.Offset(0, 1).Value = ws.Cells(cell.Row, "B").Value Exit For End If Next cell End If End If End If End Sub الملف اسم المقاطعة.xlsb تم تعديل الأربعاء at 11:53 بواسطه عبدالله بشير عبدالله 1 رابط هذا التعليق شارك More sharing options...
tahar قام بنشر الأربعاء at 21:07 الكاتب مشاركة قام بنشر الأربعاء at 21:07 سلام عليكم شكرا ساقوم بتجربتها هل يمكن استبدال الدالة =INDEX($C$2:$C$100; EQUIV(1; ($A$2:$A$100=F5)*($B$2:$B$100=G5); 0)) ب recherchv رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر الخميس at 06:46 مشاركة قام بنشر الخميس at 06:46 وعليكم السلام دالة recherchv لا اجيدها واعتقد انها فرنسية ولكن قمت بحل اخر وان لم يكن مناسبا لك قم بفتح موضوع جديد واطلب فيه دالة recherchv وستجد من الخبراء من يقوم بذلك تحياتي اسم المقاطعة.xlsb 1 رابط هذا التعليق شارك More sharing options...
tahar قام بنشر الخميس at 18:16 الكاتب مشاركة قام بنشر الخميس at 18:16 (معدل) سلام ممكن تعديل الكود وضعت الجدول في ورقة أخرى ,واين اضيف متغير للبحث اسم المقاطعة تعديل.rar تم تعديل الخميس at 19:06 بواسطه tahar رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر منذ 8 ساعات مشاركة قام بنشر منذ 8 ساعات اين تريد النتائج في اي صفحة واي مدى رابط هذا التعليق شارك More sharing options...
tahar قام بنشر منذ 7 ساعات الكاتب مشاركة قام بنشر منذ 7 ساعات سارفق ملف سارفق ملف رابط هذا التعليق شارك More sharing options...
tahar قام بنشر منذ 6 ساعات الكاتب مشاركة قام بنشر منذ 6 ساعات سلام عليكم وشكر لك مسبقا على المساعدة انفس المطلوب ولكن غيرت مكان جلب البيانات وقمت بزيادة المتغيرات المجلوبة test.rar رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر منذ 2 ساعات مشاركة قام بنشر منذ 2 ساعات جرب المرفق test.xls 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان