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

سريال الهارد الثابت


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

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

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

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

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

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

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

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

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

Sheets("Welcom").Select

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

Serial Good.rar

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

السلام عليكم

اخي الفاضل

تم التحايل باقتباس رقم الهارد الاساسي (الذي بمثالك)

و ضمه للاسم الذي سيقارن به تبعا لمثالك

مرفق ملف للتوضيح

تحياتي

tray.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...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information