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

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

قام بنشر

السادة الخبراء

هذا العمل من اعمال الاستاذ القدير عمر الحسينى

تم رفعة من المنتدى و يعمل بشكل ممتاز على ويندوز XP

ولكن تم تجربتة على ويندوز 7 يعطى كل مرة حرف زيادة فى السريال مختلف عن المرة السابقة

مثال مرة يكون V54HMCM3C و مرة V54HMCM3H

فما هى المشكلة علماً بان هذا الجهاز لاب توب و هرد ساتا

وهل ممكن ان نستخدم * او ؟ بدل هذا الحرف المتغير لانى استخدم داله if مع هذا السريال

If Sheets("Welcom").Range("A200").Value = "v54hmcm3*" Then

Sheets("Welcom").Select

ولكم جزيل الشكر

Serial Good.rar

قام بنشر

استاذى العزيز

فكرة ممتازة

ولكن المشكلة ان كل مرة يفتح يعطى ناتج مختلف مرة اخر السريال h ومرة c

فكيف يكون هذا و ما العلاج لهذه المشكلة

برجاء الافادة

و جزاكم الله كل خير

قام بنشر

السلام عليكم

اخي الفاضل khhanna

ولكن المشكلة ان كل مرة يفتح يعطى ناتج مختلف مرة اخر السريال h ومرة c

طبعا المقصود هنا الحرف الاخير من سيريال الهارد اليس كذلك

كان h او c او f لا يهم فالكود هو الذي سيضيف الحرف الاخير لخانة المقارنه

ففي مشاركتك الاولي كودك كان باشكل التالي

If Sheets("Welcom").Range("A200").Value = "v54hmcm3" Then

Sheets("Welcom").Select
و بالنسبه لتعديلي سيكون كالتالي
If Sheets("Welcom").Range("A200").Value = "v54hmcm3" & [A201] Then

Sheets("Welcom").Select

و [A201] هنا المقصود بما يضعة الكود في هذه الخليه و هو ال h او c او f

ليس مهم ما هو فالكود هو الذي سياتي به و ستجد ايضا الاسم الذي تقارن به

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

ارجو ان تكون الفكره كما تخيلتها علي حسب عرضك للمشكلة

جرب و حاول تفهم ما اقصده و ان شاء الله يكون حلا للمشكلة

تحياتي

قام بنشر

استاذى الفاضل

الفكررة ممتازة وانا وصلت عندى

لكن ما احاول التوضيح له ان الملف على برتشن ثابت

وكل مرة افتح يعطى هذا الرقم المتغير للسريال

فما المشكلة

و جزاك الله خيراً

قام بنشر

السلام عليكم

اخي اذا كانت المشكلة كما ذكرتها انت و فهمتها انا

و انت تستطيع الدخول علي الملف و التعديل في اكوادة

و ان التغيير يتم في الحرف الاخير فقط فليس هناك اي مشكله

فسيكون الحل فيما سبق الا اذا انت لم توضح شيئ لنا

تحياتي

  • 3 months later...

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