سمير نجار قام بنشر مايو 16, 2009 قام بنشر مايو 16, 2009 السلام عليكم ورحمة الله وبركاته السادة الكرام مشرفين وأعضاء هل يمكن أن نحصل على عمل دالة max برمجيا" وليس كدالة ؟ أي عن طريق البرمجة في الصفحة او في الموديول ؟ في الملف المرفق طريقيتن للحصول على عمل دالة max 1- عن طريق كتابة الدالة في الخلية 2- عن طريق تنسيق شرطي لعدد الخلايا هل يكمن الاسنغناء عن هاتين الطريقتين بكتابة كود برمجي طبعا" لا يشترط اجتماع الطريقتين معا" إنما ذكرتهما للتوضيح فقط ولكم كل الشكر السلام عليكم conditional.rar
ابو اسامة العينبوسي قام بنشر مايو 16, 2009 قام بنشر مايو 16, 2009 السلام عليكم هناك طرق كثيرة Dim X As Long For Each cell In Range("a1:a10") X = Application.WorksheetFunction.Max(Range("a1:a10")) If cell = X Then cell.Interior.ColorIndex = 3 Next cell
ياسر خليل أبو البراء قام بنشر مايو 16, 2009 قام بنشر مايو 16, 2009 تسلم الأيادي ياأبو أسامة لو ممكن بقى في نفس النطاق اللي عرفنا فيه القيمة القصوى ، نزود على الكود الموجود ونطلع القيم الأدني بالدالة Min أيضاً مع الاحتفاظ بعمل الكود الأول هذا وأريد أن يقوم الكود بتعطيل عمل الدالتين من خلال زر آخر عاشق الإكسيل
سمير نجار قام بنشر مايو 18, 2009 الكاتب قام بنشر مايو 18, 2009 السلام عليكم ورحمة الله وبركاته استاذي الكريم ابواسامة كل الشكر لك و بارك الله فيك جربت الكود ولاحظت بأنه : 1- الكود لايعمل تلقائيا" ( كما في تنسيق شرطي) يعني لابد من اغلاق الملف ثم فتحه. ( اكيد الخطأ مني) 2-الفلترة لا تعمل . يعني اذا كانت الخلية a5 هي الاكبر سيصير لونها احمر. واذا تغيرت القيم وصارت الخلية a8 هي الاكبر سيصير لونها احمر وتظل الخلية a5 احمر ايضا" وهكذا ( وهذا طبعا" باغلاق الملف ثم فتحه او تشغيل الماكرو بدون اغلاق ) وبارك الله فيك السلام عليكم conditional1.rar
ابو اسامة العينبوسي قام بنشر مايو 18, 2009 قام بنشر مايو 18, 2009 السلام عليكم هنا الحدث عندما تكتب في الشيت conditional12.rar
سمير نجار قام بنشر مايو 18, 2009 الكاتب قام بنشر مايو 18, 2009 السلام عليكم ورحمة الله وبركاته بارك الله فيك استاذي الكريم ابو اسامة وجعله الله في ميزان حسناتك زادك الله واياي والمسلمين علما" نافعا" الكود يعمل بشكل جيد واسمح لي بالاستزادة اكثر أنت ذكرت بأن هناك عدة طرق. فهل يمكن معرفة طريقة أخرى ؟ والسلام عليكم
ياسر خليل أبو البراء قام بنشر مايو 18, 2009 قام بنشر مايو 18, 2009 لو ممكن بقى في نفس النطاق اللي عرفنا فيه القيمة القصوى ، نزود على الكود الموجود ونطلع القيم الأدني بالدالة Min أيضاً مع الاحتفاظ بعمل الكود الأول اللهم علمنا ما ينفعنا ، وانفعنا بما علمتنا عاشق الإكسيل
سمير نجار قام بنشر مايو 19, 2009 الكاتب قام بنشر مايو 19, 2009 السلام عليكم ورحمة الله وبركاته اخي ياسر انا أضفت على كود الاستاذ ابواسامة وان شاء الله يكون هو طلبك السلام عليكم max_min.rar
سمير نجار قام بنشر مايو 19, 2009 الكاتب قام بنشر مايو 19, 2009 السلام عليكم ورحمة الله وبركاته استاذي الكريم ابو اسامة والسادة مشرفي وأعضاء المنتدى هل يمكن جعل الخلية القصوى تومض ولكم كل الشكر السلام عليكم ______MAX_______.rar
ابو اسامة العينبوسي قام بنشر مايو 19, 2009 قام بنشر مايو 19, 2009 السلام عليكم الاخ samnajo هذه طريقه اخرى (سالت عن طرق اخرى) Private Sub Worksheet_Change(ByVal Target As Range) Dim MMax As Variant Dim MMin As Variant Dim MyRng As Range '------------------------------------------ Set MyRng = ActiveSheet.Range("A1:A20") '------------------------------------------ MyRng.FormatConditions.Delete '------------------------------------------ MMax = Application.WorksheetFunction.Max(MyRng) MyRng.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:=MMax MyRng.FormatConditions(1).Font.ColorIndex = 3 '------------------------------------------ MMin = Application.WorksheetFunction.Min(MyRng) MyRng.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:=MMin MyRng.FormatConditions(2).Font.ColorIndex = 5 End Sub FormatConditions.rar
ياسر خليل أبو البراء قام بنشر مايو 19, 2009 قام بنشر مايو 19, 2009 الله ينور عليك يا أستاذ سامي النجار بصراحة روعة بجد آه والله بجد قلت بجد مش هزار بارك الله فيك ، وزادك من علمه الخير والبركة بردو في أبو أسامة!!!نور طريقنا وخلانا نعرف حاجات جديدة علينا تسلم أياديكم آمين الكود العكسي هو مطلبي الآن : يعني بعد ما طبقنا كود الدالتين Max و Min أحب من خلال كود تاني أبطل عملهم.............. عاشق الإكسيل
سمير نجار قام بنشر مايو 19, 2009 الكاتب قام بنشر مايو 19, 2009 السلام عليكم ورحمة الله وبركاته اخي ياسر إليك هذه المشاركة المتواضعة والسلام عليكم FormatConditions1.rar 1
سمير نجار قام بنشر مايو 19, 2009 الكاتب قام بنشر مايو 19, 2009 السلام عليكم ورحمة الله وبركاته كل الشكر والتقدير يا استاذي الكريم ابواسامة نفعنا الله بعلمكم أهل المنتدى وفي ميزان حسناتكم إن شاء الله تعالى الكود يعمل بشكل ممتاز ومن فضلك أكرر سؤالي هل يمكن جعل الخلية القصوى تومض ولكم كل الشكر السلام عليكم
ياسر خليل أبو البراء قام بنشر مايو 19, 2009 قام بنشر مايو 19, 2009 تسلم لي يا أخ سامي ربنا ما يحرمنيش منك ربنا يبارك فيك أحب أتعرف عليك أكتر : الوظيفة - البلد - الهوايات - الإيميل - أي تفاصيل عنك تحب تضيفها لو من مصر رقم التليفون اقبلني كصديق عاشق الإكسيل
سمير نجار قام بنشر مايو 20, 2009 الكاتب قام بنشر مايو 20, 2009 السلام عليكم ورحمة الله وبركاته أخي ياسر خليل بارك الله فيك وجعلنا إخوة متحابين في الله لا أدري هل يجوز إدراج مثل هذه المواضيع ( التعارف) في منتدى الاكسل أم لا على كل حال كتبت المعلومات في ملف وأرفقته لكي لا نجبر أحدا" على قراءته أما من أراد القراءة فليحمله أخوك سمير نجار السلام عليكم your_brother_at_Allah.rar
ياسر خليل أبو البراء قام بنشر مايو 20, 2009 قام بنشر مايو 20, 2009 أخي الكريم سامي لا أدري أنا أيضاً هل يجوز التعارف في المنتدى أم لا ؟؟؟ لكن من وجهة نظري التعارف مطلوب حتى نكون على اتصال دائم ، ونتعارف لأننا مسلمين ، هذا من جهة ولتبادل الخبرات من جهة أخرى لقد فكرت من فترة أن اقترح على مشرفي المنتدى الغالي أن يكون هناك قسم للدردشة ( ليس من أجل الحكي وخلاص ) ولكن من باب التعارف وتبادل الخبرات أود فتح باب الاقتراع -بعد إذن الأساتذة المشرفين طبعاً وليس قبل ذلك - على تصميم قسم للدردشة والتعارف في هذا المنتدى الرائع أعتذر إليكم إذا كنت أخطأت في حقكم أو طلبت ما لا يجب أن أطلبه عاشق الإكسيل
سمير نجار قام بنشر مايو 20, 2009 الكاتب قام بنشر مايو 20, 2009 السلام عليكم ورحمة الله وبركاته السادة المشرفو ن والأعضاء هل يمكن جعل الخلية القصوى تومض ولكم كل الشكر السلام عليكم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.