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

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

صباح الخير للجميع مرفق للمسارات التلقائية للملفات في حالة ربطها في الإكسيل.. وحتى لا تفقدها في حالة نقلها من جهاز إلى آخر specific path.rar

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

Sub abo_abary_from_to() Dim k As Long For i = 1 To 2 For k = Range("r" & i) To Range("t" & i) Worksheets("sheet" & k).PrintOut Next Next End Sub الأخ الكريمابو حمادة جرب المرفق التالى لعله يفى بالغرض ونسألكم الدعاء abo_abary_طباعة.rar

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

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

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

السلام عليكم ورحمة الله وبركاته إلى الأعضاء الكرام شكرا جزيلا لكل من ساعدني في هذا البرنامج وأخص بالذكر الاستاذ أبو خليل شكرا للجميع وجزاكم الله خيرا اسم المستخدم هو نفسه كلمة المرور الملف مقسم إلى ملفين عند فك الضغط اضغط على الجزء الأول واعمل استخراج وسوف يتم تجميع الملفين إلى ملف واحد شرح البرنامج تجده على الرابط التالي بسم الله توكلت على الله لابد من تحميل كافة المرفقات Follow up V3.part01.rar Follow up V3.part02.rar

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

تفضل الملف بعد التعديل اخفاء بيانات1.rar

هلا اخوي شفان يعني تستخدم الجدول في حفظ هذه البيانات يمكن ادخل على الجدول وانظفه

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

كثير من الدروس على يوتيوب اذا حاب تتعلم بالعربي والانجليزي

تحية طيبة اخي محمد هذا مرفق جديد يحتوي على بعض التعديلات جرب ووافينيا بالنتيجة Link All Table From Sql DataBase 2.rar

و عليكم السلام و رحمة الله وبركاته هذا الكود تضعه في حدث الورقة التي تعمل عليها Private Sub Worksheet_Change(ByVal Target As Range) If Range("E5") = Range("J5") Then Application.Run "Un_Check" End Sub trial macro.rar

ا/ احمد زمان صباح الخير اولا اريد ان اشكر اهتمامك بالرد عى التعليقات ثانيا / انت شخص لست كسول اطلاقا ثالثا / ان لم يكن العمل جيد لما لاقى الاهتمام رابعا / التعديلات والاستكمالات مهمة جدا وانا اعتقد انك قادر على انجاز اكثر من ذلك ( فارجوا الاهتمام) جزاك الله كل خير عن مسادة الاخرين اما بالنسبة لمشاركتى السابقة فانا كنت احاول عرض المشروع بالكامل فى شكل يومية امريكية محورها عدد اربع خانات لقيد اليومية ليكون ردها فى اربع خانات فى حساب الاستاذ + خانة الرصيد بشرط ترحيل كشوف الحساب اليا بدون تدخل يدوى . احاول توصيل المعلومة بشكل محاسبى اكثر ولك كل الشكر

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

:: اعتذر منك اخي الكريم عبد الله ما عرفت بمشاركته الثانية ..

السلام عليكم اخي الكريم انت تقوم باضافة المشاركة اكثر من مرة في نفس الوقت وقد قمت بالاجابة على سؤالك في مشاركة لك بنفس وقت هذه المشاركة وهذا رابطها الرابط فارجوا منك عدم تكرار المشاركة

عليكم السلام موجود اخ حمزة وبخدمتك

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

السلام عليكم و رحمة الله وبركاته اسعد الله ايامك حاولت افهم المطلوب ماعرفت واحد فين في الرقم او العدد على اي حال شوف هذه الدالة =SUMIF(B5:C34;"*1 قطعة";D5:D34) تجمع لك عدد كل الأصفان التي ينتهي اسمها بــ "1 قطعة" ليه لأننا اضفنا النجمة قبل كلمة 1 قطعة

وعليكم السلام أخي الكريم قم بإرفاق ملفك لمحاولة تقديم المساعدة إذا أمكن ذلك وإذا تيسر الوقت .. ولتجد الاستجابة المطلوبة من قبل الأخوة الأعضاء

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

بارك الله فيك أخي أبو عيد إثراءً للموضوع إليكم ملف بدون أكواد بمعادلات فقط تمكنك من الذهاب إلى آخر خلية في العمود المحدد (في المرفق مطبق على العمود C) بحيث يذهب لآخر خلية في العمود C .. رابط الملف المرفق من هنا

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

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

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

الأخوة المتخصصين .... يسعدنا تلقى اقتراحاتكم ومساعدتكم واللى عند الله عمره ما هيروح

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

سلمت الايادي استاذ عادل وهذه مساهمة لجعل الزر يعمل بحالتين للاخفاء والاظهار Private Sub CommandButton1_Click() Application.ScreenUpdating = False If CommandButton1.Caption = "اخفاء الفارغ" Then For i = 7 To 51 If Cells(i, 33) = "" Then Cells(i, 33).EntireRow.Hidden = True End If Next CommandButton1.Caption = "اظهار الفارغ" Else CommandButton1.Caption = "اظهار الفارغ" For i = 7 To 51 If Cells(i, 33) = "" Then Cells(i, 33).EntireRow.Hidden = False End If Next CommandButton1.Caption = "اخفاء الفارغ" Application.ScreenUpdating = True End If End Sub استبدل هذا الكود بكود الاستاذ عادل (هو نفس الكود بس تعديل بسيط) ابواحمد