الحسامي

السلام عليكم هنا طريقة للحل لكن باستخدام الاكواد المبالغ المستحقه 5.rar

السلام عليكم تفضل اخي الكريم عسى ان يكون المطلوب Book1.rar

بعيدا عن الانحياز للانظمة السياسية او الانحياز للشعوب كشعوب بعينها وانما الانحياز لارادة الشعوب في تقرير مصيرها بيدها والانحياز لتاريخ وانجازات وثقافات دولة ما نهنئ أنفسنا كمواطنين عرب بكسر حاجز الصمت والخوف والظلم والاستبداد من السلطة التي بات جزءاً من ثقافتنا العربية الموجودة بكافة الاقطار وازالة التجاهل التام للشعوب والالتفات الينا وان كنا اهم مقومات هذه الدول . فهنيئاً لمصر هذا الشعب الذي اعطانا درس العمر في الارادة والتصميم الناجح وهنيئا للشعب المصري بهذا البلد الذي علمنا اللا مستحيل وان كانت ثقافتنا الادبية تكلمت عن هذه الارادة في الامس القريب ولكننا لم نكن نلتفت اليها وكانت عبارة عن نصوص تدريسية لا اكثر إذا الشـــعبُ يومًــا أراد الحيــاة فــلا بــدّ أن يســتجيب القــدرْ ولا بــــدَّ لليـــل أن ينجـــلي ولا بــــدّ للقيـــد أن ينكســـرْ إذا مـــا طمحــتُ إلــى غايــةٍ ركــبتُ المُنــى, ونسِـيت الحـذرْ ومــن لا يحــبُّ صعـودَ الجبـال يعش أبَــدَ الدهــر بيــن الحــفرْ أُبــارك فـي النـاس أهـلَ الطمـوح ومــن يســتلذُّ ركــوبَ الخــطرْ وألْعــنُ مــن لا يماشــي الزمـانَ ويقنـــع بــالعيْشِ عيشِ الحجَــرْ وذكــرى فصــولٍ, ورؤيـا حيـاةٍ, وأشــباحَ دنيــا, تلاشــتْ زُمَـرْ ويمشـي الزمـانُ, فتنمـو صـروفٌ, وتــذوِي صــروفٌ, وتحيـا أُخَـرْ وبـــاركَكِ النُّـــورُ, فاســتقبلي شــبابَ الحيــاةِ وخِــصْبَ العُمـرْ وأعْلِــنَ فــي الكـون: أنّ الطمـوحَ لهيـــبُ الحيــاةِ, ورُوحُ الظفَــرْ إذا طمحـــتْ للحيـــاةِ النفــوسُ فــلا بــدّ أنْ يســتجيبَ القــدر عاشت مصر حرة عربية وعاش الشعب المصري الشقيق

السلام عليكم اخي ابو احمد ( ولد المجرب ) يا غصن القنا شكرا على مرورك وكلامك الجميل فبارك الله فيك ------------------------- اخيonejan1977 واخي مراد يتم وضع الكود التالي في موديل مستقل لتعريف أداة اللغة "lang " ونستطيع تسميتها باي اسم لكن يجب تطابق الاسماء في التعريف وعند الاستخدام Declare Function lang Lib _ "user32" Alias "LoadKeyboardLayoutA" (ByVal A As String _ , ByVal B As Long) As Long ثم يتم استخدام الاداة حسب الحدث المراد استخدامه سواء في ادوات التحكم في الفورم او ادوات التحكم في الصفحات او في الصفحات مباشرة حسب طبيعة الحدث حسب اللغة المطلوبة ولكل لغة رقمها الخاص : lang "00000401", 1 ' لغة عربية lang "00000409", 1 ' لغة انجليزية lang "0000040C", 1 ' لغة فرنسية مرفق ملف Book2-لغة.rar 1,"رقم اللغة" lang

السلام عليكم بعد إذن أخي الحبيب المهندس طارق هنا حل اخر لاثراء الموضوع ترحيل الخصم لما سبق2.rar

السلام عليكم تفضل اخي المرفق عسى ان يكون المطلوب Book2-لغة.rar

اللهم احفظ مصر من الفتن ماظهر منها وما بطن ( وَإِذَا جَاءَهُمْ أَمْرٌ مِنَ الْأَمْنِ أَوِ الْخَوْفِ أَذَاعُوا بِهِ وَلَوْ رَدُّوهُ إِلَى الرَّسُولِ وَإِلَى أُولِي الْأَمْرِ مِنْهُمْ لَعَلِمَهُ الَّذِينَ يَسْتَنْبِطُونَهُ مِنْهُمْ وَلَوْلَا فَضْلُ اللَّهِ عَلَيْكُمْ وَرَحْمَتُهُ لَاتَّبَعْتُمُ الشَّيْطَانَ إِلَّا قَلِيلًا ) اللهم أجعل مصر بلد امن وأمان وطمئنينة وسلام

السلام عليكم بارك الله فيك اخي كيماس يمكن استخدام الكود التالي كذلك Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [f2:f1000]) Is Nothing Then Target.Interior.ColorIndex = xlNone If Target = [g2] Or Target = [h2] Or Target = [i2] Then Target.Interior.ColorIndex = 3 End If End Sub

السلام عليكم بارك الله فيكم اخي ولد المجرب يمكنك استخدام الكود التالي للتعطيل Application.CommandBars("CELL").Controls("Cu&t").Enabled = False Application.CommandBars("CELL").Controls("&Copy").Enabled = False Application.OnKey "^c", "" Application.OnKey "^v", "" Application.OnKey "^x", "" وللتفعيل Application.CommandBars("CELL").Controls("Cu&t").Enabled = True Application.CommandBars("CELL").Controls("&Copy").Enabled = True Application.OnKey "^c" Application.OnKey "^v" Application.OnKey "^x"

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

السلام عليكم ما شاء الله عليك اخي عادل مبدع وفنان تحياتي وتقديري

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

السلام عليكم بارك الله فيك اخي احمد اخي كيماس يمكن استخدام اللائحة في نطاق رقم الحسام كالتالي عند الضغط على الخلية تظهر اللائحة وعند اختيار بند من اللائحة يطبعه في الخلية المختارة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [c4:c23]) Is Nothing Then ListBox1.Visible = True Else ListBox1.Visible = False End If End Sub Private Sub ListBox1_Click() ActiveCell = ListBox1.Value ListBox1.Visible = False End Sub مع الغاء خاصية Linkcell

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

السلام عليكم ما شاء الله اخي كيماس وهنا حل اخر ofcna.rar

السلام عليكم والله يا اخي احمد انك مبدع واسمحلي بالطلب الثاني للاخ وتكملة لملفك مرفق ملف data vildation.rar

السلام عليكم لا اعلم لكن جميع الملفات المرفقة غير صالحة وفيها خطأ ما ارفق الملف مرة اخرى بتنسيقات 2003 و 2007

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

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

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

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

السلام علبكم اخي سعد الخلل حدث بسبب تغير السة والبرنامج في حالة خانات التواريخ فارغة ويعتبرها بداية ونهاية السنة والبيانات كانت لسنة 2010 ونحن الان في 2011 حالول تغير تواريخ البيانات او ضع التواريخ قبل عمل اي كشف -------------------------------- هنا مرفق مسودة برنامج المخازن ولم يتم تنفيذ إلا الامور التي تتعلق بالاصناف ويحتوي على صفحة العملاء واضافتهم وتحرير بياناتهم وصفحة الادخالات والاخراجات ( لم تفعل بعد ) - اخر صفحة ستفعل في البرنامج 3 صفحات للاصناف - اجمالي- تفصيلي - اخر المدة قد تكون معلوماتي او طبيعة هذه البرنامج ناقصة لذا ارجو التجربة وابداء الملاحظات عليها ملاحظاتكم وارائكم هو راس مال البرنامج - حاولت اخذ جميع الملاحظات في الاعتبار مشروع مخازن.rar

السلام عليكم اخي الحبيب احمد يعقوب .. بارك الله فيك وتبهرنا يوم بعد يوم تحياتي لك

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

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