زياد علي

بسم الله والصلاة والسلام على رسول الله السلام عليكم الأن يمكنك تشغيل الملفات بإمتداد EXE وانت على تطبيق إكسيل ،،،، لن أطيل عليكم ،،، من فضلك حمل المرفق أتمنى أن يكون ما بالمرفق مفيد للجميع مودتي وتقديري EXE تشغيل ملف.rar

السلام عليكم اخي saleh2006 حياك الله إذا كانت الملفات بها نفس المشكلة فما عليك إلا إتباع التالي : من القائمة EDIT اختر GO TO ومنها اضغط على SPECIAL ثم اختر علامة تبويب OBJECTS إذا كانت نسخة الاوفيس التي لديك عربي إذاً عليك إتباع التالي : من القائمة تحرير اختر الانتقال إلى ومنها اضغط على خاص ثم اختر علامة تبويب كائنات ،،، وبالتالي تظهر لك جميع الكائنات ،،، وتستطيع إزالتها ،،، لك مني كل المودة والتحية

السلام عليكم اخي saleh2006 ماذا تعني لك هذه الصورة : لقد تم عد ما يقرب عن 141 شكل من هذا الشعار ،،، بعد إزالة هذه الاشكال - الصور الصغيرة - عاد الملف للحجم الطبيعي مودتي وتقديري تاسع ا وائل1.rar

لسلام عليكم اخي khhanna اخي محمد صالح اخ خالد القدس بورك فيكم ،،، حياكم الله بما هو أهلٌ له ،،،، والله يفتح علينا وعليكم فتوح العارفين لك مني كل المودة والتقدير اخي khhanna في الحقيقة معلوماتي بسيطة جداً في برنامج الباوربوينت ومن قال لا أعلم فقد افتى ،، تحياتي للجميع

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

السلام عليكم اخي الحبيب مزلزل حول ذات الموضوع اهدي لك ولجميع الأعضاء هذه المشاركة http://www.officena.net/ib/index.php?showtopic=30847 مودتي وتقديري لشخصكم العزيز

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

السلام عليكم اخي طالب علم مبتدىء اخي galo استاذي ومعلمي الأول TareQ M اخي ezzarqtouni انتم الأروع ،،، والله ،،، اشكركم من أعماق قلبي على هذا التفاعل الطيب المشجع على المزيد من العطاء ،،، والذي لا يصدر إلا عن قلوب طيبة وطاهرة ونقية ،،، مودتي واحترامي للجميع

السلام عليكم اخي الوافي حياك الله السؤال غير واضح ،،، ولكن لا أدري إن كان ما بهذا الرابط يفي بالغرض : http://www.officena.net/ib/index.php?showtopic=30320 إن لم يكن كذلك ،،، نأمل توضيح أكثر مودتي وتقديري

السلام عليكم اخي taksmdz اخي ياسر خليل شكراً على مروركم ،،، وعلى كلماتكم الطيبة مودتي وتقديري

السلام عليكم اخي ab12sa انا استخدام windows7 ايضاً ،،، مفتاح alt+F11 شغال مائة بالمائة ،،، ممكن نسخة الاوفيس ،،، مع العلم أنني استخدم اوفيس 2003 . مودتي وتقديري

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

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

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

بسم الله والصلاة والسلام على رسول الله السلام عليكم ما أجمل الجداول المحورية ،،، بل قل ما أجمل وما أروع برنامج الاكسيل ككل ،،، ولكن في بعض الأحيان لاتؤدي بعض أدوات البرنامج المطلوب بعينه ،،، أو كما نحب ونرغب ،،، فعلى سبيل المثال لا الحصر ،،، الجداول المحورية في وضع الاستخدام العادي تقوم بعمل تقرير ملخص للبيانات المصدر ضمن المدى المحدد ،،، دون إضافة التفاعل المطلوب ،،، ما لم !!! ما لم يتم إضافة بعض المهارات التي علينا أنت نتعلمها جميعاً ،،، حتى نحقق أفضل النتائج بأقصر طرق ممكنة ،،، ،،، وتأسيساً على ما سبق نسوق المثال التالي : ،،، فهذا الجدول المحوري يقوم بتلخيص البيانات الموجودة في ورقة البيانات المسماه (Source Data) ضمن المدى الديناميكي (dynarange) ،،، مع إضافة كود بسيط جداً مقترن بورقة البيانات التي يوجد بها الجدول المحوري والمسماه (ZEZO) : Private Sub Worksheet_Activate() Sheets("ZEZO").PivotTables("PivotTable1").RefreshTable End Sub وبالتالي بهذه الإضافات البسيطة تم خلق التفاعل المطلوب وهو بمجرد تدوين البيانات في ورقة (Source Data) والقيام بفتح ورقة (ZEZO) ،، يتم تحديث بيانات الجدول المحوري مباشرة ،،، ،،،هذا وبالله التوفيق ،،، ،،،أتمنى أن يكون المرفق مفيد للجميع ،،، ،،، مودتي وتقديري ،،، جدول محوري تلقائي التحديث.rar

السلام عليكم اخي الحبيب جمال ما عندك أي مشاكل ،،، تفضل أخوك إن شاء الله في الخدمة ،،، وأية استفسار في حدود معلوماتنا المتواضعة فنحن بالخدمة ،،، مودتي وتقديري

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

السلام عليكم بعد إذن الأخ الحبيب badico اخونا جمال حسين رشدان ،،، حياك الله ،،، لكي تتضح لك الصورة فها هي قيود البضاعة : 1- في أخر العام : ×× من ح/ المتاجرة ×× إلى ح/ بضاعة أول المدة . ×× من ح/ بضاعة أخر المدة ×× إلى ح/ المتاجرة . وبالتالي آخر العام : سيتم إقفال ح/ بضاعة أول المدة وإثبات ح/ بضاعة أخر المدة . 2- بداية العام الجديد : في القيد الافتتاحي : ×× من ح/ بضاعة أول المدة - هي آخر المدة العام السابق- ×× من مذكورين : بقية الأصول ... ×× إلى مذكورين : الخصوم + حقوق المكلية .. وبالتالي لا يوجد مقابل مباشر للبضاعة وإنما هو إنعكاس لحساب المتاجرة في بند حقوق الملكية ،،، اتمنى أن أكون قد وفقت في الإجابة ،،، واي إستفسار أنا جاهز ،،، والاستعانة بالله ،،، مودتي وتقديري

السلام عليكم اخي الحبيب NEW4A اخي الحبيب HaNcOcK جزاكم الله عني كل خير ،،، وتشرفت بمروركم العطر ،،، وأأسف على التأخر في الرد بخصوص الشرح حيث أنني قمت بتحضيره ليلة البارحة ولكن النعاس كان قد غلبني وها هو الشرح : أولاً : لكي يتم فهم الكود يجب أن يتم شرح الأمر FOR……NEXT : الأمر FOR……NEXT الوظيفة : يستخدم هذا الأمر لتكرار مجموعة من الأوامر عدة مرات بدلاً من إعادة كتابتها وتعتمد الفكرة الأساسية على تخصيص متغير لحساب عدد مرات التكرار ، أي أن ذلك المتغير يصبح عداد لمرات التكرار ، حيث يبدأ المتغير بقيمة ما ويتنهي بقيمة آخرى ، ويزداد – أو ينقص- بمعدل ثابت . الصيغة العامة : FOR المتغير = قيمة البداية TO قيمة النهاية STEP مقدار الزيادة أو النقصان مجموعة الأوامر التي سيتم تكرارها NEXT المتغير وفي مثالنا هذا : For i = 1 To 80 Selection.ShapeRange.TextEffect.Tracking = m m = m + 0.125 DoEvents Next i سيتم تكرار مجموعة الأوامر المحصورة بين جملة بداية التكرار (FOR) وجملة نهاية التكرار (NEXT) مقدار 80 مرة، وقد تم استخدام متغير باسم i ، وهو يعتبر بمثابة عداد لمرات التكرار ، حيث بدأ المتغير بالقيمة 1 وفي كل مرة تنفذ فيها مجموعة الأوامر يزداد المتغير بقيمة مقدارها 1 إلى أن يصل إلى قيمة النهاية (وهي في مثالنا هذا 80 ) حيث يخرج البرنامج من الحلقة التكرارية وينفذ الأوامر التي تلي أمر نهاية التكرار (NEXT) ، وتجدر الإشارة هنا إلى أن أمر –STEP الموجود في جملة بداية التكرار –FOR يمكن الأستغناء عنه إذا كان مقدار الزيادة المطلوب هو 1 ، وهي القيمة الافتراضية للبرنامج . =================================================================================================== ثانياً شرح الكود : Option Explicit Dim oldcell As Range ' حجز متغير من النوع كائن نطاق Dim m As Variant ' الإعلان عن متغير عام يقوم بحساب قيمة حركة النص Dim i As Variant 'الإعلان عن متغير عام يقوم بوظيفة عداد لمرات تكرار الإجراء Sub StartDemo() On Error Resume Next Set oldcell = ActiveCell 'تخصيص النطاق المعلن عنه ليحل محل الخلايا النشطة ActiveSheet.Shapes("WordArt 1").Select 'لاختيار النص الأول m = 1 'قيمة المتغير الذي تم الإعلان عنه ليقوم بعملية الاحتساب For i = 1 To 80 'الدخول في الحلقة التكرارية حيث سيقوم بتفيذ الأمر المطلوب 80 مرة Selection.ShapeRange.TextEffect.Tracking = m 'تخصيص واستدعاء لللإجراء المطلوب للمتغير المعلن عنه m = m + 0.125 'لتنفيذ مقدار الزيادة والنقص وإعطاء نوع التأثير المطلوب وممكن من هنا أن تقوم بتعديل القيمة جرب مثلاً '.5 DoEvents 'حتى نتمكن من مشاهدة الحدث وهو الحركة المطلوبة وفي حالة عدم وجود هذه الجملة فلن يتحرك النص 'الباقي تكرار لما سبق ولكن بطريقة عكسية حتى يقوم النص بالدوران Next i For i = 80 To 1 Step -1 Selection.ShapeRange.TextEffect.Tracking = m m = m - 0.125 DoEvents Next i Selection.ShapeRange.TextEffect.Tracking = 1 'حتى يرجع النص لما كان عليه 'نفس المطبق على النص الأول يطبق على الثاني ActiveSheet.Shapes("WordArt 2").Select For i = 1 To 8 Selection.ShapeRange.IncrementRotation 45# DoEvents Next i Selection.ShapeRange.TextEffect.Tracking = 1 ActiveSheet.Shapes("WordArt 2").Select m = 1 For i = 1 To 80 Selection.ShapeRange.TextEffect.Tracking = m m = m + 0.25 DoEvents Next i For i = 80 To 1 Step -1 Selection.ShapeRange.TextEffect.Tracking = m m = m - 0.25 DoEvents Next i Selection.ShapeRange.TextEffect.Tracking = 1 ActiveSheet.Shapes("WordArt 2").Select For i = 1 To 16 Selection.ShapeRange.IncrementRotation 45# DoEvents Next i Selection.ShapeRange.TextEffect.Tracking = 1 oldcell.Select End Sub أتمنى أن يكون الشرح مفيد وواضح ،،، شاكراً للجميع حسن الأهتمام مودتي وتقديري للجميع

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

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

بسم الله والصلاة والسلام على رسول السلام عليكم في برنامج الاكسيل يمكن أن يتم تحريك النصوص إلى حد معين. والمثال المرفق يوضح ذلك بشكل بسيط ،،، أرحب بأي إضافة جديدة للمشاركة ،،،، واتمنى أن يكون الموضوع مفيداً WordArt تحريك الـ.rar

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

السلام عليكم اخي المعتصم بالله حياك الله ،،،، منذ ان رايت اسم الظهور الخاص بك في المنتدى ،، خطر ببالي مباشرة مدونتك التعليمية المشهورة ،،، على مشهورة بالنسبة لي ،،، فأهلاً بك في وسط أهلك واحبابك ،، مودتي وتقديري

السلام عليكم الأخ khhanna الأخ سالم شباني بارك الله فيكما وأسأل الله أن يديم عافيته عليكما ،،، وعذراً للتأخر بالرد فهذا الوقت الوحيد الذي اكون به متفرغاً ،،، ًبالنسبة لتعليقكم تقريباً متشابه ،،، وهو أن الكود يصدر مهما كانت القيمة ،،، والواقع كذلك ولكن متى ؟؟؟ إذا كانت أي قيمة في المجال المشار إليه اكبر من 10 فإن الكود سيستمر بالتنبيه ،،، أما إذا كان التنبيه يصدر عند كل تغيير في خلايا ورقة العمل فما فائدة الكود أصلاً ،،، لذا فإن الفكرة الأساسية للكود هو الإستمرار بالتنبيه عند كل تغيير في ورقة العمل طالما القيمة اكبر من 10 بالمجال المختار ،، جرب أن تقوم بمسح القيم وتحرير قيم تساوي 10 أو أقل واكتب في أي مكان شئت لن يصدر التنبيه ،،،، ============================================================================================= الاخ : ياسر خليل الاخ: يحياوي حياكم الله وشاكراً لكم الاهتمام بالموضوع والمشاركة ،،، وأقول إن لم يعمل لديكما هذا الكود بالشكل المطلوب وذلك لسبب أو آخر فإن أستاذنا الفاضل محمد حجازي رده الله إلى المنتدى رداً جميلاً قد كانت له مساهمة رائعة بهذا الخصوص منذ خمس سنوات تقريباً حيث إعتمد فكرة إنشاء دالة اسماها Sound والموضوع موجود على هذا الرابط و في رأيي المتواضع أن الموضوع أكثر من رائع : http://www.officena.net/ib/index.php?showtopic=5311 =======================================مودتي واحترامي للجميع============================================