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

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

السلام عليكم جرب هذه =SUBTOTAL(103;$D$6:$D$49) تحياتي

بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله عليه وسلم كل الشكر والتقدير والاحترام لعمالقة المنتدى والاساتذه الافاضل سيتم هنا عرض بعض الاكواد التى يتم استخدامها فى الفورم مع التيكست بوكس ....................................... اود ان اذكر حضراتكم باننا قد تناولنا فيما سبق اولا -- سيتم التعرف على كيفيه الترحيل من التيكست بوكس الى الشيت http://www.officena.net/ib/index.php?showtopic=49561&page=1 ثانيا-- سيتم التعرف على كيفيه الترحيل من التيكست بوكس الى مجموعه من الخلايا فى شيت الاكسيل http://www.officena.net/ib/index.php?showtopic=49561&page=1 ثالثا--التعرف على كيفيه استدعاء البيانات من شيت الاكسيل الى التكست بوكس http://www.officena.net/ib/index.php?showtopic=49561&page=1 رابعا--التعرف على كيفيه ترحيل البيانات من مجموعه من التيكست بوكس الى شيت الاكسيل http://www.officena.net/ib/index.php?showtopic=49561&page=1 خامسا--التعرف على كيفيه ترحيل البيانات من مجموعه من التيكست بوكس الى شيت الاكسيل أفقيا http://www.officena.net/ib/index.php?showtopic=49561&page=2 سادسا--التعرف على كيفيه تقيد الادخال فى التيكست بوكس http://www.officena.net/ib/index.php?showtopic=49561&page=2 سادسا--التعرف على بعض القيود الخاصه بادخال التواريخ فى التيكست بوكس http://www.officena.net/ib/index.php?showtopic=49561&page=3 ثامنا--التعرف على بعض الاكواد الخاصه بالعمليات الحسابيه فى التيكست بوكس http://www.officena.net/ib/index.php?showtopic=49561&page=3 اليوم سوف يتم استكمال باقى الموضوع ان شاء الله تاسعا:- جلب بيانات من الشيت الى التيكست هنا نتناول كيفيه استحضار بيانات الى الى التيكست وذلك فى حالة وجود هذه البيانات فى شيت الاكسيل عن طريق الظغط على زر داخل الفورم ارجو متابعة المثال المرفق تقبلو تحياتى text code.rar

كل عام وانتم بالف خير عيد سعيد عليكم وانشاء الله تحقيق امنياتكم وجعل الله ايامكم مسرة وفرح . اخواني اخواتي الاعزاء اليوم سوف اشرح لكم وبالتفصيل والصور كيف نعمل فورم خاص بالباسوورد . المتطلبات جدول فورم كود VBA 1. الجدول : نقوم بانشاء جدول يحتوي على الحقول التالية :- الحقل الاول : pwPKID /الخصائص ترقيم تلقائي / مفتاح اساسي الحقل الثاني : pwDEPT / الخصائص نص الحقل الثالث : pwPW / الخصائص نص الحقل الرابع: pwOWN/ الخصائص نص نحفظ الجدول باسم : faqPW الصورة النهائية للجدول تصبح بهذا الشكل .

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

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

ضع هذه المعادلة فى " C2 " وأسحبها لأسفل =SUBSTITUTE(B2,MID(B2,FIND("-",B2)-1,LEN(B2)),"") وهذه أيضا =SUBSTITUTE(B2,RIGHT(B2,LEN(B2)-FIND("-",B2)+1),"") وهذه أيضا =REPLACE(B2,FIND("-",B2),LEN(B2),"") وهذه أيضا =LEFT(B2,FIND(" -",B2)) المرفق وبه الأربع معادلات وكلهم يحققون ماتريد فأختر ماشئت تقبل : تحياتى حذف رقم من نص.rar

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

موضوع جميل جدا وفي غاية الأهمية استاذ أزهر لكل جزيل الشكر وجزاك الله خيرا

أخى فى الله الأستاذ / ابو الوسام أفضل أن ترفق ملفك أو برنامجك لكى يتسنى للجميع فهم المطلوب وتقديم المساعده وتوفيرا للوقت وجهد الساده الأعضاء ويمكنك الرجوع والإستفاده الى نماذج مشابه للفكرة خاصة بالأستاذ القدير // شوقى ربيع والأستاذ القدير // أحمد زمان والأستاذ القدير // أبو حنين والأستاذ القدير // ضاحى الغريب واليكم الروابط http://www.officena.net/ib/index.php?showtopic=46813 http://www.officena.net/ib/index.php?showtopic=50979 http://www.officena.net/ib/index.php?showtopic=37265 وتقبل منى وافر الاحترام والتقدير

جزيت خيرا أستاذنا الكبير عبد الله إثراء للموضوع هذا ملف به حلين : الأول المعادلة التي تفضل بها أستاذنا الكبير ، والثانية بها دالة معمولة في الفيجوال بيسك أي دالة معرفة Show Sheet Name In Cell.rar

السلام عليكم ورحمة الله وبركاته الاخوه الافاضل اود التنبيه الى انه الان يتم استكمال موضوع بعض الاكواد المستخدمه مع التيكست بوكس على الرابط الاتى http://www.officena.net/ib/index.php?showtopic=49561&hl= تقبلو تحياتى

أخى فى الله اليكم الملف المطلوب بالمرفقات وتقبل منى وافر الاحترام والتقدير اختبار_4.rar

الأخ تركي عامل حماية للملف ... طيب دا كلام .. طيب الأخوة هيساعدوك إزاي .. أكسر الحماية ولا تكسرها إنت؟

أخى فى الله الأستاذ / عاشق الاسلام اليكم بالمرفقات المطلوب على السريع وتقبل منى وافر الاحترام والتقدير اختبار_2.rar

إخوانى فى الله السلام عليكم ورحمه الله وبركاته اقدم لكم نموذج لساعة توقيت بالمرفقات تفيد فى عده مجالات شاكرا لكل من تعلمت منه حرفا فى عالم الاكسل على ايدى اساتذة أوفيسنا سائلا المولى عز وجل لهم أن يزيدهم من فضله ومن علمه وهذا نموذج آخر بالرابط التالى http://www.officena.net/ib/index.php?showtopic=55763#entry352569 وتقبلوا منى وافر الاحترام والتقدير ساعة توقيت.rar

إخوانى فى الله السلام عليكم ورحمه الله وبركاته غدا إن شاء الله غرة ذى الحجة وكل عام وأنتم بخير وإليكم تذكير بفضل العشر من ذى الحجة تقبل الله منكم ومنا صالح الأعمال أيها الأخوة الكرام: هذه الأيام العشرة التي نحن مقبلون عليها مفضلة عند الله عز وجل، بل إن بعض المفسرين في قوله تعالى: ﴿وَالْفَجْرِ * وَلَيَالٍ عَشْرٍ ﴾ [سورة الفجر: 1-2] أي أن هذه الأيام العشرة من ذي الحجة. أيها الأخوة الكرام: الله عز وجل يقول: ﴿ الْيَوْمَ أَكْمَلْتُ لَكُمْ دِينَكُمْ وَأَتْمَمْتُ عَلَيْكُمْ نِعْمَتِي وَرَضِيتُ لَكُمُ الْإِسْلَامَ دِيناً ﴾ [ سورة المائدة: 3 ] قال رجل من أهل الكتاب لعمر بن الخطاب رضي الله عنه: يا أمير المؤمنين إن في كتابكم آية لو نزلت علينا معشر اليهود لاتخذنا يوم نزولها عيداً، فقال عمر رضي الله عنه: وأية آية هذه؟ فقال هذا الرجل: ﴿ الْيَوْمَ أَكْمَلْتُ لَكُمْ دِينَكُمْ وَأَتْمَمْتُ عَلَيْكُمْ نِعْمَتِي وَرَضِيتُ لَكُمُ الْإِسْلَامَ دِيناً ﴾ [ سورة المائدة: 3 ] فقال عمر رضي الله عنه: والله علمنا يوم نزولها، وفي أي مكان نزلت، فكان ذلك يوم الجمعة، وعشية يوم عرفة، ورسول الله صلى الله عليه وسلم فينا يخطب الناس. أيها الأخوة الكرام: هذه الأيام الفاضلة التي فضّلها الله عز وجل اغتنموها فهي أيام مباركات، فيها تتنزل النفحات والتجليات، الأبواب مفتحة للدعوات أكثروا فيهن الصلوات، فأوقات هذه الأيام لا تساويها أوقات. أيها الأخوة الكرام: ماذا ينبغي على المؤمن أن يفعل في هذه الأيام؟ أول شيء ينبغي أن يؤدى الحج والعمرة في هذه الأيام، وهو أفضل ما يعمله مؤمن، ويدل على فضله عدة أحاديث منها قوله صلى الله عليه وسلم: ((الْعُمْرَةُ إِلَى الْعُمْرَةِ كَفَّارَةٌ لِمَا بَيْنَهُمَا وَالْحَجُّ الْمَبْرُورُ لَيْسَ لَهُ جَزَاءٌ إِلا الْجَنَّةُ )) [البخاري عن أبي هريرة] فمن كتب الله له الحج و أكرمه بهذه الفريضة الكبيرة فقد حقق أعظم شيء يفعله المؤمن في هذه الأيام. الشيء الثاني أيها الأخوة صيام هذه الأيام أو ما تيسر منها، وعلى وجه الخصوص يوم عرفة، الصيام في هذه الأيام من أفضل الأعمال، وهو مما اصطفاه الله لنفسه، ففي الحديث القدسي : ((عن أيوب بن حسان الواسطي قال "سمعت رجلا سأل سفيان بن عينية فقال: يا أبا محمد فيما يرويه النبي صلى الله عليه وسلم عن ربه عز وجل كل عمل ابن آدم له إلا الصوم فإنه لي وأنا أجزي به)) [الدر المنثور في التفسير بالمأثور للإمام جلال الدين السيوطي ] وما من عبد يصوم يوماً في سبيل الله إلا باعد الله بذلك اليوم وجهه عن النار سبعين خريفاً، أول عمل إن كُتب لنا أن نحج إلى بيت الله الحرام، أو أن نؤدي العمرة، فإن لم يكتب لنا الحج فصيام هذه الأيام، وعلى وجه التأكيد صيام يوم عرفة. والشيء الثالث: التكبير والذكر في هذه الأيام لقوله تعالى: ﴿وَيَذْكُرُوا اسْمَ اللَّهِ فِي أَيَّامٍ مَعْلُومَاتٍ﴾ [سورة الحج: 28] قال بعض المفسرين: الأيام المعلومات هي الأيام الأوائل من ذي الحجة، واستحب العلماء كثرة الذكر لحديث ابن عمر رضي الله عنهما: (( مَا مِنْ أَيَّامٍ أَعْظَمُ عِنْدَ اللَّهِ وَلا أَحَبُّ إِلَيْهِ مِنَ الْعَمَلِ فِيهِنَّ مِنْ هَذِهِ الأَيَّامِ الْعَشْرِ فَأَكْثِرُوا فِيهِنَّ مِنَ التَّهْلِيلِ وَالتَّكْبِيرِ وَالتَّحْمِيدِ )) [ أحمد عن ابن عمر] وذكر الإمام البخاري: ((كان ابْنُ عُمَرَ وَأَبُو هُرَيْرَةَ يَخْرُجَانِ إِلَى السُّوقِ فِي أَيَّامِ الْعَشْرِ يُكَبِّرَانِ وَيُكَبِّرُ النَّاسُ بِتَكْبِيرِهِمَا وَكَبَّرَ مُحَمَّدُ بْنُ عَلِيٍّ خَلْفَ النَّافِلَةِ )) [البخاري عن ابن عمر] وروى عن فقهاء التابعين أنهم كانوا يقولون في أيام العشر: الله أكبر الله أكبر، لا إله إلا الله والله أكبر، لا إله إلا الله ولله الحمد. أيها الأخوة الكرام: حاسبوا أنفسكم قبل أن تحاسبوا، وزنوا أعمالكم قبل أن توزن عليكم، واعلموا أن ملك الموت قد تخطّانا إلى غيرنا، وسيتخطّى غيرنا إلينا، فلنتخذ حذرنا، الكيس من دان نفسه وعمل لما بعد الموت، والعاجز من أتبع نفسه هواها، وتمنى على الله الأماني. وتقبلوا منى وافر الإحترام والتقدير

اليكم نموذج آخر بالفورم لساعه توقيت كان طلبا لأحد الساده الأعضاء وتقبلوا منى وافر الاحترام والتقدير اختبار_1.rar

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

أخى فى الله بالمرفقات تجد نموذج فكرته قريبة للنموذج الذى ارفقته انت ولكنه بدون فورم أتمنى أن تستفاد به فى مطلبك وتقبل منى وافر الاحترام والتقدير ساعة توقيت.rar

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

أخى الكريم راجع هذا الرابط لعله يفيدكم http://www.officena.net/ib/index.php?showtopic=55723 ولى عندكم رجاء تغيير اسم الظهور الى اللغة العربية حتى يسهل التواصل فيما بينكم وبين الساده الأعضاء وتقبل منى وافر الاحترام والتقدير

كود طباعة الفورم عمل زر طباعه بالفورم اضف له الكود التالى Private Sub CommandButton10_Click() Me.PrintForm End Sub و للبحث بالاسم بدل الكود و الخاص بزر التعديل Private Sub CommandButton6_Click() بالكود التالى Private Sub CommandButton6_Click() sheet1.Activate ActiveCell.Offset(0, 1).Value = TextBox2 ActiveCell.Offset(0, 2).Value = TextBox5 ActiveCell.Offset(0, 3).Value = TextBox13 ActiveCell.Offset(0, 4).Value = TextBox14 ActiveCell.Offset(0, 5).Value = TextBox6 ActiveCell.Offset(0, 6).Value = TextBox12 '''ActiveCell.Offset(0, 7).Value = TextBox7 '''ActiveCell.Offset(0, 8).Value = TextBox8 '''ActiveCell.Offset(0, 9).Value = TextBox9 '''ActiveCell.Offset(0, 10).Value = TextBox1 ActiveCell.Offset(0, 12).Value = TextBox21 ActiveCell.Offset(0, 13).Value = TextBox22 ActiveCell.Offset(0, 14).Value = TextBox16 ActiveCell.Offset(0, 15).Value = TextBox20 ''''ActiveCell.Offset(0, 16).Value = TextBox17 ''' ActiveCell.Offset(0, 17).Value = TextBox18 ''' ActiveCell.Offset(0, 18).Value = TextBox19 '''ActiveCell.Offset(0, 19).Value = TextBox15 ActiveCell.Offset(0, 21).Value = TextBox29 ActiveCell.Offset(0, 22).Value = TextBox30 ActiveCell.Offset(0, 23).Value = TextBox24 ActiveCell.Offset(0, 24).Value = TextBox28 ''' ActiveCell.Offset(0, 25).Value = TextBox25 '''ActiveCell.Offset(0, 26).Value = TextBox26 ''' ActiveCell.Offset(0, 27).Value = TextBox27 ''' ActiveCell.Offset(0, 28).Value = TextBox23 '''ActiveCell.Offset(0, 3).Value = ComboBox1 ''''ActiveCell.Offset(0, 4).Value = ComboBox2 '''ActiveCell.Offset(0, 5).Value = ComboBox3 MsgBox "تم تسجيل التعديلات" End Sub و فى كود زر العرض بدل A الى B و مرفق ملف اخر لعله يفتح عندك كود البحث بلاسم.rar

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

السلام عليكم بالإضافة لما أفادنا به الأخ الغالي / حمادة عمر أحب أضيف التالي XLS تستطيع قرائتها بالإكسل 2003 XLS تستطيع الإحتفاظ بالكود فيها بداية من أوفيس 2007 ، تم استبدال XLS بثلاث إمتدادات xlsb ، xlsx ، xlsm وثلاثتهم لايستطيع الأوفيس 2003 قرائتهم إلا بإضافة أداة جديدة إضافية 1- الإمتداد xlsx لحفظ ملفات الإكسل العادية التي لاتحتوي علي أكواد ، فإن كتبت كود وحفظت الملف بهذا الإمتداد ولم تنتبه لرسالة التنبيه وأغلقت الملف ، فلن تجد الكود مرة أخري عند الفتح 2- الإمتداد xlsm لحفظ ملفات الإكسل التي تحتوي علي أكواد 3- الإمتداد xlsb لحفظ ملفات الإكسل (مع أكوادها) ، ولكن لاتستطيع عمل مشاركة لهذا النوع من الملفات للعمل بأكثر من مستخدم علي الملف في الشبكة ، أي Share أنا شخصيا انصح باستخدام xlsb بدلا من xlsm لقلة حجم هذا النوع الملحوظة بالنسبة للآخرين إلا في حالة مشاركة الملف علي الشبكة كما أوضحت