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

عليكم السلام تفضل هذه المحاولة ارجو ان تكون طلبك Color1.rar

وعليكم السلام -بسيطة , تفضل المثال 1 _xlsm.xlsm

نصيحتي لك تعلم لغة الجافا java أو javascript فهي بوابتك لجميع اللغات الأخرى سهلة و من خلالها تستمد اللغات الأخرى

ابشر ::::: اولا : اضفنا تجميع للتقرير .... ثانيا : عدلنا في خصائص رأس المجموعة التي انشأناها فرض صفحة جديدة بعد المقطع انظر الصور لعلها ابلغ من الشرح ....

ربما يكون هذا هو المطلوب .. تم إضافة تاريخ السداد المبكر في الخلية L15 تعديل معادلة العمود B & C تعديل معادلة الأشهر المسددة .. بالتوفيق ‫المثال ء _2.xlsm

السلام عليكم لى مطلب .. المساعدة فى استدعاء بيانات قائمة الفصل بالكود ,,, وفق المعيارين الصف والفصل .. فى القائمة على جانبي الورقة مع الاحصاء اعلى الورقة قائمة فصل.xlsm

وعليكم السلام ورحمة الله وبركاته بالاضافة الى ما تفضل به الاخوة الكرام ولهم الشكر تفضل اخي الكريم تحياتي

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

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

بارك الله بجهودك القيمة يا اخي الكريم ورحم الله والديك في الدنيا والاخرة هذا هو المطلوب شكراً جزيلاً

تفضل هذا التعديل thaaer.zip

هل تريد مجاميع لجميع انواع الحسابات (وفق / او بدون) نطاق تاريخ معين او سنة مالية محددة

تفضل هذا المثال Scaneer.accdb

اشكرك وجزاك الله خير وبارك الله في جهودك كفيت ووفيت

الحل من وجهة نظري هو حماية تركيب المصنف فلا يمكن للمستخدم تغيير اسماء الشيتات ولا ترتيبها Review ---> protect workbook ---> password ---> structure ---> OK وبالنسبة للتعبير عن الشيت فهناك 3 طرق أولها ترتيب الشيت sheets(1) وللشيت اسمان اسم ظاهر في التبويبات وهذا في الكود الذي يعبر عنه sheet1.name والاسم البرمجي وهو يظهر في مستكشف المشروع في شاشة vbe ويكون رمزه sheets("data").codename وهذا الاسم البرمجي codename هو الذي لا يتأثر بتغير ترتيب الشيت ولا تسميته ففي الصورة السابقة Name = Data Codename = Sheet1 index = 1 بالتوفيق

جزاك الله خيرا استاذ محمد وبارك الله في علمك وصحتك ومالك وأهلك

الجزء الخاص بالتاريخ على افتراض انه في العمود D الذي يلي C بمقدار عمود 1 هو F.Offset(0, 1) = ComboBox2.Text ولتغييره للعمود A الذي يسبق C بمقدار 2 F.Offset(0, -2) = ComboBox2.Text لذلك جرب الكود كاملا Set ws = Sheets("اصناف") For Each F In ws.Range("c5:c5000") If F = ComboBox1.Text and F.Offset(0, -2) = ComboBox2.Text Then ws.Select F.Select Exit For End If Next F ActiveCell.Value = ComboBox1.Value ActiveCell.Offset(0, 4).Value = TextBox4 ActiveCell.Offset(0, 5).Value = TextBox5 ActiveCell.Offset(0, 6).Value = TextBox6 ActiveCell.Offset(0, 9).Value = TextBox7 ActiveCell.Offset(0, 10).Value = TextBox8 MsgBox "تم تعديل البيانات بنجاح" End Sub وكان ينبغي أن تتوصل لها وحدك بالتوفيق

بارك الله فيك ، ولو اردت اخي الغالي ، ان اعمل للفرع كله بحيث يكون ظاهر نسب الموظفين والمتبقي لهم كام ، واجمالي المحقق للفرع كله كنسبة

ماشاء الله فعلا فنااااان ترابط احترافي للأحداث و واقعي فعلا مهندس وصف وصفه

تفضل اخي الكريم If Nz(DCount("[invoice]", "[Table1]", "[invoice] =" & Me.qty), 0) > 0 Then MsgBox "رقم الفاتورة مكرر" End If تحياتي

هذا ما قصدته عفواً لم انتبه لعدم كتابة <>0 تحياتي

مثالك بعد التعديل ..... تعديل (1).mdb تم تعديل الحدث ... Me.Text72 = Mid(Costomer, 1, 12) & "0" & Mid(Costomer, 13, 2)

حسب الصورة لاستعلامات التحديث .... اضافة 0401 اضاف 000 حذف اول رقمين حذف اول سته ارقام عكس شرحك ..... ارجو التوضيح ..... على العموم انظر المرفق بدون الحاجة للاستعلامات ..... فقط ادخل الرقم ثم انتر تجد الرقم معدل مباشرة جرب وأعلمنا بالنتيجة ... تعديل (1).mdb تم استخدام هذا الحدث .... Me.Text72 = "0401" & Mid(Costomer, 7, 8) & "000"

لا اعلم ان فهمت سؤالك ام لا.. لكن لنفرض ان لدينا مخزن وعادة تدخل اليه المواد جملة وليس مفرق فمثلا دخلت للمخزن 10 كارتون نستلة .. وكل كارتون يحتوي على 12 علبة للنساتل .. وكل علبة تحتوي على 10 قطع نستلة المخزن يعطي للمحل كارتون فقط .. فمثلا المحل سحب كارتون وقام ببيع 10 علبة مع 8 نساتل فالرصيد المخزني سوف يكون 9 كارتون مع علبة واحدة مع 2 من النساتل

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

واجهتنى مشكله نتيجه تغيير الاعمده مرفق الملف واريد نقل الكود اليه بحيث يعمل بطريقه سلسه مع العلم بان العمود الذى سيقوم بنقله بدون تكرار هو العمود ( DES. CODE - AC ) فى شيتSTORE ينقل الى شيت الرصيد بدون تكرار ... وشكرا مقدما على مجهودك Store5 - Copy.xlsm

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

السلام عليكم استاذي الفاضل محمد صالح اللهم ربي يحفظك ويبارك فيك جزاك الله خيرا قمت بتنصيب البرنامج في بارتشن ال E هذه المرة اشتغلت ال Apache ولم تعمل ال Mysql كما في الصورة المرفقة

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

تفضل ربما يكون المرفق ما تريد الاكواد اظنها للاستاد ياسر ابو البراء جزاه الله خير الجزاء قمت بتعديلها حسب طلبك قوائم مترابطة (2).xlsm

تفضل كيفية إضافة توقيع في Outlook 8 نموذج لتوقيع بريد الكتروني مهني

تم مغالجة الأمر بالنسبة للمواصلات 1- اضافة شرط ( نعم أو لا) 2-اعادة تصميم الجداول (مصدر المعلومات) كما في الملف المرفق 3- يمكنك اضافة فدر ما تريد من مدارس شرط ان تعمل جدول خاص لكل مدرسة وتسميته بنغس اسم المدرسة المسافات ممنوعة في اسم الجدول ( مثلاً اسم المدرسة:التربية الوطنية الحديثة) بجب ان يكون اسم الجدول التربية_الوطنية_الحديثة او التربية*الوطنية*الحديثة بكلمة احرى استبدل المسافات بين الكلمات بأي شيء تريد 4- اضافة الجدول (باسمه دون مسافات) الى القوائم المنسدلة في العامود "E" Bilal3.xlsm

ترقيم تلقائي يتجدد مع بداية كل سنة على النحو التالي 1300001 1300002 1300003 1400001 1400002 وهكذا ................. باعتبار الرقم 13 ، 14 هو السنة والترقيم لاشك سيكون تبعا للسنة الحالية Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = Left(DMax("ID", "tbl1"), 2) xLast = DMax("ID", "tbl1", prtTxt = prtyr) If IsNull(xLast) Then xNext = 1 Else xNext = Val(Mid(xLast, 3, 5)) + 1 End If Me!ID = prtyr & Format(xNext, "00000") End Sub ترقيم تلقائي جديد كل سنة.rar

السلام عليكم ورحمة الله أساتذتنا وأصدقائنا الكرام في هذ الصرح العملاق والمتميز دائماً في فعل ونشر المعرفة والخير للجميع اليوم أتيت لكم ببرنامجي البسيط والمتواضع الذي ولله الحمد قد قمت ببرمجته في عام 2015 وأستخدمته أحدى شركات المقاولات التي تحتوي مايقارب عن 500 موظف في الأونة الأخيرة تم نشر برامج كثيرة حول مجال شؤون الموظفين والمرتبات ولكن كانت تقتصر فقط على مبدأ أرشفة بيانات الموظفين ولكن الآن تستطيع أخي المستخدم غير ذلك بكثير ، وهي إضافة المرتب لكل موظف في حسابه حسب اختيار المستخدم لفترة استحقاق المرتب له وعند دخول وقت الاستحقاق يقوم البرنامج بالتنبيه وتذكيرك بسحب المرتبات وأيضاً تستطيع إضافة حركات مالية أخرى كنظام السلف والدفعات والمسحوبات على المرتب وميزات كثيرة سوف تكتشفها بنفسك عند الاستخدام . قمت بإضافة نظام الحماية المتميز وهو تفعيل النسخة بالرقم التسلسي للوحة الأم بحيث تعمل النسخة على جهاز واحد فقط وعند النقل يتم قفل البرنامج عن العمل صور من البرنامج صورة تفعيل البرنامج روابط التحميل Office Soft.Employ & Salary أو Office Soft.Employ & Salary فيديو شرح التنصيب والتثبيت من هنا فيديو طريقة ألية عمل واستخدام البرنامج من هنا الشرح التفصيلي للبرنامج موجود في مجلد البرنامج بعد تثبيته على جهاز الكمبيوتر ملاحظة مهمة :يرجى عدم تغيير مسار تنصيب البرنامج لكي يعمل معكم بشكل كامل أو تنصيبه في مسار أخر غير القرص الصلب (C) البرنامج تم تجربته على أوفيس 2010 و 2007 ويعمل بشكل كامل ومتميز أتمنى أن ينال أعجابكم والحمد لله

بقي هذا الكود للاختيار Sub sheck() Range("a1:H8").Interior.ColorIndex = xlNone For i = 1 To 8 k = i Mod 2 For j = 1 To 8 m = j Mod 2 If k = m Then Cells(i, j).Interior.Color = 255 Next Next End Sub

السلام عليكم ورحمة الله في الملف المرفق تم وضع معادلة باستعمال الدالة SUMPRODUCT مع اعتبار فترة الإحصاء (بدايته ونهايته)... أرجو أن يكون المطلوب... بن علية احصاء.rar

بعد اذن أخى الغالى ياسر الملف ده جاهز Removing all spaces from text.rar Removing all spaces from text.rar

جرب الملف التالي ...تم الانتهاء بحمد الله من تصحيح 300 اسم (الورقة التي تبرعت بها) في ربع ساعة تقريباً إليك الملف التالي ..تم وضع الأسماء في العمود A وبالنقر على زر Process سيتم تصحيح الأسماء وفقاً لورقة العمل الشروط والأسماء الصحيحة إن شاء الله في العمود D أتمنى أن تكون قد وصلت الفكرة .. وأعتقد بعد هذا الكم من الأسماء يمكن أن يكون الملف مرجع لتصحيح الأسماء :dance1: Fix Names.rar

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

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

اشكرك استاذى الفاضل على ردك واستجابتك السريعة وجارى البحث فى مشاركة الاستاذ محمدى شكرا لك

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

السلام عليكم هذا نفس سؤالى بس فى جدول اخر ان يكون الفصل مشترك فى نفس الحصة مع 2 معلم اواكثر ولكن هذا البرانامج لا يكرر نفس الفصل لمعلم اخر فى نفس الحصة وهذا رابط الجول الاخر http://www.officena.net/ib/index.php?showtopic=48996 ارجو من السادة القائمين على هذا الصرح الرائع ان يحلوا هذة المشكلة ويعدل الكود فى مشاركة الاخ جلال محمد ويمكن لى ان اشتغل على هذا الجدول بدل جدول مشاركتى لان هذا الجدول بة ايضا جميع متطلباتى ولكم جزيل الشكر

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

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

السلام عليكم اذن يجب تجربة الملف التالي و ابداء الراي NewLast2 الساقية.rar

يبدو أن الملف فقد جزء من خصائصه بعد حفظه بصيغة يدعمها أوفيس 2003 لأني فتحت الملف ولم أجد قائمة بالأصناف تختار منها فهذا رابط لنفس الملف بصيغة يدعمها أوفيس 2007 و 2010 هنـــــأ

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

مشكور أخي hben دالة رائعة فعلا

اخي العزيز المشكلة كانت من شقين - الاول انك جعلت المعيار يعتمد على قيمة خاصية Tag للكومبوبوكس وبصراحة لاول مرة ارى هذه الطريقة حتى وان كانت ممكنة فلماذا لا تستخدم الطريق المباشرة فالاستعلام يفضل ان يعتمد على قيمة تكون هي قيمة مباشرة او غير مباشرة لعنصر تحكم في النموذج - الثاني والاهم انك حددت قيمة المعيار اما Yes او No مع ان هذا النوع من الحقول يمكن ان يظهر باكثر من تنسيق مثل "Yes/No-True/False..." بالاضافة الى ان القيمة قد تتغير باختلاف اللغة فقد تظهر (Yes او نعم او True او صواب) ولكن الاضمن هو جعل المعيار True و False (وخاصة عند استخدام اكواد VBA) او استخدام القيم -1 و 0 في الاستعلامات كما في التعديل المرفق ارجو ان اكون قد وفقت في الحل والشرح مع تحياتي,,, db_invoice.rar