محمد الورفلي1 قام بنشر يناير 24, 2016 مشاركة قام بنشر يناير 24, 2016 السلام عليكم اريد ربط خلية يقائمة منسدلة وكيف ربط خانة الاختيار بخلية معينة بجعلها تاخذ علامة صح ايصالي.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 24, 2016 مشاركة قام بنشر يناير 24, 2016 أخي الكريم محمد الخازمي ضع المعادلة التالية في الخلية D16 في ورقة ايصال =IF(ادخال!$J$13="دينار",ادخال!$I$13,"") وضع الكود التالي في حدث ورقة العمل الأولى "ادخال" ..كليك يمين على اسم ورقة العمل ثم View Code ثم الصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Address = "$K$13" Then If Target.Value = "بنك" Then Shapes("Check Box 8").OLEFormat.Object.Value = True Shapes("Check Box 10").OLEFormat.Object.Value = False Shapes("Check Box 12").OLEFormat.Object.Value = False ElseIf Target.Value = "بريد" Then Shapes("Check Box 8").OLEFormat.Object.Value = False Shapes("Check Box 10").OLEFormat.Object.Value = True Shapes("Check Box 12").OLEFormat.Object.Value = False ElseIf Target.Value = "بنفسة" Then Shapes("Check Box 8").OLEFormat.Object.Value = False Shapes("Check Box 10").OLEFormat.Object.Value = False Shapes("Check Box 12").OLEFormat.Object.Value = True End If End If End Sub تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر يناير 24, 2016 الكاتب مشاركة قام بنشر يناير 24, 2016 السلام عليكم استاذ ياسر المعادلة تمام لكن الكود اعطاني خطاء كما موضح بالصورة رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 25, 2016 مشاركة قام بنشر يناير 25, 2016 جرب تشيل كلمة Large الموجودة بعد كلمة Count .. وخلي كلمة Count بس (ممكن بسبب نسخة الأوفيس القديمة لديك والتي ما زلت متمسكاً بها) 1 رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر يناير 25, 2016 الكاتب مشاركة قام بنشر يناير 25, 2016 السلام عليكم استاذ ياسر شكراً على التعديل ""اوفيس 2003 يعز علينا بشكل كبير .. اريد تعديل ان نشاء الله بسيط الكود اصبح يعمل في صفحة ادخل وعند نقل مربعات الادخال الي صفحة الايصال اصبحة غير مربوطة حاولت اضافة كلمة Sheets("ايصال").Select ولكن غير صحيحة ............. مجرد محاول Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Address = "$K$13" Then /////////////////////// Sheets("ايصال").Select ////////////////////// Shapes("Check Box 41").OLEFormat.Object.Value = True Shapes("Check Box 42").OLEFormat.Object.Value = False Shapes("Check Box 43").OLEFormat.Object.Value = False ElseIf Target.Value = "بريد" Then Shapes("Check Box 41").OLEFormat.Object.Value = False Shapes("Check Box 42").OLEFormat.Object.Value = True Shapes("Check Box 43").OLEFormat.Object.Value = False ElseIf Target.Value = "بنفسة" Then Shapes("Check Box 41").OLEFormat.Object.Value = False Shapes("Check Box 42").OLEFormat.Object.Value = False Shapes("Check Box 43").OLEFormat.Object.Value = True End If End If End Sub رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 25, 2016 مشاركة قام بنشر يناير 25, 2016 وعليكم السلام أخي الكريم محمد إذا أردت أن يعمل الكود لما لا تقوم بنقل الكود في حدث الورقة الأخرى لا في حدث الورقة الأولى .. بدلاً من تحديد الورقة في الكود ..إذ أنه في حالة التحديد لابد من التعديل على الكود ليفهم ورقة العمل الجديدة المطلوب العمل عليها ، لذا أفضل نقل الكود للورقة الجديدة المطلوب العمل عليها مع تعديل ما يلزم تقبل تحياتي رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر يناير 25, 2016 الكاتب مشاركة قام بنشر يناير 25, 2016 ولكن التحكم يكون من ورقة ادخال استاذ ياسر رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 25, 2016 مشاركة قام بنشر يناير 25, 2016 أخي الكريم محمد أفضل إرفاق الملف من جديد وتحديد المطلوب بشكل أوضح لأني تهت منك ..لم يكن المطلوب هكذا في بداية الموضوع حاول توضح من تاني لأنه يبدو أن الطلب مختلف الآن رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 25, 2016 مشاركة قام بنشر يناير 25, 2016 بعد اذن أخى الحبيب ياسر ربما هذا ما يقصده أخونا محمد ايصالي1.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 25, 2016 مشاركة قام بنشر يناير 25, 2016 جميل ورائع أيها المعلم العبقري والأجمل الاختصار الجميل في الكود للوصول للمطلوب ..فكرة في منتهى الجمال أن تحمل القيمة True و False في متغيرات يتم استخدامها بشكل أبسط خصوصاً لو كان التعامل سيكون مع عدد أكبر من صناديق الاختيار أيوا كدا رجعنا لأيام زمااااااااااااااااان تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 25, 2016 مشاركة قام بنشر يناير 25, 2016 جزاك الله خيرا أخى الحبيب على هذا التشجيع 1 رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر يناير 25, 2016 الكاتب مشاركة قام بنشر يناير 25, 2016 (معدل) السلام عليكم تمام التمام استاذ رجب شكراً تم تعديل يناير 25, 2016 بواسطه محمد الخازمي رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 25, 2016 مشاركة قام بنشر يناير 25, 2016 الحمد لله جزاك الله خيرا أخى محمد رابط هذا التعليق شارك 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.