mahmoud_xp قام بنشر يوليو 19, 2010 مشاركة قام بنشر يوليو 19, 2010 السلام عليكم ورحمة الله وبركاته أريد عمل قائمة منسدلة رئيسية (تحتوي على أسماء مؤسسات وشركات) وقائمة أخرى فرعية (تحتوي على أسماء جميع هذه الفروع) بحيث تتغير محتويات القائمة الفرعية لتعرض فقط فروع الشركة أو المؤسسة التي يتم اختيارها من القائمة الرئيسية وليس عرض جميع فروع المؤسسات. بالمرفقات ملف به شرح كامل للمطلوب Book2.rar وشكرا لكم رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 19, 2010 مشاركة قام بنشر يوليو 19, 2010 السلام عليكم بمجرد الاختيار في الخلية M3 سيغمل الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim Y As Integer, R As Integer If Target.Address = Range("M3").Address Then Me.Range("H3:I20").ClearContents With Range("قائمة_الفروع") For Y = 1 To .Rows.Count If IsError(Target.Offset(0, -1)) Then GoTo 1 If .Cells(Y, 1).Value = Target.Offset(0, -1).Value Then Cells(R + 3, "H").Value = .Cells(Y, 2).Value Cells(R + 3, "I").Value = .Cells(Y, 3).Value R = R + 1 End If Next End With End If 1: End Sub قائمة منسدلة مرتبطة بقائمة أخرى.rar 1 1 رابط هذا التعليق شارك More sharing options...
mahmoud_xp قام بنشر يوليو 19, 2010 الكاتب مشاركة قام بنشر يوليو 19, 2010 عمل رااااااااااااااائع جدا بالضبط هو ما كنت اريد ألف شكر يا أستاذ خبور جعله الله في ميزان حسناتك ووفقك لخير ما يحب ويرضى رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 19, 2010 مشاركة قام بنشر يوليو 19, 2010 السلام عليكم اخي خبور بارك الله فيك للإبداعات المتميزة ومن بعد إذنك ولاثراء الموضوع هنا حل أخر بإستخدام الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) Dim i, j, k As Integer If Not Intersect(Target, Range("m3")) Is Nothing Then Range("H3:I20").ClearContents For i = 3 To Cells(Cells.Rows.Count, "a").End(xlUp).Row If Target.Value = Cells(i, "a") Then R = 3 For j = 3 To Cells(Cells.Rows.Count, "d").End(xlUp).Row If Cells(i, "b") = Cells(j, "d") Then For k = 5 To 6 Cells(R, k + 3) = Cells(j, k) Next k R = R + 1 End If Next j End If Next i End If End Sub قائمة منسدلة مرتبطة بقائمة أخرى1.rar 1 رابط هذا التعليق شارك More sharing options...
mahmoud_xp قام بنشر يوليو 20, 2010 الكاتب مشاركة قام بنشر يوليو 20, 2010 الله ينور عليك يا عم الحسامي كود رائع مثل كود الأخ خبور والاثنين شغالين تمام يسلمو ايديكم رابط هذا التعليق شارك More sharing options...
BeeTco قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 فتح الله لك أبواب الجنة الثمانية تدخل بما شئت منها سر على بركة الله وعين الله ترعاك ودعوات المحبين تتلقاك رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 السلام عليكم ليس بعد كلام الأساتذة خبور خير والحسامي أي كلام فقط أيضا للإثراء مرفق حل بدون أكواد بإستخدام الدالة Indirect Book2_Tareq.rar 2 1 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 السلام عليكم بارك الله فيك اخي الحسامي و بارك الله فيك اخي طارق فقط أيضا للإثراء حل اخر بالمعادلات بامكانه استعمال الاسم kh_list كقائمة والذي يحوي على المعادلة =IF(ورقة1!$L$3="";INDEX(قائمة_الفروع;0;2);OFFSET(ورقة1!$E$2;MATCH(ورقة1!$L$3;INDEX(قائمة_الفروع;0;1);0);;COUNTIF(INDEX(قائمة_الفروع;0;1);ورقة1!$L$3))) خبور خير قائمة منسدلة مرتبطة بقائمة أخرى بالمعادلات.rar 1 1 رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 فقط أيضا للإثراء احسن جمله تعطي الموضوع حلولا متنوعه وتثريها جزاكم الله كل خير ونعجبني هذه الكلمات فأرسلها لكم جميعا كل باسمه فتح الله لكم أبواب الجنة الثمانية تدخلون بما شئتم منها سيروا على بركة الله وعين الله ترعاكم ودعوات المحبين تتلقاكم رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر يوليو 23, 2010 مشاركة قام بنشر يوليو 23, 2010 السلام عليكم ورحمة الله وبركاته افكار رائعة جزاكم الله كل خير وللإثراء كون الموضوع بخصوص القوائم المنسدلة, في المرفق مثال لقائمة منسدلة مفلترة بالمعادلات . وهي ربما تكون مفيدة في حالة البيانات كبيرة. وعذرا اذا كان المثال خارج طلب صاحب الموضوع تحياتي قائمة منسدلة مفلترة.rar 1 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 23, 2010 مشاركة قام بنشر يوليو 23, 2010 الله أكبر ولله الحمد كم هائل من الحلول الرائعة والمدهشة جزاكم الله عنا خير الجزاء رابط هذا التعليق شارك More sharing options...
faredq قام بنشر يوليو 31, 2010 مشاركة قام بنشر يوليو 31, 2010 السلام عليكم أين يكتب الكود في الاكسل وكيف يظهر الزر المنسدل وشكرا رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يوليو 31, 2010 مشاركة قام بنشر يوليو 31, 2010 (معدل) السلام عليكم أخي العزيز مرحبا بك بين إخوانك أنصحك بتصفح المنتدي قدر ماتستطيع ،ستجد أكثر بكثير مما تسألعنه لكن كإجابة لك سريعا أين يكتب الكود في الاكسل يكتب في محرر الفيجوال بيزيك تستطيع فتحه بالضغط علي Alt-F11 وكيف يظهر الزر المنسدل إن كان عندك بيانات تريد تصفيتها فعليك بالتالي ظلل البيانات ثم Data ثم Filter ثم Auto Filter تم تعديل يوليو 31, 2010 بواسطه TareQ M رابط هذا التعليق شارك More sharing options...
faredq قام بنشر يوليو 31, 2010 مشاركة قام بنشر يوليو 31, 2010 بارك اللة فيك أخي ولكن اكمل سؤالي بسؤال وهو هل يمكن ان استعمل لغة الدلفي بدل الفجول وكيف . وسؤال ثاني لوسمحت : لم اقصد زر الفلتر العادي بل زر مبرمج أو ستجد ملف مرفق فية زر مؤسسة وزر فروع وشكر لك علي جهدك المبذل في افادة غير . وشكرا فريد كويري من ليبيا بنغازي 00218913091644 00218928030043 رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يوليو 31, 2010 مشاركة قام بنشر يوليو 31, 2010 السلام عليكم ماتقصده هذا هو أدوات التحكم Control Box شاهد الفيديو المرفق ControlBox.rar رابط هذا التعليق شارك More sharing options...
المسعودي قام بنشر سبتمبر 5, 2010 مشاركة قام بنشر سبتمبر 5, 2010 شكر لجميع الاساتذة وندعو الله ان ينفعنا بعلمهم ويرزقهم زيادة في العلم رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر سبتمبر 19, 2010 مشاركة قام بنشر سبتمبر 19, 2010 السلام عليكم حلول رائعة وشافية ومافي أجمل من كده جزاكم الله خيرا ورفع قدركم في الدنيا والآخرة رابط هذا التعليق شارك More sharing options...
محمد مصطفى ابو حمزة قام بنشر أكتوبر 14, 2010 مشاركة قام بنشر أكتوبر 14, 2010 ايه الجمال و الحلاوة و العلم و العطاء ده ا[وسط][/وسط]نتو مش من باقى البشر رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر ديسمبر 6, 2010 مشاركة قام بنشر ديسمبر 6, 2010 ما شاء الله عليكم الواحد يحتار ايهما يختار : ) رابط هذا التعليق شارك More sharing options...
friends قام بنشر مايو 15, 2011 مشاركة قام بنشر مايو 15, 2011 السلام عليكم بارك الله فيك اخي الحسامي و بارك الله فيك اخي طارق فقط أيضا للإثراء حل اخر بالمعادلات بامكانه استعمال الاسم kh_list كقائمة والذي يحوي على المعادلة =IF(ورقة1!$L$3="";INDEX(قائمة_الفروع;0;2);OFFSET(ورقة1!$E$2;MATCH(ورقة1!$L$3;INDEX(قائمة_الفروع;0;1);0);;COUNTIF(INDEX(قائمة_الفروع;0;1);ورقة1!$L$3))) خبور خير عمل اكثر من رائع ولكن ارجو من اخونا خبور بتوضيح مكان كتابة المعادلة وربطها بkh_list جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
friends قام بنشر مايو 21, 2011 مشاركة قام بنشر مايو 21, 2011 اجمل حاجة ان هناك بعض الناس تساعد بعض يعنى عندما الواحد يحتاج حاجة يلاقى فى ناس بتساعده بارك الله فيكم يا اخوة رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر أكتوبر 27, 2011 مشاركة قام بنشر أكتوبر 27, 2011 السلام عليكم اكواد قمة في الروعة جزاكم الله كل خير :fff: رابط هذا التعليق شارك More sharing options...
saadghs قام بنشر ديسمبر 24, 2011 مشاركة قام بنشر ديسمبر 24, 2011 شكرا جزيلا اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وزدنا علما يارب العاليمن رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر ديسمبر 24, 2011 مشاركة قام بنشر ديسمبر 24, 2011 (معدل) تم تعديل ديسمبر 24, 2011 بواسطه tahar1983 رابط هذا التعليق شارك More sharing options...
ahmed saif قام بنشر يناير 1, 2012 مشاركة قام بنشر يناير 1, 2012 مشكورررررررررررررر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.