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

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

قام بنشر

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

أرغب بعمل ملف وفيه أكثر من فورم, بدي اظهر الفورم الأول إذا كان في خلية محددة ما القيمة 1 مثلاً واظهر الفور الثاني إذا كانت القيمة في نفس الخلية 2 وهكذا يعني ممكن بهالحالة قوم باضافة قائمة إلى هذه الخلية للختيار الفورم المطلوب.

الموضوع مهم لذا أرجو المساعدة.

جزاكم الله خيراً سلفاً

قام بنشر

السلام عليكم

اخي ايسم, جزاك الله خيراً لمساعدتك, بس للأسف الكود لم يعمل أبداً ولا أعرف السبب, رغم أنني قد حازلت وألزت القائمة من الخلية الصفراء بس بدون أي نتيجة

أرجو منك التأكد من الكود وجزاك الله سلفاً

قام بنشر

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

أخي أيسم, جزاك الله خيراً ورزقك الجنة, للحقيقة في المرة الأولى لسبب ما ماكان اكسيل أفندي يعرض علي رسالة تمكين الكود أما الآن فالكود تمام ومية مية.

الله يجزيك الخير واعتذر عن الخطأ اللي بدر مني

قام بنشر

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

كل عام وأنتم بخير

شكرا أخي أيسم على المجهود الرائع في مساعدة الإخوة الزملاء

ومساهمة مني في ذلك المجال وتخطيا لموضوع الضغط في أي مكان بعد الاختيار

قمت بهذا التعديل

أتمنى أن يحوز رضاكم

نظام المرفقات عندي به خلل يبدو أنه من المتصفح

فرفعت الملف على mediafire

هنــــا

قام بنشر

السلام عليكم

الله يجزيكم الخير يارب, الفكرة كمان بتخدم الموضوع اللي ببالي

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

جزاكم الله خيراً ورضاً وعافيةً

قام بنشر

يمكنك الوصول لأدوات التحكم وإضافتها في ورقة العمل من خلال تبويب المطور developer

ثم من الأمر إضافة insert كما بالصورة

listi.jpg

هذا بالنسبة لأوفيس 2007

أما بالنسبة لأوفيس 2003 فمن خلال إظهار شريط الأدوات نماذج forms

ولكل قائمة تحدد الخلية المرتبطة وكذلك مصدر القائمة وعدد الصفوف في القائمة

من خلال الضغط بزر الفارة الأيمن واختيار خصائص

  • Like 1
قام بنشر

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

الله يجزيك الخير, في 2003 الشكل مختلف كما أن الأداة التي في الملف هي من 2007 فشكلها مختلف وخصائصها كذلك

جزاك الله خيراً. طيب سؤال بسيط ولو إني كثرت غلبة عليكم هلا ممكن اضافة هكذا أدوات وتعديل خصائصها من كود, يعني الكود اللي سبق كان فقط لتفعيل الالأداة فماذا عن ايجادها أصلاً؟؟؟؟

جزاك الله خيراً

قام بنشر

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

الله يجزيك الخير, في 2003 الشكل مختلف كما أن الأداة التي في الملف هي من 2007 فشكلها مختلف وخصائصها كذلك

جزاك الله خيراً. طيب سؤال بسيط ولو إني كثرت غلبة عليكم هلا ممكن اضافة هكذا أدوات وتعديل خصائصها من كود, يعني الكود اللي سبق كان فقط لتفعيل الالأداة فماذا عن ايجادها أصلاً؟؟؟؟

جزاك الله خيراً

أخي الكريم بارك الله فيك

خصائص الأداة لا تختلف بين إصدارات الأوفيس مطلقا ربما يتغير الشكل فقط

وبالنسبة للطلب الثاني الخاص بكود إنشاء القائمة

فهذا هو مع مراعاة تغيير المعاملات المطلوبة

Sub Createdropdown()

Dim Drp1 As Object

    Set Drp1 = ActiveSheet.DropDowns.Add(120, 20, 100, 18)

    With Drp1

        .ListFillRange = "$a$1:$a$10"

        .LinkedCell = "K3"

        .DropDownLines = 8

        .Display3DShading = True

        .Caption = "اختر من القائمة : "

    End With

End Sub

الموجودة بعد with وهي على الترتيب

المدى الذي تملأ به القائمة

الخلية المرتبطة

عدد الصفوف في القائمة

عرضها بطريقة ثلاثية الأبعاد

عنوان القائمة

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

  • Like 1
قام بنشر

السلام عليكم

ما شاء الله استاذ mas اضافة جميلة

بارك الله فيك

أسعدني مرورك على ردودي أخي خالد

شرف لي أن أرى منك هذا الاهتمام

  • Like 1
قام بنشر

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

هل ممكن ربط الكود السابق بحلقة تكرارية, يعني خلال العمود

A

إذا كانت الخلية

a1

غير فارغة فاضف هذه الأداة واربطها بخلايا...... وإلا فانتقل إلى الخلية

a2

وهكذا

هل يمكن كتابة هكذا كود؟؟؟؟

جزاكم الله خيراً ورضاً وعافيةً أخي الكريم وبارك الله لك في رمضان

قام بنشر

الاستاذ قطان في الملف في المشاركة رقم 18 يظهر القائمة المنسدلة عندما تكون الخلية A1 غير فارغة .

المطلوب هل يمكن التعديل في الكود بحيث لو جعلت الخلية a1 فارغة تختفي القائمة المنسدلة

تحياتي

قام بنشر

السلام عليكم ورمضان مبارك

جزاك الله خيرا أستاذ MAS123 على هذه المعلومات القيمة

زادك الله علما ونفعنا به إن شاء الله

الشكر موصول إلى الأستاذ قطان على إضافته للموضوع فبارك الله فيه

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