اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

تفضلوا الملف المرفق

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

ولقد قمت بتعديله ليناسب المطلوب

كل ما عليك هو الضغط بالفأرة دبل لتحصل على المطلوب في الخلية A26

مع تحياتي

أبو سارة

ناتج عدة خلايا في خلية واحدة.rar

تم تعديل بواسطه abusarah73
قام بنشر

السلام عليكم

جزاك الله خيرا أستاذ أبو سارة

سؤالي : هل يمكن اسبدال عبارة BeforeDoubleClick بعبارة أخرى مثلا Beforeselectecell

جربت عدة جمل فلم أفلح لأن الأفضل عند تحديد الخلية يظهر الناتج والله أعلم

قام بنشر

السلام عليكم ورحمة الله وبركته....

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

و إذا سمحت توجد بعض الملاحظات والإستفسارات بودي النظر فيهاوهي :

1 - عند حماية الملف الكود لايعمل - يعني تخرج رسالة خطأ.

2 - هل يمكن استبدال عملية الضرب بالقسمة او الطرح او الجمع - بحيث مثلا - يخرج ناتج قسمة أحد خلايا المدى A5:A19 على الخلية A3 في الخلية A26 وشكرا ؟

كما لا أنسى الاستاذ سالم شيباني والأستاذ خبور من دعائي وشكرا للجميع.

قام بنشر

أخي الفاضل : halwim الفضل يعود لله اولاً

ثم للقائمين على هذا المنتدى المبارك

نعم يمكن ذلك عن طريق استبدال علامة الضرب بعلامة القسمة ( أو أي علامة أخرى بحسب الطلب )في الكود

اضغط على ( Alt) و (F11) في نفس الوقت وينفتح لك الكود من vba ويعدل عليه .

الطلب الاول أحاول معرفة السبب ، انتظرني لحينما أرف السبب

إذا كان أحد الأخوان لديه الجواب فليساعدنا كسبا للوقت .

أخوك أبوسارة

قام بنشر

السلام عليكم ورحمة الله وبركاته...

الاستاذ ابوسارة كل الشكر لك على الاهتمام بالموضوع .... وفي الحقيقة كرمكم جعلني أن أطمع في المزيد لدي هذا الاستفسار :

* هل يمكن إظهار إسم المصروفات في الخلية B26 جانب السعر ؟ بحيث يضاف الى الكود صيغة شرطية وهي إذا كانت القيمة في A26 تساوي A7 فيجب ان تكون القيمة في B26 تساوي B7 بحيث يتغير اسم المصروف تبعا للسعر.

شكرا

قام بنشر

اسلام عليكم ورحمة الله وبركاته ......

مضافا إلى الملاحظات التي حررتها في المشاركتين السابقتين فقد اكتشفت ملاحظات أخرى من واقع التجربة وهي وان كانت لا تؤثر على الهدف الجوهري للكود ولكن سأطرحها من باب حب التكامل وهي كما يلي :

4- نطاق عمل الكود ـ بدايته من A3 ـ لكن ليس له نهاية فهو يشمل حتى -خلية الناتج A26 - يعني إذا تم تحديدA26 فأنه يضرب الرقم الموجود فيها في a3 ويتضاعف العدد الموجود في A26 مرة أخرى وهكذا.

5- أيضا نطاق عمل الكود ليس له نهاية فرمز a يشمل كل عمود A نريد ان تكون له نهاية مثلا من A3 إلى a19 فقط بحيث لايشمل أرقام a2 وa20 ـ

6- الكود لا يقوم بتحديث الناتج في الخلية A26 إذاتم حذف رقم او تم تعديله في المدى a5:a19 ـ.

شكرا

  • 3 months later...
قام بنشر

اسلام عليكم ورحمة الله وبركاته ......

مضافا إلى الملاحظات التي حررتها في المشاركتين السابقتين فقد اكتشفت ملاحظات أخرى من واقع التجربة وهي وان كانت لا تؤثر على الهدف الجوهري للكود ولكن سأطرحها من باب حب التكامل وهي كما يلي :

4- نطاق عمل الكود ـ بدايته من A3 ـ لكن ليس له نهاية فهو يشمل حتى -خلية الناتج A26 - يعني إذا تم تحديدA26 فأنه يضرب الرقم الموجود فيها في a3 ويتضاعف العدد الموجود في A26 مرة أخرى وهكذا.

5- أيضا نطاق عمل الكود ليس له نهاية فرمز a يشمل كل عمود A نريد ان تكون له نهاية مثلا من A3 إلى a19 فقط بحيث لايشمل أرقام a2 وa20 ـ

6- الكود لا يقوم بتحديث الناتج في الخلية A26 إذاتم حذف رقم او تم تعديله في المدى a5:a19 ـ.

شكرا

قام بنشر (معدل)
عند حماية الملف الكود لايعمل - يعني تخرج رسالة خطأ.

السلام عليكم

الأخ الكريم

لجعل الكود يعمل في صفحة بها حماية استخدم الكود التالي

Worksheets("اسم ورقة العمل هنا").Unprotect Password:="ضع كلمة السر بتاعتك هنا"

ضع الكود بتاعك هنا

Worksheets("اسم ورقة العمل هنا"). Protect Password:="ضع كلمة السر بتاعتك هنا"

أتمنى أن يفيدك

أيسم إبراهيم

تم تعديل بواسطه أيسم إبراهيم
قام بنشر

لا تنسي أن تفك الحماية عن الخلية المطلوبة

فك الحماية عن الصفحة كلها

ثم كليك يمين على الخلية .. تنسيق خلية ..... حماية ... ثم أزل العلامة من مربع ( مخفية و محمية )

ثم أعد حماية كل الصفحة

قام بنشر

السلام عليكم ورحمة الله ....

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information