محمد طاهر عرفه

اعرض الملف اضافة محتوى القائمة المنسدلة آليا السلام عليكم I needed to Autofill the validation dropdown list with specific values for a large number of cells For a cell corresponding to Row B and Column C , I wanted the drop down to show those values CCCC,CCC,CC,C,CB,B,BB,BBB,BBBB and so on for the rest of the matrix The First step was to prepare the dropdown required contents using equations as shown on the table to the right side السلام عليكم أردت ملء بيانات القائمة المنسدلة لعدد كبير من الخلايا ضمن مصفوفة بحيث يكون متوى القائمة المنسدلة عند تقاطع العمود المعنون ب حرف C مع الصف المعنون بحرب B كالتالي CCCC,CCC,CC,C,CB,B,BB,BBB,BBBB و عليه فالخطوة الاولي قمت بتجهيز المحتوى المطلوب عن طريق المعادلات فى الجدول على اليمين كما هو مبين فى الصورة التالية Next i prepare the following VBA code , which reads the values from the above table and add them to the dropdown list contents for all selection cells The code reads the values 11 cells to the left ,of the target cell , and you can change that of course based on your case و الخطوة التالية كانت اعداد الكود المطلوب لتنيذ العملية كما هو مبين أدناه حيث يقوم الكود بقراءة المحتوى من الجدول اعلاه و اضافته ضمن القائمة المنسدلة لكل الخلايا فى الجدول على اليمين و الكود تم اعداده ليضف فى محتوى القائمة المنسدلة لكل خلية فى الجدول القيمة فى الخلية على بعد 11 عمود الي اليمين فى الجدول السابق، و طبعا يمكن تعديل هذه القسمة بحسب الجدول السابق Sub FillDropDown() Dim myrow As Byte, mycol As Byte, TargetVal As String myrow = Selection.Rows.Count mycol = Selection.Columns.Count mycell = ActiveCell.AddressLocal For i = 0 To myrow - 1 For j = 0 To mycol - 1 Range(mycell).Activate ActiveCell.Offset(i, j).Activate '11 is the number of cells the source value exist to the right of the target cell TargetVal = ActiveCell.Offset(0, 11).Value With ActiveCell.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=TargetVal .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Next j Next i End Sub To run the code , add it in a module in your file , and make sure the file is saved as macro-enabled excel file then select all the target cells in the left side table , Press Alt+F8 , then choose the code قم باضافة الكود لملفك، و تأكد من حفظ الملف بصيغة تفعيل الماكرو macro-enabled excel file ثم قم باختبار كافة الخلايا المستهدفة اضغط ALT+F8 شغل الكود You will find that all cells in the target table has now the required dropdown list contents as targeted ستجد أن كافة الخلايا التي تم اختيارها قتم تم اضافة قائمة منسدلة لها بالمحتوى المطلوب كما هو مبين فى الصورة The Reason behind developing this code was that i needed to fill the dropdown lists in 225 cell with variable contents in this example related to using Analytic Hierarchy Process (AHP) technique to compute relative weights for any evaluation criteria ملاحظة: أضفت المحتوى باللغة الانجليزية ايضا لدراسة تأثير ذلك على انتشار المشاركة كما يقولون الحاجة ام الاختراع ، فقط احتجت لهذا الأمر لملء 225 خلية بقوائم منسدلة ذات محتوى متغير فى هذا المثال الخاص بالأوزان النسبية لمعايير التقييم صاحب الملف محمد طاهر تمت الاضافه 19 مار, 2021 الاقسام قسم الإكسيل

بالنسبة للموضوع الأول ، يمكنك حماية الملف و منع التعديل فلا يتم التحريك بالنسبة للموضوع الثاني ، يبدو لي أن هذا وضع غير طبيعي و ربما هناك مشكلة فى النسخة

معلومة ممتازة ، شكرا لك

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

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

اعرض الملف مؤشر تقدم العمل بتنسيق معين طلب مني زميل مؤشر لتقدم العمل بحسب التنسيق الموضح فى الصورة و قد اعددته باستخدام عدد 2 رسم بياني متداخل لكل حالة و المطلوب للاستخدام هو تعبئة نسبة تقدم العمل الحالي و المستهدف فقط كما هو فى الخلايا الملونة باللون الأصفر و اضطررت لإعداد أكثر من شكل حيث يختلف تنسيق الألوان بحسب حالة تقدم العمل ، وهو يعطي مدلولا خاطئا فى حال وجود حالة تقدم عمل مغايرة لما هو مبين تحت كل رسم. فأول شكلان يناسبان حالات عدم تحقيق المستهدف و الثالث مخصص لحالة تجاوز المستهدف اي عندما يكون الفعلي اكبر من المستهدف و هو يعطي مدلولا خاطئا في حالة عدم تحقيق المستهدف كما في الرسم التوضيحي. اضفت الحماية للشيت فقط كل لا تتأثر المعادلات و محاذاة الشكل مع الاستخدام ، و من اراد فك الحماية فكلمة السر لحماية الشيت هي عنوان الموقع www.officena.net و لكي تري المعادلات الغير ظاهرة غير لون الخط فى الخلايا في العمود A,B للصفوف 7,10,11 هذه هي النسخة الأولية ، فى انتظار تحسيناتكم و اضافاتكم صاحب الملف محمد طاهر تمت الاضافه 21 فبر, 2021 الاقسام قسم الإكسيل

السلام عليكم رد فعل الاعجاب له عدد معين متاح فى اليوم بحسب المجموعة و مجموعة عضو مميز ، حدها اليومي كان 10 و قد زدته الان الى 15 و طبعا لا يمكن ترك الخاصية مفتوحة دون حد بهدف التقنين و ان تمنح فقط لمن يستحق

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

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

الف مبروك ⚘

يمكن مراستلنا على admin@officena.net من البريد المسجل لاسترجاع الحساب يدويا و لكن يجب المراسلة من الحساب المسجل

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

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

موضوع مشابه تم حله بالاكواد

الشرح المشار اليه ببساطة Insert text Object Text From File ثم ثم اختار الملفات ، ثم نفذ الأمر و قد سبق أن اضيف فى الردود اعلاه باللغة العربية

هذا القسم مخصص لملاحظات و الاقتراحات سيتم نقل الموضوع لقسم الاكسيل كما يرجى توضيح الطلب

مؤقتا تم ايقاف اللغة االانجليزية ، لان اغلب الاعضاء يستخدمون الواجهة العربية

و عليكم السلام عليكم و رجمة الله و بركاته من اسفل صفحة المنتدى يتم اختيار اللغة = اوفيسنا

هل تم رفع المف مباشرة من الجهاز ام نسخه من مشاركة اخرى؟

سأبحث الأمر باذن الله تعالى

السلام عليكم لم تات شكاوى اخري بهذا الشأن ربما يكون السبب هو سرعة او انتظام الاتصال بالانترنت

تم اعادة ضبط اعدادات بريد السيرفر يرجى التجربة الان

الف مبروك

سيتم بحث الامر باذن الله مؤقتا ارسل رسالة الي admin@officena.net من البريد المسجل و سيتم التغيير يدويا

تجربة بيان حالة موظف.zip لم تواجهني مشكلة فى تحميل ملف بهذا الاسم كما هو مبين ربما تكون حدثت مشكلة فى الاتصال بالنت اثناء رفع الملف