عبدالله المجرب

السلام عليكم تفضل الماكرو بعد التعديل عليه tafkeet.rar

السلام عليكم اخواني الكرام الى حين ان يتم رفع دروس جديدة اليكم هذا السوال == قم بعمل دالة تقريب تقرب الكسر حسب هذه الشروط 1. من 0.01 الى 0.05 يتم التقريب الى 0.05 2. من 0.06 الى 0.09 يتم التقريب الى 0.1 مثالين 1.53 ======== 1.55 1.39 =====1.4

اخي الفاضل السبب في الفاصلة الغير منقوطة =ROUND(A1*2;1)/2

على عجالة لانها دقت ساعة اغلاق الكمبيوتر في حدث الصفحة ضع هذا الكود Private Sub Worksheet_Calculate() [G10] = [G10] + [E6] End Sub

السلام عليكم شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=37057

السلام عليكم ملفك المرفق لا يعمل هذا ملف للاستاذ سالم شباني حفظه الله جربه دينار كويتي (1).rar

السلام عليكم اخي فضل جرب هذا الكود ضعه في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [E6]) Is Nothing Then [G10] = [G10] + [E6] End If End Sub

اخي سعد جرب ان تاخذ تنسيق اي خلية مجاورة (بالفرشاة) ثم تنسخ هذا التنسيق الى خلايا المعادلة

السلام عليكم اخي الكريم رغم ان الموضوع في الوورد هذا ملف اكسل تم نسخ الابيات اليه (نسخ ولصق) وتم استعمال دالة لفصل اخر كلمة (طول الكلمة غير مهم) فصل أخر كلمة.rar

السلام عليكم ضع هذه المعادلة =COUNTIF($B$1:$B$7000;B1) في الخلية D1 ثم اسحبها الى الاسفل ثم قم بعملية فرز من الاصغر الى الكبر على حسب هذا العمود

اخي احمد الغانم من وجهت نظري ان الموضوع كومه معلومات عامة فليس فيه ضرر او مخالفة والله اعلم

تابع هذا الرابط http://www.officena.net/ib/index.php?showtopic=32813

السلام عليكم اخي الفاضل نرجو عدم فتح موضوع وما زال الموضوع السابق نشط == تم دمج الموضوعين

الاستاذ محمد صالح البشمهندس طارق عمل مميز وعن نفسي ساحاول شرح ما اعرفه من دوال وفي هذا الرابط ملف للدوال ولكنه باللغة الانجليزية http://www.officena.net/ib/index.php?showtopic=39190

بصراحة المطلوب غير مفهوم على الاقل بالنسبة لي

الاستاذ الفاضل / سعد عابد الاستاذ الفاضل / احمدزمان ابو ابراهيم الاستاذ الفاضل / jarwan الاستاذ الفاضل / abouelhssan الاستاذ الفاضل / الشهابي الاستاذ الفاضل / نورسعيد الاستاذ الفاضل / فضل 1 الاستاذ الفاضل / Ahmed Elbhiry الاستاذ الفاضل / عبدالله باقشير ابو علي (لا انسى ولا انكر فضلكم بعد الله فيما تعلمته) الاستاذ الفاضل / new4a ملفك المرفق هو الاساس الاستاذ الفاضل / TareQ M الاستاذ الفاضل / أ / محمد صالح ابوعبدالله الماسة المنتدى الاستاذ الفاضل / khaledocom الاستاذ الفاضل / مجدى يونس. شكراً لكم جميعاً

بعد إذن الاخوة المشرفين تم تثبيت الموضوع للفائدة

الاستاذ الفاضل بن عليه حل رائع جداً جداً جداً

اخواني الكرام قد يكون الموضوع مكرر وهناك دوال وضعت واخرها وضعت في مشاركة الاخ new4a هنا http://www.officena.net/ib/index.php?showtopic=40651 في المرفق ثلاث دوال معرفقة هي: 1. CountColor وهي لحساب خلايا ملونه بلون محدد في مدى محدد. 2. SumColorValue وهي لحساب القيم داخل خلايا ملونة بلوون محدد في مدى محدد. 3. NoColor وهي لمعرفة رقم اللون في الخلية. ===== تتكون الدالتين CountColor & SumColorValue من بارو مترين الاول للمدى والثاني لرقم اللون فان كنت تعرف رقم اللون كان بها يمكنك وضعه مباشرة والا يمكنك دمج الدالة NoColor معهما اذا كنت لا تعرف رقم اللون ========== اعدت رفع الموضوع بعد تبسيط الدالة مقارنة بالدالة الموجودة في المرفق في الرابط اعلاه والله ولي التوفيق دوال الالوان.rar

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

حياك الله اخي عادل == تمت الاجابة

السلام عليكم انت كذي تزعلنا منك فانت في اوفيسنا فلا تخجل من طرح ما تريد من استفسارات لكن اتمنى ان تضع عناوين مناسبة للمطلوب ===== بفرض ان الرقم في الخلية C2 ضع هذه المعادلة في الخلية المقابله =MID(C2;LEN(C2)-2;3)

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

السلام عليكم جرب هذا الكود Sub Abu_Ahmed() Dim cl As Range, c As Range, w As Variant t = 2 For Each c In [D2:D8] For Each cl In [C2:C8] If c = Val(Mid(cl, Len(cl) - 2, 3)) Then r = r & Trim(cl) & ",": GoTo 1 Next 1 Next For Each w In Split(r, ",") Cells(t, 3) = w t = t + 1 Next End Sub شاهد المرفق Ques.rar

اخي حسن ولكن هذه المعادلة لا تحسب الالوان بالتنسيق الشرطي