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

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

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

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

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

ربما يكون هذا هو المطلوب .. تم إضافة تاريخ السداد المبكر في الخلية L15 تعديل معادلة العمود B & C تعديل معادلة الأشهر المسددة .. بالتوفيق ‫المثال ء _2.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 بالتوفيق

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

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

تفضل اخي الكريم 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

وعليكم السلام محمد.. الملفات الثنائية لها معرفات نصية في أول سطر من الملف! يمكن الاستفادة من هذه الميزة للتعرف على الملف الأصلي حتى لو غُيرت اللاحقة! افتح الملف بواسطة محرر النصوص التقليدي للحصول على معرف الملف ثم استخدم هذا المعرف في فحص القيمة.. في أكسس الشفرة التالية تفي بالغرض إن شاء الله Sub TestData() On Error Resume Next Dim fn, ft fn = CurrentProject.Path & "\testdata\testdata.msi" Open fn For Input Access Read As #1 Line Input #1, ft Close #1 If ft Like "*Standard ACE DB*" Then Name fn As Replace(fn, ".msi", ".accdb") End If End Sub

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

السلام عليكم ورحمة الله تعديل بسيط في ورقة "سجل أصلي" لرقم الشهر أمام كل جدول للتوقيت (ضروري لعمل المعادلات الجديدة)... شيت جديد 1 - Copy.xlsx

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

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

وعليكم السلام-اهلا بك اخى الكريم فى المنتدى ... على الرغم ان هذه المشاركة مخالفة لتعليمات وقوانين المنتدى ويجب حذفها لعدم احتوائها على ملف موضح فيه كل المطلوب بكل دقة , حيث أنه لا يمكن العمل على التخمين وتجنباً لعدم اهدار وقت الأساتذة .... الا ان طلبك يمكن حله بهذه المعادلة فلنفترض اذا كان الرقم موجود بالخلية B2 - فيمكنك وضع هذه المعادلة فى خلية اخرى كما تريد =SUBSTITUTE(b2," ","")

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

ملفك كبير جدا من الأفضل العمل على شيت الإكسيل نفسه وليس على يوزرفورم بارك الله فيك تفضل البرنامج.xlsm

بقي هذا الكود للاختيار 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

بعد اذن أخى الغالى ياسر الملف ده جاهز 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

ما مضمون رسالة الخطأ؟؟ للعلم أنا عندي نسخة أوفيس 2007 والكود شغال ومية مية ياريت يشاركنا أحد الإخوة هل الكود يعمل عنده أم لا على أوفيس 2003 وعلى أوفيس 2007

تفضلي أختي الفاضلة أتمنى أن يكون هو المطلوب ظپط±ط² ط¨ظ…ط¹ظٹط§ط±ظٹظ†.rar

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

ياريت مزيد من التوضيح

رائع أخي خالد خلدك الله في جناته

أخي خالد أنت لا تحتاج لإذن مني بل أنا آمل أن تعجبك هذه الصورة وتنال رضاك حتى يعم الخير

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

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

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

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

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