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

السلام عليكم و رحمة الله و بركاته اليوم أقدم الى حضراتكم كودى الجديد الذى تستطيع من خلاله تطبيق التنسيق الشرطى داخل اليوزر فورم أو بعبارة أخرى نقل البيانات بالتنسيقات الشرطية من خلايا محددة الى كنترولات داخل اليوزر فورم مثل التكست بوكس وهذا تحقيقا لطلب أحد الزملاء و هو الأخ ابو راكان العودة على هذا الرابط : http://www.officena.net/ib/topic/65950-%D9%87%D9%84-%D9%8A%D9%85%D9%83%D9%86-%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D8%A7%D9%85-%D8%A7%D9%84%D8%AA%D9%86%D8%B3%D9%8A%D9%82-%D8%A7%D9%84%D8%B4%D8%B1%D8%B7%D9%8A-%D9%81%D9%8A-%D8%A7%D9%84%D9%8A%D9%88%D8%B2%D8%B1-%D9%81%D9%88%D8%B1%D9%85/ الكود و عليه الشرح : Option Base 1 ' التصريح بأن القيمة الافتراضية الصغرى فى المصفوفة = 1 Private Sub UserForm_Activate() ' by Mokhtar 29/12/2015 ' وظيفة الكود ' تطبيق التنسيق الشرطى على كنترول داخل اليوزرفورم ' -------------------------------------------- ' التصريحات والمتغيرات Dim X As Integer Dim myArray As Variant myArray = Array("B2", "C2", "D2", "E2", "F2", "G2", "H2", "I2") ' مصادر التكست بوكس ' فى حالة حدوث خطأ ما تجاهله وانتقل الى الاجراء التالى On Error Resume Next ' حلقة تكرارية على التكست بوكس لتعبئته بالقيم والتنسيق الشرطى من المصادر ' ---------------------------------------------------------------------- For X = 1 To 8 ' عدد التكست بوكس With Me.Controls("Textbox" & X) ' لكل تكست بوكس فى الثمانية ' مصدر نص التكست بوكس .Text = Sheets("ورقة1").Range(myArray(X)).Value ' ' مصدر لون التكست بوكس .BackColor = Sheets("ورقة1").Range(myArray(X)).DisplayFormat.Interior.Color ' ' مصدر لون خط التكست بوكس .ForeColor = Sheets("ورقة1").Range(myArray(X)).DisplayFormat.Font.Color ' End With ' With انهاء جملة Next X ' انتقل الى التكست بوكس التالى ' فى حالة حدوث خطأ ما انتقل الى نقطة البداية On Error GoTo 0 End Sub المرفق : أتمنى أن يكون كودا سهلا و مفيدا لكم فى أعمالكم و برامجكم و أكوادكم بإذن الله تعالى و لا يفوتنى أن أوجه الشكر للأستاذ أبو راكان الذى أوحى لى بفكرة هذا الكود لا تنسونا بدعوة بظهر الغيب تحياتى لكم و كل عام و أنتم أقرب الى الله Conditional Formatting on Userform by Mokhtar.rar

تفضل اخى الكريم جرب المرفق هل هو طلبك تقبل تحياتى قائمة منسدلة.zip

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

السلام عليكم ورحمة الله وبركاته . تجربتي في الموضوع ، وتأييدا لأخي عبدالرحمن: طُلب مني عمل برنامج في احد المؤسسات ، وكان عندهم برنامج اكسس حجمه 1.53 GB ، وهو عبارة عن جدول واحد فقط ، وكانوا يدخلون ملفات pdf الموظفين فيه ، مع انه لم يصل الى الحد الاقصى للأكسس وهو 2 GB ، إلا انه توقف عن تسجيل اي سجلات جديدة ، وحتى فتح الجدول اصبح بطيء ، وكذلك التنقل بين السجلات !! وعندما اخرجت الملفات الى مجلد خارجي (نفس نصيحة أخي عبدالرحمن) ، نزل حجم الملف الى 5-10 MB !! جعفر

اخى الحبيب السلام عليكم ورحمة الله اليك ما طلبت شهادات.rar

عبد العزيز البسكري عضو محترف 749 1,058 مشاركات Location:بسكرة - الجزائر Interests:المطالعة - الاكسل - الأوتوبلاي السلام عليكم ورحمة الله وبركاته أخي الحبيب عبد العزيز جزاكم الله خيراً على هذا التشجيع أدعو الله أن يبقيكم ذخراً لنا وأن يبارك بكم وبعملكم أخوكم المحب لكم أبو يوسف

لا تقلق سيّدي القدير " محمّد حسن المحمّد " .. الفيجوال بيسك هو الذي بإذن الله في يومٍ ما يصبح لمّا يشاهد " محمّد حسن المحمّد " يضرب رأسه على الجدار .. فائق إحتراماتي

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

ادي مثال يامعلم المثال دا بيقولك ان التكست الواحده من الفيجوال بكل التكست اللي في vba يعني 254 اضعاف الvba وصلت الفكرة ولا لا New folder (4).rar

https://youtu.be/EMMe7PzgJc4 السلام عليكم تلاوة آيات كريمة ترقق القلوب ...يجدر بك أن تسمعها ليخشع قلبك وتخضع جوارحك ...فهلا استمعت بإنصات أخي الكريم دعاؤك أخي الكريم أرجو بظهر الغيب...

وعليكم السلام ورحمة الله أهلا بك أخي.. في البداية أنا أتعلم مثلك على يد أساتذتنا الكرام ولست معلما بل هم معلمي جزاهم الله عنا كل خير أخي الفاضل.. عند تصميم أي عمل يجب أولا بأن نسرد تخطيط أولي له ليكون بمثابة القاعدة التي سينشأ عليها البرنامج.. وبالنسبة عن نظام البيع والشراء له طرق وأنظمة متعددة ومتنوعة وقد تكون متشابهة ولكن الغاية في النهاية واحدة.. أما الطريقة التالية فليست حكر ولكنها إحدى الطرق المتداولة ونقطة بداية لإرساء قواعد بناء برنامجك.. والآن إلى الجداول: ◘ جدول رأس الفاتورة: يحتوي على: - رقم الفاتورة [مفتاح أساسي] - تاريخ الفاتورة - كود العميل أو المورد (حقل الربط بجدول العملاء / الموردين) - نوع الفاتورة، وينقسم إلى (بيع – شراء – مرتجع عميل- مردود لمورد) ◘ جدول تفاصيل الفاتورة: ويحتوي على: - رقم الفاتورة (حقل الربط برقم الفاتورة من جدول رأس الفاتورة) - كود الصنف (حقل الربط بجدول الأصناف) - كمية الشراء أو المرتجع - كمية البيع أو المردود - السعر ◘ جدول العملاء / الموردين: ويحتوي على: - كود العميل/المورد [مفتاح أساسي] - اسم العميل/المورد - معرف (عميل – مورد – عميل ومورد) - أية حقول أخرى عن البيانات تريد إضافتها ◘ جدول الأصناف: ويحتوي على: - كود الصنف - بيان الصنف - سعر الشراء - سعر البيع - الكمية المتاحة بالنسبة للعلاقات.. · برقم الفاتورة سنربط جدول رأس الفاتورة بجدول تفاصيل الفاتورة علاقة رأس بطرف · بكود الصنف سنربط جدول الأصناف بجدول تفاصيل الفاتورة علاقة رأس بطرف قم بإنشاء تلك الجداول وبعدها لنا لقاء عن النماذج بإذن الله تعالى * بالطبع قد يضاف بالحداول أية حقول جديدة مستقبلا وسيكون ذلك حسب الحاجة أتمنى أن أكون قد وفقت في عرض فكرة المطلوب

الكود يحدد خلية عشوائية ( فى الصف 47 تحديدا و العمود عشوائى من 1 الى 10 ) جرب الكود عملى هتلا قيه يحدد مرة A47 ومرة B47 ومرة C47 ومرة D47 وهكذا حتى J47

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

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

السلام عليكم ورحمة الله وبركاته الاصدار الرابع : فورم اضافة وبحث وتعديل مرن مع استعراض الصور (تحكم كامل بالصورة ) المرفق 2003 فورم ادخال و تعديل مرن مع الصور.rar http://www.officena.net/team/khboor/kh_image/p86.png هام جدا بتاريخ ( 14 / 6 / 2023 ) لكي يعمل الفورم جيدا بدون اخطاء لابد من عمل الاتي 1- UnRegister MSCOMCT2.OCX ازاله تسجيل الملف MSCOMCT2.OCX تشغيل الامر cmd كمسئول ثم كتابه الأمر التالي لو كان الويندوز ٦٤ بت regsvr32 /u C:\Windows\SysWOW64\MSCOMCT2.OCX او regsvr32 /u C:\Windows\System32\MSCOMCT2.OCX لو كان الويندوز ٣٢ ثم بفك الضغط عن الملف المرفق بأسم MSCOMCT2.OCX ونقوم بنسخه الي المسار التالي ويندوز٦٤ بت C:\Windows\SysWOW64 ويندوز ٣٢ بت C:\Windows\System32 2- Register MSCOMCT2.OCX ثم نقوم بعمل ريجستر للملف الذي نسخناه في الويندوز عن طريق هذا الأمر ويندوز ٦٤ regsvr32 C:\Windows\SysWOW64\MSCOMCT2.OCX ويندوز ٣٢ regsvr32 C:\Windows\Sys\MSCOMCT2.OCX MSCOMCT2.zip

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

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

حياك الله تفضل اذا في النموذج ، ماكرو مضمن: . واذا ماكرو عادي: جعفر

مبدع كالعادة أخي الحبيب مختار كم أعشق موضوعاتك الجديدة وأتابعها بكل شغف تقبل وافر تقديري واحترامي

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

الله يطول في عمرك ان شاء الله أخوي bakoraus اصل الموضوع كان: . وتم حله: . وبعدها تغير الطلب واصبح: . والحمدلله تم حله ، مع ان الموضع ما كان سهل واخذ وقت: . لكن لما الموضوع لم يتوقف: . فانا اعتذر ، ومضطر ان التجأ الى احد قوانين المنتدى ، وهو سؤال واحد لكل موضوع لوسمحت جعفر

وعليكم السلام أخي كامل في عندك خطأ في الاستعلام qryuserpwd . ولكني لم اجد سببا لإستخدامه في النموذج ، فاستخدمت الجدول user مباشرة (يعني تستطيع ان تحذف الاستعلام qryuserpwd) : . وبدل ان نستعمل الاسطر 1-4 ، كان بإمكاننا استخدام السطر رقم 5 فقط ، ولكني جزّأت الدالة حتى يسهل عليك ان تضيف اي عدد من المعايير ، فغالبا هنا يُخطئ الكثير ولا يعرفون الطريقة الصحيحة للمعادلة ، بينما لما جزّأت السطر الى عدة اسطر ، فالمسألة اصبحت سهلة ان شاء الله ولاحظ التنسيق في الكود ، فلم اجعل الاسطر تبدأ من بداية السطر ، وانما عملت TAB وازحت الاسطر لكي تتناسب مع مجموعتها ، فبالطريقة هذه تستطيع ان تقرأ الكود بسهولة وعندما تستخدم DAO.Recordset فيجب عليك ان تأخذ المؤشر الى نهاية الجدول rst.MoveLast ثم تُرجع المؤشر الى بداية الجدول rst.MoveFirst حتى يكون الجدول يتم قراءة محتواه بالكامل ، وإلا rst.RecordCount لن يعطيك النتيجة الصحيحة ، ولا For Next جعفر 328.kamel.accdb.zip

السلام عليكم ورحمة الله والآن دور النماذج والاستعلامات الخاصة به.. دور النماذج هذه يعتمد على تطبيق حركة (الوارد والمنصرف)، فالوارد هو الأصناف التي يتم شراءها وأيضا هو مرتجع العملاء لأن كلاهما يعتبر داخل إلى المخزن، أما المنصرف فهو البيع وأيضا المردود إلى المورد لأن كلاهما خارج من المخزن. وستكون النماذج على قسمين: (رأسية - فرعية) رأسية: تجمع رأس الفاتورة مع جدول العملاء/الموردين فرعية: تجمع تفاصيل الفاتورة مع الأصناف ◘ فالنماذج الرئيسية ستحتوي على نموذجان 1- نموذج حركة الوارد - أي الشراء والمرتجع من العميل – وسيكون مصدر بياناته هو استعلام يجمع بين جدولي رأس الفاتورة والعملاء/الموردين. 2- نموذج حركة المنصرف – أي البيع والمردود إلى المورد – وسيكون مصدر بياناته نفس الاستعلام. أما التفريق بينهما فسيكون هو الحقل (نوع الفاتورة).. والذي يأتي دوره على شكل مربع تحرير وسرد ويحتوي في كل نموذج على قائمة حسب نوع النموذج.. - في نموذج الوارد.. سيكون نوع مصدر الصف (قائمة القيم) – مصدر الصف ("مشتريات";"1";"مرتجعات العملاء";"2") - وفي نموذج المنصرف.. نفس السابق – مصدر الصف ("مبيعات";"1";"مردود لمورد";"2") وبالنسبة لحقل كود العميل/المورد فسيكون أيضا مربع تحرير وسرد، ونوع مصدره استعلام ومصدره هو جدول العملاء/الموردين.. ويمكن التفرقة بين العملاء والموردين من خلال حقل (معرف العميل) بحيث أنه يظهر العملاء فقط في نموذج المنصرف، ويظهر الموردين فقط في نموذج الوارد.. وسيكون ذلك عبر استعلام مربع التحرير والسرد الخاص بكل نموذج إلى هنا انتهينا من القسم الأول وهو رؤوس النماذج (الوارد لحركة الشراء والمرتجع) و(المنصرف لحركة البيع والمردود).. ونأتي الآن لتفاصيل الفاتورة أي النماذج الفرعية: ◘ النماذج الفرعية ستحتوي أيضا على نموذجان وليكون لكل نموذج رأسي نموذجه الفرعي، وسيكون النموذج الفرعي من نوع نماذج مستمرة: 1- فرعي حركة الوارد وسيحتوي على استعلام يجمع بين الجدولين تفاصيل الفاتورة وجدول الأصناف ولكن بدون حقل (كمية البيع أو المردود) 2- فرعي حركة المنصرف نفس السابق باستعلام جديد ولكن بدون حقل (كمية الشراء أو المرتجع) بالنسبة لحقل كود الصنف فسيكون مربع تحرير وسرد ومصدره هو جدول الأصناف ومهمته ستكون بجلب اسم الصنف وسعره من جدول الأصناف بواسطة كود وبعد ذلك ستضع كل نموذج فرعي في نموذجه الرئيسي.. بمعنى تفتح النموذج الرئيسي في وضع التصميم وتختار من عناصر التحكم (عنصر النماذج الفرعية) وتختار النموذج الفرعي الخاص به وسيكون تعريف الرابط بينهما هو رقم الفاتورة لكي يكون رقم الفاتورة الموجود في تفاصيل الفاتورة هو التابع للذي موجود برأس الفاتورة ◘ الاستعلامات (استعلام النموذج الرئيسي) و(استعلام النموذج الفرعي) : بالنسبة للاستعلامات التي ذكرت في تعريف النماذج سالفا فأبين هنا شكلها لكي لا يختلط عليك الأمر.. فنحن اتفقنا على أن استعلام النموذج الرئيسي للوارد أو المنصرف سيجمع بين جدولين (رأس الفاتورة والعملاء/الموردين).. لذلك سننشأ الاستعلام ونضع كل الحقول من الجدول رأس الفاتورة وأي حقول أخرى تختارها أنت وتريدها أن تظهر في النموذج من جدول العميل/المورد ما عدا حقل (كود العميل/المورد) لأننا قمنا بالفعل باختياره منذ قليل من جدول رأس الفاتورة وكذلك مع استعلام النموذج الفرعي والذي يربط بين تفاصيل الفاتورة والأصناف؛ فستختار كل الحقول من جدول تفاصيل الفاتورة فقط وإذا أردت أي حقول أخرى تظهر من جدول الأصناف فأدرجها ما عدا كود الصنف لأننا اخترناه سالفا ملحوظة هامة.. أكرر ما قلته بالمشاركة سابقا بأن هذا النظام ليس حكرا وأن المسميات الواردة ليست بالأساسية ولكنها توضيحية فقط، وقد ينقص شيء ولكن يمكن إضافته مستقبلا.. والله المستعان

تفضل لعله المطلوب form1.rar لم ارى مشاركتك اخي الغالي عبد العزيز شكرا لمبادرتك انت نشنت المطلوب انا واضح اني لم افهم المطلوب جيدا حيث وضعت حذف الشريط كامل

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

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

الكلام الطيب يستحق هدية قيمة https://youtu.be/EMMe7PzgJc4

وعليكم السلام أخي اسلام انت نسيت علامة = !! يعني السطرين لازم يكون فيهم علامة = ، هكذا: ms$ = "blah blah" ti$ = "blah2 blah2" جعفر

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

بعد إذن الأستاذ الكبير ياسر جرب هذا الكود أيضاً Private Sub UserForm_Activate() With Application Me.Top = .Top Me.Left = .Left Me.Height = .Height Me.Width = .Width End With End Sub

وعليكم السلام ومشاركة مع أخي عبدالرحمن ، ولكن بتعديل للطريقة الاصل وبيان اين المشكلة نضغط على الزر بالثلاث نقاط ، لكي نغير بيانات استعلام مربع تحرير الحقل "مالك العقار" . نرى انك مستخدم اسم المالك فقط ، ولم تنزل الحقول الاخرى التي تريدها ، وهي "رقم الهوية" و "رقم الجوال" !! . ننزل بقية الحقول المطلوبة ، ولاحظ ارقام الاعمدة ، والتي سنستخدمها في الكود ، يعني "رقم الهوية" في العمود رقم 1 ، و "رقم الجوال" في العمود رقم 2 . على هذا الاساس ، نغير في اعدادات الحقل ، بأنه هناك 3 اعمدة ، ولكن اجعل عرض العمود رقم صفر 1.4348 بوصة ، واجعل نتائج العمودين 1 و 2 مخفية (اي ان عرض الاعمدة صفر) . على اساس المعلومات اعلاه ، هكذا يكون الكود ، رقم الاعمدة كما عملناها في الاستعلام . جعفر 324.db1.mdb.zip

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

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

أخي الحبيب إبراهيم إليك الكود التالي عله يحل المشكلة (الكود طويل بعض الشيء لأنه يتعامل مع الأخطاء التي يمكن أن تحدث ..فهو تفصيلي ) Sub CreateWorkbook() Dim WB As Workbook Dim Str1 As String, Str2 As String, StrPath As String, StrExt As String Dim sFileName As String, sPath As String, sPathAndFileName As String Dim iFileFormat As Long, iReply As Long Dim bNeedMore As Boolean Set WB = Workbooks.Add Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value StrPath = ThisWorkbook.FullName StrExt = Right(StrPath, Len(StrPath) - InStrRev(StrPath, ".")) Application.ScreenUpdating = False Application.DisplayAlerts = False Select Case StrExt Case "xls" iFileFormat = -4143 Case "xlsb" iFileFormat = 50 Case "xlsx" iFileFormat = 51 Case "xlsm" iFileFormat = 52 End Select sPath = ThisWorkbook.Path & "\" sFileName = Str1 & Str2 & "." & StrExt sPathAndFileName = sPath & sFileName If LJMFileExists(sPathAndFileName) = True Then iReply = MsgBox(Buttons:=vbYesNo, Title:="'Overwrite' or 'Escape' Selection", Prompt:="The File Already Exists. Do You Want To Overwrite The File?" & vbCrLf & "Folder: " & ThisWorkbook.Path & vbCrLf & "File Name: " & Str1 & Str2 & "." & StrExt & vbCrLf & vbCrLf & "Select 'Yes' To Overwrite The File." & vbCrLf & "Select 'No' To Do Nothing.") If iReply = vbNo Then MsgBox "Nothing Done Per User Request." GoTo MYEXIT End If End If On Error Resume Next WB.SaveAs FileFormat:=iFileFormat, Filename:=sPathAndFileName If Err.Number = 0 Then MsgBox "File Saved Successfully.", 64 ElseIf Err.Number = 1004 Then MsgBox "Nothing Done. Destination File Is Already Open Or Is Read/Only." & vbCrLf & "Try Again After The File Is Closed." & vbCrLf & "Folder: " & sPath & vbCrLf & "File Name: " & sFileName Else MsgBox "Nothing Done. File Save Runtime Error " & Err.Number & "." & vbCrLf & "Folder: " & sPath & vbCrLf & "File Name: " & sFileName End If On Error GoTo 0 MYEXIT: 'Resume Normal Error Processing On Error GoTo 0 WB.Close SaveChanges:=False Application.DisplayAlerts = True Application.ScreenUpdating = True Set WB = Nothing End Sub Private Function LJMFileExists(sPathAndFullFileName As String) As Boolean 'This Returns TRUE If File Exists And FALSE If File Does Not exist '----------------------------------------------------------------- Dim iError As Integer Dim iFileAttributes As Integer On Error Resume Next iFileAttributes = GetAttr(sPathAndFullFileName) 'Check The Internal Error Return iError = Err.Number Select Case iError Case Is = 0 iFileAttributes = iFileAttributes And vbDirectory If iFileAttributes = 0 Then LJMFileExists = True Else LJMFileExists = False End If Case Else LJMFileExists = False End Select On Error GoTo 0 End Function تقبل تحياتي

بسم الله الرحمن الرحيم نظرا لاهتمام الكل بموضوع الحماية ارفقت مثال لحماية الفيجوال مع الاكسيل كمثال تجريبي لمدى حمايته فالسؤال الذي يطرح نفسه هل من احد قادر على فتح هذا الملف او تخطي الحماية التي قمت بوضعها الحماية الموجودة تتلخص في حماية الملف التنفيذي للفيجوال عن طريق ملف الاكسيل وحماية ملف الاكسيل عن طريق الملف التنفيذي يعني كلمة مرور ملف الاكسيل داخل الملف التنفيذي وكلمة مرور الملف التنفيذي داخل ملف الاكسل وهذا المثال ما هو الا خطوة في اتجاه حماية افضل للاكسل لكل من لديه الخبره في فك الملفات او الوصول الى ثغره يستطيع العمل منها علي فك الملفان فليتكرم فنحن نختبر الملف ومدى قدرة تحمله وبعدين الاخوة الكرام حبايبي اللي معاهم قاهر الملفات التنفيذية لا فائدة منه اهو ملف الاكسيل بره مش محتاجك تستخرجه اذا اعجبتكم الحماية اعمل درس داخل السلسلة الخاص بشروحات الفيجوال لكيفية عمله مع تحياتي ياسر العربي yasser.rar

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

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

الحمد لله أن تم المطلوب على خير الحمد لله الذي بنعمته تتم الصالحات إلى لقاء مع موضوع آخر .. تقبل تحياتي

أخي الحبيب إبراهيم أبو ليلة جرب الكود التالي عله يكون المطلوب Dim Str1 As String, Str2 As String Sub CreateWorkbook() Dim WB As Workbook Set WB = Workbooks.Add Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value Application.ScreenUpdating = False Application.DisplayAlerts = False WB.SaveAs Filename:=ThisWorkbook.Path & "\" & Str1 & Str2 & ".xlsx" WB.Close True Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Sub OpenWorkbook() Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Str1 & Str2 & ".xlsx" End Sub

زمن العزه

برنامج الاكسيل: هو أحد البرامج الموفرة ضمن حزمة أوفيس وهو مخصص للعمليات الحسابية حيث انه عبارة عن أوراق افتراضية يمكن أضافة معادلات حسابية عليها ومن ثم إضافة الارقام حبت يقوم البرنامج بالعمليات الحسابية بشكل آلي وفي نفس الوقت يمكن ان تستخدم لتخزين البيانات إليكترونية حيث يمكن الاحتفاظ بها أو طبعها على اوراق. وهو البرنامج الأشهر في العالم وذلك لقدرته على انجاز العمليات المستحيلة بواسطة الصيغ والتي لا توجد في اغلب برامج الانتشار او صفحات العمل الأخرى. ومن وجهة نظري الشخصية ان الصيغ تشكل مالا يقل عن 75% من إمكانيات الاكسيل. لا تزيد نسبة مستخدمي الصيغ بشكل احترافي عن 10% فقط ولذلك ندعوك للانضمام الى هذه النخبة فهل تستعد لذلك؟ . مر الاكسيل بالعديد من التحديثات والتطوير على مر السنين في العناصر وفى الشكل العام له . ولكن ماذا كان يتم العمل قبل ظهور الاكسيل وماذا حدث بعد ذلك . قبل ظهور الاكسيل كان الناس يقضون ساعات طويله جدا في حساب وتجميع كشف حساب على الاله الحاسبة ولكن مع استخدام الاكسيل فان الأمور اصبح يستغرق دقائق او ربما ثواني معدودة . في نهاية السبعينات ظهر برنامج VISI CALAC ثم جاء برنامج LOTS (1.2.3) في الثمانينات ثم دخلت ميكروسوفت في 1982 ببرنامج MULTIPALNE وأخيرا وصل ما يسمى بالاكسيل وكانت النسخة الأولى عام 1987 وحتى وصل الى الإصدار الحالي 2013 وهو الإصدار رقم 12 لشركة وكانت الإصدارات كالتالي ( EXCEL 2 EXCEL3 EXCEL4 EXCEL5 EXCEL95 EXCEL97 EXCEL2000 EXCEL2002 EXCEL2007 EXCEL2003 EXCEL2010 EXCEL2013 EXCEL2016 ) وننوه انه تم اصدار النسخة التجريبي 2016 في يوليو 2015 . بالرغم من ذلك قد تجد تسميات ميكروسوفت مختلفة ومربكة فتجد انها تسمى 2007 الإصدار رقم 12 و 2010 الإصدار رقم 14 و 2013 رقم 15 و 2016رقم 16 وهكذا............ المصدر https://en.wikipedia.org/wiki/Microsoft_Excel#Early_history

ودا ربع تاتش مني لضيق الوقت عندي المهم تكون الفكرة واضحة بس دا مثال يوضح الثلاث تأثيرات علي الزر aseel.rar

الطريقه الرابعه :- استخدام لغة البرمجه هى بنظرى من اهم الطرق واسهلها وهى تكون من خلال البرمجه فقط ولا يمكن تنفيذها من شاشة الخصائص فى مرحله التصميم شاهد الصوره التالية هتعرف ما هى الطريقه الكود هو بشكل مكبر عباره عن سطر واحد فقط ComboBox1.RowSource = "sheet1!a2:b" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row تعالو نفصص كل كلمة فى هذا السطر ونعرف ازاى نكتبه comboBox هو اسم الكمبوبوكس المراد تعبئته بالبيانات . تكتب من خلال جعل الكيبورد انجلش ثم نضغط على حرف ز بالعربى RowSource هى الخاصيه المسئوله عن تعبئة الكمبوبوكس بالبيانات = نكتب علامه = " نفتح قوس تنصيص " ويكتب من خلال شفت+حرف ط بالعربى Sheet1!a2 وهى اول خلية بالجدول المراد عرض بياناته فى الكمبوبوكس (ونلاحظ اننا كتبنا اسم الشيت متبوع بعلامة تعجب ! ثم اسم الخلية) : تعنى الى b اسم اخر عمود بالجدول " قفل قوس التنصيص طالما فتحنا قوس اذن لازم نقفله & علامة و أو بمعنى and Sheet1.Cells(Rows.Count, "a").End(xlUp).Row اخر خليه بها بيانات بالعمود A طيب عرفنا ازاى نكتب الكود فما هو وقت تنفيذ الكود السطر ده هيتم وضعه فى اى حدث ( والله دى بقى حضرتك اللى تحددها حسب برنامجك انت ولكن على سبيل المثال نضع هذا الكود فى حدث فتح الفورم شاهد الكود Private Sub UserForm_Initialize() ComboBox1.RowSource = "sheet1!a2:b" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row End Sub فعند فتح الفورم وتهيئته يتم تعبئة الكمبوبوكس بالبيانات ممكن نكتبه بشكل تانى لو حابب تعرف اكتر من طريقه شوف الكود وبعدين اشرحه لك Private Sub UserForm_Initialize() Lr = Sheet1.Cells(Rows.Count, "a").End(xlUp).Row ComboBox1.RowSource = "sheet1!a2:b" & Lr End Sub قمت بعمل متغير وسميته Lr وممكن تسميها انت بأى اسم كما تحب وقلت ان المتغير ده عباره عن اخر خلية بها بيانات بالعمود A وبالتالى كتبة المصدر بتاع البيانات كالتالى sheet1!a2:b" & Lr" تم الاستعاضه بـ Lr بدلا من السطره ده Sheet1.Cells(Rows.Count, "a").End(xlUp).Row ويمكن كتابة الكود بشكل اخر ( ملحوظه هذا التنوع بالكتابه هو فقط من حيث اسلوب كتابة الكود لكن المضمون واحد) Private Sub UserForm_Initialize() With ComboBox1 .RowSource = "sheet1!a2:b" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row End With End Sub الى هنا انتهى درس اليوم اعتقد انه بسيط وممتع يارب اكون وفقت بالشرح وتستفيدو منه عايز اشوف تجاربكم على الدرس على رابط الردود الخاص بالموضوع اتمنى لكم التوفيق وانتظرونا فى طريقه جديده قريبا بأذن الله

السلام عليكم و رحمة الله و بركاته تحياتي لأساتذتي الكرام و اخواني و اخواتي الزوار و الاعضاء.. بعد عناء طويل و بحث مستمر بفضل من الله و منة حظيت بمعرفة ارفاق التقرير بباركود QR او اي صيغة انت تريدها الملفات و الفيديوهات التعليمية في عنوان الدروب بوكس .. حجم الملف مع البرامج 92 م البرامج لل 64 بت و 32 بت شكرآ لقبولكم هديتي البسيطة راجيآ من حضرتكم الدعاء و راجيآ من الله لي و لكم الافادة https://www.dropbox.com/s/dc7gcdg6fi80oz4/الباركودات مع البرنامج.rar?dl=0

رابعاً:- التعامل مع خصائص الـ ComboBox فى لغة البرمجه فى الدرس قبل السابق عرفنا ازاى نتحكم فى خصائص ComboBox من شاشة الخصائص اثناء عملية التصميم فماذا لو حبينا نتحكم فى خصائص ComboBox ولكن من خلال الاكواد وليس من شاشة الخصائص فى مرحله التصميم هنبدأ على طول بمثال عملى ونشرح عليه اضغط دبل كليك على اى مكان فاضى فى الفورم وهندخل محرر اكواد الفورم ونعمل كود فى حدث فتح الفورم اتبع الصوره هتلاقى الصوره دى فى المكان المظلل باللون الاحمر هنا موضوع كتابه الاكواد ولكتابة اى كود خاص بأى عنصر تحكم فى الفورم يكون على الشكل التالى الخاصيه ( Back Color):- زى ما قلنا قبل كدا ان هذه الخاصيه تتيح للمستخدم تغيير لون خلفية للـ ComboBox عايزين نكتب فى المربع الاحمر كود يجعل لون خلفية الكمبوبوكس (سماوى ) عند فتح الفورم لو حضرتك محترف كتابة انجلش كويس على الكيبورد وسريع خلاص لا تهتم بالقائمة المساعده للخصائص اللى بيعرضها الفيجوال بيسك واكتب انت بنفس سطر الكود ناخد مثال اخر عن الخاصيه ( Back Style):- ناخد مثال اخر عن الخاصيه ( Row Source ):- ComboBox1.RowSource = "A1: b5" سطر الكود زى ما هو ظاهر تم كتابة اسم العنصر ثم . ثم اسم الخاصيه ثم = ثم المدى المراد اظهاره فى الكمبوبوكس ( المدى تم كتابته بين اقواس تنصيص " المدى " وهذه الاقواس كما قلنا انها تكتب من خلال الضغط على شيفت + حرف ط بالعربى ) ناخد مثال اخر عن الخاصيه ( Column Heads ):- ComboBox1.ColumnHeads = True سطر الكود زى ما هو ظاهر تم كتابة اسم العنصر ثم . ثم اسم الخاصيه ثم = ثم نوع الخاصيه اما True أو false وكذالك لباقى الخصائص الخاصه باى عنصر تحكم على الفورم هذا هو الكود بشكله النهائى على الاربع خصائص السابقه Private Sub UserForm_Initialize() ComboBox1.BackColor = 15849925 ComboBox1.BackStyle = fmBackStyleOpaque ComboBox1.RowSource = "A1: b5" ComboBox1.ColumnHeads = True End Sub هل يمكن ايضا كتابة الكود بشكل ابسط نعم يوجد طريقه اخرى من خلال استخدام With وطبعا لازم نقفل With بـ End with ويكون بداية سطر الكود هو . ثم اسم الخاصيه ثم = ثم نوع أو قيمة النتيجة شاهد الكود كالتالى Private Sub UserForm_Initialize() With ComboBox1 .BackColor = 15849925 .BackStyle = fmBackStyleOpaque .RowSource = "A1: b5" .ColumnHeads = True End With End Sub أنا عايزك تجرب باقى الخصائص بنفسك ولو صدفك اى مشكله لا تتردد انك تراسلنى تابعونا

شكرا جزيلا أخي محمد على هذا الإطراء الجميل :-) وعندي ملاحظة على لوحتك لي ، أنه لا دخل لمسقط بالبحرين :-) جعفر

اخي هاني جرب المرفق ان شاء الله يفي بالغرض هاني.rar

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

أخي العزيز / أبو البراء رجاء الاطلاع على المرفق وفيه أرقام عربي في العمود B تم تحويلها إلى إنجليزي بتحديدها ثم تحديد اتجاه النص FROM LEFT TO RIGHT. وإن لم يظبط معك أخبرني . تحياتي أبو عبدالله TURN NUMBERS A TO E BY FORMAT TEXT DIRECTION.rar

السلام عليكم الأخ / محمدى :: معظم الأكواد الذى أستخدمها بملفاتى الخاصةهى للأستاذ / خبور خير ، أما لماذا تخصيص كود البحث فى الخلية لأنى فعلاً نفذته بالملف الخاص بى ففلح التنفيذ معى ، أما كود الطباعة فلم أنفذه بعد ولذا لم أخصه وجارى التجريب على كود الطباعة ، ولست أنا الذى أقيم أعمال الأستاذالفاضل / خبور بارك الله لنا فيه وأدام عليه الصحة .