ياسر خليل أبو البراء

أخي الغالي عبد العزيز أخيراً ..أقولها لك أخيراً انتظرتك طويلاً وقد طال انتظاري وها أنت بحمد الله بدأت المشوار والبداية قوية بارك الله فيك وجزاك الله خيراً .. ونصيحتي لك واصل بلا فواصل .. سؤال بقا ع الطاير ..هل يمكن عمل زر أمر للتحكم في الاتجاه أو زر اختيار Check Box بحيث يكون الخيارين في نفس الكود بدلاً من أن يكونا في كودين منفصلين؟

بسم الله ما شاء الله نشاط منقطع النظير يا أخي الغالي مختار رائع ..يبدو أن موضوع Rollover شغل تفكيرك بشكل مدهش ..تسلم على الأفكار المتميزة

أخي الكريم أحمد الرشيدي عفواً لم أنتبه لطلبك إلا الآن .. يمكنك وضع الكود كالتالي ..اضغط Alt + F11 للدخول لمحرر الأكواد ومن قائمة Insert قم بإدراج موديول جديد وضع الكود فيه أخي الكريم madny69 لا أدري كيفية العمل على الأكسيس .. ولكن أعتقد أنه على نفس المنوال والله أعلم يمكنك طرح سؤالك في قسم الأكسس

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

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

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

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

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

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

أخي الكريم محمد الخازمي لا إزعاج ولا داعي للاعتذار فقط أردت التنويه لا شيء آخر عموماً جرب الدالة المعرفة التالية علها تفي بالغرض (مع العلم أنني لا أستحب استخدام التنسيق الشرطي بهذا الشكل المفرط الذي يؤدي إلى ثقل التعامل مع الملف) Function CountCFCells(Rng As Range, C As Range) Dim I As Single, J As Long, K As Long Dim Chk As Boolean, Str1 As String, CFCELL As Range Chk = False For I = 1 To Rng.FormatConditions.Count If Rng.FormatConditions(I).Interior.ColorIndex = C.Interior.ColorIndex Then Chk = True Exit For End If Next I J = 0 K = 0 If Chk = True Then For Each CFCELL In Rng Str1 = CFCELL.FormatConditions(I).Formula1 Str1 = Application.ConvertFormula(Str1, xlA1, xlR1C1) Str1 = Application.ConvertFormula(Str1, xlR1C1, xlA1, , ActiveCell.Resize(Rng.Rows.Count, Rng.Columns.Count).Cells(K + 1)) If Evaluate(Str1) = True Then J = J + 1 K = K + 1 Next CFCELL Else CountCFCells = "Color Not Found" Exit Function End If CountCFCells = J End Function جمع2.rar

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

كلام جميل أخي الحبيب جعفر لا زلنا ننتظر المزيد من التفاصيل حول كيفية إنشاء الملف بهذه الصورة بالتفصيل ... لو تكرمت علينا أن تشرح خطوات العمل بدون ملف مرفق ..اشرح بالخطوات 1 - 2 - 3 - 4 وهكذا لتتضح الصورة أكثر أين يتم تخزين الصور ..وكيف يمكن التعامل مع الصور بإظهارها كلها مرة واحدة ؟؟ ولما الكليك يمين معطل في الملف المرفق من قبلكم لا تعطيني سمكة ولكن علمني كيف أصطاد؟

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

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

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

أخي الكريم في هذا السطر If cl <> "" Then GoTo 1 يتم انهاء التعامل مع الإجراء الفرعي بالانتقال إلى آخر سطر مما يجعل الحساب التلقائي لا يتم تفعيله في هذه الحالة .. اجعل الرقم 1 عند السطر Application.Calculation = xlAutomatic وليس السطر الأخير جرب وأعلمني بالنتيجة

أخي الكريم محمد ما هو الشرط لتلوين الخلايا الحمراء ؟ لما لا تستخدم الدالة Countif إذاكان شرط واحد أو الدالة Countifs إذا كان هناك عدة شروط ..؟

بارك الله فيك أخي الحبيب أبو نصار ولكن ما زالت نفس المشكلة قائمة ..لا تظهر نتائج البحث في الليست بوكس

جرب بهذا الشكل وإن كنت لم أفهم المطلوب بشكل كامل If B > C + (2 / 100) Then C = C + B

أخي المستخدم ممكن ترفق ملف توضح فيه المطلوب أفضل ..لأن الطلب غير واضح بهذا الشكل هل تقصد المتغير b أكبر من c ؟؟؟ وهل تقصد النسبة المئوية مضافة لأحد المتغيرين ؟؟؟ وضح بمثال

أخي الكريم ارفق ملفك ليسهل تقديم المساعدة من إخوانك

أخي الحبيب جعفر دائماً ما تتحفنا بكل ما هو جديد ومفيد ممكن إلقاء مزيد من الضوء حول ChrW وما الفائدة من استخدامها ؟ ولو فيه جدول يوضح المقابل للحروف العربية أكون لك ممتن تقبل تحياتي

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

أخي الكريم يرجى إلقاء مزيد من الضوء على شكل النتائج المتوقعة ليسهل تقديم المساعدة من قبل إخوانك ..الطلب مبهم كثيراً

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