الحسامي

السلام عليكم بعد اذن اخي المهندس طارف هنا ملف من نحف استاذنا ابو تامر لتشفير وفك تشفير الملفات ممكن ان تستفيد منه وهنارابط الموضوع الاصلي تشفير الملفات تشفير الملفات.rar

السلام عليكم اخي وحبيبي ابو عبدالله ابن بلادي حياك الله والدنيا ما بتخلى من المشاغل كيف احوالكم بالعقبة ان شاء الله خير -------------------------- اخي زين هنا ملف معدل ويعمل بدون تحدي وما عليك الا اضافة البيانات في الشيت لكن تم اضافة عمود جديد عسى ان يلبي طلبك Classeur111.rar

السلام عليكم تفضل اخي التعديل المطلوب اخي دغيدي انت العملاق باخلاقك بارك الله فيك الحصول على عدد اقل قيمة فى كل مادة11.rar

السلام عليكم اخي زين [a2] هو موقع التاريخ الاول و [a6] هو موقع التاريخ الثاني فقط قم بتغير هذه المواقع حسب الجدول الموجود لديك اما [e2:e5] فهو النطاق التابع للتاريخ الاول في العمود e و [e6:e11] التطاق التابع للتاريخ الثاني في العمود e

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

السلام عليكم بارك الله فيك اخي دغيدي فكرة اكثر من رائعة ومن بعد اذنك لاثراء الموضوع حل اخر باستخدام الاكواد الحصول على عدد اقل قيمة فى كل مادة1.rar

السلام عليكم سامحك الله اخي كيماس على هيك حسرة يا حسرة علينا ما عرفنا انه في هناك شئ اسمه اكسل الا بالجامعة

السلام عليكم اخي الكريم زين هنا محاولة قد تجد ضالتك بها Classeur1.rar

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

السلام عليكم ورحمة الله وبركاته هنا ملف لجلب الصور بواسطة المعادلات فقط ( للامانة الفكرة والمعادلات منقولة ) جلب صور بواسطة المعادلات.rar

السلام عليكم اخي الكريم يبدو الخلل من اعدادات التطبيق ولكن يمكن ان تنفع هذه المحاولة اعتقد ان هذه الادوات موجودة ويجب عليك تنزيلها وتحديدها من التطبيق من قائمة tools اختار additional controls فتظهر لك قائمة بجميع ادوات الفورم وقم بتحديد ما تريده من ادوات فمثلا ستجد اداة الtextbox تحت مسمى microsoft forms 2.0 textbox وهكذا ... ارجو ان تجد ضالتك (هناك ما يقارب 100 اداة لكن ليس جميعها مختصة بالاكسل )

السلام عليكم احبتي واخوتي الكرام بارك الله فيكم على هذا الكلام الجميل وهذا والله بعض مما عندكم وابقانا الله عند حسن ظن الجميع ---------------------------------------- اخي الكريم ملف مليئ بالمعادلات وهذا يعمل على بطء الملف بصورة كبيرة وملحوظة ثم ان هناك بعض التعديلات الذي يجب عليك تعديلها وهي Sheet1.Rows("15:2597").Hidden = True هنا في السطر الاول اسم الصفحة خاطئ وهنا تم كتابة sheet1 وهي بالاساس sheet6 وهذا الاسم الذي يظهر فس محرر الفيجول وليس الاسم الظاهر في الشيت الرئيسية ويجوز وبما ان الاداة تعمل على نفس الصفحة يمكنك كتابة الكود بدون ذكر الصفحة كذلك هذا السطر يعمل على اخفاء الاسطر جميعها وهي في مثالك تبدأ من السطر رقم 4 وتنتهي بالسطر رقم 2600 وبالتالي سيصبح الكود بالصورة التالية Rows("4:2600").Hidden = True مع العلم ان عملية اخفاء 2600 سطر يحتاج الى وقت كبير وبالتالي سيكون عمل الكود بطئ بعض الشئ مقدار ما تريد اظهاره من الاسطر يتمثل في السطر الثاني وهنا تم اظهار 20 سطر بناءا على الكود Rows([a1] & ":" & [a1] + 20).EntireRow.Hidden = False ويجب علينا كذلك تحديد خصائص الاداة وتحديد القيمة الصغرى لها وهي هنا 4 (السطر الاول ) والقيمة الكبرى وهي هنا 2600 ( السطر الاخير ) ويتم ربطها بالخلية a1 كذلك ارجو ان وفقت بشرح الخلل

لسلام عليكم تم عمل المطلوب بناءا على فكرة جديدة علها تكون ما تطمح اليه Book1.rar

السلام عليكم ما شاء الله اخي كيماس اكثر من رائع ... وموضوع مميز ومفيد بارك الله فيك وادامك الله عونا للجميع وزادك الله من علمه

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

السلام عليكم على حسب فهمي للموضوع تفضل اخي هذا الحل عسى ان يكون المطلوب ________2.rar

السلام عليكم بارك الله فيك اخي كيماس شرح جميل ومفيد و100 100 وبالضبط هذا هو عمل الكود بالفعل وخير الكلام ما قل ودل بارك الله فيك ... وبالتوفيق

السلام عليكم اخي كيماس آلية عمل الكود كالتالي ايجاد مجموعة خلايا مدمجة معينة تم تحديد هذه الخلايا كمجوعة غير مدمجة MergeArea ووضعها في متغير اسميناه rng2 اي لواعتبرنا ان a1:a5 خلايا مدمجة ويتم التعرف عليها على اساس انها خلية واحدة فقط وهي الخلية الاولى فقط وهي a1 اما اذا استخدمنا MergeArea فسيعتيرها الخلايا الخمس جميعها بحيث اذا قلنا ان (على اعتبار ان a1:a5 خلايا مدمجة اسميناها rng2 ) Set rng2 = rng فسيعتبر ان rng2 عبارة عن الخلية الاولى فقط وهي a1 اما اذا استخدمنا Set rng2 = rng.MergeArea فسيعتبر rng2 عبارة عن الخلايا الخمس المدمجة جميعا وهي a1:a5 ولذلك استعملنا السطر rng2.Value = rng.Value وقام بجعل الخلايا بعد الاندماج تساوي قيمة الخلية الاولى

السلام عليكم اخي الكريم جرب هذا الحل Dim rng As Range, rng2 As Range For Each rng In [a1:h17] If rng.MergeCells Then Set rng2 = rng.MergeArea rng.MergeArea.UnMerge rng2.Value = rng.Value End If Next rng تحياتي للجميع دمج.rar

السلام عليكم انت تأمر يا عم الكل ------------------------- ملاحظات : 1- يوضع الكود في حدث Worksheet_SelectionChange 2- الخلايا التي تحتوي على معادلات يجب أن تكون في حالة ال Hidden من خلال خصائص الخلاياFormat Cell 3- في المثال الخلايا ذات اللون الاصفر نحتوي على معادلات -------------------- واي تعديل او طلب انا في الخدمة دغيدي.rar

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

السلام عليكم اخي الفاضل الدغيدي يمكنك استخدام كود الحماية لذلك فعند وجود معادلات في الخلية تتم الحماية وعندما لا تشمل الخلية اية معادلات تزال الحماية باستخدام الكود التالي ActiveSheet.Unprotect Password:="123" If Target.HasFormula Then ActiveSheet.Protect Password:="123", UserInterFaceOnly:=True

السلام عليكم اخي مراد استخدم الكود التالي في حدث التغيير change ل textbox مثلا textbox2 Private Sub TextBox2_Change() TextBox2.Text = UCase$(Left(TextBox2.Text, 1)) & LCase$(Mid$(TextBox2.Text, 2)) End Sub مرفق ملف ----------------------- اما برنامج الشروحات للاسف ليس لدي ادنى فكرة قد تفيدك فلم استخدمها مطلقا Book3-لغة.rar

السلام عليكم بعد اذن اخي الحبيب ابو احمد اخي الدغيدي هنا ملف اخي ابو احمد وعليه بعض التعديلات عسى ان يكون المطلوب دغيدي.rar

السلام عليكم يمكن بالاضافة لحلول اخي صباح واخي ابو احمد يمكن استخدام الدوال التالية =DAY(DATE(YEAR(A2),MONTH(A2)+1,1)-1) =DAY(DATE(YEAR(A2),MONTH(A2)+1,)) =DAY(EOMONTH(A2,0)) ويمكن عن طريق الاكواد استخدام الكود التالي: [d1] = Day(DateSerial(Year([a2]), Month([a2]) + 1, 0))