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

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

الشكر لله اولا ثم للاساتذة الذى تعلمنا منهم كثيرا و مازلنا

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

بعد اذن ا / سليم طبعا teachers.rar

تغير الفلدر الافتراضي ل GetOpenFilename المعروف عند استخدام GetOpenFilename فأن الديالوج بوكس يفتح على الفلدر الافتراضي وهو My Documents ولا يمكن تغيره ولكن يمكن اجبار GetOpenFilename علي تغير الفلدر الافتراضي لها الي أي فلدر نريد بإستخدام دوال API Functions كما في هذا المثال سوف تفتح علي الفلدر الحالي لهذا الملف GetOpenFilename.rar

الاخ صلاح الصغير نسخة اسرع بأستخدام المصفوفة شاهد المرفق Master_3.rar

جرب هذا الملف القائمة المنسدلة مطاطة (تستجيب لاي تغيير في البيانات ولا تذطر المطرر الا مرة واحدة) احصاء زبائن الفروع salim.rar

http://im40.gulfup.com/Ltirv.jpg هذا الكتاب يعد اول كتاب باللغه العربية لتعلم لغه ال VBA http://im35.gulfup.com/saxzs.png يتناول الكتاب ما يلى:- ❑ تخزين المعلومات في المتغيرات والمصفوفات ❑ صنع القرار في التعليمات البرمجية ❑ الحلقات ❑ معالجة الأخطاء ❑ اليوزر فورم رابط التحميل http://www.mediafire.com/download/dj01xxwnczia62k/VBA+Excel.rar (هذا الكتاب يعد عمل مترجم ولا يعبر عن فكر شخصى إلا فى اجزاء منه)

فكرتي إليكم هي عمل كاشير للمبيعات بأزرار معرفة بصور الأصناف .. الفكرة طبعا غير مكتملة لكثرة تطرق كثير من الأعضاء بفورم الترحيل.. ولكن الهدف هي تغيير نمط التفكير والانطلاق بطريقة مميزة ومألوفة للمبيعات.. أترككم مع الملف. ملاحظة: لتعديل الكميات والحذف دبل كليك على الصنف. بانتظار آراءكم وتقبلوا تحياتي القلبية testcasheir.rar

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

لغير متابعي موضوع ( VLOOKUP ) من البداية حتى الاحتراف حيث تعرضنا فية للدالة INDIRECT شرح الدالة INDIRECT INDIRECT.rar ........................................................... اتمنى ان يمثل الملف إضافة بسيطة

السلام عليكم استاذي الكريم سليم حاصبيا المطلوب بالعكس المكتوب اسفل الجدول ثابت لا يتغير وعليه يعتمد داخل الجدول بمجرد كتابة اسم المادة يقوم بذكر اسم المعلم شكرا لكم على سرعة الاجابة مع تقديري وحترامي لشخصكم الكريم

ماشاء الله اخوي عبد الفتاح مبدع زادك الله من العلم ووفقك الله

ربما يكون الحل teachers.rar

كلمة Delete تقوم بالحذف وليس مسح المحتويات ، أما ClearContents هي التي تقوم بمسح المحتويات وليس الحذف

بارك الله فيك أستاذنا الكبير أبوتامر يوجد كود لا يستلزم استدعاء API .. Sub Test_GetOpenFilename() ' ChDir ThisWorkbook.Path PicList = Application.GetOpenFilename(FileFilter:="Picture Files (*.jpg;*.gif;*.png;*.bmp;*.tif;*.Emf;*.jpeg;*.GIF),*.jpg;*.gif;*.png;*.bmp;*.tif;*.Emf;*.jpeg;*.GIF", Title:="Please Choose An Image", MultiSelect:=True) ' End Sub

جرب الكود التالي في حدث المصنف Private Sub Workbook_Open() Dim Answer As Integer Answer = MsgBox("Do You Want To Continue", vbYesNo + vbQuestion, "YasserKhalil") If Answer = vbYes Then MsgBox "Welcome To Officena", 64 ElseIf Answer = vbNo Then MsgBox "You Cancelled Opening Workbook. Goodbye", vbExclamation ThisWorkbook.Close False End If End Sub

الاخ صلاح الصغير شاهد المرفق Master_2.rar

السلام عليكم ورحمة الله وبركات الطريقة_الاولي ان تكون الصور محفوظة داخل الملف ويتم عرض الصور من خلال اي مدي الطريقة_الثانية ان تكون الصور محفوظة داخل الملف ويتم عرض الصور بإستخدام اداة الصورة من مربع ادوات التحكم الطريقة_الثالثة ان تكون الصور محفوظة داخل فولدر ويتم عرض الصور بإستخدام اداة الصورة في الفورم ================================================== ================================================== شرح الطريقة_الاولي ان تكون الصور محفوظة داخل الملف ويتم عرض الصور من خلال اي مدي في ورقة All_Pic يتم استيراد الصور بالوقوف في خلية مثلا مثل C2 ثم استخدام زر ( ادراج صـــورة / صـــور بـــدء مـــن الخليـــة الحـــاليـــة ) لأستيراد صورة واخدة او عدة صور دفعه واحدة فيتم ادراج اسم الصور في العمود B والصور في العمود C ويتم تحديد حجم الصور في الكود Width_Of_Pic_Col = 2 Height_Of_Pic_Row = 7 بعرض 2 عمود وارتفاع 7 صفوف وانواع الصور التي يمكن استخدامها هي jpg gif png bmp tif Emf jpeg الطريقة_الاولي.rar ================================================== شرح الطريقة_الثانية ان تكون الصور محفوظة داخل الملف ويتم عرض الصور بإستخدام اداة الصورة من مربع ادوات التحكم يتم استيراد الصور بنفس طريقة الطريقة_الاولي ويتم تحديد حجم الصور بنفس طريقة الطريقة_الاولي وانواع الصور التي يمكن استخدامها هي jpg gif bmp Emf jpeg الطريقة_الثانية.rar ================================================== شرح الطريقة_الثالثة ان تكون الصور محفوظة داخل فولدر ويتم عرض الصور بإستخدام اداة الصورة في الفورم الطريقة_الثالثة.rar ================================================== ملحوظة هامة بالنسبة الي الطريقة_الاولي والطريقة_الثانية في الورقة التي يدرج بها الصور ترتيب الصور والاسماء لا علاقة له بإستدعاء الصور حتي الاسماء التي في العمود B يمكن حذفها الصور يمكن ان تكون في اي مكان في الورقة حتي لوكانت بصورة عشوائيه ==================================================

لا تبحث عن المعادلات بالطربقة التقليدية (~+Ctrl+Shift) بعد الان اكسل يلوّن لك الخلية التي تحتوي على معادلة بمجرد كتابتها والضغط على Enter تلوين المعادلات.rar

تحديث للمرفق: تم إضافة إمكانية التعديل على الأكواد Items Coding System V2.rar

حللت أهلا ونزلت سهلا مرحبا بك مرة أخرى أخي العزيز الخطأ يكمن في كود الترحيل كما يأتي : أولا : If Cells(R, 64) = "ناجحة" Then هذا السطر يخبر الكود بأنه إذا كان مكتوب في العمود رقم 64 كلمة ناجحة فقم بترحيلها والخطأ هو أن كلمة ناجحة أو دور ثان موجودة في السطر 62 وليس 64 ثانيا : ElseIf Cells(R, 64) = "دور ثاني" Then في هذا السطر اثنين من الأخطأء 1) الرقم 64 يحول إلى 62 كما تم الشرح أعلاه 2) لا يوجد في برنامجك عبارة "دور ثاني" وإنما يوجد عبارة "دور ثان" لاحظ حرف الياء في آخر العبارة الموجودة في الكود الأكسل حساس جدا تقبل تحياتي

اخى العزيز جلال محمد المشكلة كلها تكمن فى الجزء الذى ذكرتة فى المشاركة السابقة وبالتحديد فى هذة الجزئية (Total!N13:BX146=""غ"") النطاق الذى يبحث فية عن الغياب ليس خاص بكل مادة ولكن خاص بالمواد كلها وهذا خطأ من الممكن تعديلة ليكون بالنسبة مثلا للغة العربية (Total!p13:p146=""غ"") ويتم تغيير اسم العمود مع كل مادة المشكلة ان اسماء الأعمدة غير منتظمة ( هيا بنا الى الصيد بعد ان توافرت ادواته )

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

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

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

السلام عليكم ورحمة الله وبركاته أخي وأستاذي الكريم خالد الرشيدي المحترم بما أنك أهديته لوالدتك الكريمة فإنني أدعو الله تعالى أن يتغمدها برحمته وأن يجعلها ووالديّ وأموات المسلمين أن يجعل كتابهم في عليين وأن يجعلهم من أهل جنات النعيم ..آمين. أما أنت - فإنني أقول كلمة الشكر لا تفيك حقك وجزاء تعبك ...فإنني أقول - جزاكم الله خيراً وأثابكم على هذه الأعمال البديعة - والتي أرجو أن تكون أثراً صالحاً تتداوله الأجيال القادمة بشغف والسلام عليكم.

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

جزاك الله خير

اخى وحبيبى الجموعى صاحب الروائع والنوادر كل يوم تصر انك تبهرنى بشئ جديد احلى من اللى قبله زادك الله علما اخى الحبيب بس ملحوظه صغيره لو انا نسيت كلمة مرور الورقه فمن الطبيعى انى مش هقدر اعمل زر داخل الورقة واعيين علية الماكرو لفك الباسورد لذالك سوف نقوم بتعيين زر بورقة اخرى وتعيين عليها الماكرو فبعد اذنك عملت تعديل طفيف على الكود حتى يتم فك الورقة من زر اخر بورقة اخرى الكود هو Sub enleve_protection() Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer On Error Resume Next For a = 65 To 66 For b = 65 To 66 For c = 65 To 66 For d = 65 To 66 For e = 65 To 66 For f = 65 To 66 For g = 65 To 66 For h = 65 To 66 For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 32 To 126 Sheets("الجموعى").Unprotect Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l) If Sheets("الجموعى").ProtectContents = False Then MsgBox " تم إلغاء حماية ورقة " Chr (c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l) Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub فقط يتم عمل زر فى صفحه اخرى غير الورقة المراد فك الباسورد لها وتعديل بدلا من الجموعى اسم الورقة المطلوب فك الباسورد لها تقبل تحياتى كود إلغاء حماية ورقة ملف إكسل.zip

جزاك الله خيرعلى هذا الكتاب

بارك الله فيك وزادك من علمه

تم تحميل الكتاب تحياتي لكم فعلا اكثر من رائع نتمنى مكتبة اكثر بخصوص هذا الموضوع جعله الله في ميزان حسناتكم

تم تحميل الكتاب تحياتي لكم فعلا اكثر من رائع نتمنى مكتبة اكثر بخصوص هذا الموضوع

تم تحميل الكتاب تحياتي لكم فعلا اكثر من رائع

بارك الله فيك اخي العزيز

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

الاخ ا لرشيدي جزاكم الله خير الجزاء، داعياً القدير أن يوفقكم ويحفظكم من كل شر، إنه سميع مجيب.

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

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

https://www.facebook.com/learn.excel07/posts/731329126891228?ref=notif&notif_t=notify_me

أخي / خالد الرشيدي جزاك الله خير

جزاك الله خير الجزاء على هذا الكتاب الرائع والقيم

بارك الله فيك استاذ رشيدى الرجاء من الادارة تثبت هذا الموضوع ليكن مرجع مهم وتحميل الكتاب من سيرفر الموقع وليست وصلات خارجية ان امكن ليظل موجود على الموقع

بارك الله فيك ...

بارك الله فيك أخي العزيز وجزاك خيراً على هذا العمل الرائع والمفيد . تقبل تحياتي

يسلموا ايديك وبارك الله فيك وزادك من المعرفة

شكرا لك تم التحميل

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

حاول تصفح هنا