توكل

معذرة من الإخوة الأكارم جزاهم الله كل خير تم إضافة مؤقت للكود السابق لصبح الكود الجديد كالتالي Dim count As Integer Sub Blink() Dim c As Range Dim x As Range If count = 10 Then End End If Set x = Range("L9:L39") For Each c In Range("L9:L39").Cells If c.Interior.ColorIndex = -4142 Then xxxxx = Application.WorksheetFunction.Min(x) If c.Value = xxxxx Then c.Interior.ColorIndex = 3 End If Else c.Interior.ColorIndex = 0 End If Next c BlinkTime = Now() + 1 / 86400 Application.OnTime BlinkTime, "Blink" count = count + 1 End Sub

جزاك الله خيراً أخي الكريم وزادك الله علماً ومعرفة، ورفع قدرك بين عباده

الإخوة الأكارم جزاكم الله كل خير، حاولت أن أطبق الكود السابق بحيث يختار أعلى ثلاثة قيم من النطاق المحدد ولكن يبدو أنني لم أنجح فهل أجد عندكم حلاً بستخدام دالة LARGE دمتم بخير

أخي الكريم إليك هذا الملف من عمل أحد الإخوة الكرام في هذا المنتدى، وعلى ما أذكر أنه الأخ محمد طاهر. يمكنك الإستفادة منه بإدراج دالة IF الشرطية في الخلايا التي تريدها أن توميض للتذكير فقط هذا الملف عمل في عام 2005 م على ما أذكر الملف المرفق FLASHING_CELLS.rar

أخي الكريم يرجى مشاهدة الملف المرفق الملف ______.rar

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

جزاك الله كل خير

أخي الكريم إليك هذا الكود البسيط ActiveCell.Select Selection.Copy ActiveCell.Next(r + 1, C + 1).Select

أخي كريم جزاك الله كل خير ووفقك لما يحبه ويرضاه مع دعائي لك ولإخوان المنتدى بكل خير

للرفع بارك الله فيكم

الإخوة الأكارم: هل هناك دالة في الإكسل تسطيع قرأة الهللات فإذا كان المبلغ مثلاً 4.04 فتكتبه 4.00 أما إذا كان بين 7و 5 تكتبه 4.05 وإذا كان أكبر أو يساوي 8 أو 9 يصبح 10 هللات 4.10 . مع جزيل الشكر والتقدير

شكراً لك أخي على الرد، ولكن أنا أريد أن أغلق الماكرو أو أعلم المستخدم بوجود خطأ، وفي حالة وضعت الكود On Error سوف يأخذ الخطوة التالية في الماكرو وهذا ما لا أريده جزاكم الله كل خير.

لدي ماكرو كتبته لفتح ملفات TxT بواسطة الإكسل وتحويلها لجداول إكسل، ولكن عندما يكتب المستخدم اسم ملف خطأ في صندوق فتح الملف، أو يضغط على زر الإلغاء يتولد لدي رسالة خطأ بتنفيذ الماكرو، حاولت جاهداً أن أضع لها شرط بواسطة IF أو باستخدام In Error Go To لكن لم أفلح فهل لكم أن تفيدوني جزاكم الله خيراً وهذا هو الكود الذي أستخدمه لفتح الملفات و Workbooks.OpenText Filename:=InputBox("فتح ملف", "اكتب اسم الملف المطلوب") شكراً لكم على سعة صدركم سلفاً

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

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

الاخت سلمى عسى أن يفي الملف المرفق بالغرض المرفقات 11.rar

السلام عليكم تحسين بسيط في المعادلة، عسى أن تعجبكم، إن شاء الله برجاء الدعاء الملف المرفق __________.rar

بارك الله في أخي سمير، محاولات بسيطة للحاق بركب الإخوة الأكارم، الذين فاقوا كل توقع بعلمهم الرائع

الأخ سندباد الرجاء التكرم النظر في الملف المرفق، فالمعادلة فيه سهلة للغاية الملف المرفق __________.rar

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

بالأذن من الأخ الكريم أبو أسامة يرجى مراجعة المرفق _________________.rar

الأخ الكريم يرجى النظر في الملف المرفق حيث تم تعديل الكود ليشمل كل الأسطر المختاره، بدلاً من السطر الذي فيه الخلية النشطة وتم وضع كلمة مرور كما طلبت. مشاركة متواضعة لا ترقى لمستوى مشاركات العملاقة، و لكن هذا جهد المقل نسألكم الدعاء ___________________.rar

أخي الكريم سمير حفظه الله الكود سيعما تلقائياً بمجرد أن تفتح الملف إذا تحقق الشرط فسيتم مسح محتويات المدى المطلوب إن شاء الله __________________________if.rar

الأخ الكريم سمير يرجى النظر في الملف المرفق الملف هنا عمل على أساس أن المدى محدد، كما في الملف الذي أرفقته أما إذا كان المدى متغير فأرجو أن تخبرني بذلك لتعديل الكود. __________________________if.rar

جزاكم الله خيراً وما مشاركتي بجانب مشاركات العمالقة من أهل هذا المنتدى