اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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

السلام عليكم

اخي الفاضل

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

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

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

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

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

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

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

تحياتي

Open file.rar

رابط هذا التعليق
شارك

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

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

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

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

وشكراً

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

وشكراً

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

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

تحياتي

formate.rar

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

123.rar

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

السلام عليكم

اخي الفاضل

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

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

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

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

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

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

و يوضع الكود في حدث 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 weeks later...

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

تحياتي

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

و انت طيبب

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information