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

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

قام بنشر

السلام عليكم

ياأخي ، هذا ليس الملف الذي به الأكواد والمسميات

غير كما تشاء في الملف الأصلي ولاتحذف منه أسماء النطاقات أو الأكواد

ثم أنه تم حل الموضوع مرة أخري علي الرابط

http://www.officena.net/ib/index.php?showtopic=40899

قام بنشر

السلام عليكم

أخي الحبيب

الأكواد في مثل حالتك هذه يتم تفصيلها (إن جاز التعبير) علي شكل وتنسيق البيانات التي أعطيتها أنت في الأول

ولايجوز بعدها أن تغير أسماء الأعمدة (العناوين) ، إذا كانت تمثل معيارا في الكود

وإذا نظرت للكود ستجد الأمر التالي

    C1 = WorksheetFunction.Match(x, [B4:CX4], 0) + 1 'Asas columns begining

وهو أمر Match حيث (x) هي أساس 1 أو أساس 2 أو .. أساس 6

كما بالأسطر السابقة له

فلابد أن يكون العناوين بالصف الرابع من الورقة ولابد ان تكون تلك العناوين أساس 1 أو أساس 2 أو .. أساس حتي تجد الدالة Match مرجع تعود به

قد أكون أخطأت في طريقة التفصيل هذه

ولكن إن أردت الكود بصورة عامة يأخذ أي شكل أنت تتخيله لإدخال البيانات سيكون كود كبير للغاية ومعقد وليس من السهل عليا أنا شخصيا إيجاد الوقت لذلك

عفوا للإطالة ولكني أحببت ان تأخذ فكرة كافية عن الموضوع

والآن أمامك احد الحلول التالية

إما أن تلتزم بالعناوين والأماكن التي وضعت بها السؤال أولا

وإما أن تعيد الصياغة بصورة نهائية (ثم تلتزم أيضا بالعناوين والأماكن التي ستضعها)

وإما أن تنتظر أحد الإخوة (يكون لديه وقت كافي)

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information