Amgad

من الخانة الجانبية اختر اسم الموظف ثم الخانة الثالثة اختر value ثم تضغط على زر past ليكتب الكود

ضع الكود في كل من 2 sub-form حدد الشئ اللي واقف معاك :')

اليك ثلات طرق 1- اذا ضغط بلا حاول اغلاق البرنامج مرة اخرى ثم اعد تشغيلة 2- حاول اعادة الارتباط بيدك مرة اخري "تجعل الخلية المراد تحديثها معادلة من ملف خارجي " 3- انشئ زر وادخل علية الكود التالي ActiveWorkbook.UpdateLink Name:="filename.xls", Type:= _ xlExcelLinks Range("updatable cell").Select يلاحظ تغيير اسم الملف و اسم الخلية اقصد map drive هو ان يكون رمز الدريف المقروء منة ثابت وليكن c: d: ..... و ال map drive هو ان تجعل مكان اي فولدر ما في الشبكة عبارة عن درايف في الجهاز الحالي

ان العمود الغير ظاهر كأنة ارقام قد تم تهيئتة من قبل كنص text وعند العودة لتهيئة كا number لم يحدث refresh معك ففي الشرح السابق احاول عمل تحديت لهذة الخلايا عن طريق قراءة هذة الخلايا في خلايا اخرى مع تاكيدها بمعادلة لاثبات انها ارقام (باضافة قيمة صفر او جمع رقم مثل واحد وطرحة ايضا) ومن ثم اعادة الخلايا المحدثة الي الخلايا القديمة بخاصية نقل القيم بدون المعادلة past special ستجدها عند ضغط زر الماوس الايمن او من عند قائمة تحرير edit طبعا بعد اخذ copy التي تفتح لك مربع صغير تختار منة القيم value حتى يتحقق ذلك :pp:

اليك هذا المثال color ومن ثم autofilter يلاحظ يمكنك تغيير الكود بما يناسبك

في حاجتين هاتعملهم 1- استعلام Query بة خانة اسم الموظف و خانة اخري بة taskid تحت خانة اسم الموظف وفي سطر criteria تضغط رز الموس الايمن وتختار build و تنزل من عند بند forms ,وتختار employees form وكذلك الحال في الخانة الاخري التي تقراء من الفورم الفرعي subform لل employees form 2- ادخل employees form في وضع التصميم ومن خصائص الفورم الفرعي وتحت بند events اعمل code builder في after update ضع الكود me.recalc " هناك تكرار" If DCount("[taskid]", ("query name" )) > 1 Then msgbox

يمكن استخدا الخاصية justify لكنها تستخدم في النص المتواصل

بمنتهى البساطة اكتب التاريخ في كل من الخلية الاولي و الثانية ثم عمل المعادلة في الخلية الثالثة ثم تاتي عند تنسيق الخلايا Format cell للخلية الثالثة وعند قسم محاذاة Alignment اختر رقم number ثم ok :o

لا يمكن فصل هذة الصفوف الملونة الا بطريقين 1- يدويا 2-كود لكن ما اقصدة في عملية الفصل هو اشتراك قيمة واحدة في اكثر من خلية في عمود واحد لذلك سألتك عن اســــاس التلوين من الاصل وعلي العموم يمكنك استخدام عمود ما غير مستخدم و وضع كلمة "ولتكن (احمر)" او رقم في كل خلية يشترك فيه اللون الاحمر وكلمة اخري في الخلية اللون الازرق و..... و من ثم عمل AUTOFILTER وتختار كلمة احمر على سبيل المثال ويمكن عمل ماسبق عن طريق كود على سبيل المثال وضع قيم colorindex

يمكنك تحديث الارتباطات وقت ما شئت بالضغط على edit او تحرير ثم ارتباطات او links ثم تحديث الان update now او اسهل شئ اغلاق الملف و فتحة مرة اخرى ولكن انك بذلك تفترض وجود نفس رمز map drive في كل الاجهزة ان لم اكن مخطئ

لست اعلم على اي اساس تم التلوين ولكن على اي حال يمكنك استخدام الخاصيى autofilter

يمكنك اضافة عمود بجانبة وهو عبارة عن معادلة تجعل في اول خلية المعادلة التالية الخلية المكتوبة كنص + 0 ثم تجرر هذة المعادلة على باقي الخلايا ثم اخذ copy من خلايا المعادلة ثم past special على الخلايا المكتوبة كنص وعلم علامة بجانب value ثم تضغط ok بعد ذلك قم بالغاء العمود المضاف ( المعادلات ) جرب و اخبرني

كما قال الاخ سندباد يمكنك كتابة حرف r بالانجليرية ثم تظلل عليها و تغير اسم الخط الى AGA Arabesque

يمكنك عمل query من خانتين فقط اسم الموظف و taskid يكون تحت كل منهما شرط التساوي مع employees فورم و الفورم الفرعي و من ثم ادراج هذا التعبير في afterupdate علي سبيل المثال me.recalc " هناك تكرار" If DCount("[taskid]", ("query name" )) >= 1 Then msgbox حاول و اخبرني :pp:

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