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

ولايهمك استاذنا اتفضل رابط ميديا فاير http://www.mediafire.com/download/7cxahz9knqc1m93/Office_2016_16.0.4229.1002_x86-x64_v2.8.iso

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

اعرض الملف برنامج حسابات البيع بالأجل والنقد الاصدار الاول لكل الاخوه في هذا المنتدى العملاق الذي تعلمت منه الكثير واليوم اهدي هذا العمل المتواضع وهو برنامج حسابات البيع بالأجل والنقد الاصدار الاول وهذا العمل مقارنة بأعمال عباقرة المنتدى نقطة في بحر منهم . شكر خاص للأستاذ الصقر. تحياتي محمد علي الطيب الرقم السري 123 صاحب الملف محمد علي الطيب تمت الاضافه 20 ديس, 2015 الاقسام قسم الإكسيل

تفضل اخي م/ ياسر لمسة صغيرة مني لاكمال المتصفح واحب ابشرك اخي عبد العزيز ان ما نراه الان هو 1/مليون من العالم الخيالي الجاي افضل ان شاء الله :) Internet Browser 1.rar

السّلام عليكم و رحمة الله و بركاته هديّة متواضعة ..مني إليكم .. لعل و عسى تنال إعجابكم .. للتكبير و التصغير بحجم الفورم ..إذهبْ طَوّالِي للرقم 20000 داخل الكود و قم بالتغيير دون المساس بجزء آخر فائق إحتراماتي الشاشة.rar

أخى ومعلمى القدير / ياسر العربى من عنيا أخى وحبيبى الغالى / عبد العزيز إنت تأمر الأكواد المستخدمة الكود الأول يوضع فى CommandButton1 Private Sub Command1_Click() text1.text="اكتب هنا ما تريد" End Sub والكود الثانى يوضع فى CommandButton2 Private Sub Command2_Click() Msgbox"أكتب ما تريد" End Sub والكود الثالث يوضع فى CommandButton3 Private Sub Command3_Click() End End Sub تقبلوا خالص تحياتى وتقديرى

السلام عليكم ورحمة الله اليك الحل المطلوب.rar

الكود هو Set sa = Sheets("1") Set sh = Sheets("2") sh.Cells(2, 2) = sa.Cells(2, 2) sh.Cells(2, 3) = sa.Cells(2, 3) sh.Cells(2, 4) = sa.Cells(2, 4) sh.Cells(2, 5) = sa.Cells(2, 5) sh.Activate لم تغير شيء فيه كما هو الصح كالتالي Sub dd() Set Sa = Sheets("1") Set sh = Sheets("2") With Sa .Cells(2, 2).Copy sh.Cells(2, 2) .Cells(2, 3).Copy sh.Cells(2, 3) .Cells(2, 4).Copy sh.Cells(2, 4) .Cells(2, 5).Copy sh.Cells(2, 5) End With sh.Activate End Sub او هكذا كإختصار الاسطر Sub dd() Set Sa = Sheets("1") Set sh = Sheets("2") With Sa Union(.Cells(2, 2), .Cells(2, 3), .Cells(2, 4), .Cells(2, 5)).Copy sh.Cells(2, 2) End With sh.Activate End Sub تحياتي

تفضلو هدية اللمسات الجمالية وبلغوني رأيكم المهم تحملو الاداة من هنا اذا لم تجدوها ابحثو عنها Browse هتلاقوها في الهدية اللي بعتها اسمها actskin4.ocx هتظهر مثل الصورة والتوضيح بالمرفق لو عجبتكو الفكره ابعت ليكو مجموعه skin تقبلوا تحياتي هدية.rar

اخى الحبيب ضع هذه المعادله فى الخليه B2 ثم اسحبها بتجاه اليسار الى العمود O ثم اسحبها الى اسفل الى ما تريد من عدد الصفوف مرفق ملف تقبل تحياتى magid.zip

Private Sub Timer2_Timer() 'Label2 = Format(Now, "dddd yyyy/mm/dd") Label2 = Format(Now, "dddd dd/mm/yyyy") End Sub السّلام عليكم و رحمة الله و بركاته ماشاء الله تبارك الله أستاذي القدير " محمد حسن المحمد " لك لمسات فنيّة رائعة واصل المشوار معنا و لا تتركنا وحدنا وفّقك الله للتدرّب أكثر قمت بتغيير طفيف ليظهر التاريخ بتنسيق عربي من اليمين إلى اليسار فائق إحتراماتي السّلام عليكم و رحمة الله و بركاته أستاذنا القدير " ياسر العربي " بارك الله فيك و جزاك الله خيرًا و زادك من علمه و فضله و جعل كل حرف ممّا تقدّمه و تبذله بألف حسنة رأيي أن نكمل المشوار على بركة الله بدأنا المسيرة و أنتَ قائدنا .. أتمنى و أدعو الله ألاّ تتركنا في بداية الطريق لا تقلق على الاكسل أبدًا .. فلنا عيْنٌ في القدسْ و أخرى في نابلسْ فائق إحتراماتي

السلام عليكم ورحمة الله وبركاته إخوتي الكرام أستاذي الكريم ياسر العربي أشكركم على جهودكم المبذولة قمت بإنشاء ملف يحتوي على نموذجين(2فورم) الأول: يحتوي على الوقت والتاريخ تلقائي بمجرد فتحه وعلى كومبوبوكس يفتح الفورم الثاني. الثاني: يحتوي على رسالة شكر ومحبة لكم. للأسف اكتفيت بالصورة لأن كمبيوتر البيت بآخر أيامه يكاد يلفظ أنفاسه اﻷخيرة بسبب اﻷولاد الصغار. تقبلوا تحياتي العطرة.. والسلام عليكم. تحية لأوفيسنا.rar

السلام عليكم ورحمة الله وبركاته في احد البرامج التي اشتغلت عليها ، كان المطلوب احد الاشياء التالية مثلا: مدة الخدمة ، من تاريخ التوظيف الى اليوم ، إضافة خدمة (سنوات/اشهر/ايام) الى تاريخ التوظيف ، خصم مدة (سنوات/اشهر/ايام) من تاريخ التوظيف ، فبدل الحساب اليدوي ، عملت نموذج لآلة حاسبة ، للتواريخ النموذج frm_Date_Diff : حساب الفرق بين تاريخين: 1. ادخل التاريخ الاكبر في الحقل 1 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، 2. ادخل التاريخ الاصغر في الحقل 2 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، وعند النقر المزدوج على 1 او 2 ، فان القيم سيتم حفظها في الحقول 11 و 22 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير التواريخ ، بينما تحتفظ بأصل التواريخ في 11 و 22 ، إضافة / طرح (سنوات / اشهر / ايام) من تاريخ: 1. احذف التاريخ من الحقل 2 ، 2. ادخل سنة/شهر/يوم الى الخانات 3 و4 و5 ، 3. حسب الحاجة ، اختر 6 لإضافة السنة/شهر/يوم الى التاريخ الاول ، وسترى النتيجة في الحقل 2 ، 4. حسب الحاجة ، اختر 7 لطرح السنة/شهر/يوم من التاريخ الاول ، وسترى النتيجة في الحقل 2 ، وعند النقر المزدوج على 3 او 4 او 5 ، فان القيم سيتم حفظها في الحقول 543 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير السنوات/الاشهر/الايام ، بينما تحتفظ بالاصل في 3 و4 و5 وهنا مثال متحرك: جعفر 301.Dates_Calculations.mdb.zip

السلام عليكم ورحمة الله وبركاته هنا بعض الايقونات والازرار قد يستفيد منها البعض وهي خمسة مجموعات سترسل تباعا المجموعة الاولى.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

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

حبيبى الغالى / ياسر العربى معزرة لعدم وصول معلومة حفظ المشروع كامل بالطريقة التى أرفقتها ولكن قرأت ردك بعد ان برمجت متصفح إنترنت وحفظته بنفس الطريقة السابقة سوف أعيد برمجته وأرفعة مرة أخرى بس قللى إيه رأيك ورأى أخويا عبد العزيز Internet Browser.rar أخى وحبيبى الغالى / عبد العزيز أكثر من رائع قنبلة فى عالم الفورم تقبل خالص تحياتى وتقديرى

ماشاء الله عليك أخوي رمهان ، مو طماع جعفر

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

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

اخي الغالي عبد العزيز انسخ الاداة الى المسارين c:\windows\syswow64\actskin4.ocx c:\windows\system32\actskin4.ocx وبعدها قم بتشغيل الملف المرسل لك كمسئول وهتظهر معاك رسالتين غير الرسالة دي تفيد ان تم تسجيل الاداة بنجاح وجرب بعد ذلك تضيفها في مشروعك كما سبق وبلغني اخي الغالي م/ياسر لك كل الشكر والتقدير شكرا علي التوضيح ولكن ما قصدته هو ارفاق الملف نفسه كاملا مثل هذا هدية.rar

اخي عبد العزيز تفضل واي اداة تعمل معاك نفس الكلام دا تتحط في السيستم ويتم تسجيلها مثل هذه تسجيل الادوات فتح كمسئول.rar

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

أهلا بك أستاذ عصام فى أوفيسنا . جرب الكود التالى Sub WorksheetSizes() Dim C As Range, Sh As Worksheet Dim Wb As String, Temp As String, sReport As String Application.ScreenUpdating = False Application.DisplayAlerts = False sReport = "حجم الأوراق" Wb = "mokhtar.xlsx" Temp = ThisWorkbook.Path & Application.PathSeparator & Wb On Error Resume Next Set Sh = Worksheets(sReport) If Sh Is Nothing Then With ThisWorkbook.Worksheets.Add(Before:=Worksheets(1)) .Name = sReport .Range("A1").Value = "اسم الشيت" .Range("B1").Value = "الحجم بالبايت تقريباً" End With End If On Error GoTo 0 With ThisWorkbook.Worksheets(sReport) .Select .Range("A1").CurrentRegion.Offset(1, 0).ClearContents Set C = .Range("A2") End With For Each Sh In ActiveWorkbook.Worksheets If Sh.Name <> sReport Then Sh.Copy ActiveWorkbook.SaveAs Temp ActiveWorkbook.Close SaveChanges:=False C.Offset(0, 0).Value = Sh.Name C.Offset(0, 1).Value = FileLen(Temp) Set C = C.Offset(1, 0) Kill Temp End If Next Sh Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

شكرا جزيلا و جزاكم الله خيرا و جارى تغيير الاسم

حياك الله أخونا العود أبوخليل هذا قليل مقابل عطاءكم الكثير أخي عبدالرحمن الغالي ، شرفتنا جعفر

استاذنا وحبيبنا جعفر هدية قيمة ورائعة ، وتكثر الحاجة اليها جزاك الله خيرا , ورزقك من حيث لا تحتسب

السلام عليكم ورحمة الله وبركاته أخي الحبيب عبد العزيز شكراً جزيلاً هذا من لطفك وحسن أدبك ...وطيب كلامك أما من ناحية التاريخ فإنني أن يظهر عندي كما يلي: الأحد 2015/12/20 أي من اليمين إلى اليسار وقد جربت كلتا الحالتين فقدمت الأولى. تقبل تحياتي وشكراً لمتابعتك وتشجيعك فأنت أخ حبيب قريب من القلب ..وأرجو أن يكون شأنك عظيماً في أمتنا التي نحاول استنهاض مكانتها الرفيعة والسلام عليكم.

سماح هذه المرة استاذنا رمهان اتفضل اخونا الكريم date-time.rar وبرجاء المرة القادمة ارفاق مثال مع الاستفسار

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

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

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

السلام عليكم أخي كريمو كنت اعتقد بأني جربت المرفق وكان يعمل بطريقة صحيحة ، ولكن الظاهر اني كنت مخطئ ، فاعتذر منك الان وبعد التعديل ، جربته ، والظاهر انه يعمل كما يجب ، ان شاء الله الان حين تضغط على الزر "معاينة التحويل" ، فالكود يبحث عن التاريخ (شهر - سنة) الذي في النموذج ، يبحث عنه في الجدول CCP ، فاذا وجده ، فيعطيك الخيار في تحديث رقم الحساب (اي انه لن يغير القيمة) ، واذا لم يجد التاريخ في الجدول ، فيعطيك الخيار في ادخال سجل جديد جعفر 288.krimo2015V2.mdb.zip

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

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

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

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى يمكنك تصحيح معادلتك في التنسيق الشرطي بحذف الرمز $ في المعادلات من أمام الحرف H في النطاق H$4:$H$88 ليصبح من الشكل H$4:H$88 وستعمل المعادلات بصفة صحيحة في جميع الأعمدة المعنية... والله أعلم أخوك بن علية السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، إذا كنت تريد تحديد القيمة الصغرى في الأعمدة على أن تكون غير معدومة عليك بتغيير الجزئية (MIN(H$4:H$88 من معادلة التنسيق الشرطي الخاصة بأصغر قيمة بالجزئية ((MIN(IF(H$4:H$88<>0;H$4:H$88 بن علية حاجي

استعمل هذه المعادلة للتنسيق الشرطي بعد ان تحدد الاعمدة المطلوبة مع اختيار اللون المناسب للحد الا قصى و تكون الخلية H4 هي النشطة (استبدل العدد 42 باخر صف) لتحديد اصغر قيمة غير الصفر استعمل المعادلة الاولى (Ctrl+Shift+enter) =MIN(IF($H$4:$H$90<>0,$H$4:$H$90)) =MAX(H$4:H$42)=H4

ما رايكم لو اختار المستخدم بنفسه النطاق الذي يسمح به بالكتابة Unprotect Only Choosen Range.zip

عرفت هذه المعلومة من زميل ، و لم اكن اعرفها سابقا و يبدو أن الاوفيس مازال يخبىء لنا الكثير فى دهاليزه عند كتابة تاريخ في نهاية السطر قد يأتي منقسما فيأتي اليوم فى سطر و باقي الشهر و السنة فى الشهر التالي ، و هذا و ان كان مقبولا ، الا انه ليس وضعا مثاليا و الحل المعتاد قد يكون التغيير فى المسافات او المحاذاة او حجم الخط او خليط بينها و لكن الحل السليم هو اختيار المسافة التالية لمحل الفصل ( بعد ال 28 فى هذه الحالة) ثم ضغط مايلي Ctr+Shift+Space فيصبح الوضع كالتالي:

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

السلام عليكم ورحمة الله أخي الكريم، المشكل الذي ذكرته ليس في الأوفيس وإنما في ملف Registry الخاص بالويندوز... وإن شاء الله حل هذه المشكلة يكون بتنفيذ الأداة في الملف المرفق وهي تقوم بتصحيح الخلل في ملف Registry تلقائيا والمتعلق بخصائص HTM/HTML... أرجو أن تفيدك هذه الأداة... أخوك بن علية html_association_fix.zip

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

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

السلام عليكم ما شاء الله عليك اخي هشام فين مخبي الحلاوة دي ............. ومن بعد اذنك لتعدد الحلول هنا كود لمعرفة الارقام الناقصة Dim c As Range On Error Resume Next Set rng = Range([a2], Cells([a1000].End(xlUp).Row, 1)) For Each c In rng If c <> c.Offset(-1, 0) + 1 Then [b1000].End(xlUp).Offset(1, 0) = c - 1 Next c وهنا ايضا كود اخر Dim rng As Range On Error Resume Next Set rng = Range([a1], Cells(Range("a65536").End(xlUp).Row, 1)) For i = 1 To rng.Rows.Count If rng.Cells(i, 1) <> rng.Cells(i - 1, 1) + 1 Then _ Range("b1000").End(xlUp).Offset(1, 0) = rng.Cells(i - 1, 1) + 1 Next i

السلام عليكم ======= هذا حل اخر بالتنسيقات الشرطية لتحديد اماكن القيم الناقصة فى المسلسل find miss n.rar

المجموعة الرابعة المجموعة الرابعة.rar

المجموعة الثالثة المجموعة الثالثة.rar

السلام عليكم ورحمة الله أخي الكريم، من الأحسن وضع نموذج في ملف لتسهل العمل عليها... إليك الملف الملف أين استعملت التنسيق الشرطي على الخلايا وكود صغير يوضع في ThisWorksheet... موفق إن شاء الله تلوين الصف والعمود.rar