اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

اخواني الكرام في موضوع سابق قرات مقال عن ربط قائمتين بقائمة اخرى وتم فعلا نجاح الفكرة اذا كانت كلمات

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

test.zip

قام بنشر

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

شكرا لكم اخواني على المرور على موضوعي

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

هذا الملف قد قمت بتحويله الى 2003 واتمنى ان اجد الحل لديكم

الطريقة تعمل اذا كانت القائمة فقط من كلمات يعني لايود بها اي اراقام او رموز او مسافة

هذا المثال يوضح الفكرة

ولكم فائق الاحترام

test.zip

قام بنشر

السلام عليكم

الاخ / aah_aah2008 المحترم

محاولة طيبة وتشغيل مخ بارك الله فيك

الاخ / sambam المحترم

انت فقط لم تسمي الصف الاول باسم النطاقات التي عرفتها

انظر الى المرفق

غيرت الصف الاول باسم النطاقات المعرفة

اشتغلت القوائم

____________________________.rar

قام بنشر (معدل)

اخي العزيز خبور خير

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

اولا اشكرك علي تعليقك

فتعليقكم هذا شرف لي وخصوصا عندما يكون من استاذ مثلكم فاشكرك كثير الشكر

طريقتك اكيد هي الاسهل وقد تعلمت منها معلومه جديد (INDIRECT) اشكرك عيها

ولي تعليق بسيط ان سمحت لي

عند تشغيلي لملفك للوهلة الاولي اعتقدت انه لا يعمل

و بعد فتره وجدت انه يعمل و لكن الخليه التي تكون ظاهره في القائمه الثانيه لاتتغير مباشرة

و عند فتح القائمه تجد التغيرات حاولت التحايل علي هذا بهذا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("Sheet1").Range("D1").Value = "ford" Then
Sheets("Sheet1").Range("E1").Value = ""
End If
If Sheets("Sheet1").Range("D1").Value = "gmc" Then
Sheets("Sheet1").Range("E1").Value = ""
End If
If Sheets("Sheet1").Range("D1").Value = "toyota" Then
Sheets("Sheet1").Range("E1").Value = ""
End If
End Sub

نجح ولكن لمجرد تنشيط الشيت بالطبع ستوجد مشكله

اعلم ذلك من الكود و لكني احاول

اكيد الموضوع منتظر لمساتك

فهل هناك طريقه لعمل هذا

و اشكرك مره اخري

تم تعديل بواسطه aah_aah2008
قام بنشر

السلام عليكم

طريقتك اكيد هي الاسهل وقد تعلمت منها معلومه جديد (INDIRECT)

هذه ليست طريقتي

والقوائم تتغير عندي مباشرة

انا لم اعمل شي في الملف

غيرت الصف الاول باسم النطاقات المعرفة

اشتغلت القوائم

لكن في هذا المرفق

سميت الاسم الذي ياخذ اسم النطاق الذي يحدد القائمة

المطلوبة

وجعلته ياخذ من النطاق القيم الموجوده فقط

بعد مازيدت صفوف النطاقات

____________________________1.rar

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