احمدزمان

الحل موجود شرحة في ما يلي من شرح حاولي ان تطبقية واذا لم تستطيعي ذلك ممكن نساعدك ونعملة وهذا الحل مأخوذ من هذا الموقع ومن احد الأساتذة الكبار الموجودين في هذا الموقع جزاه الله عنا جميعا خير الجزاء - وبدل سيئاته بالحسنات معالجة المشكة بأستخدام ( التصفية المتقدمة ) ولكن ليس من خلال قوائم الاكسيل المتاحة فى شريط قوائم العمل - من قائمة (بيانات / تصفية / تصفية متقدمة ) ولكن من خلال التصفية المتقدمة بأستخدام اوامر الفجوال بيسك - لتخطى العقبات والعراقيل التى تم وضعها فى قاعدة البيانات الشرح : الكود المستخدم : كود Range("db").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "MyCri"), CopyToRange:=Range("Des"), Unique:=False ويتم تمرر ثلاث نطاقات الى هذا الكود ويجب ان تحتوى هذه النطاقات ضمنيا على السطر الاول ذو عناوين الحقول : النطاق اول وهو نطاق قاعدة البيانات : 1 - يتم تسمية نطاق قاعد البيان بأسم (db) ( اذا لم تكن تعرف معنى تسمية النطاق يوجد بالمنتدى الكثير من المشاركات تشرح ذلك ) النطاق الثانى وهو نطاق الشروط : 2 - يتم تسمية نطاق الشروط بأسم (MyCri) النطاق الثالث وهو نطاق استخراج البيانات : 3 - يتم تسمية نطاق استخراج البيانات بأسم (Des) ومن المفروض عمل زر لتشغيل هذا الكود فى الورقة ولكنى فضلت ان تتم الفلترة بمجرد ادخال اى شرط او زيادة عدد الشروط لأكثر من شرط واحد حتى تكون ذو تأثير مرئ جيد . لعلى اكون قد وفقت فى الشرح

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

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

جزاك الله خير ابواسامة فكرة جميلة جدا ومهمة جدا

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

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

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

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

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

بسم الله الرحمن الرحيم الصلاة و السلام على سيدنا رسول الله السلام عليكم ورحمة الله الأخ هشام هذا حل موجود مسبقا هنا في هذا الموقع من اعداد و شرح الأستاذ القدير تامر عمر جزاه الله عنا خير الجزاء ارجو ان تستطيع تنفيذة حل مشكلة اعتراض حماية اورق الملف لتنفيذ الماكرو هو الحل النهائى لهذه المشكلة والتى لايأتى بعده حلول نهائيا . كما نعرف جميعا انه عند حماية اوراق الملف وعند تنفيذ ماكرو به بعض الاوامر يتم اعتراض تنفيذها نتيجة الحماية ودائما الحل فى الدواء المكرر والمعاد دائما وهو رفع الحماية فى بداية عمل الماكرو ثم وضعها مرة اخرى فى نهايتة ولكن الحل هنا فى منتدى الاكسيل لاول مرة على مستوى المنتديات . وعلى سبيل المثال لا الحصر لهذه الاوامر التى تسبب توقف عمل الماكرو ادراج او الغاء صفوف او اعمدة تغير لون الخلية او لون الخط والكثير من الاحداث الاخرى التى تتوقف بسبب الحماية . فيلجأ البعض منا مما له دراية بالاكواد بعمل عدد 2 ماكرو منفصلين الاول يعمل على تنفيذ الحماية والثانى يعمل على الغاء الحماية ثم عند تصميم اى ماكرو يقوم بوضع اسم الماكرو الاول فى بداية المكرو الذى يقوم بتصميمة ويضع اسم الماكرو الثانى فى نهاية الماكرو الذى يقوم بتصميمة بمعنى فى حالة اعترض الحماية يجب رفع الحماية فى بدية الماكرو ثم اعادة وضع الحماية مرة اخرى فى نهاية هذا الماكرو حتى يتم تنفيذ هذا الماكرو بدون اعتراض . ولكن الاكسل وفر لنا الكثير والكثير ولكن العقبة هى عدم الوصول الى هذه المعرفة وكثرت مشاكل اعتراض الحماية لتنفيذ الماكرو الذى يحتوى على بعض الاوامر التى اشرت اليها فى بداية الحديث ولكن توجد اضافة لامر الحماية لم الحظ ان احدا يقوم بأستخدامها وهى الامر كود UserInterfaceOnly:=True التى توضع فى امر الحماية ويمكن بذلك تنفيذ اى ماكرو بدون اعتراض مسيو اكسيل وبخصوص هذا الامر عند حفظ الملف تفرض الحماية كاملة وينهى عمل هذا الاستثناء وعليه عند فتح الملف يجب الاعلان عن ان الحماية مشمولة بهذا الامر ولذلك يجب ادراج كود الحماية بأحد هاتين الطريقتين : اولا : اما عن طريق ماكرو التنفيذ التلقائى عند الفتح الذى ينفذ اى اوامر مدرجة به عند فتح الملف كود Sub AUTO_OPEN() ثانيا : عن طريق حدث فتح الملف الاتوماتيكى الذى ينفذ اى اوامر مدرجة به عند فتح الملف كود Private Sub Workbook_Open() فأذا اردنا ان يكون كود الحماية فى ماكرو الفتح (Sub AUTO_OPEN) يكون الماكرو على هذه الصورة بفرض ان كلمة السر هى (123) كود Sub AUTO_OPEN() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet End Sub اما اذا اراد المترسين بالاكواد بوضع كود الحماية فى حدث فتح الملف يكون على الشكل التالى بفرض ان كلمة السر هى (123) كود Private Sub Workbook_Open() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet End Sub بذلك يمكن تنفيذ اى ماكرو بدون اعترض وتتجنب تكرار فك الحماية فى بداية الماكرو ثم اعادتها مرة اخرى فى نهاية الماكرو مع تحياتى فى استخدام الاوامر التى لم نتطرق اليها قبل ذلك لاثراء معلوماتنا ومنتدانا بكنوز الاكسيل تم تحرير المشاركة بواسطة tameromar مع خالص شكري اخوكم - احمد

hsjh` استاذ / اسلام جزاك الله خيرا مجموعة اعمال رائعة جدا و مجهود كبير تشكر عليه جعلها الله في موازين حسناتك احمد

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

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

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

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

للرفع ((اللهم اعنا على ذكرك و شكرك و حسن عبادتك))

الف الف الف الف الف - - - - - - - مـــبــــروك فعلا مبروك لك وعلينا كلنا

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

بسم الله الرحمن الرحيم استاذ - خبور يبقى الخبير خبير - والأستاذ استاذ سلمت يداك حل رائع جدا

السلام عليكم و رحمة الله ان الخطاء في مدخل بيانات الجمع العمود j حيث عند نسخ قيمة الخلية من العمود A سوف يعطيك النتائج 100% صحيحة

السلام عليكم و رحمة الله استاذ ابو عبدالله اذاسمحت ان اعرض نفس حلك ولكن بوجهة نظر اخرى وهو بعض ما عرفته منك ارجو ان يكون بها الفائدة SUm_MONTH_NO..rar

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

ابو اسامة السلام عليكم الله يزيدك علما وايمانا ونورا

الأخ - دنجرمان2 الله يجزاك خيرا معلومات جدا مفيدة زدنا

شكرا و جزاك الله خير ابو اسامة