كيفية عمل زر في الاكسل

[عبدالله المجرب]

اخواني اكرام لي طلبين (ارجو ان تتسع صدوركم )

1- كيفية تحديد عدد معين فقط من الخانات في ملف اكسل مثل 10 اعمدة و20 صف يعني عند فتح الملف بس تفتح على هذه الاعداد فقط

2- كيفية عمل زر في الاكسل بمجرد الضغط عليه يفتح ملف وورد او ملف اكسل اخر (ارجو شرح الطريقة)

ولكم جزيل الشكر

تم تعديل أكتوبر 22, 2010 بواسطه ولد المجرب

[عبدالله المجرب]

اخواني الكرام وينكم

28 مشاهدة ومافيه رد واحد

ارجوكم اخواني انكم ما تقصرون

[عادل حنفي]

السلام عليكم

اخي الفاضل

بالنبة لسؤالك عن كيفية عمل زر و عن الاكواد عموما هناك دورات عديده بالبحث عنها بالمنتدي تفيدك كثيرا منها علي سبيل المثال لا الحصر

برجاء مراجعة الرابط التالي

اضغط هنــــــــــــــــــــــــا

و مرفق ملف مضغوط به ملف داخله ملفان اكسل و اخر وورد

فك ضغط كامل الملف في اي مكان تريد و ابدا بفتح الملف الذي اسمه "لفتح ملف اكسل او وورد.xls"

الذي به زر لفتح ملف وورد كما طلبت و اخر به ملف اكسل يظهر عند فتحه 10 اعمدة و 20 صف كما طلبت

جرب الملف و اخبرني النتيجة

تحياتي

Open file.rar

[عبدالله المجرب]

اخي العزيز عادل

شكراً على المساعدة

ولكن ماذا عن السوال الاول

وكيف عمل تنسيق شرطي بحيث يكون لون الخلية احمر اذا كانت تساوي 181 او 130 او 210 او 999

وشكراً

[عادل حنفي]

السلام عليكم

اخي ولد المجرب

اخي العزيز عادل

شكراً على المساعدة

ولكن ماذا عن السوال الاول

وكيف عمل تنسيق شرطي بحيث يكون لون الخلية احمر اذا كانت تساوي 181 او 130 او 210 او 999

وشكراً

عذرا اخي السؤال لم يكن به اي شيئ عن التنسيق الشرطي

و علي العموم جرب المرفق و ان شاء الله يكون المطلوب

تحياتي

formate.rar

[عبدالله المجرب]

شكرا اخي عادلهذا هو المطلوب ولكن هل ممكن تشرح لي الطريقة

اما عن السوال الاول فهو 1- كيفية تحديد عدد معين فقط من الخانات في ملف اكسل مثل 10 اعمدة و20 صف يعني عند فتح الملف بس تفتح على هذه الاعداد فقط

[عادل حنفي]

السلام عليكم

اخي هذا السؤال تم عمله بالفعل بالملف الذي يفتح بالزر و الذي اسمه 1.xls

و ساشرح لك الطريقة ان شاء الله

تحياتي

[عبدالله المجرب]

مشكور اخوي عادل

وانا بانتظار الرد

[عبدالله المجرب]

اخي عادل لا زلت انظر الشرح للتنسيق الشرطي لاكثر من اربعة ارقام مختلفة

وشرح تحديد عرض عدد معين من الاعمدة والصفوف في الصفحة

وشكراً على سعة صدرك

[عبدالله المجرب]

عذراً على الالحاح ولكني بحاجة ماسة للشرح

وممكن سوال ثالث (ادري طماع )عند استخدام الدالة VLOOKUP للبحث عن قيمة هل يمكن ان يكون لون الخط في ناتج البحث بنفس لون خط الكتابة في الخلية الاصلية(المرفق للتوضيح)

123.rar

تم تعديل أكتوبر 26, 2010 بواسطه ولد المجرب

[عادل حنفي]

السلام عليكم

اخي الفاضل

بالنسبة للتنسيق الشرطي تم عمل ذلك عن طريق كود

ان فكرتة اساسا تكمن في ان التعامل يكون مع كل خلية علي حده

بان يكون لها تنسيق شرطي حسب الرقم المدخل بها فاذا كان الرقم المدخل بالخلية

ضمن ارقام تكون محددة مسبقا فان الكود يقوم بالغاء لتنسيق الشرطي السابق

و يضع التنيق الشرطي الجديد الذي ايضا قمنا بتحديده مسبقا اما اذا كان غير الارقام المحددة

مسبقا فان الكود يلغي التنيق الشرطي و ينهي الامر علي ذلك

و يوضع الكود في حدث Worksheet_Change

بحيث عند التغير في اي خلية في النطاق الذي قمنا بتحديد بالكود يتم التعامل مع هذه الخلية

اما بالنسبة لا خفاء الاعمدة و الصفوف

فان كود اخفء الاعمده و الصفوف بالنبة للملف المرفق مسبقا هو

Sheets("sheet1").Columns("J:IV").Hidden = True

Sheets("sheet1").Rows("21:65536").Hidden = True

و يوضع في حدث Workbook_Open

ليتم التعامل مع الكود لمجردفتح الملف

ياريت اكون قدرت اوصل المعلومة

اما بخصوص الطلب الاخير لك

فالملف المرفق به ما تريده

و سيعمل الكود بمجرد التغير بالعمود الثاني بالتحديد فاذا تساوت

هذه الخليه مع احد الخلايا الموجودة بالجدول الثاني فان الخلايا

التي في صف هذه الخلية يكون خطها بلون خط الخلايا التي بالجدول الثاني

خالص تحياتي و تقديري

تجارب1.rar

[عبدالله المجرب]

مشكور اخوي عادل

وجعله الله في ميزان حسناتك

[عبدالله المجرب]

السلام عليكم

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

كيف يتم التنسيق الشرطي لاربع قيم مختلفه بدون استخدام الاكواد ولكن باستخدام التنسيق الشرطي

وفي هذا الموضوع مثال اجاب عليه الاستاذ عادل مشكوراً ولكن باستخدام الاكواد

[عادل حنفي]

السلام عليكم

اخي الفاضل ولدالمجرب

ان اكسل 2003 و اخصص كلامي عنه لاني هو ما اعمل عليه باستمرار

يتم عمل التنسيق الشرطي وفقا لثلاث شروط فقط لذا نستعين بذلك

عن طريق الكود اما ان نلغي احد هذه التنسيقات ووضع اخري مكانها

او الغاء كافة التنسيقات ووضع تنسيق واحد او عدة تنسيقات و طبعا

هذا كله عند الحاجة لذلك او عند حدوث حدث ما

و قي الملف المرفق بالمشاركة رقم 5 تم استخدام الكود التالي

If Target.Column <> 3 Then Exit Sub

For i = 4 To 20

If Cells(i, 3) <> "" Then

m = Cells(i, 3).Value

If m = 181 Or m = 130 Or m = 210 Or m = 999 Then

    Cells(i, 3).FormatConditions.Delete

    Cells(i, 3).FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _

        Formula1:=m

    Cells(i, 3).FormatConditions(1).Interior.ColorIndex = 3

End If

End If

Next

حيث ان لون الخلية عند حدوث اي شرط من الشروط يكون واحدا لذا لن نكتب تنيق شرطي لكل شرط

كما انني هنا جعلت تنسيق شرطي واحد لكل خلية في المدي المطلوب بحيث يلغي نهائيا ان لم تحقق الشرط

و يلغي لحظيا ان تحقق شرط من الشروط و يوضع محلة التنسيق الجديد

لا ادري اخي ان كنت قدرت اوصلك المعلومة ام لا

عموما لو فيه اي شيئ لا تتردد و انا في انتظار اي استفسار

خالص تحياتي

[عبدالله المجرب]

اخي العزيز عادل

اعجز عن وصف شكر وامتناني على تجاوبك ومساعدتك ايياي

لذا ادين بالفضل بعد الله سبحانه وتعالى لك اخي في مساعدتي على تعلم اشياء جديدة لم اكن اعلمها في الاكسل

الحين ابي منك اخي العزيز ان تكتب لي كود لفتح ملف وورد(في اي موقع في الجهاز) من زر في الاكسل واذا امكن ان تشرح لي مكونات هذا الكود

مرفق ملف يبين الطريقة المطلوبة للشرح (الكود هو المكتوب في المشاركة رقم 14 الخاصة بالتنسيق الشرطي)

Book120.rar

[عبدالله المجرب]

ارجوكم اخواني اضافة كود لرز يفتح اي ملف وورد وليس بالضرورة ان يكون في نفس الفولدر كما في مشاركة سابقة حيث انه لا يتم فتح ملف الوورد الا ا>ا كان هو وملف الاكسل في فولدر واحد

ارجوكم اخواني فالموضوع ضروري

اتمنى ان يتم اضافة الكوود والشرح فيما بعد

[عبدالله المجرب]

اخواني ارجوكم ان تضعوا كود لفتح ملف وورد في اي مكان في الجهاز و>لك للاهمية

[عبدالله المجرب]

اخواني ارجوكم ان تضعوا كود لفتح ملف وورد في اي مكان في الجهاز وذلك للاهمية

مازال رجائي ان اجد الحل عنكم ياخوتي

[عادل حنفي]

السلام عليكم

اخي ولد المجرب

سريعا جرب الملف المرفق

و اخبرني النتيجة

تم اضافة زر ثالث للملف السابق مع الشرح

تحياتي

لفتح ملف اكسل او وورد2.rar

[عبدالله المجرب]

اخي عادل كل سنة وانت طيب وشكراً على تجاوبك

ولكن اخي هل يمكن كتابة مسار الملف مباشرة في الكووود ولا داعي للكتابة في الخانات

[عادل حنفي]

السلام عليكم

اخي عادل كل سنة وانت طيب وشكراً على تجاوبك

ولكن اخي هل يمكن كتابة مسار الملف مباشرة في الكووود ولا داعي للكتابة في الخانات

و انت طيبب

اخي انت تريد فتح اي ملف تريده و في اي مكان بالكمبيوتر

فكيف اثبت هذا في الكود و ما اقترحته في الملف الاخير هو ان تقوم باختيار الدرايف و اسم الملف الموجود به ملفك

و اسم الملف المراد قتحه