اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليكم

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

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

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

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 مرجع تعود به

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

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

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

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

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

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

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

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