بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، ترددت كثيرا في الرد وقد حضرت لك ملفا تنفيذيا لكيفية إضافة مفاتيح CommandButtons في كل ورقة من أوراق MultiPages غير أني لا أفيدك بطريقة ربط هذه المفاتيح بكود (لم أتمكن من إيجاد حل لها) ومعذرة لذلك... غير أن ذلك ممكن لو أنشأت MultiPages في فورم UserForm، ففيه يمكن برمجة هذه المفاتيح بالطريقة المعتادة.... أخوك بن علية ملاحظة: تم تحضير الملف التنفيذي بالتطبيق في نسخة إكسيل 2010 بالفرنسية... الملف المرفق : 15.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، إن بقي العمود E فسيؤثر في المعادلة إذ أنها ستعطي خطأ باعتبار أن الدالة SUMPRODUCT تعتمد المصفوفات التي لها نفس الحجم وبما أن من خصائص الدالة أنها تجمع جداءات لذلك فيجب أن تكون المصفوفات من العرض نفسه (الصفوف) أو الارتفاع نفسه (الأعمدة)... وفي مثالنا المصفوفات المستعملة من خليتين متجاورة وإذا تُرك العمود E ستكون المصفوفة الثانية التي استعملت فيها الدالة OFFSET من ثلاث خلايا وهذا يحدث به الخطأ... وإذا أردنا تركه فهنا يجب تغيير صيغة المعادلة والتخلي عن استعمال الدالة SUMPRODUCT (إلا إذا أدرجنا عمودا آخر في الجدول بالأعلى بين عمودي عملة الدولار وعمود عملة اليورو) واستبدالها بإحدى دوال البحث (مثل INDEX أو VLOOKUP أو غيرهما) ولكن تُستعمل الدالة المختارة مرتين وهذا يجعل المعادلة أطول... والله أعلى وأعلم أرجو أني وُفّقت في تقريب المفهوم... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، تم تعديل طفيف في أعمدة الجدول (حذف العمود E الصغير) وهذا لتبسيط المعادلة المستعملة للعملية المطلوبة... أرجو أن يفي هذا بالمطلوب... أخوك بن علية الملف المرفق : Determine the exchange rate corresponding to the date.rar

السلام عليكم ورحمة الله أخي الكريم قنديل، هذا مرفق آخر فيه تعديل على معادلة ترتيب الأسماء حسب الترتيب بالدرجات.... أخوك بن علية المرفق : Book1_3.rar

السلام عليكم ورحمة الله أخي الكريم، معذرة على هذا الخطأ غير المقصود لقد قمت بفتح الملف وتعديل الكود في نسخة إكسيسل 2007 لذا ظهر الخلل عند فتح الملف بنسخة إكسيل 2003... قد تم إنشاء الملف من جديد في نسخة 2003 واستبدال المرفق في الرد السابق بالأعلى بالمرفق الجديد... أتمنى هذه المرة أن يعمل معك الملف... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم قنديل الصياد، تم التعديل على الكود حسب المطلوب (الرتبة تأتي دون كلمة "مكرر" وفي حالة التكرار تضاف لها كلمة "مكرر") وذلك باستبدال السطر : If WorksheetFunction.CountIf(Cer_Range, X_Mar) <> 1 Then TEXT_M = " مكرر " بالسطرين : Set MRange = Range(Cells(3, X_Mar.Column), Cells(X_Mar.Row - 1,X_Mar.Column)) If WorksheetFunction.CountIf(Cer_Range, X_Mar) <> 1 And WorksheetFunction.CountIf(MRange, X_Mar) >= 1 Then TEXT_M = " مكرر " تجد هذا التغيير بين السطرين ----------------------------------------------------------------------------------------------' أرجو أن يفي هذه بالمطلوب.... أخوك بن علية الملف المرفق : Book1_2.rar

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

السلام عليكم ورحمة الله أخي الكريم، إن الكود في هذه الحالة لا يصلح لأن فيه أمر (ضروري) يقوم بمسح ألوان كل الورقة عند مغادرة الخلية النشطة إلى خلية أخرى... والحل هو استعمال طريقة "التنسيق الشرطي" Mise en forme conditionnelle وهي الطريقة الوحيدة التي تليق بهذه الوضعية.... والله أعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم حمادة، لقد تم إضافة زر بكود في شيت "عام" لمسح البيانات دون المعادلات من الشيتات الأربعة (مطروح-طائرة-الاتوبيس-تعديل) مع تعديلات أخرى... ولم يكن هناك داع لفتح موضوع جديد للمسألة نفسها... أخوك بن علية الملف المرفق : مانفست كلابشة_Ali5.rar

السلام عليكم ورحمة الله أخي الكريم حمادة، تم، في ملفي المرفق الأخير، إدراج كود أخي الحبيب طارق لمسح البيانات دون المعادلات في كل الأوراق (أوتوبيس-طائرة-مطروح-تعديل)... أرجو أن يفي بالغرض... أخوك بن علية الملف المرفق : مانفست كلابشة_Ali5.rar

السلام عليكم ورحمة الله أخي الكريم سعيد، حاولت أن أفهم ما تطلبه ولكن دون جدوى، هل يمكن وضع مثال توضيحي أو زيادة بعض الشرح ليُفهم المطلوب أكثر... أخوك بن علية

السلام عليكم أخ coucopu72 من المفروض أن تفتح موضوعا جديدا تضع فيه طلبك وليس أن تدخل مواضيع أخرى وخاصة لما يكون طلبك لا يتوافق مع طلب صاحب الموضوع الأصلي وقد فعلتها في مواضيع أخرى... بالنسبة لموضوعك حضرت لك الكود التالي : Sub Sort_Data() With Feuil1.Sort .SetRange Range("B2:B" & Range("B65000").End(xlUp).Row) .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("B2").Select End Sub وقد أرفقته بالملف المرفق... الملف المرفق : Classeur1.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، والحل بالدالة SEARCH بالملف المرفق... أخوك بن علية الملف المرفق : حساب النقاط_Search.rar

السلام عليكم ورحمة الله أخي الكريم، حضرت لك الملف التنفيذي بالمرفقات يبين عملية إضافة دالة جديدة إلى قائمة الدوال عن طريق Add-Ins وكيفية تمكينها مع الوظائف حتى تكون مفعلة عند فتح برنامج إكسيل... ونسخة الإكسيل المستعملة هي نسخة إكسيل 2007 بالفرنسية... أرجو أن يكون مفيدا للمطلوب... أخوك بن علية الملف المرفق : 12.rar

السلام عليكم ورحمة الله أخي الكريم، يجب عليك تغيير عنوان الموضوع لأن العنوان "من يساعدني" هو عنوان مخالف للقوانين (راجع قوانين المشاركة في المنتدى بأعلى الصفحة الأولى)... بالنسبة لموضوعك قمت بإدراج عمودين إضافيين K و L تم وضع معادلات جلبتهما من موضوع مشابه في منتدى آخر كنت قد قمت بمساعدته فيه... العمود المساعد K يمكن إخفاؤه... أرجو أن يفي هذا بالغرض المطلوب... أخوك بن علية الملف المرفق : africa.zip

السلام عليكم ورحمة الله أخي الكريم، ما هي نسخة الأوفيس التي تعمل عليها ؟ أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، لإضافة الدالة إلى قائمة الدوال وتكون متوفرة عند فتح برنامج إكسيل يجب اتباع الخطوات التالية: 1- فتح ملف جديد 2- نسخ ولصق الدالة (نص كود الدالة) باستعمال محرر VBA في موديول Module 3- حفظ الملف باسم (تختاره) بالتنسيق .xla في نسخة 2003 والتنسيق .xlam في النسخ المتقدمة 2007 فما فوق (دون تغيير مسار التسجيل التلقائي وهو مسار "الوظائف الإضافية") 4- الموافقة على الحفظ 5- تمكين الوظيفة الجديدة في إكسيل كيفية تمكين الوظيفة : * في نسخة 2003 : - فتح خاصية "أدوات" Tools - وضع علامة داخل مربع (بواسطة الفأرة Mouse) للاسم الذي سميته سابقا - الضغط على OK ثم غلق برنامج إكسيل وفتحه من جديد وستجد بإذن الله الدالة متوفرة في القائمة... * في نسخة 2007 فما فوق - فتح خاصية "خصائص إكسيل" Options Excel (حسب النسخة) - اختيار "وظائف إضافية" Add-Ins - ثم اختيار "وظائف إضافية للإكسيل" Excel Add-Ins ثم فتح "إدارة" Manage بأسفل العلبة (على اليمين أو اليسار حسب لغة الواجهة) وبعد النقر على Go يتم اختيار الوظيفة الجديدة المسماة. ملاحظة : عند نقل الملف استعملت فيه هذه الدالة إلى جهاز آخر لا تتوفر فيه هذه الوظيفة (الدالة) نتحصل على الخطأ NOM# أو NAME# وهو خطأ عدم توفر الدالة في الجهاز... أرجو أني وُفقت في شرح العملية... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، قمت بعدة تعديلات في الكود وفي أوراق العمل لمحاولة جعل الملف يعمل دون مشاكل... بالنسبة لكود تغيير اللغة فهو يعمل عندي على أحسن وجه (إلا أنه -معي- يقوم بإلغاء لوحة الأرقام)... أخوك بن علية الملف المرفق : مانفست كلابشة_Ali5.rar

السلام عليكم ورحمة الله أخي الكريم، يستحسن في هذه الحالة استبدال المعادلات التي استعملت فيها الدالة IF بمعادلات بسيطة باستعمال الدالتين INDEX و MATCH (ما دام لديك في الملف جدولا مرجعيا C4:D14) -انظر الملف المرفق-... يمكن أيضا استعمال الدالة SEARCH في مثل هذه الحالات... أخوك بن علية الملف المرفق : حساب النقاط.rar

السلام عليكم ورحمة الله أخي الكريم، معذرة على التأخير بسبب السفر، و أقدم لك الملف التنفيذي التالي الذي يشرح عملية تغيير مستوى أمان الماكرو في أوفيس 2007 -النسخة بالفرنسية- أرجو أن يفي بالغرض... أخوك بن علية الملف التنفيذي : hb1.rar

السلام عليكم ورحمة الله أخي الكريم حمادة، أعتقد أنه يجب أن تضيف كلمة PtrSafe بين كلمتي Declare و Function في السطرين 5 و 6 من الكود وستعود بإذن الله المياه إلى مجاريها... والله أعلى وأعلم انظر إلى الرابط التالي (بالإنجليزية) عله يكون أكثر فائدة مما قدمته بالأعلى... الرابط : http://msdn.microsoft.com/en-us/library/office/gg278581.aspx أخوك بن علية

السلام عليكم ورحمة الله أختي الكريمة نادية، إن الأخ عباد قدم -على ما أعتقد- صورة لتطبيق عملية البحث على نسخة الملف في الرد رقم 21# (دون CheckBox أو قيمته تساوي 0) لذلك عملية البحث عن العدد 10 أعطت جميع البيانات التي رقم ICn يحوي العدد 10 سواء في رقم اليوم أو رقم الشهر أو رقم السنة أو الرقم الذي ينتهي به ICn... وأرقام ICn التي استخرجت بياناتها هي : 257/2010/10/24 (وهنا الرقم 10 موجود في رقم الشهر ورقم السنة) - 253/2012/05/10 (هنا العدد 10 موجود في رقم اليوم) - 10/2012/01/04 (والعدد 10 موجود في نهاية رقم ICn) وهذا سبب ظهور هذه البيانات... بالنسبة لعدم عمل الملفات بطريقة صحيحة في جهازك فهذا ليس لي فيه أي تفسير... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، ليس في الملفين المرفقين أدنى مشكل، الدالة المستحدثة SheetNum تعمل جيدا وأعتقد أن المشكل معك هو المشكل الذي فتحت موضوعا جديدا من أجله وهو موضوع "أريد حلا" (رغم أن العنوان ينافي قواعد المشاركة في المنتدى) ففي الإكسيل عندك مستوى أمان الماكرو مرتفع وعند فتح أي ملف يحتوي على ماكرو (مثل الدالة المستحدثة) بهذا المستوى من الأمان يتم تعطيلها لذلك ظهر الخطأ الذي تسأل عنه... عليك تخفيض أمان الماكرو ثم افتح أي ملف يحتوي على ماكرو فبإذن الله لن تجد مشاكل في تنفيذ الماكرو والعمل بالدوال المستحدثة... والله أعلى وأعلم. أخوك بن علية