قائمة منسدلة للتنقل منها بدون أزرار و التنفيذ ببعض نصوصها

[halwim]

بسم الله الرحمن الرحيم

السلام عليكم جميعا ايها الإخوة الكرام مشرفين وأعضاء وزوار ........

وضعت ملف مرفق بشأن عمل قائمة منسدلة من نوع خاص .

الملف موجود في المرفقات.

تحياتي halwim .

[علي السحيب]

شاهد المرفق،

لقد أستطعت الوصول للمطلوب بطريقتين مختلفتين .. أختر منهما ما يناسبك،

DropLists.rar

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

استاذنا على السحيب

دائما عظيم

السلام عليكم

[halwim]

بسم الله الرحمن الرحيم

ماشاء الله ........ تبارك الله

أستاذ على السحيب أنت إنسان بالفعل عظيم ........ بس ياليت توضح الفرق بين الطريقتين ؟؟

أنا شخصيا لم ألاحظ أي فرق !!

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

ملاحظة / أستاذي الفاضل هل يمكنكم تثبيت سهم القائمة بحيث لا يختفي مع عدم التحديد .

وشكرااااا

[halwim]

ملاحظة / أستاذي الفاضل هل يمكنكم تثبيت سهم القائمة بحيث لا يختفي مع عدم التحديد .

وشكرااااا

[halwim]

لا أعتقد أن مسألة بسيطة تتطلب وقتا من الخبراء..... كثيرا ما رأيت وشاهدت قوائم ذات سهم ثابت

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

[halwim]

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

موضوع ذو صلة بعمل قائمة منسدلة وثابته كالتي تعمل في بعض تطبيقات الفيجوال بيسك :

http://www.officena.net/ib/index.php?showt...amp;gopid=56395

[علي السحيب]

هل يمكنكم تثبيت سهم القائمة بحيث لا يختفي مع عدم التحديد .

شاهد المرفق التالي:

_________________.rar

[halwim]

بسم الله الرحمن الرحيم

أستاذ علي السحيب ألف ألف شكر ....... سلمت يداك وزادك الله فوق علمك علوما، وزادك على صبرك علينا صبرا كثيرا.

بالنسبة للمرفق الأخير بخصوص تثبيت الأسهم و " طلب التعديل وعمل قائمة إختيارات من نموذج "

رائع ولكن هل لي أن أستفسر وأقول لماذا لا يمكن السحب من آخر خلية في الصف 20 وذلك لزيادة

القوائم في العمود A إلى الصف 40 مثلا .

ثم إني جعلت القوائم في وضع التحرير من خلال الأداة التي تشبه مثلث الرسم ولم أجد العنصرين

"LinkedCell" و "ListFillRange" لكي أعمل ربط للقائمة بمجال أوبعنصر آخر .

وقد سبق أنكم تحدثتم عن شرح هذا الأمر على الرابط :

http://www.officena.net/ib/index.php?act=S...=14&t=13038

كما أن لي إستفسار بسيط ، هل يمكن جعل الترحيل بدون الضغط على زر يعني فقط بالإنتر ؟؟.

أرجو توضيح هذه الأمور ......... دعواتي لك ، ولك جزيل الشكر .

[علي السحيب]

لايمكن السحب لأن القائمة المنسدلة ليس لها أي علاقة لا من قريب ولا من بعيد بالخلايا العشرين الموجودة في العمود الأول .. وإذا أردت زيادتهم فعليك نسخ القوائم المنسدلة ووضعهم تحت القوائم الموجودة مسبقاً .. مع مراعاة تعديل الكود الخاص بالقوائم الجديدة.

العنصر LinkedCell .. لم يتم إستخدامه في الملف المذكور .. وتم أخذ البيانات المستخدمة في الكود من القائمة المنسدلة مباشرة .. أما بالنسبة للعنصر الآخر (ListFillRange) .. فهو موجود وتم تحديد النطاق D2:D6 له.

بالنسبة لترحيل البيانات بدون الضغط على زر الترحيل .. فقد قمت بتصميم طريقتين يقومون بهذه الوظيفة ..

ولكني أرى أن الترحيل عن طريق الزر هو أكثر عملية من أي طريقة أخرى .. لكن هذا شيء راجع لك أولاً وأخيراً.

على كل حال الملف المرفق يحتوي على الطريقتين أختر منهما ما يناسبك .. أو إرجع إلى الخيار الأول وهو الترحيل عن طريق الزر.

_________________.rar

تم تعديل يوليو 24, 2006 بواسطه علي السحيب

[halwim]

السلام عليكم

استاذنا الكبير........ أخ علي السحيب مرة أخرى شكرا لك

العنصر LinkedCell .. لم يتم إستخدامه في الملف المذكور .. وتم أخذ البيانات المستخدمة في الكود من القائمة المنسدلة مباشرة

ممكن توضح كيف يتم كتابة العنص في القائمة بشكل مباشر أنا واقعا حاولت فلم أعرف ولم أفلح

وكيف يمكنني أن أستبدل الأرقام التي تحل محل العبارت في القائمة يعني لو اخترنا "المواد الغذائية" سوف يتم كتابة رقم 1

أريد أعرف كيف أستبدل رقم 1 بنص أو رقم آخر بدلا منه .

ثم أنكم شرحتم الأكواد باللون الأخضر في الموديل ولكنكم لم تشرحو الكود الذي يؤدي وظيفة الترحيل لأول سطر فارغ

بودي أن أعرف هذا الكود من بين سطور الموديل في محرر الفيجول بيسك.

تحياتي

[علي السحيب]

ممكن توضح كيف يتم كتابة العنص في القائمة بشكل مباشر أنا واقعا حاولت فلم أعرف ولم أفلح

وكيف يمكنني أن أستبدل الأرقام التي تحل محل العبارت في القائمة يعني لو اخترنا "المواد الغذائية" سوف يتم كتابة رقم 1

أريد أعرف كيف أستبدل رقم 1 بنص أو رقم آخر بدلا منه .

كل ذلك يتم عن طريق الكود .. حدد ماتريد بالضبط .. ثم يأتي دور كتابة الأكواد المطلوبة.

ثم أنكم شرحتم الأكواد باللون الأخضر في الموديل ولكنكم لم تشرحو الكود الذي يؤدي وظيفة الترحيل لأول سطر فارغ

بودي أن أعرف هذا الكود من بين سطور الموديل في محرر الفيجول بيسك.

الكود الخاص بالترحيل تمت الإشارة إليه وتم وضع توضيح له:

Sub FillList()

With Sheet2.Columns(1).Rows(65536).End(xlUp).Select
            .Offset(1, 0) = [C18]
            .Offset(1, 1) = [E18]
      End With

End Sub

تم تعديل يوليو 25, 2006 بواسطه علي السحيب