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

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

وعليكم السلام ورحمة الله وبركاته أخي مرحبا بك بين إخوانك هل هذا يفي بالغرض اطلع على هذا الرابط http://office.microsoft.com/ar-sa/excel-help/HA001034656.aspx مورد النشارة+.rar

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

المشروع الكبير: شرح برنامج المخزون و الفواتيرالشامل الاصدار الثالث هذا البرنامج هو النسخة الثالثة من برنامج المخزون و الفواتير الشامل وهو من الممكن اعتباره اكثر من برنامج فى برنامج واحد يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين مع ميزانية عامه توضح الربح و الخساره يمتاز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت البرنامج به الكثير من الاضافات عن الاصدارات السابفة البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها ربما لم تشاهدها من قبل البرنامج بواجهة تطبيقية كاملة مما يسهل من استخدامه ويسرع من ادائة ويحافظ على ثباته البرنامج يعمل على نسختي اوفيس 2007 و 2010 وان كنت انا افضل النسخة الأخيرة من حيث السرعة ** اليوم وانا على وشك انتهاء مرحلة تجربة هذاالاصدار احببت ان اقدم لكم الشرح الوافى لهذا البرنامج البرنامج يحتوى على الكثير و الكثير من الاختصارات التي تساعدك في انجاز مهامك بسرعه عالية وهى افكار جديده على الاكسيل ** تم تصميم البرنامج بمواصفات خاصه وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية بغرض التعلم او استخدامهم الشخصىعلى شرط ان لن يقوم اى شخص بتقديم هذا البرنامج الى اى جهه او شركة بغرض الربح. فحقوق ملكيتة محفوظة لى و الله الشاهد على ذلك البرنامج سوف يتم نزوله مفتوح المصدر فليس غرضى هو الاحتكار ولكنى اريد هذا العمل خالصا لوجه الله تعالى لكى يستفيد ويتعلم الجميع Ø يمكن التعديل في البرنامج على حسب ظروفي ومدى انشغالي اذا كانت تغييرات غير جوهريه Ø اليوم اقدم لكم شرح وافى للبرنامج لطلب كثير من الاعضاء و ايضا لضرورة التعرف على بعض النقاط الهامه داخل البرنامج كما يمكنك الحصول على ملف تنفيذى به شرح كامل للبرنامج حجم الملف 7 ميجابايت يمكنك مراسلتى على الايميل لطلب الشرح amroomo@gmail.com # فى الاسبوع القادم بمشيئة الله سوف اقوم بتنزيل البرنامج على المنتدى و عندما تنتهى فترة تجربة البرنامج ليكون كاملا و الكمال لله وحده سبحانه وتعالى ...... لن اطيل عليكم فلنبدأ على بركة الله بالشرح وهو عباره عن صور تشرح كافة تفاصيل البرنامج

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

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

تفضل أخى هذا الكود فى حدث الورقة كما تريد Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then On Error Resume Next If Target = "" Then Target.Offset(0, 7) = "" Else Target.Offset(0, 7) = ActiveSheet.Name End If End If End Sub نسخ اسم الورقة1.rar

وإذا لم يكن يمكن لديك 2007 فتفضل المرفق باستخدام دالة Sumproduct بدلا من Countifs احصاء بالترحيل3.rar

يارب يامغيث بك نستغيث

السلام عليكم الشكر واصل لاخي الحبيب عباد..واخي النشيط احمد ناصر واخي بن عليه وائراءا للموضوع فيه مثال لعكس معطيات المصفوفة لاستثمار التغيير في البعد الاخير ثم نستخدم الغرض .Column لوضع المصفوفة المعكوسة في اللست Private Sub CommandButton1_Click() Dim Ary() Dim LastRow As Long, v As Long Dim c As Integer, cc As Integer Dim M As String, f As String Dim q As Range '''''''''''''''''' ListBox1.Clear M = TextBox1.Value '''''''''''''''''' With Sheets("DB") LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row Set q = .Range("B2:B" & LastRow).Find(M) If Not q Is Nothing Then f = q.Address Do If InStr(1, q, M, vbTextCompare) = 1 Then v = v + 1 ReDim Preserve Ary(1 To 12, 1 To v) For c = 1 To 12 cc = Choose(c, 0, 1, 2, 3, 4, 8, 5, 9, 6, 10, 7, 11) Ary(c, v) = q.Offset(0, cc).Value Next End If Set q = .Range("B2:B" & LastRow).FindNext(q) Loop While Not q Is Nothing And q.Address <> f End If End With '''''''''''''''''''''''' '''''''''''''''''''''''' If v Then Me.ListBox1.Column = Ary End If Erase Ary Set q = Nothing End Sub المرفق 2003/2010 زيادة اعمدة الست بوكس.rar في امان الله

جزاك الله خيرا اخي الحبيب حمادة عمر

السلام عليكم الاستاذ القدير / mahmoud-lee بارك الله فيك لو علمت انك تقوم بتجهيز الحل لانتظرت حيث انه بعد ردك لايوجد رد فانت عميد المعادلات .... جزاك الله خيرا

السلام عليكم الاخ الكريم / sabah_sss67 شاهد المرفق التالي ... عله يفي بطلبك جزاك الله خيرا مثال لاظهار السعر في الوصل -sama2003.rar

أخى الكريم سلام الله عليكم تعديل طفيف لاستدعاء البيانات وطباعتها فى صفحة واحدة مهما كان العدد 2 كشف مرتبات.rar

السلام عليكم جرب التعديل التالي Private Sub CommandButton1_Click() Dim V%, L_r% Dim M Dim Q, F, Rw Dim Ar_r(), Ar() Dim j&, L_rw, i& ListBox1.Clear On Error Resume Next If TextBox1 = "" Then ListBox1.Clear Else T = 0 M = Me.TextBox1 With Sheet1 L_r = .Cells(.Rows.Count, "B").End(xlUp).Row Set Q = .Range("B3:B" & L_r).Find(M) ReDim Preserve Ar_r(0 To 1000, 0 To 11) If Not Q Is Nothing Then F = Q.Address Do If WorksheetFunction.Search(M, Q, 1) = 1 Then Ar = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12) For j = 0 To UBound(Ar) ii = Ar(j) Ar_r(T, j) = Q.Cells(1, ii) Next j T = T + 1 End If Set Q = .Range("B3:B" & L_r).FindNext(Q) Loop While Not Q Is Nothing And Q.Address <> F For i = 0 To UBound(Ar_r, 1) L_rw = 0 For j = 0 To 11 L_rw = Ar_r(i, j) Next j ReDim Preserve Ar_r(0 To i, 0 To j) Ar_r(i, j) = L_rw Next i Me.ListBox1.List = Ar_r() End If End With End If End Sub

السلام عليكم الاخ الكريم / محمد توبه كنت قد قدمت طلب مثل ذلك للاخ / نور محمود في موضوع سابق علي الرابط http://www.officena.net/ib/index.php?showtopic=45468&page=4 في المشاركة رقم 64 # اليك اخي ملف به عدد 2 فورم يهما عمليات الضرب والجمع و التفقيط الموجود بالفورم تم شرح طريقتين لعميات الضرب والجمع في الفورم بطريقة سهلة وباكواد بسيطة جدا الاولي : هو طريقة للحساب لهذه العمليات باستخدام زر لاظهار النتائج في الفورم الثانية : هو الحساب تلقائيا في الفورم بمجرد الادخال في التكستات بوكس مع شرح للطريقتين سطر سطر للاكواد المستخدمة في ذلك وشرح الاكواد موجود داخل الكود نفسه واي استفسار معك باذن الله دائما ً ... وفي انتظار ردك ( ان شاء الله ) جزاك الله خيرا الضرب والجمع والتفقيط في الفورم.rar