نجوم المشاركات

السلام عليكم أساتذتى وإخوانى وأحبابى فى المنتدى :- ******************************************** مع كل شىء جديد فى الأكسل أصل إليه أحب أن أقدمه للمنتدى الذى تعلمت منه وفيه كرد للجميل الذى وهبنى إياه من قبل باختصار لو عندى 3 ملفات اكسل ( أ و ب و ج ) نقدر ننقل بيانات من ( أ ) إلى ( ج ) بدون فتح ( أ ) ولا فتح (ج ) ( انجليزى ده يا مرسى ؟؟؟؟ ) لأ مش انجليزى ولا ألمانى ولا حتى يابانى أو أمريكانى إنما هو مصرى خالص ووصعيدى كمان والمرفق التالى يوضح ذلك . طريقة التعامل مع المرفق : فك الضغط عن المرفق هتلاقى 3 ملفات mokhtar1 و mokhtar2 و mokhtar3 1- افتح mokhtar1 واكتب ما يبدو لك فى المدى المحدد ( A1 : C5 ) واقفله 2- رووووح على mokhtar2 فقط اضغط الزر " اقفل يا سمسم " 3- اجرى بسرعة على mokhtar3 وشوف النتيجة . الشرح والأكواد فى المرفق 123 كلمة سر الفيجوال بيسك . أكتفى بهذا الموجز وعلى حضرتك اكتشاف المزيد فى الملف . تحياتى لأساتذتى وزملائى copy data from a closed excel file & paste it in a closed excel file by mokhtar.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام في الصرح العملاق أوفيسنا (الذي يعتبر بمثابة الأم التي تحتضن أبناء الوطن جميعهم) أقدم لكم موضوع بسيط جدا في كيفية تظليل عمود وصف الخلية النشطة بناءً على رغبة الأخ الحبيب أحمد غانم (حفظه الله ورعاه) إذا أردت تنفيذ الفكرة بنفسك قم بعمل الآتي : أولاً حدد خلايا ورقة العمل بأكملها ..مش صعبة يا أحمد ثانياً روح للتنسيق الشرطي ..واختار New Rule ثم Use a formula to determine which cells to format ثم اكتب المعادلة التالية : =COLUMN()=COLUMN(INDIRECT($P$1)) اضغط Format ثم التبويب Fill واختار اللون اللي على مزاجك (يا لذيذ يا رايق) كرر نفس الخطوات السابقة مرة أخرى واكتب المعادلة التالية أيضاً .. =ROW()=ROW(INDIRECT($P$1)) ثالثاً : كليك يمين على ورقة العمل ثم View Code واكتب الكود التالي : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Range("P1").Value = Target.Address Application.ScreenUpdating = True End Sub رابعاً ودي أهم خطوة : بس خلاص جرب الملف المرفق .. في الملف المرفق قمت بتلوين بعض النطاقات ، وعمل تنسيق شرطي للتأكد من أن الكود لا يؤثر بأي حال على التنسيق الشرطي الموجود ولا على الخلايا التي تم تلوينها من قبل ، ويسمح أيضاً بتلوين أي خلايا تريدها Highlight Activecell's Row And Column V2.rar

بارك الله فيك أخي عبد الله على كل ما تقدمه .. وجعل عملك في ميزان حسناتك يوم القيامة أخي السائل أولا لابد من الدقة في إدخال الأسماء والبيانات بشكل عام حتى تحصل على نتائج صحيحة قمت في الملف المرفق بإزالة الهمزات من بعض الأسماء ، لأن الهمزات تؤثر على الترتيب .. جرب المرفق وأعلمنا بالنتيجة Sort Names.rar

اخواني .. شكرا لكم على الاعمال الجميلة ، وقد تم اعادة رفع المرفقات ايضا احب ان اساهم في احدى طرق الاستيراد والتصدير والتي هي موجودة ضمن اكسس اي الاستغناء عن الاكواد والاكتفاء بخدمات اكسس الاصلية المثال المرفق سيفتح على التقرير .. انقر بزر الفأرة الأيمن داخل التقرير ثم اختر تصدير من مربع الحوار اختر 1- مكان الحفظ 2- الصيغة التي تريد تصدير التقرير على نسقها officena2.rar

السلام عليكم ورحمة الله بركاته ملف مجرد كشـف حضور وغياب الطلاب وعند وضع على عضو حاضر أو غائب تظهر مجموعة حضور وغياب تلقائي من كل سطر إسم حتى نهائة الشهر يوجد فلتر خاص حاضر و غائب في كل خلية صورة توضيحية عمل من آخوكم: السيد العلوي عبدالوهاب عبدالحي العلوي ولا تنسوه من صالح دعائكم لتحميل من هنــــــــــــاء المرفق كشــف حضور وغياب الطلاب أو موظف.zip

السلام عليكم فورم ادخال و تعديل وبحث باستخدام اسم نطاق للقائمة المنسدلة هو تفس الفورم السابق ولكن تم تغيير طريقة ادخال القائمة المنسدلة لاي عمود في الفورم تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة وايضا تم تجاوز بعض الاخطاء في الفورم السابق شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في الورقة الواحدة او في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" المرفق 2003 [فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة.rar الاصدار الثالث: http://www.officena.net/ib/index.php?showtopic=51955

بسم الله الرحمن الرحيم الحمد لله رب العالمين حمدا طيبا مباركا فيه دائما متواصلا حتى يرضى الحمد لله الذى وفقنى لإعداد هذا العمل حمدا كثيراطيبا لك يارب المَن و الفضل أن وفقتنى لمثل هذا العمل لينتفع به زملائى فى إدارة شئون الكنترول المدرسى ليكون لهم عونا فى استخراج النتيجة بدقة و يسر 0 البرنامج لجميع صفوف النقل ( الأول – الثانى – الثالث – الرابع – الخامس ) علما بأننى قد قمت بتعديلة طبقا للقرار الوزارى 230 لسنة 2010 إليكم[ الإصدار الخامس المعدل ]من برنامج الكنترول و قد راعيت إضافة نسختان للكنترول المدرسى و هما (أولا) نسخة برنامج كنترول مدرسى للمدارس الرسمية (ثانيا) نسخة برنامج كنترول مدرسى لمدارس التجريبيات و اللغات و فى الاصدار الخامس المعدل تم إضافه أوراق عمل جديدة بهذا الإصدار وهى كالأتى :- ( أولا ) شهادة تقديرات التلميذ و بها النسبة المئوية لكل مادة و كذلك ترتيب التلميذ (نصف العام و اخر العام و الدور الثانى ) ( ثانيا )الاحصاء العام للنتيجة (نصف العام و اخر العام و الدور الثانى ) لا يتم إدخال أعداد الدين المسيحى بل يتم الاحصاء كله بدون تدخل من مدخل البيانات 0 ( ثالثا ) الصفحة الرئيسية الثانية و تحتوى على :- 1- كشف مراجعة درجات الراسبين ( فصل أول + فصل ثان ) 2- كشف رصد تقديرات و النسبة المئوية للتلاميذ ( فصل أول + فصل ثان ) 3- إحصاء عام الفصول و المواد ( نجاح كل مادة على حدة و النسبة المئوية للنجاح ) 4- بيان نجاح/درجات الطالب ( فصل أول + فصل ثان ) 5- نتيجة الطلبة بالمجموع و النسبة المئوية و الترتيب ( فصل أول + فصل ثان ) 6- كشف تجميعى لدرجات ملف الإنجاز ( رابعا ) شئون الطلبة 1- سجل 5 سلوك 2- سجل إجمالى مرات التأخيرو الغياب 3- قوائم الفصول 4- إحصاء نوعيات التلاميذ ( مقيد ، مسلم ، مسيحى ، باق ) 5- الكارنية المدرسى 6- قوائم الفصول مصممة WORD 7- القرار الوزارى 219 لسنة 2009 و ذلك بالاضافة إلى جميع محتويات الاصدار الرابع و هى كالاتى:- ( أولا ) الفصل الدراسى الأول و يشتمل على 1. إدخال بيانات أساسية 2. أرقام جلوس التلاميذ 3. رصد درجات ملـف الإنجاز فصل أول 4. رصد درجات تحريرى فصل أول 5. كشـــف مناداة لجنة الامتحان 6. شيت نصف العـــــام 7. كشف رصد درجات و تقديرات نصف العام 8. شهادة تقديرات تلميذ فصل أول 9. شهادة درجات و تقديرات تلميذ فصل أول 10. إحصاء عام فصل أول 11. العشرة الأوائل فصل أول 12. نتيجة الطلبة نصف العام 13. لاصقات أرقام الجلوس ( ثانيا ) الفصل الدراسى الثانى و يشتمل على 1- رصد درجات ملـف الإنجاز فصل ثان 2- رصد درجات تحريرى فصل ثان 3- كشف الأنشطة التربوية 4- كشـــف مناداة لجنة الامتحان 5- شيت أخر العـــــام 6- كشف رصد درجات و تقديرات أخر العام 7- شهادة تقديرات تلميذ فصل ثان 8- شهادة درجات و تقديرات تلميذ فصل ثان 9- إحصاء عام فصل ثان 10- العشرة الأوائل فصل ثان 11- نتيجة الطلبة أخر العام ( ثالثا ) الدور الثانى و يشتمل على 1- إدخال بيانات أساسية 2- كشف مناداة دور ثان 3- رصد درجات الدور الثانى 4- أرقام جلوس دور ثان 5- شيت الدور الثانى 6- كشف تقديرات دور ثان 7- شهادة تقديرات دور ثان 8- إحصاء عام دور ثان ( رابعا ) التعليمات ( هامة جدا ) و يشتمل على تعليمات لكل صفحة من صفحات البرنامج و يجب إتباع التعليمات بدقة للحصول على نتائج صحيحة0 علما بأن كتابة البيانات و رصد الدرجات فى هذا الاصدار تتم فى صفحة إدخال البيانات و صفحة رصد درجات ملف الانجاز و صفحة رصد درجات تحريرى فقط و لا يتم الرصد فى الشيت الرئيسى 0 و هذا لتسهيل إدخال البيانات فى البرنامج و بعد ذلك يتم طباعة هذه الكشوف 0 و قد قمت بعمل حماية على جميع الصفحات حتى لا يستطيع أحد تغير معادلاتها عن طريق الخطأ و للحفاظ على صحة البرنامج فعند رصد الدرجات ( ملف + تحريرى ) يظهر المجموع و كذلك التقدير بدون تدخل من مدخل البيانات 0 مدة فتح البرنامج تتراوح بين ( 31 ثانية و 32 ثانية ) تقريبا برجاء تجربة برنامج الكنترول المدرسى ( الإصدار الخامس المعدل ) جيدا للإطمئنان على أنه صحيح و إرسال أى مشكلة تواجهونها على البريد الإلكترونى ashhma*live.com و ذلك للتواصل للوصول إلى أفضل شيت كنترول للمرحلة الإبتدائية 0 و برنامج الكنترول المدرسى موجود بالروابط حمل البرنامج ثم قم بفك ضغط البرنامج ثم أستخدم كلمة السر لفتح البرنامج 0 وتذكرقول المصطفى صلى الله عليةوسلم ﴿من دل على خير فله مثل أجر فاعله﴾ ولاتنسى أخى العزيز بعد تنزيل البرنامج من احد الروابط الأتية إعطاءنسخةهديةمن البرنامج إلى أقرب مدرسة لتنال الاجر إن شاء الله 0 و أنا على استعداد لاعطاء أى زميل نسخة من البرنامج إذا استطاع الوصول إلى مدرسة الخلفاء الراشدين الإبتدائية و عنوانها ( 1 ش بن تومارت غيط الصعيدى محافظة الاسكندرية ) مصمم البرنامج الأستاذ : أحمد السيد محمد معلم أول أ الرياضيات مدرسة الخلفاء الراشدين الإبتدائية محافظة الاسكندرية وفى الختام أرجو الدعاء لوالدي و أسرتى بالرحمة و المغفرة و لاتنسونا من دعائكم http://www.multiupload.com/VY70X91FBV http://www.multiupload.com/RS_VY70X91FBV http://www.multiupload.com/MU_VY70X91FBV http://www.multiupload.com/DF_VY70X91FBV http://www.multiupload.com/HF_VY70X91FBV http://www.multiupload.com/ZS_VY70X91FBV http://www.multiupload.com/UP_VY70X91FBV علما بأننى كنت حريص علىتنفيذ القرار كما جاء و لكن البرنامج أكبر من ان يستطيع فرد واحد فقط أن ينفذه ويراجعه لوحدة و شيت الصفين الثانى و الثالث للمدارس الرسمية سليم فى احتساب الأوائل لاخر العام بدون النشاطين 0 وفى الختام أرجو الدعاء لوالدي و أسرتى بالرحمة و المغفرة و لاتنسونا من دعائكم منقول للفائده الكبرى

السلام عليكم و رحمة الله وبركاته نظام الإتصالات الإدارية يهدف لمتابعة المراسلات في المنشآت ويشتمل على المراسلات الواردة - جميع الخطابات الواردة للمنشأة المراسلات الصادرة - جميع الخطابات الضادرة من المنشأة سواء كانت ردود لمخاطبات واردة او خطابات صادرة جديدة الحمد لله لقد بدأت المشروع وانجزت منه الكثير وباقي منه الكثير مع التحية آخر تعديل في المشاركة رقم 14 نظام_الإتصالات_الإدارية2.rar

السلام عليكم ورحمة الله الاساتذة الكرام لدى ملف اكسيل واريد عمل فورم فى ورقة داتا لادخال البيانات عن طريقة حيث يتم ادخال البيانات يدويا اريد عمل فورم فى الورقة الخاصة بالداتا وقمت بتوضيح ما اريدة فى الملف وشكرا وجزاكم الله كل خيراا اسم الدخول للملف/hosam كلمة المرور/hosam ديسمبر2014.rar

إنتو مش عارفين إنكم نور عنينا ولا ايه ؟ اقتباس من كلمات كبير الفخايدة ... الحمد لله الذي بنعمته تتم الصالحات .. بارك الله فيك أخي مصطفى

تمام يا غالي الله ينور عليك وما ننحرمش منكم أبداً وجزاكم الله كل خير

نورت الموضوع ونورت المنتدى يا أبا الأنوار .. ربنا يوعدك بالجنة ويكفيك شر النار ، وفي الآخرة يرضى عنك الجبار.. تقبل تحياتي

أخي الحبيب عبد الله بولنوار (على فكرة يعني ايه بولنوار دي ؟؟؟) بارك الله فيك ، ومتزعلش إني بقولك بلاش كسل ..أنا بس بناغشك ، كلمة عامية بالمصري (يعني بهزر معاك ) الأخ الحبيب الغالي صاحب الجولات والصولات أبو محمد عباس .. جزيت خيراً على كلماتك الرقيقة والمشجعة لنا دائماً .. وهذا غيض من فيض علمكم بارك الله فيك .. تقبلوا تحياتي

اوكي انا حجرب واقولك بالنسبة للدعاء فالدعاء لك دائما وللاخ اللي وضع الصور ولو احتجتو اي مساعدة في مجال تصميم وبرمجة المواقع انا الحمد لله خبره فيه وان شاء الله اقدر اساعدكم شكرا ليكم جدا وجزاكم الله كل خير هجرب وارد

اخي الفاضل / rudwan المقصود من ( المبلغ ) هنا (مبلغ الفاتوره) سواء كانت (شيك) ( او فاتورة اصناف مورد) (او مرتجع)

والأخ الجموعي بارك الله فيه وضح بالصورة ما تعبت في كتابته بالكلام مشكور أخي الجموعي على الروائع التي تقدمها

أخي الحبيب خطوات العمل : 1- قم بالذهاب إلى التبويب Developer ثم انقر Design Mode واختر من قائمة Insert على يسار وضع التصميم الجزء الخاص بـ ActiveXControls ثم ارسم CheckBox على ورقة العمل. 2 - لتغيير اسم الـ CheckBox كليك يمين ثم Poperties ثم الخاصية Caption غير الاسم من خلالها. 3- بالنسبة للكود المرتبط بالـ CheckBox اعمل كليك يمين على الـ CheckBox ثم الأمر View Code .. وفي نهاية الأمر لا تنسى الضغط مرة أخرى على Design Mode للخروج من وضع التصميم. * بالنسبة لإضافة الوقت قم بتغيير الكود إلى هذ الشكل لتحصل على التاريخ والوقت معاً في نفس الخلية .. Private Sub CheckBox1_Click() If CheckBox1.Value = True Then CheckBox1.TopLeftCell.Offset(1, 2).Value = Date & " " & Time Else CheckBox1.TopLeftCell.Offset(1, 2).Value = vbNullString End If End Sub أما إذا أردت التاريخ في خلية والوقت في خلية أخرى فجرب الكود التالي: Private Sub CheckBox1_Click() If CheckBox1.Value = True Then CheckBox1.TopLeftCell.Offset(1, 2).Value = Date CheckBox1.TopLeftCell.Offset(1, 3).Value = Time Else CheckBox1.TopLeftCell.Offset(1, 2).Value = vbNullString CheckBox1.TopLeftCell.Offset(1, 3).Value = vbNullString End If End Sub آخر خطوة ودي أهم خطوة .. ! ! ! ! ! ! ! متنساش أخوك بدعوة بظهر الغيب

إذاً فلتكن بهذا الشكل : =IF(D3="","",SUM(INDEX($A$2:$C$2,1,D3),SUMPRODUCT(($D$3:$D3=D3)*(E$3:E3))))

أما إذا أردت عدم التقيد بخلية محددة وأن يظهر التاريخ حيثما وضعت الـ CheckBox فجرب المرفق التالي CheckBox.rar

موضوع اكثر من رائع واعانك الله على اكماله كما تريد فالمشوار طويل وفقك الله لما تحبه وترضاه تقبل خالص تحياتي وزي ما قال أستاذنا/ياسر خليل ..كلنا عايزين فسفور

الحل موجود ان شاء الله بس برضو ان مش فاهم انت عاوز ايه بالظبط ياريت تعمل لنا نموذج محاكى لماتريده وساقوم بالحل او يقوم احد الاخوه تقبل تحياتى

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

بارك الله فيك أخي الحبيب حسام وجزيت عنا خير الجزاء شرح رائع ومميز .. فتحت نفسي لأكل السمك (إنت عارف إن السمك كله فسفور )

ما شاء الله وجزاكم الله خيرا

السلام عليكم ورحمة الله أخي الكريم، يمكنك استعمال الكود التالي مع ربطه بزر "انتقال"... الكود : Sub LastCelInColE() [E11012].End(xlUp).Select End Sub أخوك بن علية

استاذى الكريم الجموعى اضافه اكثر من رائعه وفى انتظار المزيد طلع اللى فى الصندوق تقبل ارق تحياتى

اخى الكريم اولا احييك على اصرارك فى عمل برنامج واتمنى لك التوفيق ويلا شد الهمه عايز اشوف البرنامج قريب هنا اهداء للمنتدى ونستفيد منه ثانيا حضرتك عايزالعلامه تكون // بدلا / هذا قصدك لو دا قصدك [j7] = "=1 & ""//"" & MID(R7C11,3,6)+1" [k7] = [j7] [j7] = ""

بعد أذن استاذى الكبير سليم بك حاصبيا اخى الكريم أ/ محمد عبدالمجيد موضوع معادله او كود للسيريال بشكل عام سهل جدا لكن المشكله انك عايزها فيها هذه العلامه (/) والعلامه دى كما قال استاذى سليم ان اكسيل يقراءها تاريخ فكان لابد من فكر للحل بطرق ملتويه نظرا لانى من عشاق التفكير خاصه فى الامور الاكسلية والمحاسبية الفنية بعد تفكير عميق وجدت الحل لحضرتك من خلال فكرة بسيطه جدا وهى استخدام دالة ( mid) الخطوة الاولى للحل هى المعادله التالية ضعها فى الخلية (j7) لون الخط بالخلية حاليا فى الملف المرفق احمر لكن بعد الاطلاع يفضل ان تكون بالابيض حتى لا يظهر ويعطى شكل جمالى اكثر =1 & "/" & MID(K7;3;6)+1 الخطوة الثانية هو وضع هذا السطر فى كود الترحيل الخاص بك للفاتورة قبل نهاية الكود ( اى قبل نهاية End Sub ) [k7] = [j7] مرفق ملف به تنفيذ فكرة الحل ارجو ان ينال اعجابك تقبل منى وافر الاحترام والتقدير serial1.zip

الاستا الفاضل ابوالآءشكرا جزيلا جزاك الله خيرا بالنسبة لطلبك حاولت فيه على حد خبرتي في الاكسس ولم استطع الوصول إليه ممكن أحد أعضاء المنتدى الكرام يقوم بذلك إن شاء الله

السلام عليكم بخصوص لغز تحديد الخلايا ديناميكيا اضن ان هذا الكود يفي بالغرض ActiveSheet.UsedRange.Select اما ان اردت تحديد الخلايا في عمود واحد فقط فعليك بهذا Range(("A1"), Range("A1").End(xlDown)).Select

و فيك بارك الرحمان استعملت التنسيق الشرطي فقط من خلال هذه الدالة AND($E10<>"";$E10>1= و التي تعني ان كانت الخلية e 10 فارغة اتركها كما يلي و اذا كانت اكبر من 1 حقق التنسيق الشرطي

أخي الغالي إبراهيم أنا فعلاً لا أستسلم وأحاول دائما قدر الإمكان ...ولكن هذا في حالة عدم وجود حل ، أما إذا وجد الحل وكان حلاً مرضياً ..فيعتبر الأمر انتهى .. أليست الطريقة الخامسة فعالة بالفعل ؟ وتؤدي الغرض بالنسبة لك؟ أراها معادلة ممتازة أخي إبراهيم عموماً جرب المعادلة التالية في F3 =SUM(INDEX($A$2:$C$2,1,D3),SUMPRODUCT(($D$3:$D3=D3)*(E$3:E3)))

7 _ كود لتغيير خلفية ورقة العمل بلون المفضل للمستخدم و استخدامات اخرى _ورقة تنفيذ الكود sheet1 و يمكن اضافة الكود بباقى اوراق العمل بنسخ زر الكود 7/1 _ كود يجعل خلفية ورقة العمل بالون الابيض النمطى Sub CommandButton2() Range("A4 : L690").Interior.ColorIndex = 0 End Sub _يمكن تغيير نطاق الخلايا بتعديل النطاق بالكود ("A4 : L690") 7/2_كود يجعل خلفية ورقة العمل او نطاق الخلايا بلون معين Sub CommandButton1() Range("A4 : L690").Interior.ColorIndex = 37 End Sub _يمكن تغيير نطاق الخلايا بتعديل النطاق بالكود ("A4 : L690") _يمكن تغيير لون نطاق الخلايا بتعديل درجةاللون بالكود _37 7/3 _ كود متعدد الالوان يجعل خلفية ورقة العمل او نطاق الخلايا بلون متغيير Sub CommandButton6() Range("A4 : A690").Interior.ColorIndex = 36 Range("C4 : C690").Interior.ColorIndex = 8 Range("E4 : E690").Interior.ColorIndex = 37 Range("G4 : G690").Interior.ColorIndex = 12 Range("I4 : I690").Interior.ColorIndex = 14 Range("K4 : K690").Interior.ColorIndex = 15 End Sub _يمكن تغيير نطاق الخلايا بتعديل النطاق بالكود ("A4 : L690") و تعديل عنوان العمود H_E_L الى اخره _يمكن تغيير لون نطاق الخلايا بتعديل درجة اللون بالكود _37_36_8_15_14 و يمكن ادماجه مع درجات الوان اخرى مرفق التطبيق العملى تحياتى و لا تنسونى من صالح الدعاء كود لتغيير خلفية ورقة العمل بلون المفضل للمستخدم_G_adham.rar

اخي ياسر كود جميل وحان الوقت كي اكشف انا عن الكود يتاعي merge unmerge.rar

أخي الحبيب تويوتا (سوق على مهلك سوق ..بكرة الدنيا تروق) أولا .. في الملف المرفق تم تسمية النطاق من A1 إلى آخر خلية بها بيانات ..أي أن النطاق غير ثابت (ديناميكي) ، تم تسمية النطاق MyNames =OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),1) تم استخدام الدالة Offset ، والدالة بها بارمترات : الاول بداية المرجع للنطاق و هو هنا A1 ، والثانيوالثالث خاص بعدد صفوف الإزاحة وعدد أعمدة الإزاحة وهنا القيمة 0 ، حيث أن العمل داخل النطاق ولن تتم عملية الإزاحة ، والرابع ارتفاع النطاق وهنا تم استخدام الدالة Counta لتقوم بعد كل الخلايا التي بها بيانات ، والخامس عرض النطاق وهو 1 لأنه في عمود واحد فقط .. وشرح الكود مرفق هنا Private Sub Worksheet_Change(ByVal Target As Range) 'تعريف المتغير Dim lReply As Long 'هذا السطر لتجنب وقوع خطأ ، إذا تم التعامل مع أكثر من خلية لا يتم تنفيذ الكود If Target.Cells.Count > 1 Then Exit Sub 'هنا التعامل مع هذه الخلية فقط والتي عنوانها D1 If Target.Address = "$D$1" Then 'إذا كانت الخلية الهدف فارغة لا يتم تنفيذ الكود ، ويتم الخروج من الإجراء الفرعي If IsEmpty(Target) Then Exit Sub 'في حالة إذا كان الاسم المدخل في الخلية الهدف جديد يتم تنفيذ التالي ، وهنا اعتمد على دالة العد لمعرفة وجود الاسم من عدمه If WorksheetFunction.CountIf(Range("MyNames"), Target) = 0 Then 'إذا كان الاسم غير موجود بالقائمة يتم ظهور رسالة تفيد بذلك ، وبها اختيار نعم أو لا lReply = MsgBox("Add " & Target & " to list", vbYesNo + vbQuestion) 'إذا كان الاختيار بنعم If lReply = vbYes Then 'يتم من خلال هذا السطر إضافة الاسم الجديد في آخر النطاق في العمود الأول Range("MyNames").Cells(Range("MyNames").Rows.Count + 1, 1) = Target End If End If End If End Sub

الأخ الحبيب مختار ..أعتذر عن التأخر في الرد ، وبصراحة لا أعرف سبب الخطأ الذي يظهر معك .. الكود يعمل بشكل جيد معي .. عموماً طالما أن تغيير المجلد قد عالج الخطأ فلا بأس .. وقد انتهى العمل على اللغز بتغيير كلمة Write إلى كلمة Print فقط ..(وهذا حل اللغز) الأخ الحبيب سليم بارك الله فيك على مساعداتك المستمرة ودعمك المستمر .. الأخ إبراهيم أبو ليلة حبيبي بوركت على مشاركاتك في الموضوع وإثراء الموضوع الأخ حسام ..إحنا يا غالي بنقول لغز ، يعني يكون فيه فكرة بسيطة ممكن تكون تايهة عن الفكر والبال ..زي حل اللغز الخاص بالتخلص من أقواس التنصيص والفواصل ..الفكرة بسيطة ... لكن لغزك مش بسيط زي ما قلت دا لغز موضوع مش لغز تسالي ..عموما تفضل الحل في المرفق ، وبلاش تقول على اللغز بسيط ومش أد المقام ، بلاش تواضع Football Matches Hossam.rar

استاذى ومعلمى وحبيبى سليم بك حاصبيا ملك المعادلات بصراحه انا كنت مقرر انى اقف جنب الحيط واشوف العمالقه وهما يتصارعون فى مصارعه الاكسل الحره واتعلم منهم واستفيد طبعا وانا واقف بعيد ليجينى كود اروح فيها وانا مش مستغنى عن عمرى دا الكبير ياسر بقى مقتول هههههههه وعامل تعبان ولكن بعد دعوتك خجلت من نفسى وكان لازم البى الدعوه -( فقم للمعلم ووفه التبديلا كاد المعلم ان يكون رسولا) علشان خاطر عيونك حل لغز الجدول المتحرك بالاكواد وتم اضافه خيار لتحديد بداية تسلسل الجدول اتمنى ان يحوز اعجابك Sub ÌÏæá() ActiveSheet.Unprotect Password:="111" If [j2] = "" Or [k2] = "" Or [l2] = "" Then MsgBox "فضلا قم بتحديد عدد الصفوف والاعمده وبداية تسلسل الجدول": Exit Sub Application.ScreenUpdating = False Range("a3:zz100000").ClearContents [a3] = [l2] Lr = Range("j2").Value Ll = Range("K2").Value For i = 4 To Lr + 2 For o = 2 To Ll Cells(3, o).Value = "=RC[-1]+r2c10" Cells(i, 1).Value = "=R[-1]C+1" Cells(i, o).Value = "=R[-1]C+1" Next Next ActiveSheet.Protect Password:="111", DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub جدول متحرك.zip

هذا البرنامج مفتوح ويمكن الدخول إلى محتواه البرمجي البسيط وغير المعقد أنا مبتدئ في الأكسس لذا ارجوا منكم مساعدتي في استكمال النقص فيه : - التفقيط - الوحدات النمطية لا أعرف كيف استخدمها - كذلك اريد أن يطلع مدير المؤسسة على البيانات وهو في دولة اخرى لا أعرف كيف انشئ واجهة له ضمن اكسس محملة على النت ارجوكم ماالعمل ؟ Mybox1981@gmail.com رابط التحميل : databasekhalil.rar

اخى الكريم طبق هذه المعادله {=IF(A3<>"";IFERROR(INDIRECT($A3&"!f4:f4");"غير موجود");"")} لابد من الضغط على مفاتيح ctrl+shift+enter معا لانها معادلة صفيف حسابات الزباين.rar

نسخة معدلة بعد اضافة اكواد الاستاذ / حسام عيسي وعمل الازرار اللازمة Sample 22Linked v3.rar

السلام عليكم هذا الكود ليس من اعمالي وانما استخدمته كثيرا في اعمالي ملحوظة: يكفي هذا السطر من الكود ليقوم بذلك Sub SheetList_CP() Application.CommandBars("Workbook Tabs").ShowPopup End Sub تحياتي

السلام عليكم ورحمه الله وبركاته اساتذتى الافاضل استفدت كثيرا وتعلمت منكم كثيرا جزاكم الله خيرا على كل ما تقدمونه وجعله الله فى ميزان حسناتكم يوم الحشر الاعظم هذه رساله شكر اليكم يا اجمل واغلى منتدى اكسيل الى قلبى بل والى قلوبنا جميعا لى منكم رجاء وتعودت دائما منكم ان تلبوا رجائنا جميعا ورغباتنا ارجو من اساتذتى ومعلمى ان يعلمونا الفيجوال بيسك وكيف نبتدىء ومن اين نبتدىء ابتدئت منذ فتره احاول ان اتعلم الفيجوال ولكننى ضللت الطريق ووجدتنى تائها ارجو منكم ان تدلونى على الطريق الصحيح من اين ابتدىء وكيف ابدء والسلام عليكم ورحمه الله وبركاته

السلام عليكم المنتدى عامر بمثل ما تطلبون وهذه امثلة فقط وهناك اضعاف جربوا ونصيحة مجرب فانا استفدت كثيراً من شروحات الفيديو http://www.officena.net/ib/index.php?showtopic=33588 http://www.officena.net/ib/index.php?showtopic=32497 http://www.officena.net/ib/index.php?showtopic=33213 http://www.officena.net/ib/index.php?showtopic=32614 http://www.officena.net/ib/index.php?showtopic=32242 http://www.officena.net/ib/index.php?showtopic=37894 http://www.officena.net/ib/index.php?showtopic=37735 http://www.officena.net/ib/index.php?showtopic=36612 وهنا منجم للشروحات http://www.officena.net/ib/index.php?showtopic=37644 وهنا http://www.officena.net/ib/index.php?showtopic=31610

اخى فى الله / ذيب اليمن اشكرك على ضمك صوتك لى واتمنى من اعماق قلبى ان يمن علينا اصحاب العلم النافع واقتراح سيادتكم جميل جدا ان تعقد دوره تدريبيه لمن يريد ان يتعلم الفيجوال بيسك من الصفر وحتى الاحتراف وتقسم هذه الدوره الى مراحل ويتم عقد اختبارات فى نهايه كل مرحله حتى يتسنى لمعلمينا الافاضل ان يعرفوا هل مجهودهم ذهب ادراج الرياح ام اتى بزهر مثمر وشكرا كل الشكر لمن يريد ان يضم صوته الى صوتى فمن علمنى حرفا صرت له عبدا والسلام عليكم ورحمه الله وبركاته

السلام عليكم ورحمة الله وبركاته أضم صوتي الى الاخ : aly elhedewy الصراحة هذا المنتدى ليس منتدى فقط بل اسرة متكاملة تسعى لفعل الخير اولا ومن ثم افادة المشاركين المنتدى حببنا بالاكسل كثييييييييييرا عندي اقتراااااااااااااااااااااااح ياليت بس لو أحد يعطينا مفاتيح البداية مثلا 1- بناء المعادلة والاكواد وكيفية قراءتها 2- عمل ماكرو 3- تعريف object browser 4- الخ مثلا ماذا تعني dim وset و الخ ومتى تستخدم أنا هذه أسمعها ولكن أريد من يدلني إلى أول الطريق أنا لاأقترح من السادة الاساتذة الخبراء أن يقوموا بتنزيل ملفات التعليم كاملة فهذا صعب الفهم يعني لو أحد يعمل لنا خطة كجدول ( كل يوم درس ) مثلا وإن شاء الله فالكثير الكثير بحاجة الى ذلك وسيلاقي اهتماااااااااااااااااااااااااام كبير واولهم أنا تحياتي لهذا المنتدى الكبير باذن الله