أبوعبد الله

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

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

أخي العزيز / خالد أخي العزيز / jo11 أخي العزيز / أبو العقاب أشكركم جميعاً جزيل الشكر وجزاكم الله كل خير . أخي العزيز / HaNcOcK أولاً أشكرك من كل قلبي ثانياً لو قمت برفع مستوى أمان الماكرو أو قمت بخفضه لأدنى مستوى وقد وصل تاريخ نهاية صلاحية فتح الملف فلن يفتح في كل الأحوال . أخي العزيز / سعد عابد أولاً أشكرك جزيل الشكر ثانياً بخصوص سؤالك فستجد الرد عليه بمشاركة منفصلة تشمل ما طلبت وأمور أخرى لعلها تكون مفيدة . تقبلوا جميعاً تحياتي أبو عبدالله

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

أخي العزيز هذا هو الكود وكل المطلوب منك هو نسخه ثم من علامة تبويب الورقة (إسم الورقة) ماوس يمين ومن القائمة اختر VIEW CODE فتفتح لك الصفحة من محرر الفيجوال فتقوم بلصق الكود في هذه الصفحة مباشرة وطبعاً لازم دي تكون صفحة استدعاء الصور من خلال معادلة VLOOKUP الموجودة من الأصل في ملفك مع تعديلها حسب وضع القائمة المنسدلة بالأسماء وإلى جوارها الخلية التي سيظهر بها الصور وطبعاً لابد تعدل في الكود حسب عنوان الخلية التي ستظهر بها الصور والتي هي في الكود P8 إلى الخلية التي تريد أن يظهر بها الصور والباقي بخصوص عملية إضافة صور الموظفين أو تعديلها(تغييرها) سبق شرحه بالمرفق السابق ، وأهم نقطة يجب أن تنتبه لها هيى الالتزام بأن يكون إسم الصورة في الخلية التي ستظهر فيها الصور هو نفس إسم الصورة التي ستدرجهاوالذي سيظهر لك في حقل عناوين الخلاياوالنطاقات والأشكال وخلافه وهذه من أهم النقاط . Option Explicit Private Sub Worksheet_Calculate() Dim oPic As Picture Me.Pictures.Visible = False With Range("P8") For Each oPic In Me.Pictures If oPic.Name = .Text Then oPic.Visible = True oPic.Top = .Top oPic.Left = .Left Exit For End If Next oPic End With End Sub تحياتي أبو عبدالله

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

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

أخي العزيز/ مجدي ما رأيك في فكرة أخرى ربما تكون أسهل في التعامل معها وتحقق الغرض بشكل كامل دفعة واحدة فلا تحتاج لإدخال السلسلة الرقمية (السري) رقم برقم ولكن هنا تحتاج أولاً تحديد النطاق الذي تريد أن تطبق عليه السلسلة بالماوس كما سيظهر لك مع ضغط زر تشغيل العملية فتحدده ثم enter ثم يظهر لك صندوق حواري يطلب منك تحديد أول رقم في السلسلة وسيظهر لك رقم افتراضي 101 بالطبع تستطيع تغييره ثم enter ثم يظهر لك صندوق حواري أخير يطلب منك تحديد معدل الزيادة في السلسلة ويظهر لك رقم 1 كمعدل زيادة افتراضي اتركه أو غيره ثم enter لتجد السلسلة جاهزة تماماً. أرجو أن يكون هذا الحل مناسب . تحياتي أبو عبدالله series - سلسلة رقمية سيري.rar

إخواني الأعزاء الكرام katkout5 DVB Software ABUSAAD2006 العميري aboarab aboukhadra أشكركم جميعاً من كل قلبي على مروركم الكريم وكلماتكم الرائعة . أخي aboarab لايوجد أي مشكلة سوى اتباع المطلوب في الرسالة وهو تعديل مستوى أمان الماكرو عندك لأدني مستوى حتى تعمل الأكواد الموجودة بالبرنامج . جرب وأخبرني . تقبلوا جميعاً حبي وتقديري أبو عبدالله

أخي العزيز / habub يبدو أنك قمت بوض الأرقام في عمود الكميات بطريق النسخ واللصق أو السحب وهذه الطريقة لايتفاعل معها الكود وبالتالي يجب ان تقوم بإدخال الأرقام بطريقة عادية وستجد أن الأمور تجري على ما يرام وقد قمت بوضع نفس ارقامك لخمس أيام بالملف المرفق ولكن بالطريقة التي يتعامل معها الكود فأعطى نتائج صحيحة كم ستلاحظ بالملف المرفق ، ولو تريد اتباع الطريقة الثانية وهي طريقة إدخال الكميات بشكل كامل مرة واحدة فيمكنك استخدام الملف الآخر الذي ارفقته لك والذي يعمل بالمعادلات لا الأكواد . الأخ / سعد عابد تستطيع إضافة أي أصناف أخرى بحشر صفوف جديدة لتلك الأصناف وتعديل نطاق التحقق من صحة الذي يتحكم في القائمة المنسدلة لاختيار الصنف (المعدن) ولكن عليك أيضاً أن تعدل بنطاق الصفوف بالكودبهذا لجزء If Not Intersect(Target, Me.Range("C10:C288")) Is Nothing Then يجب تعديل رقم 288 إلى الرقم الأكبر الذي يعبر عن رقم صف آخر صنف لآخر يوم بالشهر ، ونفس الشيء بالجزء التالي من الكود : If Not Intersect(Target, Me.Range("B10:B288")) Is Nothing Then تحياتي أبو عبدالله معادن-2.rar

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

أخي العزيز وإليك الفكرة مطبقة بالأكواد كما كانت بالمرفق الأول قبل تعديل طلبك وقد تم تعديلها لتغطي مبيعات شهر من كل الأصناف . تحياتي أبو عبدالله معادن-2.rar

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

أخي العزيز / هشام شلبي أشكرك جزيل الشكر على مرورك ومجاملتك الرقيقة . أخي / habub شكراً لك . تقبلوا تحياتي أبو عبدالله

أخي العزيز برجاء الاطلاع على المرفق وبه الشرح . تحياتي أبو عبدالله معادن.rar

أخي الحبيب / خبور جزاكم الله خير الجزاء وبارك فيك . تقبل تحياتي أبو عبدالله

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

إخواني الأعزاء imaginlife هشام شلبي أشكركم من كل قلبي . تقبلوا تحياتي أبو عبدالله

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

أخي العزيز / imaginlife أشكرك على كلماتك الرقيقة وبخصوص شرح فكرة الكود فهي على ما أسعفني به تفكيري يمكن شرحها من خلال الكود على الوجه التالي : هذ كود حدثي ضمن مجموعة الأكواد الحدثية ( EVENT CODES )المرتبطة بورقة العمل من نوع Change أي يعتمد على حدث التغيير في هدف معين بالورقة مثل عمود أو صف أو نطاق أو خلية أو الورقة بالكامل وسأكمل الشرح على الكود نفسه لنحاول أن نفهم سوياً : Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False 'تحديد العمود السادس ومن بعد الصف الثاني كهدف يترتب على أي تغيير فيه تغيير أحداث أخرى مطلوبة If Target.Column = 6 And Target.Row > 2 Then 'أول هذه الأهداف المطلوبة عمل فرز تنازلي لكامل بيانات الجدول على أساس العمود السادس ومن أول الخلية F3 [A3:H100].Sort [F3], xlDescending 'الإجراء الثاني بعد الفرز الذي تلقائياً سيضع أعلى درجات في الخلية F3 هو أن يضع بجوار F3 أي في G3 أي أول عمود الترتيب يضع رقم 1 [G3].Value = 1 ' وفي الخلية H3 أي بداية عمود النقاط يضع أعلى نقاط وهي 28 [H3].Value = 28 ' وفي الخلية H4 ثم يضع نقاط المركز الثاني في وهي 25 [H4].Value = 25 ' وفي الخلية H5 ثم يضع نقاط المركز الثالث في وهي 23 [H5].Value = 23 ' ولإكمال ترتيب المراكز وبعد وضع المركز رقم 1 في G3 ' يجب أن نكمل وضع التريب للمراكز التالية للمركز الأول هذا ما يتم من خلال السطور التالية ER1 = [F3].End(xlDown).Row For i = 4 To ER1 If Cells(i, 6).Value > 0 Then Cells(i, 7).Value = Cells(i - 1, 7).Value + 1 Else: Cells(i, 7).Value = 0 End If Next ' ولإكمال وضع النقاط بعمود نقاط الخطف وبعد وضع نقاط المراكز الثلاثة الأولى في الخطوات السابقة G3 ' هذا ما يتم من خلال السطور التالية ER2 = [G4].End(xlDown).Row For W = 6 To ER2 If Cells(W, 7).Value > 0 Then Cells(W, 8).Value = Cells(W - 1, 8).Value - 1 Else: Cells(W, 8).Value = 0 End If Next End If Application.ScreenUpdating = True End Sub أرجو أن يكون الشرح واضح . تحياتي أبو عبدالله

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

أخي الحبيب وأستاذي / خبور خير هذه شهادة من خبير كبير لا يشق له غبار في الإكسيل والفجولة " حلوة لايشق له غبار دي والفجولة كمان ؟ صح " وإنت عمنا واستاذنا أدامك الله وجزاك عنا خير الجزاء . أخوك ومحبك أبو عبدالله

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

أخي العزيز أبو عبدالله 1- تم تعديل الوضع بالنسبة لفورم المستخدمين للطباعة بالانتقال إلى حقل كلمة المرور بمجرد اختيار اسم المستخدم. 2- تم إضافة إظهار إسم المستخدم في تذييل الصفحة ال FOOTER عند الطباعة . 3- بخصوص موضوع استدعاء فورم إظهار وإخفاء الأوراق باستخدام CONTROL+SHIFT+S فلم تكن تعمل بملفك لإنك أكيد لم تنقل الكود الخاص بهم من ملفي - الكود موجود ستجده بالصفحة الأولى مشار إليه بسهم إقرأ المكتوب بالسهم لعمل اللازم . تحياتي أبو عبدالله طباعة بأسماء وكلمات سر مستخدمين - 2.rar

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