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:

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

لست اعلم ان كان هذا التنسيق سيعجبك ام لا ولكن حاول تجربتة فمن الممكن ان يحل المشكلة اجعل عمود الاسماء auto fit اختر عمود الاسماء من خصائص الخلايا (format Cells) تحت بند محاذة (Aligenment) علم علامة صح على Shrink to fit ومن ثم ok بعد ذلك حاول تكبير الخط وليكن 30 حاول و اخبرني :f4:

اشكرك اخ Smart على محاولاتك الجيدة واود ان اعلمك ان جميع الخطوات السابقة بالفعل مُطبقة ولم يجدي ذلك نفعاً وهي كالتالي: 1- خيار الرقم context حسب السياق 2- بالنسبة للخلايا المراد كتابتها بالغة العربيية " اتجاة النص من اليمين إلى اليسار " وتم تجريب الاتجاهات الاخرى مع العلم ان الارقام الظاهرة عندي هي الانجليزية فقط في جميع الخلايا ارجو المحاولة

نوع الويندور هو 98 في الاعدادات الاقليمية (Regional Settings ) وعند خيارات الرقم (Numeral Style ) يوجد ثلات اختيارات : 1- Context لتوفير اللغتين الانجليزية و العربية للارقام 2-Arabic يتيح فقط الانجليزية للارقام 3-Hindi يتيح فقط العربية للارقام -- فعند اختيار الرقم عربي فكل الارقام تصير انجليزي --وعند اختيار الرقم هندي فكل الارقام تصير عربي --وعند اختيار context توفر اللغتين ويطبق ذلك في ms-word بصورة جيدة , لكني لا استطيع ذلك في excel لاتنسي اريد في خلية ما الرقم بالعربي و خلية اخرى الرقم الانجليزي :pp:

سلام و رحمة الله و بركاتة اشكرك اخ smart على الاستجابة لكني اود ان اعلمك بأني جربت هذا من قبل ولم ينجح معي الامر علما بأن واجة الوفيس عندي هي الانجليزية كما ان Regional Setting هي الانجليزية البريطانية و Numeral Style هو context وكل سنة وانتم طيبين :BAN:

كيف نجعل الارقام بالعربية في خلية ما و بالانجليزي في خلية اخرى في نفس ورقة العمل

اشكرك اخ ابو هادي على المداخلة ولكن سبب اعجابي بهذا الدالة علي سبيل المثال هي توفير الرمزية 55 \ 100 في الكسور الرقمية فهي المتداولة لدي كما انها توفر مساحة كبيرة في الخلية محددة المساحة و حجم الخط وذلك بعد اضافة "فقط" و "جنية لاغير" الي الخلية ايضا والتي ايضا اود كتابتها بالارقام العربية في هذة الخلية دون التغيير في خيارات اللغة من لوحة التحكم ان امكن

اشكرك اخ حسام على الاستجابة ولكن بهذا قد ادخلنا انفسنا في مشكلة اخرى وهي عند كتابة 50000 تكتب هكذا فقط و خمسون الف لاغير او حتى عند كتابة 50 تكتب هكذا فقط و خمسون لاغير بدلا من فقط خمسون لاغير

اشكركم على كل هذا الجهد ولقد اعجبني خصوصا Punc_Ezat Module ولي استفسار لماذا لا يزكر حرف الواو في العبارات التي تنتهي ب عشرون . ثلاثون ... مثال عند كتابة رقم 950 تكنب هكذا فقط تسعمائة خمسون جنيه لاغير وليس فقط تسعمائة و خمسون جنيه لاغير وشكرا :hart: