نجوم المشاركات

السلام عليكم الاستاذ الغالي جدا / احمد فضيله بارك الله فيك مرور يشرفني ويسعدني كثيرا وبارك الله لك في ابنك الغالي ابن الغالي ( يوسف ) جزاك الله خيرا

الاخوة اعضاء منتدى اوفيسنا نظرا لطلب الاخ والاستاذ الفاضل / دغيدى لمسابقة المعلم المبدع ( دورة الفصول التخيلية ) بالرابط http://www.officena.net/ib/index.php?showtopic=46441#entry277793 اردت ان افتح موضوع جديد لكيفية عمل بوربوينت مرتبط بملفات للاكسل والبوربوينت والاكسس والنت من خلال البوربوينت كما فى موضوع الاخ دغيدى وذلك للاستفادة من طريقة الربط بينهم واليكم الصورة التى سيتم عمل البوربوينت من البداية الى النهايه لها خطوة خطوة وبالفيديو ان شاء الله

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

نرحب بالأخ مجدي يونس فى فريق الموقع مشرفا على قسم الباوربوينت

السلام عليكم عندي نموذج رئيسي به بيانات شيك سداد لمديونية ونموذج فرعي به مطالبات ومديونيات - في حالة ضغطت علي تشيك بوكس واخترت ان المطالبة تم سدادها بالكامل اريد ان انقل ثلاث سجلات من نموذج الرئيسي ( تاريخ الشيك - ورقمه - وقيمة المطالبة ) الي ثلاث سجلات في نموذج فرعي وتلك حالة سداد المطالبة بالكامل . - وفي حالة عدم الضغط علي تشيك بوكس وكتابة قيمة سداد جزئي من المطالبة يتم ايضا نقل ( تاريخ الشيك - ورقمة ) من النموذج الرئيسي الي الفرعي. - وذلك كله تحت شرط ان مجموع المطالبات المسدده لا يتجاوز قيمة الشيك ولكم جزيل الشكر v4.rar

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

إهداء الى المنتدى الحبيب الى قلبى الذى تعلمنا منه الكثير ( تعلم رسم اللف الانفرادى للمحركات الكهربية ببرنامج الاكسيل ) مع تحياتى م / أحمد البحيرى http://youtu.be/Hq5pmn4b5ro

كيفية عمل مربع حوار جميل وكبير ليسألك هل يتم تنفيذ الكود او لا ويحتوى على 2 زر موافق وغير موافق ولكم جزيل الشكر

السلام عليكم أخي العزيز تفضل المرفق 2003 بلافورم ولاأكواد فقط معادلات وتنسيق شرطي نقل حقول2.rar

لأ أخى أليك المعادلة المطلوبة وهى معادلة صفيف طبعا تعرف حضرتك لابد من الوقوف فى نهاية المعادلة والضغط على (ctrl+shift+enter ) معا لتقوم المعادلة بتحقيق المطلوب بشكل صحيح =MIN(IF($A$14=name;date))

فى خلية رقم أكبر فاتورة أكتب هذه الدالة ستحقق لك ماتريد بإذن الله =SUMPRODUCT(MAX((الفاتورة)*(high_col=$A$17)*(name=$A$14))) تقبل تحياتى

السلام عليكم بارك الله فيكم جمعة مباركة عليكم وعلي الامة الاسلاميه اجمعين هذه مجموعة اخري من مجموعة اكواد ActiveCell( 39 الموجودة بالموقع المذكور والتي تتعلق فقط باستخدامات الخليه النشطة فقط وسأقدم لكم عدد 10 اكواد الثانية منها ( وان شاء الله نكملها سوياً ) ... ولكن عذرا حسب الوقت المتاح ومرفق ملف اكسيل به 10 ازرار لمشاهدة طريقة عمل الاكواد التاليه كل كود بزر اليك التالي : =================== 11- كود يقوم بتحديد الصف بداية من الخليه النشطه الموجود بها المؤشر ويحدد الصف الي نهايته ( اليمين ) اي بداية من الخليه النشطة لنهاية الصف Sub SelectToRight() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub 12- كود يقوم بتحديد الصف بداية من الخليه النشطه الموجود بها المؤشر ويحدد الصف الي نهايته ( اليسار ) اي بداية من الخليه النشطة لنهاية الصف Sub SelectToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub 13- كود لاختيار النطاق الموجود به الخليه النشطة من خلايا مجاورة ( في الملف المرفق جرب وضع التحديد علي الخليه الحمراء ثم اضغط وشاهد النتيجة ) Sub SelectCurrentRegion() ActiveCell.CurrentRegion.Select End Sub 14- كود لتحديد النطاق الموجود به بيانات في الشيت بداية من الخليه A1 Sub SelectActiveArea() Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select End Sub 15- كود للانتقال من الخليه النشطة الي الخليه الفارغة التي تليها ( في نفس العمود ) فان لم تكن فارغة ينتقل المؤشر لاول خليه فارغة في نفس العمود لتصبح اول خليه فارغة بعد الخليه النشطة Sub ActivateNextBlankDown() ActiveCell.offset(1, 0).Select Do While Not IsEmpty(ActiveCell) ActiveCell.offset(1, 0).Select Loop End Sub 16- كود للانتقال من الخليه النشطة الي الخليه الفارغة التي تليها ( في نفس الصف ناحية اليمين ) فان لم تكن فارغة ينتقل المؤشر لاول خليه فارغة في نفس الصف يمينا لتصبح اول خليه فارغة بعد الخليه النشطة Sub ActivateNextBlankToRight() ActiveCell.offset(0, 1).Select Do While Not IsEmpty(ActiveCell) ActiveCell.offset(0, 1).Select Loop End Sub 17- كود يجعل قيمة الخليه النشطة تساوي قيمة الخليه المجاورة لها بضغطة زر Sub SwapTextWithCellOnRight() Dim CellContent CellContent = ActiveCell.Value ActiveCell.Value = ActiveCell.offset(0, 1).Value End Sub 18- كود يعمل عكس الكود السابق اي يجعل قيمة الخليه المجاورة للخليه النشطة هي التي تساوي قيمة الخليه النشطة ( جرب ذلك ) Sub SwapTextWithCellOnRight1() Dim CellContent CellContent = ActiveCell.Value ActiveCell.offset(0, 1).Value = CellContent End Sub 19- كود يعمل علي انه اذا كانت قيمة الخليه النشطة اكبر من 100 بضغطة زر يجعل الخليه النشطة تساوي 100 واذا كانت القيمة اقل من 100 يتجاهل الامر ويتركها كما هي ( في الملف المرفق حدد الخليه الصفراء G8 واضغط الزر) Sub MyMacro() If ActiveCell.Value > 100 Then ActiveCell.Value = 100 End If End Sub 20 - كود يقوم بجعل قيمة الخليه المجاورة للخليه النشطة باستخدام if, ElseIf and Else مع الخليه النشطة 1- اذا كانت قيمة الخليه النشطة اكبر 1000 يكون الناتج قيمة الخليه النشطة × 0.05 2- اذا كانت قيمة الخليه النشطة اكبر 500 يكون الناتج قيمة الخليه النشطة × 0.025 3- ان لم يتحقق الشرطان السابقان في الخليه النشطة اجعل قيمة الخليه المجاورة تساوي 5 جرب ذلك في الملف المرفق باستخدام قيم جدول 1 .. حدد خلاياه بالترتيب واضغط الزر وشاهد الفرق Sub MyMacro1() If ActiveCell.Value > 1000 Then ActiveCell.offset(0, 1).Value = ActiveCell.Value * 0.05 ElseIf ActiveCell.Value > 500 Then ActiveCell.offset(0, 1).Value = ActiveCell.Value * 0.025 Else ActiveCell.offset(0, 1).Value = 5 End If End Sub ارجو ان اكون وفقت في تقديم المطلوب جزاك الله خيرا مجموعة اكواد 10 خاصة بالخليه النشطة2.rar

أتمنى يكون المطلوب 2222.rar

السلام عليكم الاخ الحبيب / سعد عابد بارك الله فيك مرور كريم من اخ كريم جزاك الله خيرا

السلام عليكم الاستاذ القدير العميد / دغيدى بارك الله فيك مرور يجعل اي موضوع اكثر نورا وجمالا وثناءك يسعدني ويشجعني اكثر جزاك الله خيرا

السلام عليكم الاخ الكريم / القومي بارك الله فيك جزاك الله خيرا

جزاكم الله كل خير

اخى حماده عمر ابوسما جزاك الله خيرا وبارك الله فيك

أخى حمادة أثابكم الله على جهدكم

مجهود رائع استاذنا الفاضل حماده عمر جزاك الله كل خير

الدرس الثاني سوف نتعرف فيه علي 1- ادراج TextBox 2- ادراج ComboBox 3- ادراج OptionButton 4- ادراج CheckBox 5- مسح الفورم من البيانات المدخلة لادخال بيانات جديدة 6- اضافة عناصر للكمبوبوكس (وسوف نتعرف تباعا علي اكثر من طريقة لاضافة عناصر للكمبوبوكس) ثانيا :- سوف نقوم باضافة الكود الخاص بمسح الفورم يوجد لدينا في الفورم اربع عناصر ( TextBox1-ComboBox1-OptionButton1- CheckBox1) نقوم باضافة زر امرCommandButton ونسميه مثلا (مسح الفورم) ونكتب داخله في حدث كليك Private Sub CommandButton2_Click() TextBox1.Value = "" ComboBox1.Value = "" CheckBox1.Value = False OptionButton1.Value = False End Sub ثالثا اضافة عناصر للكمبوبوكس مثال : - اريد اضافة شهور السنة لتظهر كقائمة اختار منها سوف استخدم الكود التالي في حدث انطلاق الفورم (( UserForm_Initialize)) كالتالي Private Sub UserForm_Initialize() For n = 1 To 12 ComboBox1.AddItem Format(DateSerial(2013, n, 1), "mmmm") Next n End Sub يتبـع >>> التطبيق بالمرفقات مثال 2.rar

الدرس الأول سوف نقوم بعمل فورم تحتوي علي زر امر لاغلاق الفورم وعمل ماكرو لعرض الفورم نقوم بفتح محرر الاكواد عن طريق الضغط Alt+F11 ثم نختار ادراج UserForm ثانيا ونضغط دبل كليك علي زر الأمر (اغلاق الفورم )) ونكتب الكود التالي لاغلاق الفورم Private Sub CommandButton1_Click() Unload Me End Sub ثم نقوم باضافة موديل ونقم يتسميته ( Form_Show) وسوف نستخدمه لعرض الفورم من ورقة العمل كالتالي Sub Form_show() UserForm1.Show End Sub ونقوم بادراج زر عنصر تحكم ونختار ونقوم بتعيين الماكرو السابق (Form_show) التطبيق بالمرفقات مثال 1.rar

تكملة لما سبق في التعرف علي الادوات الشائعة لادوات الفورم سوف نتعرف علي بعض الأساسيات الخاصة بالفورم والتي سنستخدمها تباعا اساسيات الفورم.rar

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

هيا بنا نتعرف علي الأدوات الشائعة الأستخدام عند عمل الفورم اولا وكان المفروض ان تكون البداية لكن حصل خير يتبعه ان شاء الله مثال علي كل أداة منفصل وتطبيق عملي ان شاء الله نتشارك فيه جمعيا للتطبيق ادوات الفورم.rar

السلام عليكم الاخ الكريم / مصطفى كامل بارك الله فيك بالفعل موقع به اكواد كثيرة وتفيد الجميع في حالات كثيرة ... ولكن اخي الكريم القيام بترجمه هذا الكم الكبير من الاكواد امر من الصعب تنفيذه حيث انها كثيره بالفعل وساقوم بتقديم هذه المجموعة الموجوده في الموقع باسم ActiveCell( 39 وكما تشاهد فهذه المجموعة فقط بها عدد 39 كود لكل منها وظيفة مختلفة وهذه المجموعة المذكورة تتعلق فقط باستخدامات الخليه النشطة فقط وسأقدم لكم عدد 10 اكواد الاولي منها ( وان شاء الله نكملها سوياً ) ... ولكن عذرا حسب الوقت المتاح ومرفق ملف اكسيل به 10 ازرار لمشاهدة طريقة عمل الاكواد التاليه كل كود بزر اليك التالي : ====================== 1- كود للانتقال لخليه اخري بعد الخليه النشطة باربعة اعمدة وصفين للاعلي Sub offset() ActiveCell.offset(RowOffset:=-2, ColumnOffset:=4).Activate End Sub 2- كود لكتابة كلمة معينة ( Hello World! ) في الخليه النشطة Sub MyMacro() ActiveCell.Value = "Hello World!" End Sub 3- كود لكتابة كلمة ( INVALID: ) في الخليه النشطة قبل قيمتها اي تأخذ قيمة الخليه النشطة ويتم كتابتها + الكلمة المحددة Sub MyMacro1() ActiveCell.Value = "INVALID: " & ActiveCell.Value End Sub 4- كود لتجميع نطاق معين في الخلية النشطة وهو هنا النطاق من A1:A5 Sub fomula() ActiveCell.Formula = "=SUM($A$1:$A$5)" End Sub 5- كود يجعل قيمة الخلية النشطة تكون كالتالي قيمة الخلية النشطة نفسها × 2 - 1 Sub MyMacro2() ActiveCell.Value = (ActiveCell.Value * 2) - 1 End Sub 6- كود يجعل قيمة الخلية النشطة تكون Top cell وقيمة الخليه اسفلها كلمة Bottom cell Sub MyMacro3() ActiveCell.Value = "Top cell" ActiveCell.offset(1, 0) = "Bottom cell" End Sub 7- كود يجعل قيمة الخلية النشطة تكون Top cell وقيمة الخليه اسفلها كلمة Bottom cell ولكن بطريقة اخري ويمكن التكرار Sub MyMacro4() ActiveCell.Value = "Top cell" ActiveCell.offset(1, 0).Select ActiveCell.Value = "Bottom cell" End Sub 8- كود لتحديد عنوان الخليه النشطة وذلك في رسالة توضح ذلك Sub selectRange() MsgBox ActiveCell.Address End Sub 9- كود ينتقل من الخلية النشطة الي الاسفل بعدد 10 صفوف اي من الصف رقم 1 الي الصف رقم 11 ثم الصف رقم 21 وهكذا .. Sub DownTen() ActiveCell.offset(10, 0).Select End Sub 10- كود يقوم بتحديد العمود بداية من الخليه النشطه الموجود بها المؤشر ويحدد لاعلي العمود اي بداية من الخليه النشطة لاعلي الصفحة Sub SelectUp() Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub ارجو ان اكون وفقت في تقديم المطلوب جزاك الله خيرا مجموعة اكواد 10 خاصة بالخليه النشطة.rar

انا استخدمن هذه الدالة وهى جميلة وفعالة الف شكر للجميع =IF(b2="";"";SUBTOTAL(3;b$2:b2))

أليك أخى ماطلبت 2222.rar

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

بسم الله الرحمن الرحيم وبه نستعين أخى العزيز المحترم / أبو ردينة جزاكم الله خيرا على هذا التوضيح ولكن ياأخى الحبيب فالامور لاتأتى هكذا فكما تفضل أخى العزيز الفاضل / قنديل الصياد وبعبارة أخرى إلتمس لآخيك 70 عذرا وان لم تجد فاختلق له عذرا فقد طرحت موضوعا يتعلق بهذا الامر http://www.officena.net/ib/index.php?showtopic=42292&hl= فيأخى الحبيب المحترم الاستاذ / هانى مدنى حديثكم فيه نبرتان الاولى حزن .... فلاتحزن والثانية نبرة أخلاق رفيعة المستوى ... فهنيئا لنا هذة الاخلاق الكريمة وهنيئا لك إنضمامكم لهذة العائلة الكريمة التى وبحق لاتراها على أرض الواقع وإن كان على الاعتذار فنيابة عن جميع السادة الاعضاء والاخوة الزملاء.... فأعتذرلك ومرحبا بك بيننا ..... فلايخالجنى الشك أنك شخصية وبهذا الحديث الصادق أنك تتمتع برفعة الخلق الحميد لاتجعل هذا الامرفى حسبانكم وهيا للتواصل والعمل جزاكم الله خيرا .... وتقبلوا وافر احترامى

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

الرساله تعني انه يوجد شخص آخر بنفس الاسم يمكن لحضرتك اختيار اسم آخر او استخادم حرف ال ( أ ) او ( ا ) كما يمكنك استخدام مفتاح المسافه من لوحة المفاتيح مرتين ( احمد غانم ) و الله اعلم شكرا لك اخي احمد فضيله لقد تم تغيير الأسم بعون الله .. و نؤيد الفكره و نشجع عليها