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...
عبدالله بشير عبدالله قام بنشر الجمعة at 17:38 مشاركة قام بنشر الجمعة at 17:38 اين تريد النتائج في اي صفحة واي مدى رابط هذا التعليق شارك More sharing options...
tahar قام بنشر الجمعة at 19:37 الكاتب مشاركة قام بنشر الجمعة at 19:37 سلام عليكم وشكر لك مسبقا على المساعدة انفس المطلوب ولكن غيرت مكان جلب البيانات وقمت بزيادة المتغيرات المجلوبة test.rar رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر الجمعة at 23:30 مشاركة قام بنشر الجمعة at 23:30 (معدل) السلام عليكم جرب المرفق الاختيار من القائمة بالضغط مرتين على العتصر المختار واذا كان الرقم غير موجود تاتى رسالة بذلك بالتوفيق واي ملاحظات لا حرج في ذلك test.xls تم تعديل بالامس في 09:34 بواسطه عبدالله بشير عبدالله 2 رابط هذا التعليق شارك More sharing options...
tahar قام بنشر منذ 18 ساعات الكاتب مشاركة قام بنشر منذ 18 ساعات (معدل) ممكن شرح الكود باللون الاخضر هل يمكن اختيار من الليست بوكس بالضغط على انتري واختيار بالفارة يعني تضيف خاصية اختيار بالضغط على انتري نزعها بايشاب esc عند مسح الخلية من رقم يجب ان لا تبقة المعلومات في الخلايا المجاورة الكود في الارقام المكررة لا يجلب المتغيرات جرب الرقم 99 وشكرا تم تعديل منذ 17 ساعات بواسطه tahar رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر منذ 16 ساعات مشاركة قام بنشر منذ 16 ساعات (معدل) جرب التعديلات تم تعديل منذ 6 ساعات بواسطه عبدالله بشير عبدالله رابط هذا التعليق شارك More sharing options...
tahar قام بنشر منذ 15 ساعات الكاتب مشاركة قام بنشر منذ 15 ساعات عند اختيار الرقم 99 المتكرر لا تتغير البيانات اخنيار المقاطعات من ليست بوكس بالفارة از زر انتري ونزع قائمى ليست بوكس بزر esc رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر منذ 6 ساعات مشاركة قام بنشر منذ 6 ساعات (معدل) تم التعديل يمكن الاختيار بالفارة ويمكنك الخروج عن طريق علامة × في الفورم test.xls تم تعديل منذ 5 ساعات بواسطه عبدالله بشير عبدالله رابط هذا التعليق شارك More sharing options...
tahar قام بنشر منذ 3 ساعات الكاتب مشاركة قام بنشر منذ 3 ساعات (معدل) شكرا تم حل مشكل جلب البيانات في حال تكرار الرجاء ارجاع خاصية الصعود والنزول بالاسهم والاختيار بالانتري و غلق الفورم. ب ايشاب Esc. تم تعديل منذ 3 ساعات بواسطه tahar رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر الان مشاركة قام بنشر الان تم التعديل test (1).xls رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان