By دينيش سي يوم الاربعاء، 16 مارس 2022
نشر في Excel
الردود 0
الإعجابات 0
المشاهدات 3.1K
الأصوات 0
مرحبا،


أنا أبحث عن كود VBA للنشاط أدناه، يمكن لأي شخص مساعدتي في مشاركة كود VBA للنشاط أدناه.

الظروف:


لدي 3 ملفات Excel في 3 مواقع مختلفة على جهاز الكمبيوتر الخاص بي. (اسم ورقة ملف Excel الأول هو "Dashboard"، واسم ورقة ملف Excel الثاني هو "Raw data" واسم ورقة ملف Excel الثالث هو "Template")
لن تظل جميع ملفات Excel المحفوظة في مواقع مختلفة مفتوحة أثناء تشغيل VBA، وستظل ورقة "Dashboard" فقط مفتوحة، ويجب أن يعتني رمز VBA بهذا الشرط.


النشاط المطلوب تنفيذه من خلال VBA:


لدي 3 خيارات بحث في ورقة Excel الأولى "لوحة المعلومات" (الموقع A1 وB1 وC1)
لكنني سأبحث عن أي واحد (A1 أو B1 أو C1) بناءً على المعلومات المتوفرة لدينا.

يجب عليه البحث عن الرقم في ورقة Excel الثانية "البيانات الأولية" (إذا تم إدخال قيمة A2 فيجب البحث في عمود، إذا تم إدخال قيمة B1 فيجب البحث في العمود B، إذا تم إدخال قيمة C1 فيجب البحث في عمود C في ورقة "البيانات الأولية" ).

إذا تم العثور على بيانات، فيجب نسخ جميع بيانات الصفوف المتعددة (من E إلى G) ولصقها في موقع ملف "القالب" من E10 إلى G10. إذا لم يتم العثور على البيانات، قم بعرض "محتوى البحث غير متوفر في البيانات الأولية". (ملاحظة: قيم A1 وB1 وC1 مترابطة، لذلك إذا بحثت عن بيانات C1 المقابلة لـ A1 أو B1 فيجب أن يتم لصقها فقط في "ملف القالب") اترك الصف الأول في "البيانات الأولية" نظرًا لأنه عنوان.

ملف "القالب" هو التنسيق القياسي الذي يمكننا من خلاله لصق بيانات 20 صفًا فقط في E10: E29 & G10: G 29، إذا كانت صفوف بيانات نتيجة البحث تتجاوز 20 صفًا، فيجب البدء في لصق بيانات الصف الحادي والعشرين في الورقة التالية من لوحة القالب. (يُرجى ملاحظة أن القالب يحتوي على اختبار محتوى قياسي علوي وسفلي، لذلك إذا زاد الصف إلى 21 ثم أقل من E21: يجب أن ينقل G29 جميع المحتويات بالكامل إلى الصفحة التالية) مع محاذاة الخلايا تلقائيًا.

بعد نسخ البيانات إلى "القالب"، يجب تحويل "صفحة القالب" إلى ملف PDF وحفظ الملف في موقع مختلف على جهاز الكمبيوتر (يجب أن يكون اسم الملف هو موقع C1 للوحة المعلومات مع التاريخ والوقت الحاليين).

بمجرد تحويل PDF، افتح موقع المجلد المحفوظ على جهاز الكمبيوتر بالإضافة إلى ملف PDF.

بالنسبة للبحث التالي، يجب مسح البيانات الملصقة الموجودة في "النموذج" لإدخال بيانات جديدة.
عرض مشاركة كاملة