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: