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

العفو منك أستاذي.. هذه العبارة لا يمكن أن توجهها لتلميذ من تلاميذك.. عندما يوجه إليك من يكبرك سنا وقدراً تلميحاً بعمل شيء ما،، لا يمكن أن تفهم من هذا إلا يكون طلبا ملزماً.. ولهذا بادر الاستاذ جعفر بقوله.. وهذا مافهمه أيضاً الأستاذ at_aziz وبادر بقوله.. 🤐🤔😄

تفضل يمكنك استخدام هذه المعادلة لطلبك =IF($E52="","",IF(AND($D52>$H52,$H52<>0),"سداد جزئى",IF($D52=$H52,"سداد كلى",0))) مثال1.xlsx

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

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

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

هل جربت الملف هذا https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=190168

اتفضل الملف لعله يفى بالغرض بحث.xlsm

اشكرك جزيل الشكر واشهد أنك أستاذ ويارك الله في جهودك وجهود الأساتذة مشرفي المنتدى ونفع الله بكم وبعلمكم . وحقيقة أنني أستفيد من هذا المنتدى استفادة عظيمة . ونأمل أن تتسع صدوركم وتتحملني أنا وامثالي من المبتدأين ( شكراً شكراً شكراً شكراً .........

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

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

Sub test1() If Not Intersect(Columns(3), ActiveCell) Is Nothing Then If ActiveCell = "" Then Exit Sub ActiveCell.Offset(, 1) = Val(ActiveCell + 1) ActiveCell.Offset(, 3) = Val(ActiveCell + 1) End If End Sub Sub test2() If Not Intersect(Columns(8), ActiveCell) Is Nothing Then If ActiveCell = "" Then Exit Sub ActiveCell.Offset(, 1) = Val(ActiveCell) ActiveCell.Offset(, 3) = Val(ActiveCell) If ActiveCell = 40 Then ActiveCell = ActiveCell & "x" End If End Sub

اعرض الملف واردات وصرفيات حسب الفئة النقدية إن الحمد لله نحمده ونستعينه ونسترشده ونعوذ به من شرور أنفسنا وسيئات أعمالنا، ونصلي ونسلم على حبيبنا وطبيب قلوبنا محمّد صلى الله عليه وسلم الذي بعثه الله تعالى بالهدى ودين الحق ليظهره على الدين كله ... أما بعد السلام عليكم وررحمة الله وبركاته إخوتي أحبتي الكرام: أعرض لكم بريمجاً صغيراً فكرت به لحاجتي إليه في مجال عملي أحببت أن أطلعكم عليه عسى أن يكتب الله تعالى لي به القبول ....آمين اعتمدت في إعداده على حساب الفئات لعملتين وهنا حسب العملة في لبنان والعملة الرديفة الدولار ...استخدمت بذلك الدالة SUMPRODUCT التي تسهل عملية جمع نطاق معين بآخر مماثل وفق العملة الأولى حسب سعر صرف العملة الثانية. استخدمت شرط أن يكون المبلغ المصروف أقل أو يساوي المبلغ الموجود من كل فئة على حده (قواعد التحقق من الصحة) ... كان مناسباً عندما كان الحساب التلقائي يدوياً ...أما عندما حولته تلقائي عدلت عنه إلى (التنسيق الشرطي)...مقبول إلا أنه لا يؤدي عمل التحقق من الصحة. ألمحت في كل حقل مفعل من الفئات إلى قيمة كل فئة لتسهيل التعامل معها. عند كتابة الاسم تتم كتابة الوقت والتاريخ تلقائياً. وضعت في عمود مخفى قيمة كل دفعة سواء كانت دفع أو قبض ومن خلال كون الرقم أكبر من صفر أو أصغر يتم تحديد مكانه في المقبوضات أو المدفوعات باستخدام الدالة SUMIF، كما تم إضافة جمع تراكمي للرصيد عند كل دفعة. تم إدراج أكواد للحفظ والمسح والتفقيط و الطباعة ، كما تم إدراج ثلاثة أوراق لطباعة المقبوضات والمدفوعات وموجودات الصندوق في حال الرغبة بـطباعة قيد ما من الصندوق نحدد رقم قيدها فيحدد جميع حقول ذلك القيد ثم ننتقل إلى ورقة طباعتها المقبوضة أو المدفوعة. للحفاظ على رصيد الفئات مضبوطاً حسب عدد كل فئة لا بد من تسجيل حتى صرف مبلغ ما بفئات أقل في حقل محدد (الفكة - الفراطة...وقد يكون لها تسميات أخرى لا أعرفها). أرجو أن أكون وفقت لشرحه كما أرجو الله تعالى أن يكتب لنا الأجر والثواب ..نسألكم الدعاء لي ولوالدي وللمؤمنين ولولدي "علي" رحمه الله تعالى.. والله من وراء القصد . والسلام عليكم ورحمة الله وبركاته. أخوكم المحب لكم محمد حسن المحمد أبو يوسف. صاحب الملف محمد حسن المحمد تمت الاضافه 27 نوف, 2020 الاقسام قسم الإكسيل  

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

اولا شكرا على الرد و الاهتمام ثانيا ممكن شرح الكود ثالثا الكود ده فى القاعدة ام الثانية

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

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

مرحبا اخي الكريم جرب المرفق الترحيل بالماكرو.xlsb

بارك الله فيك استاذ سليم معادلة ممتازة طبعي الود هذا الخطأ من عندك انت فيجب اصلاحه بنفسك فهذه ليست معادلة عادية بل هى مصفوفة فلكى تعمل هذه المعادلة لابد من الضغط بعد تحرير المعادلة على Ctrl+Shift+Enter وليست Enter لوحدها كباقى المعادلات , وبكده يكون الموضوع انتهى بارك الله فيك

هذا أمر طبيعى لكثرة المعادلات وكثرة الصفحات بالملف !! على الرغم من كل هذا فتم تقليل مساحة البرنامج كثيراً فأصبح الأن 3.26 ميجا file.rar

أهلا بكم.. أ.@ابوخليل أ. @jjafferr أ. @أبو عبدالله الحلوانى أ. @at_aziz وباقي الزملاء،، أعلم أن مداخلاتي السابقة كانت فظة بعض الشيء 😬 وذلك أن الأستاذين أبو خليل وجعفر فتحوا بمشاركتهم أبوابا من الطلبات أهتبلها العزيز عطا وعلى أن أتجاوب معها.. وعلى نفسها جنت براقش..😏 المهم الآن أني تقدمت في العمل خطوة إلى الأمام.. أرجو أن تقدم هذه المشاركة أمرا مفيداً... فكرة النموذج المصور عرض بيانات مقتضبة عن المخططات مع صورة المخطط،، يقوم النموذج بإرفاق صورة المخطط عندما يكون للمخطط صورة في مجلد المخططات (plans) (يجب تنزيل الصور ووضعها في هذا المجلد).. الأزرار ذات الأسهم للتنقل بين السجلات،، والزر الأحمر لتقسيم الصورة،، ومربعات النص لوضع قيم بعدد الأعمدة والصفوف التي تقسم الصورة،، القيمة الافتراضية (1:1) ويعني ذلك أن الصورة عمود واحد وصف واحد (الصورة كاملة بدون تقسيم)،، لن تظهر التقسيمات بدلا عن الصورة الأساسية ولكن يظهر عوضا عن ذلك أيقونات بعدد التقسيمات المطلوبة،، عند النقر على الأيقونة يفتح نموذج التأشير على الخريطة ولكن في هذه المرة وفقا للصورة ومعرف المخطط (عرض البيانات وفقا للبلكات يعالج لاحقا).. Map Pointer.zip

جربهدا نشط اي خلي عي العمود c او h Sub test1() If Not Intersect(Columns(3), ActiveCell) Is Nothing Then If ActiveCell = "" Then Exit Sub ActiveCell.Offset(, 1) = Val(ActiveCell + 1) End If End Sub Sub test2() If Not Intersect(Columns(8), ActiveCell) Is Nothing Then If ActiveCell = "" Then Exit Sub ActiveCell.Offset(, 1) = Val(ActiveCell) End If End Sub كود ترحيل قيمة أي خلية نشطة الى خلية مجاورة بزيادة واحد.xlsm

اخي الكريم يمكن لاسم واحد ان يتكرر ايضا في اجازتين والتاريخ كذلك يمكن ان يتكرر فلا ار ى هذا حلا لموضوعك ما رايك في اضافة عمود يسمى "رقم الاجازة" وكل اججازة تحمل رقم ويتغير في الطلب بعد كل ترحيل انظر المرفق تجربة 1 (1).xlsm

تفضل ما طلبت نسبة المشاركة.xlsx

مرفق ما طلبت IT.xlsx

ربما كان المطلوب في هذا الملف Tab3i.xlsx

نعم.. هذا مؤكد فعلا.. ولا أتوقع أن تبنى قاعدة البيانات على جدول وخريطة.. الجدول المرفق في قاعدة البيانات المثال خاص بتعيين النقاط على الخريطة.. عند تعيين نقطة ما على الخرطة تسجل بياناتها في جدول القطع المعروضة للبيع.. ويمكن للمستخدم أن يكمل تسجيل البيانات في نافذة الجدول.. هنا اشكالية متعلقة بسجيل البيانات المسبق.. بمعنى أن هنالك بيانات تم تسجيلها في الجدول دون تعيين نقاط لها على الخارطة! لما كانت البيانات المدرجة في المثال بيانات صورية كان العمل على تعيين أرقام للنقاط تسلسلياً محضاً، لكن مع البيانات الواقعية الحقيقية سيكون الأمر مختلفاً تماما.. لا أتوقع أن يكون البرنامج يقوم بمسح البيانات من على الخريطة! ولا بد من اختيار البيانات مسبقة الإدخال أو تسجيل البيانات يدويا.. تبقى المعالجة الآلية للأرقام العشوائية فقط! هذا يتطلب أن يكون لقاعدة البيانات جداول للبيانات الرئسية وجداول للبيانات الفرعية.. لماكانت بيانات المواقع (الموقع حسب وقوف مؤشر الفارة على الخريطة) مسجلة في جدول البيانات سوف تظهر النقاط لكل خريطة وفقا للبيانات المسجلة لها. حالياً ممكن من خلال جدول البيانات. عند حذف بيانات موقع من الجدول لن تظهر النقطة التابعة له، لأن إعادة وضع النقاط على الخريطة مبني على البيانات المسجلة في الجدول.. الممكن الآن حذف جميع النقاط وحذف البيانات التابعة لها، الإ إنه يمكن برمجة ذلك بشكل فردي.. هذى الجزئية ليس لها علاقة بالموضوع، ولهذا لا أملك إجابة عليها كان بودي النظر في الأمور المتعلقة بالبرمجة أيضاُ، والا نركز على تحليل النظام وجداول البيانات.. لأن هذا يجعل المشاركة تطول.. ولأن السائل سأل عن أمرٍ برمجي محدد..

swords

ارجو ان اكون افدتك فقد قمت بالتعديل المطلوب الخاص بعكس الليست بوكس بحيث يبداء من ( عامود الايام المتبقيه علي الدخول من اليمين ) بحث.xlsm

لا يُنصح بالكتابة في الكود VBE إلا باللغة الانجليزية ، وخصوصا وبرنامجك ظاهرا عليه انه متعدد اللغات ، وهذا الرابط سيفيدك : اعمل برنامجك بعدة لغات وببساطة - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

جرب هذا الشيء sub PRINT_OUT Range("a1:f32").Printout end sub

تفضل اخي هذا الحل عسى ان يكون هو ما تبحث عنه حل - ترقيم.xlsx