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

إظهار ناتج عدة خلايا لنطاق معين في خلية واحدة


halwim

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

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

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

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

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

مع تحياتي

أبو سارة

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

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

السلام عليكم

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

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

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

رابط هذا التعليق
شارك

أخي الأستاذ سالم شباني

تفضل طلبك في الملف المرفق

تم تعديل الملف بحسب رغبتك

أخوك أبو سارة

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

رابط هذا التعليق
شارك

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

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

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

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