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

أخي العزيز / عامر ياسر وبعد أذن الأستاذة الكرام سليم حاصبيا و صلاح الصغير حفظهما الله وبارك فيهما هذا حل قد أعددته وأحببت أن أشاركهما به من باب إثراء للموضوع والعفو معادلة بمجرد ذكر اسم المادة يقوم بذكر اسم المعلم تلقائياً.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 (هذا الكتاب يعد عمل مترجم ولا يعبر عن فكر شخصى إلا فى اجزاء منه)

الحمد لله الذى وفقنا لهذا العمل حل مشكلة الفراغات الزائده مع الارقام المحوله من قواعد البيانات وعدم امكانية اجراء عمليات حسابية عليها بسهوله ان شاء الله نقدم اليكم هذا الحل ازالة الفراغات من الارقام.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) لا يوجد في برنامجك عبارة "دور ثاني" وإنما يوجد عبارة "دور ثان" لاحظ حرف الياء في آخر العبارة الموجودة في الكود الأكسل حساس جدا تقبل تحياتي

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

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

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

جزاك الله خير

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

وفقك الله لكل خير ... وجعله في ميزان حسناتك.. الى الإخوة مشرفي المنتدى ... لاحظت عدم ظهور الصور في مشاركات الأعضاء الأفاضل .. وفقكم الله لكل خير

بسم الله ما شاء الله الله جزاك خيرا ممتاز

شكراً لحضرتك على هذا الكتاب الرائع . وربنا ينفعنا به لان محتاج اعرف vba لانى لسه مبتدئ وربنا يبارك فى حضرتك وفى المنتدى الرائع

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

اخى وحبيبى الجموعى صاحب الروائع والنوادر كل يوم تصر انك تبهرنى بشئ جديد احلى من اللى قبله زادك الله علما اخى الحبيب بس ملحوظه صغيره لو انا نسيت كلمة مرور الورقه فمن الطبيعى انى مش هقدر اعمل زر داخل الورقة واعيين علية الماكرو لفك الباسورد لذالك سوف نقوم بتعيين زر بورقة اخرى وتعيين عليها الماكرو فبعد اذنك عملت تعديل طفيف على الكود حتى يتم فك الورقة من زر اخر بورقة اخرى الكود هو 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

حاول تصفح هنا