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

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

برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) office 2010 اليوم وبعد مرور ستة شهور من طرح برنامجى السابق على الرابط التالى http://www.officena....opic=41247&st=0 اقدم لكم برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) برنامج يحتوى على الاتى 1- شاشه ادخال الفواتير بكافه انواعها وفى هذه الصفحه ايضا يكمنك البحث عن اى فاتورة وتعديلها او الغائها او طباعتها كما يوجد اختصار لاخرالفواتير المدخله التى يمكن استدعائها بضغطة زر واحده و العديد من التفاصيل اكتشفها بنفسك 2- شاشه لادخال العملاء و التعديل عليها بها جميع تقاصيل العميل 3- شاشه ادخال الموردين و التعديل عليها بها جميع تقاصيل المورد 4-شاشه ادخال الاصناف و التعديل عليها بها جميع تقاصيل الصنف 5-شاشه ادخال المناديب و التعديل عليها 6- شاشه ادخال مستخدمين بصلاحيات مختلفه 7- شاشات التقرير وتشمل الكثير و الكثير من التقارير كتقارير المبيعات و المشتريات وتقرير على حسب المناديب او المستخدمين و الكثير من التقارير التى يمكن اكتشافها بنفسك 8- شاشه تقرير حسب العميل يوضح مشتراياته ومدفوعاته بالتواريخ وايضا يبين المديونيه المستحقه 9- كما توجد العديد والعديد من الشاشات كادخال السندات و الخصومات و المصاريف وطباعتها 10- الكثير من المزايا الاخرى كحركه صنف وتقرير المخزون وتقرير الموازنه والربح و الخساره... اكتشف المزيد ملاحظات هامه 1- تم عمل البرنامج على اوفيس 2010 و البرنامج لن يعمل بشكل جيد الا على هذا الاصدار لذلك ارجون من يقوم بتجربته ان يكون على هذا الاصدار 2- تم وضع الكثير من الاختصارات التى توصلك لبعض التقارير وتم الشرح داخل البرنامج 3- لاى استفسار خاص بالبرنامج يكون عن طريق هذا الصرح العظيم او عن طريق مراسلتى بالايميل التالى amroomo@gmail.com 4- اتمنى ان يكون هذا البرنامج اضافه لهذا المنتدى العظيم 5- شكر واجب لكل مشرفى و اعضاء منتدى اوفيسنا الذى اصبح مناره الاوفيس فى الوطن العربى 6- الرقم السرى للدخول 123 7- الرقم السرى لمحرر الاكواد هو 85211 8- للبدء باستخدام البرنامج وتجربته قم بادخال الاصناف او حتى صنف واحد وكذلك مع العملاء و الموردين قم بادخال بيان واحد لكل منهما وبعد ذلك قم بعمل الفواتير و السندات بعد ذلك يمكنك استدعاء التقارير المختلفه الخاصه بالبرنامج كما انه لابد من ادخال المناديب او حتى مندوب واحد لكى تستطيع حفظ الفاتوره صورة البرنامج اخيرا ارجو من الجميع عدم التردد فى اى استفسار او ملاحظات تم رفع البرنامج على موقع الميديا فاير حيث ان مساحه البرنامج 1.9 ميجابايت ============================= تم إضافة الملف الى المشاركة بدل الرابط الخارجي الإشراف ============================= البرنامج هو تحديث للبرنامج السابق على الرابط التالى http://www.officena....opic=41247&st=0 برنامج المخزون و الفواتير 2013.rar

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

بعد اذن اخي وحبيبي ياسر اليك هذا الملف TEST FILTERS salim.rar

أخي الكريم عامر ياسر يبدو لي أن الطلب مختلف تماماً عما قمت بتوضيحه من قبل عموماً حسب الملف المرفق الأخير ..قم بوضع الكود التالي في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C8:AD40")) Is Nothing Then If IsNumeric(Target) And Application.WorksheetFunction.CountIf(Range(Cells(Target.Row, 3), Cells(Target.Row, 30)), Target.Value) > 1 Then MsgBox "No Way. Duplicate!", 64 End If End If End Sub

الاخ مهند الزيدي تم التعديل حسب طلبك الان يمكنك ان يكون المجموع ليس للعمود E فقط ولكن مثلا للعمود من B الى E أو أعمدة متفرقة حسب الحاجة ويجب تعديل المعطيان داخل الكود '========================================= First_Cel = "A1" ' عنوان اول خلية في جدول البيانات Count_Row_In_Page = 10 ' عدد الصفوف في كل صفحة Arr_Col_Total = Array(12, 5, 3) ' ارقام اعمدة المجموع بالنسبة الي الجدول وليس الأكسل '========================================= تم تعديل بعض الاخطاء في النسخة الاولي فقط كانت لا تعمل اذا كان الجدول لا بيدأ من اول عمود ادراج مجموع كل صفحة & المجموع الكلي_2.rar

جزاك الله خيرا أستاذنا الحبيب - آسف جدا فقد كنت غير متصل بالفترة السابقة ولم أكن متابعا للمنتدى - لذى لم ألحظ أجبتكم جزاك الله خيرا القيم داخل الأكسس كانت تظهر 0 للخطأ و -1 للصواب جزاك الله خيرا - فكرت بازالة هذا الحقل بالكلية أو تغير نوع البيانات الى رقم وهذا سيترتب عليه تعديلات أخرى داخل الأكود مما حملنى على تأجيل القرار فى ذلك بالنهاية بعد الفراغ من بعض المهمات الأخرى أحسن الله اليك وعود أحمد فقد طالت غيبتكم عساكم بخير

قمت بتطبيق الحل الذي قدمه الأخ سليم ووجدته سهلا وجميلا، فقط يحتاج إلى حذر من تكرار مرور المؤشر حتى لا تتضاعف القيمة بالخطأ. شكر الله لكم أخوي الكريمين ياسر وسليم، وجزاكم الله خيرا وجميع أعضاء المنتدى الكرام على خدماتكم الجليلة.. لدي سؤال إن أذنتم لأخيكم: هناك إحدى ورقات العمل تتطلب أكثر من 400 كود مكررة على خلايا متعددة، ولاحظت أن البرنامج يعطيني رسالة مفادها أن الكود طويل، هل لها من حل؟

سامحك الله أتجمعنى مع هؤلاء الكبار أسأل الله أن يغفر لى ولكم وأن يجمعنى فى جنته مع النبى محمد (صلى الله عليه وسلم)

أخي الكريم سمير هل الملف المرفق هو ما تقوم بالتطبيق عليه أم ملف آخر ؟ لأن الخلايا A1:C2 مدمجة كلها في خلية واحدة .. أي أن الخلية B2 والخلية B3 ليس لهما وجود في هذا الدمج .. عموماً الفكرة في السطر كما أشرت أنك تشير للخلية المطلوب إدخال القيمة فيها بهذا الشكل ActiveSheet.Range("J2").Value= قم بتغيير J2 إلى الخلية المطلوبة .. قم بإزالة الدمج واستخدم الخلية B2 كما ترغب وكما فهمت من طلبك .. السطر الأول يتم تعديله بهذا الشكل (السطر موجود في الكود فقط قم بتعديله) ActiveSheet.Range("B2").Value = ActiveSheet.Name وأضف بعده السطر التالي ActiveSheet.Range("B3").Value = Target.Offset(, -1).Value تقبل تحياتي

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

قم بالتعديل في هذا السطر إذا أردت كود العميل أو المسلسل في نفس الخلية A2 ActiveSheet.Range("A2").Value = Target.Offset(, -1).Value & " " & ActiveSheet.Name أما إذا أردت الكود أو المسلسل في خلية أخرى فالأمر بسيط ولكن سيكون في سطر منفرد .. مع ترك السطر السابق كما هو ActiveSheet.Range("J2").Value = Target.Offset(, -1).Value تقبل تحياتي

دورة برمجة الاكسل VBA ملخص الدورة تقدم هذه الدورة شرحا تفصيليا لبرمجة برنامج الاكسل و تنطلق الدورة من المفاهيم الاساسية وحتي الخصائص و الاكواد المتقدمة و ستكون الدورة مصحوبة باكثر من 100 ملف جاهز للتحميل للمتابعة و التدريب ، بالاضافة لعدد من الكتب و المراجع التي تساعد المبرمج علي اتقان اللغة و التحكم في كتابة الكود بسهولة ماذا تحتاج للحضور معرفة الدوال الاساسية في الاكسل معرفة متوسطة بالبرنامج اهداف الدورة التعرف علي مفهوم برمجة الاوفيس التعرف علي مفهوم برمجة الكائنات استخدام خصائص توريث الكائنات في الاشارة للسمات و الخصائص التحكم في اعدادات الامان لبرنامج الاكسل تسجيل و تحرير و حدات الماكرو ربط وحدات الادوات بالكود التحكم في خصائص محرر الكود انشاء و تحرير الوحدات النمطية حماية الكود ووضع كلمة مرور و تشفير المحتوي اضافة دوال مخصصة لبرنامج الاكسل التعامل مع المتغيرات واعلانها و التحكم في قيمتها و ضبط حجم البيانات التحكم في خصائص البرنامج من خلال الكود التحكم في سير الكود استخدام العبارات المنطقية في التحكم في الكود استخدام عبارات التكرر لاعادة استخدام الكود استخدام صندوق الحوار للتفاعل مع المستخدم استخدام صندوق الرسائل انشاء شاشة نموذج المستخدم المستهدف حضوره مستخدمي الاكسل ممن يرغبون في تنمية معارفهم المحاسبون ومن يحتاج لتحليل البيانات الموظفون الذين يحتاجوا للتعامل مع الاكسل بشكل مستمر من يقوم بمشاركة الملفات او جمع البيانات بالاكسل رابط الدورة https://www.udemy.com/arabic-vba/

جزاكم الله عنا كل خير

جزاكم الله عنا كل خير

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

اخى الكريم ياسر خليل أبو البراء السلام عليكم لكم تعلمنا منك الكثير وشكرا لمرورك العطر بالنسبة لسؤالك الجزئية تعنى اذاكانت If Cells(1, 13) > Cells(1, 15) Then عدد الشهادات اكبر من الصفر نفذ الكود التالى اما بالنسبة للمقارنة بأكبر عدد من الطلبة فلاحظ علامة (< ) أكبر وليست اصغر ....................... وكل عام وانتم بخير اخى الكريم كعبلاوى مشكور لكلاماتك الرقيقة وجزاك الله كل خير

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

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

السلام عليك ، و الله عمل رائع و لقد إستفدت كثيرًا لذا أرجوا أن تكون هناك تكملة لهذا الموضوع المفيد و الشيق ، الله يجعلها في ميزان حسناتك

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

جميل السؤال هناك اكثر من فكرة يمكن ايسرها التالي ضع خاصية تمكين الحذف للنموذج = لا والامر خلف الزر يكون جملة حذف sql والشرط قيمة السجل الحالي وطبعا يستخدم قيمة الحقل الفريد ! ولا حظ ان االسجل الحلي هو الذي يظهر عنده مؤشر محدد السجلات وعادة يكون اول سجل في السجلات المحددة بالتوفيق

اخينا ابو عبدالله كنت احتاج البيانات للتاكد من وجود القيمة صواب من عدمه والتي لم يتم التطرق لها في مشكلتك مما يدل على عدم وجود مشكلة بالمعيار صواب والذي يطابقه القيمة 1 في sql لذلك اعتقد والله اعلم التالي في ال sql تكون قيم العمود بت bit تساوي 0 للخطأ و 1 للصواب وكذلك null وهنا اعتقد المشكلة حيث هي القيم الافتراضية في ال sql ويتم عرضها في الاكسس كقيم خطأ لان الاكسس لا يتعرف على ال null في جدول الاكسس ومن نوع البيانات صح / خطأ فانت تكتب 0 في الاكسس لانك تراها خطأ وهي في الاصل null تاكد في السجلات انك ادرجت القيم 0 في ال sql سيتم التعرف على المعيار 0 في الاكسس او اكتب المعيار is null في الاكسس وشوف النتيجة بالتوفيق

السلام عليكم ورحمة الله وبركاته 3D - Chart الجدول يتم زيادته تلقائيا ويتم زيادة الرسم البيانى ايضا يمكن تغيير وظيفة الجدول ليعرض تقرير عن المصروفات او المبيعات او الموظفين ..الخ زكاة العلم نشره تحميل الملف chart111.rar

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

لا حرمنا الله من علمكم وجميل اخلاقكم وحسن توجيهكم أخوتنا الكرام

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم كود متميز جداً .. كود في منتهى الروعة .. إن شاء الله تستفيدوا منه أقصى استفادة .. الكثير منا يبحث عن موضوع فصل الناجحين والراسبين .. ها أنا أقدم لك على طبق من كود : الكود الذهبي الذي سيقوم بذلك بمنتهى السهولة واليسر .. هذا هو الشكل العام للكود Sub SplitFilteredData() 'الإعلان عن المتغيرات Dim MySheet As Worksheet Dim MyRange As Range Dim UList As Collection Dim UListValue As Variant Dim I As Long 'تخصيص ورقة العمل النشطة Set MySheet = ActiveSheet 'إذا لم تحتوي ورقة العمل على فلترة يتم الخروج من الإجراء الفرعي If MySheet.AutoFilterMode = False Then Exit Sub End If 'حدد العمود الذي يحتوي على البيانات المراد عمل تصفية لها Set MyRange = Range(MySheet.AutoFilter.Range.Columns(5).Address) 'إنشاء كائن تجميعي Set UList = New Collection 'وضع قيم في الكائن التجميعي بالقيم الفريدة أي الغير مكررة فقط On Error Resume Next For I = 2 To MyRange.Rows.Count UList.Add MyRange.Cells(I, 1), CStr(MyRange.Cells(I, 1)) Next I On Error GoTo 0 'حلقة تكرارية للقيم الموجودة داخل الكائن التجميعي For Each UListValue In UList 'حذف أية أوراق عمل تم إنشاءها من قبل On Error Resume Next Application.DisplayAlerts = False Sheets(CStr(UListValue)).Delete Application.DisplayAlerts = True On Error GoTo 0 'عمل تصفية لمطابقة القيمة الحالية MyRange.AutoFilter Field:=5, Criteria1:=UListValue 'نسخ النطاق الذي تم تصفيته إلى ورقة عمل جديدة MySheet.AutoFilter.Range.Copy Worksheets.Add.Paste ActiveSheet.Name = Left(UListValue, 30) Cells.EntireColumn.AutoFit 'إعادة الحلقة التكرارية مع قيمة أخرى Next UListValue 'الذهاب للصفحة التي تحتوي على البيانات وإزالة الفلترة MySheet.AutoFilter.ShowAllData MySheet.Select End Sub في الفيديو شرح لكيفية استخدام الكود .. ومرفق في الموضوع الملف الذي تم الشرح عليه إليكم رابط الفيديو لا تنسونا من صالح دعائكم ، ولا تنسوا اللايكات في اليوتيوب ... تقبلوا تحيات أخوكم أبو البراء Split Filtered Data VBA.rar Split Filtered Data VBA V2.rar