محمد يحياوي قام بنشر يوليو 10, 2011 الكاتب قام بنشر يوليو 10, 2011 الاخت الكريمة هذا مثال لاحد الاساتذة في المنتدى لم اعرف اسمه لكثر الملفات المنزلة عندي قد يكون معنا الان بارك الله فيه هذا المثال يمكنك الاستعانة به في مشروعك و هو جميل جدا و جامع للاكواد فورم اضافة وتعديل.rar 1
محمد يحياوي قام بنشر يوليو 10, 2011 الكاتب قام بنشر يوليو 10, 2011 اخواني الكرام هذا الجزء الثاني لفهرس الملفات تسهيلا على الاخوة الكرام في متابعة الموضوع بعض الكتب الالكترونية كنت قد عملتها منذ سنتين خلاصة لبعض الاساتذة الكرام في هذا المنتدى yahiaoui كود اختيار تعليقات من جدول معد مسبقا yahiaoui مرفق اكواد رياضية رائعة - 2 ملف - مع شرح بسيط لتطبيقات vba مع الاكسل لاستاذنا الكبير محمد طاهر hyasser كود طباعة سجلات معينة من قاعدة بيانات yahiaoui كود تشغيل اله الحاسبة للويندوز في الاكسل alidroos اضافة علامة الصح بالضغط مرتين بالماوس في الخلية بعد الانتهاء من تعبية البيانات عبدالله المجرب امثلة عملية على الماكرو hyasser كود منع طباعة الملف naderwatfa كودفرز من عامود واحد بين تاريخين hyasser كود بحث واستدعاء ورقة عمل hyasser فورم إخفاء الأوراق و استدعاؤها بباسوورد naderwatfa كود قائمة منسدلة متغيرة ، تصفية حسب الاحرف الاولى yahiaoui جلب بيانات ترحيل عن طريق الفرز وتعديل اسم ورقة العمل hyasser فرز حسب معطيات متعددة hyasser كود دخول الورقة بتصريح naderwatfa كود لعمل باسورد حماية لكافة اوراق الملف alidroos كود لعمل اوراق جديد بحسب ماتكتبه في العمود A من السطر الثاني alidroos كود التبديل بين خليتين yahiaoui حذف الصفوف بناء على الخلايا الفارغة في نطاق محدد naderwatfa حذف الصفوف بناء على القيم المكررة في نطاق معين naderwatfa حذف القيم الأصغر أو التواريخ الأحدث مع حذف الصف كله naderwatfa تعديل حذف القيم الأصغر أو التواريخ الأقدم yahiaoui ماكروهات في قائمة منسدلة yahiaoui كود عمل ماكروهات في كومبو بكس yahiaoui عمل حماية لخلايا في الورقة بدون حماية الورقة نفسها naderwatfa كود اخر خلية مستعملة yahiaoui فورم بحث yahiaou كيفية تخصيص كبسات لوحة المفاتيح لتنفيذ ماكرو الحسامي دالة تفقيط بالجنية المصري MAHMOUDFOXMAM - حساب عدد الخلايا المحددة - حساب عدد الخلايا المملوءة في نطاق - حساب عدد الخلايا المملوءة المحتواة على ارقام فقط في نطاق - حساب عدد الصفوف في نطاق - حساب عدد الاعمدة في نطاق yahiaoui عمل حماية لخلايا المعادلات رقم سري alidroos تعديل كود اخر خليةمستعملة alidroos كود للبحث والاستبدال MAHMOUDFOXMAM كود عمل باسورد لجميع الاوراق alidroos كود جميل للاستاذ الكبير عادل حنفي وهو لالغاء او تعطيل زر تكبير واستعادة لملف الاكسل yahiaoui فورم بسيط لادخال البيانات yahiaoui كود عمل باسورد لتنفيذ الماكرو واذا تعدت المحاولات 3 مرات يقفل الملف alidroos ملف يقوم باخفاء شريط المهام الخاص بالوندوز عند فتح الملف yahiaoui
الـعيدروس قام بنشر يوليو 10, 2011 قام بنشر يوليو 10, 2011 (معدل) السلام عليكم الاخت اسيرة الغربه هل هذا هو المطلوب اليك المرفق ارقام تلقائية.alidroos.rar تم تعديل يوليو 11, 2011 بواسطه alidroos
naderwatfa قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 كود اختيار المجال الظاهر و المنشط بالماوس إذا كان لديك في الملف صفوف فارغة و أخرى غير فارغة و أردت اختيار الصفوف غير الفارغة و نسخها لصفحة أخرى مثلاً فالكود المرفق يقوم بذلك عليك إخفاء الصفوف الفارغة ثم تنشيط المجال الظاهر بالماوس ثم تشغيل الكود و اعمل Copy & Paste جرب الملف المرفق اختيار الخلايا الظاهرة و المنشطة فقط.rar 1
naderwatfa قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 (معدل) الكود يعمل ببطء .. فما الحل؟ عندما يكون لدينا ملف ممتلئ بالمعادلات و الأكواد قد يحدث بطء في تنفيذ الماكروات و السبب أن إكسيل يقوم بعمل Calculate للخلايا آلياً كلما حدث تغيير في خلية ما مما يسبب البطء في تنفيذ الكود كثيراً ما يكون الحل لهذه المشكلة هو إيقاف هذه العملية قبل تنفيذ الكود ثم إعادتها لطبيعتها بعد تنفيذ الكود لعمل ذلك نكتب هذا الأمر في بداية الكود Application.Calculation = xlCalculationManual يقوم هذا الأمر بتعطيل آلية هذه العلمية ثم في نهاية الكود نضيف هذا السطر الذي سيرجع العملية لصورتها الآلية كما كانت Application.Calculation = xlCalculationAutomatic تم تعديل يوليو 11, 2011 بواسطه naderwatfa 1
الـعيدروس قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 السلام عليكم الاخت الفاضله تم عمل فورم استدعاء بحث + جديد مستنبط من فورم الاستاذ القدير احمد حمور حفظه الله ============================================ لاضافة اسم جديد تحفيز مربع (جديد) ============================================ وللتعديل على اسم نقر مزدوج على الليست بوكس يظهر زر تعديل وعليه يتم التعديل ============================================ والاستدعاء عن طريق البحث بالاسم ============================================ انشاء الله يكون ادا الغرض تحياتي والسلام عليكم ادخال بيانات.rar
الـعيدروس قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 السلام عليكم وهذا نفس الفورم ولاكن مع اضافة إخفاء الاطار شكل جمالي افضل ارجو الدعاء لي بدوام الصحه وراحة البال تحياتي ادخال بيانات1.rar
أسيــــــ الغربة ــــــرة قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 (معدل) السلام عليكم وهذا نفس الفورم ولاكن مع اضافة إخفاء الاطار شكل جمالي افضل ارجو الدعاء لي بدوام الصحه وراحة البال تحياتي الاستاذ / yahiaoui الف شكر --- الاستاذ /alidroos تصميم وعمل رائع تقف كلماتي عاجزة عن الشكر لك دعواتي لك بالسعادة المطلقه وراحة البال الدائمة ودوام الصحة و العافية ان شاء الله واسفه لو تعبتك معايا ممكن تضيف حذف بالفورم ولو حبيت اعمل زيادة TextBox عدد 2او 3او 4 حسب المشروع في form مثال + الراتب + الميلاد + وووو اقدر اسويها بنفسي يعني اعرف مكان الاكواد ل TextBox الجديد هو زي TextBox3 واكررها و ما تعبكش لو فيه أي تعديلات وجزآكم الله خيراً واسفه لو تعبتكم معايا تم تعديل يوليو 11, 2011 بواسطه أسيــــــ الغربة ــــــرة
الـعيدروس قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 جزاكم الله خير على الدعاء وانا تحت امرك بأي اضافات بالنسبه للحذف اضيفها على الفروم وارفقها ولاكن حبيتين وقت معليش واضافات تكست بوكس ممكن تسوي ملف عينه وانا اسويه لك واعمل عليه الشرح في الاكواد واي استفسار انا موجود تحياتي
الـعيدروس قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 السلام عليكم ========================= الحذف بدل الطريقة الاولى نقر مزدوج على الليست بوكس يظهر مربع تصريح للحذف وهو 123 ========================= ارجو ان يكون المطلوب ادخال بيانات2.rar
أسيــــــ الغربة ــــــرة قام بنشر يوليو 12, 2011 قام بنشر يوليو 12, 2011 (معدل) جزاكم الله خير على الدعاء وانا تحت امرك بأي اضافات بالنسبه للحذف اضيفها على الفروم وارفقها ولاكن حبيتين وقت معليش واضافات تكست بوكس ممكن تسوي ملف عينه وانا اسويه لك واعمل عليه الشرح في الاكواد واي استفسار انا موجود تحياتي الاستاذ /alidroos اكرر واقول لك تقف كلماتي عاجزة عن الشكر لك دعواتي لك بالسعادة المطلقه وراحة البال الدائمة ودوام الصحة و العافية ان شاء الله كانت اريد اضافات تكست بوكس مثل الرقم - الاسم - الميلاد - الحالة الاجتماعية- عنوان العمل - عنوان السكن - رقم الموبايل - الايميل -الملاحظات * عملك اكثر من رائع وحا ينفع الجميع وجزآك الله خيراً واسفه لو تعبتك معايا تم تعديل يوليو 12, 2011 بواسطه أسيــــــ الغربة ــــــرة
الـعيدروس قام بنشر يوليو 13, 2011 قام بنشر يوليو 13, 2011 (معدل) السلام عليكم اعذروني على التأخير في الرد البارح ماكان عندي نت الاستاذ الفاضل يحياوي الله يسعدك كلماتك الاجمل الاخت الفاضله اسيرة الغربه عملت الاضافة على عجله وهيا كالتالي اضافة ماتفضلتي به وتحقق من تكرار الاسم رسالة تنبيه وتحقق من اكمال تعبئة الحقول رسالة تنبيه وكومبوكس للحالة الاجتماعية بياناته من ورقة2 عمود A لو اردتي اضافة بيانات اخرى اضيفية بنفس العمود او الحذف واضافة بيانات اخرى . وعملت للتكست تاريخ الميلاد Calendar واذا ماتريدينه ابحثي على هذا السطر واحذفيه Private Sub TextBox5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single) UserForm3.Caption = "date" UserForm3.show End Sub وفورم رقم 3 برضه اللي هو Calendar يحذف برضه وارجو ان يكون هذا المطلوب واي استفسار انا موجود ======================================= الفضل الكبير يعود للاساتذة الافاضل أحمد حمــور عـادل حنفي حفظهم الله من كل شر ======================================= تحياتي والسلام عليكم ادخال بيانات.alidroos.rar تم تعديل يوليو 13, 2011 بواسطه alidroos 1
الـعيدروس قام بنشر يوليو 13, 2011 قام بنشر يوليو 13, 2011 السلام عليكم اعذروني على التأخير في الرد البارح ماكان عندي نت الاستاذ الفاضل يحياوي الله يسعدك كلماتك الاجمل الاخت الفاضله اسيرة الغربه عملت الاضافة على عجله وهيا كالتالي اضافة ماتفضلتي به وتحقق من تكرار الاسم رسالة تنبيه وتحقق من اكمال تعبئة الحقول رسالة تنبيه وكومبوكس للحالة الاجتماعية بياناته من ورقة2 عمود A لو اردتي اضافة بيانات اخرى اضيفية بنفس العمود او الحذف واضافة بيانات اخرى . وعملت للتكست تاريخ الميلاد Calendar واذا ماتريدينه ابحثي على هذا السطر واحذفيه Private Sub TextBox5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single) UserForm3.Caption = "date" UserForm3.show End Sub وفورم رقم 3 برضه اللي هو Calendar يحذف برضه وارجو ان يكون هذا المطلوب واي استفسار انا موجود ======================================= الفضل الكبير يعود للاساتذة الافاضل أحمد حمــور عـادل حنفي حفظهم الله من كل شر ======================================= تحياتي والسلام عليكم
محمد يحياوي قام بنشر يوليو 14, 2011 الكاتب قام بنشر يوليو 14, 2011 كود عمل نسخة احتياطية في مجلد المستندات النسخ الاحتياطي.zip
محمد يحياوي قام بنشر يوليو 14, 2011 الكاتب قام بنشر يوليو 14, 2011 تخصيص زر من لوحة المفاتيح لتنفيذ ماكرو وبناء على طلب احد الاخوة في الموضوع التالي و مشاركة اخونا الحسامي اضغط عل (f1) لدمج الخلايا و (f2) لفك الدمج merg.rar
قصي قام بنشر يوليو 14, 2011 قام بنشر يوليو 14, 2011 السلام عليكم الاخوة الافاضل هذا كود عمل باسورد لتنفيذ الماكرو واذا تعدت المحاولات 3 مرات يقفل الملف ارجو ان ينال استحسانكم Public ABU_NSSAR As Byte Private Sub CommandButton1_Click() الباسورد = "123" ِABOOD = InputBox("إدخل الباسورد لتنفيذ الماكرو") If ِABOOD <> الباسورد Then MsgBox ("الباسورد خطاء (الإدخال الخاطئ اكثر من 3 محاولات يقفل البرنامج)") ABU_NSSAR = ABU_NSSAR + 1 If ABU_NSSAR > 3 Then Application.DisplayAlerts = False Application.Quit End If Exit Sub End If Range("a3").Value = "اوفسينا أجمل صرح تعليمي" MsgBox ("تم تنفيذ الماكرو") End Sub والسلام عليكم كود جميل ولكن لو سمحتم ضعوه في ملف لزياده الفائده 1
الـعيدروس قام بنشر يوليو 15, 2011 قام بنشر يوليو 15, 2011 الاخ الفاضل قصي هذا مثال للكود Public ABU_NSSAR As Byte Private Sub CommandButton1_Click() الباسورد = "123" ِABOOD = InputBox("إدخل الباسورد لتنفيذ الماكرو") If ِABOOD <> الباسورد Then MsgBox ("الباسورد خطاء (الإدخال الخاطئ اكثر من 3 محاولات يقفل البرنامج)") ABU_NSSAR = ABU_NSSAR + 1 If ABU_NSSAR > 3 Then Application.DisplayAlerts = False Application.Quit End If Exit Sub End If Range("a3").Value = "اوفسينا أجمل صرح تعليمي" MsgBox ("تم تنفيذ الماكرو") End Sub مثال.rar
ياسر الحافظ قام بنشر يوليو 17, 2011 قام بنشر يوليو 17, 2011 العزيز يحياوي : مرفق كود تقريب الارقام بشروط من اعمال استاذنا الكبير " كيماس " ابو عمر الغالي الحقيقة يستحق المشاهدة - ورفعته هنا حتى يكون مع مكتبة الاكواد وفقكم الله ياسر الحافظ " ابو الحارث " تقريب بشروط - كيماس - 1.rar
ياسر الحافظ قام بنشر يوليو 17, 2011 قام بنشر يوليو 17, 2011 (معدل) العزيز يحياوي : مرفق كود استدعاء بيانات هذا الكود مكرر بشكل ما في مشاركات ماضية ولكن هذه المرة مع معادلة لاحساب ( السن ) العمر بتاريخ اليوم الفكرة من اعمال استاذنا " كيماس " ابو عمر بتصرف ياسر وفقك الله ياسرالحافظ " ابو الحارث " استدعاء بيانات - kemas.rar تم تعديل يوليو 17, 2011 بواسطه hyasser
محمد يحياوي قام بنشر يوليو 18, 2011 الكاتب قام بنشر يوليو 18, 2011 (معدل) بعون الله تعالى تم الانتهاء في تجميع الاكواد في محفظة الاكواد وهى من ابداع استاذنا الكبير خبور خير جزاه الله خيرا وهي النسخة الاولى و ستتبعها نسخ اخرى ان شاء الله و لقد حاولت ان اجمع كل مشاركات الاخوة الكرام في هذا الموضوع لتكون مرجعا لجميع الاعضاء ارجوا ان تعجبكم هذه المحفظة وان تعذروني عن اي سهو او خطأ محفظة اكواد___النسخة1.rar تم تعديل يوليو 18, 2011 بواسطه yahiaoui
محمد يحياوي قام بنشر يوليو 20, 2011 الكاتب قام بنشر يوليو 20, 2011 تغيير معادلة بتغير قائمة منسدلة تغير معادلة بدلالة قائمة منسدلة.rar
محمد يحياوي قام بنشر يوليو 22, 2011 الكاتب قام بنشر يوليو 22, 2011 كود فتح موقع قوقل للترجمة Google_Translate (2).rar
ياسر الحافظ قام بنشر يوليو 23, 2011 قام بنشر يوليو 23, 2011 العزيز جدا الاستاذ يحياوي : مرفق ملف - كود يظهر كافة الاوراق المخفية دفعة واحدة وفقك الله ياسر الحافظ " ابو الحارث " كود لاظهار كافة الاورق المخية.rar
ياسر الحافظ قام بنشر يوليو 23, 2011 قام بنشر يوليو 23, 2011 العزيز جدا الاستاذ يحياوي : مرفق ملف - كود ترحيل من ورقة الى اخرى بناء على محتويات احدى الخلايا في الورقة الاولى من ميزات هذا الكود انه يقوم بتجميع البيانات المرحلة ( تراكمي ) ويقوم بأفراغ السطر المرحل منه بدون حذفه من اعمال الاستاذ " الحســــــــــــــــــــــــــــــــــــــــــامي " وفقك الله ياسر الحافظ " ابو الحارث " كود لنقل البيانات - الحسامي.rar 1
naderwatfa قام بنشر يوليو 24, 2011 قام بنشر يوليو 24, 2011 كود الأستاذ الحسامي لنقل البيانات تم تعديله ليقوم بنسخ البيانات بدون تفريغ السطر الأصلي لمن يريد ذلك كود لنسخ البيانات - الحسامي.rar 2
الردود الموصى بها