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

أخى الحبيب " محمد الريفى " أولا - شكرا على مرورك الكريم ، وكلماتك الرائعة ثانيا - الكود بسيط للغاية ، حيث يتم وضعة فى حدث الصفحة بدون أزرار ، وهو يعتمد على عمل "add " لل " comment " ثالثا - بدأت بعد ذلك فى تحديد مواصفاتة ، عن طريق 1- تحديد مداه If Not Intersect(Target, Target.Worksheet.Range("A1:A1000")) Is Nothing Then If Not Target.Comment Is Nothing Then 2- ثم بدأت بعد ذلك فى وضع محتواه وهى دالة " now " 3- ثم بدأت بتنسيقها " كتاريخ وزمن " Target.Comment.Text Format(Now(), "yyyy/mm/dd hh:mm:ss PM/AM") 4- والخطوة الأخيرة هى وضع تنسيق لل " comment " نفسة من حيث التحكم فى " عرضة وطولة ، ليسهل التحكم فى حجمة الملائم لعملية الظهور Target.Comment.Shape.Height = 12 Target.Comment.Shape.Width = 75 وهذا هو الكود بالكامل ، أتمنى أن أكون وفقت فى توضيحة Private Sub Worksheet_Change(ByVal Target As Range) 'GAMAL ABD ELSAMEH 22/8/2014 If Not Intersect(Target, Target.Worksheet.Range("A1:A1000")) Is Nothing Then If Not Target.Comment Is Nothing Then Target.Comment.Text Format(Now(), "dd/mm/yyyy hh:mm:ss AM/PM") Target.Comment.Shape.Height = 20 Target.Comment.Shape.Width = 75 Else Target.AddComment Format(Now(), "dd/mm/yyyy hh:mm:ss AM/PM") Target.Comment.Shape.Height = 20 Target.Comment.Shape.Width = 75 End If End If End Sub تقبل تحيات : أخيك

طريقة أخرى إلى جانب طريقة أستاذى " بن علية " لعلها تفيد ,وهى فلترة وتنسيق بمعادلة واحدة تنسيق وفلترة تاريخ.rar

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

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

بالطبع هناك طرق لذلك أخى الحبيب " أحمد " ومنهم الفيديو الرائع لأخى " محمد " وبصراحة كنت أتمنى يكون لى المقدرة والجرأة لعمل مثل هذه الفيديوهات ، ولكن للأسف ليس لدى الموهبة للشرح أمام تسجيل ومنهم هذه الطريقة عن طريق الكود التالى : ومرة ثانية يتم دفعى للكود على العموم أرجو أن يكون به الإفادة للجميع تقبلوا تحياتى تعقب تسجيل تاريخ التغييرات التى تطرأ على خلية.rar

فيك بارك الله أخي الكريم واهلا وسهلا بك

اخواني الاعزاء احوال تصميم برنامج لي خاص متعلق في انظمة الحاسب الالي لكن ما اوجه هو هو انني عملت ملف اكسل اسمه الباسوردات الخاصة بي ومنعت خاصية الطباعة لكن ما لاحظته هو انني مكن اعمل لقط صورة عن طريق كبسة PrtsC واخذ البيانات منه سوالي كيف يمكن منع المستخدم الغاء تفعيل هذا الزر عند فتح ملف الاكسل وعند اغلقه يرجع كما كان هل من المككن عمل ذالك مثل يكون في كود vba

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

هذه معادلة بمرجع معاد ليست صحيحة اطلاقا

بعد إذن أخوتى الأعزاء وهذه الحلول الجميلة أعتقد هذا الحل سيفى بالغرض ويفيض لأن طول النص به غير محدود ولايعتمد على كلمة معينة تقبلوا تحياتى =IFERROR(TRIM(RIGHT(SUBSTITUTE(TRIM(A1);" ";REPT(" ";99));8*99))&" "&"فى الفرع 1";"")

تفضل وجدت لك هذا في مكتبتي SmallStore.rar

ماأجمل دعواك ، التى تعادل الدنيا وما فيها شكرا أخى الحبيب " محمود" وتقبل اللهم منا جميعا صالح الأعمال وتكون خالصة لوجه الرحمن تقبل تحيات : أخيك

أخى الحبيب " محمود الشريف " مرورك يسعدنى ويشرفنى وخاصا لأخ قدير فى عالم الأكواد ،وأرجو فعلا أن يحقق الكود الهدف منه ويكون عند حسن الظن شكرا أخى الحبيب على مرورك وكلماتك وبارك اللهم فيك تقبل تحيات أخيك

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

اخي شكرا لك على الرد الجميل الذي افرح قلبي ومساعدتك لي جزاك الله خيرا لاعلم لكن طلع معاي هيك معقول عشان بستخدم اوفيسس 2007 error.jpg لكن نفس المطلوب مهما كان طول المدخل يمتد ويتقلص مع النص الثابت مثال لتوضيح ارجو تسليم 5555544444444444444444444444 كذا ارجو تسليم 444444444444444444444444 كذا ارجوا تسليم 4444444 كذا وليس مثل هيك ارجو تسليم 544444444444444444444444 كذا ارجو تسليم 444444444444444444444444 كذا ارجوا تسليم 4444444 كذا اخي الكريم شغل التقرير من خلال النموذج ولا تفتح التقرير مباشرة اما الاستاذ ابو خليل فجزاه الله عني خيرا شكرا

احسنت استاذ علي المثال يعمل 100% وحسب الطلب الاخير

تفضل اخي الكريم اتمنى ان يكون هو المطلوب db1.rar

أخى الحبيب " محمد نصرى " شرف لى أخى توارد أفكارنا ، من ناحية والرغبة فى الأضافة والتميز من ناحية أخرى وأنا عندما أضع معادلة فلم تعد ملكا لى ولكن ملكا لهذا الصرح ومستخدمها فلايمكن الأدعاء بتشابة معادلة ، أو ملكيتها فأنا أنظر وأتابع لكل عمل فى هذا الصرح رغبة منى : 1- فى التعلم 2- رغبة فى الحصول على فكرة 3- رغبة فى خدمة الغير طالما هناك المقدرة لذلك فأرجو فعلا أن تضيف لها وخاصا أنها واقفة على " 7" معاملات للدالة " SUBSTITUTE "ولو حضرتك أستطعت إضافة لها مزيدا من الشروط تكون أنجزت لى ولكافة الزملاء المتكلمين بالعربية ومستخدمى الأسماء المركبة وهذه كانت النقطة التى طلبها ، أستاذى " سعيد بيرم " ، وعجزت نظرا لأن معاملات دالة ال " SUBSTITUTE " قد وصلت أقصاها وهنا نقوم بحذف شرط وأضافة أخر حسب المطلوب لتحقيق الطلب ولكن أنا عملت كود يستطيع فصل " كافة الأسماء المركبة " مهما كان طولها ولكن هذا لم يشبع غرورى ، لأن إمكانية الكود لعمل ذلك ليست غريبة ولا صعبة ، وأنا أريد المعادلة تقوم بذلك وهناك عباقرة الكود والمنتدى ملئ بهم أمثال عبقرى الوطن العربى " عبد الله بقشير " وقد سبقنا جميع فى هذا بمعادلتة المعرفة التى مازالت وستظل تستخدم لجميع مستخدم الأكسيل فى الوطن العربى كله لتقسم الأسم وقمت بعمل ذلك فعلا بالدوال ، ولم يكن هناك غير الأسم المركب ففكرت فى هذه المعادلة ولكن عجزت أيضا لأن لها مدى ، وأن كانت عمليةلتحقيقها فصل العديد من الأسماء مهما كان طولها فأتمنى لك أخى الحبيب التوفيق والتميز ، فهذا يشرفنى ويثلج صدرى تقبل تحيات أخيك

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

وبعد الكود الجميل لأخى الحبيب "إبراهيم " يمكن جلبها بالمعادلات أيضا تقبلوا تحياتى ترحيل بيانات عملاء بين تاريخين.rar

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

بعد إذن أخى الحبيب " الريفى " لوأردت معرفة ، كل أسم على حدة فطريقة أخى الربفى تحقق المطلوب أما إذا أردت إجمالى عدد الأسماء المكررة فأستخدم هذه الصيغة وهى صيغة صفيف أى لابد من الضغط على " CTRL+SHIFT+ENTER" والمعادلة هى" =COUNTA(MATCH(A2:A21;A2:A21;0)) تقبلوا تحياتى