تكرار دالة

[nany4mg]

السادة الافاضل 

لو سمحتو لي انا عندي ملف اكسل وربطه بمعادلة تشغيله من خلال رقم الهارد بس لو حبيت اربطه على جهاز تاني بحيث يفتح الملف على الجهاز الاول والثاني من غير مشاكل كيف اكرر الكود حاولت ان اكتب نفس الكود وقبله & ولكن لم يشتغل والي سيادتكم الكود

 

If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "00000000" Then

ارجو المساعدة ضروري

[nany4mg]

السادة القائمين على المنتدي 

لي عتاب عليكم انا منذ 5 ساعات وانا مرسل اليكم مشكلة مواجهاني وكنت محتاج الى المساعدة والى الان انا منتظر الرد انا متفاهم من عامل الوقت لديكم  ولكن مش من المعقول انه انتظر اكثر من 5 ساعات علشان الاقي من يساعدني اكيد السؤال مر على سيادتكم لماذا لم يتم الرد حتى ولو بالانتظار هذا ليس من شيم المحاورة

 

مع الشكر واسف 

[Emad Sabry]

10 دقائق مضت, nany4mg said:

السادة القائمين على المنتدي 

لي عتاب عليكم انا منذ 5 ساعات وانا مرسل اليكم مشكلة مواجهاني وكنت محتاج الى المساعدة والى الان انا منتظر الرد انا متفاهم من عامل الوقت لديكم  ولكن مش من المعقول انه انتظر اكثر من 5 ساعات علشان الاقي من يساعدني اكيد السؤال مر على سيادتكم لماذا لم يتم الرد حتى ولو بالانتظار هذا ليس من شيم المحاورة

 

مع الشكر واسف 

المشكلة منك انت مش مننا قبل ما تسأل كنت عملت بحث كنت هتلاقى اجابة سؤالك 

 

https://www.officena.net/ib/topic/64356-ملف-يعمل-على-جهازين-فقط/

[nany4mg]

استاذي انا عندي جهازين اكيد رقم الهارد حيكون متغير رقم هارد جهازي ورقم هارد الجهاز الاخر كيف اكتب الرقم المرسل لي هلى هذا الرقم سوف يعمل على الجهازين بحيث اذا نقلت الملف من جهازي للجهاز الاخر سوف يعمل 

[Emad Sabry]

انت سالت ان عندك جهاز تانى وعملت & ومنفعش بدل ماتعمل & هتستخدم and 

وهتكتب سريال الجهاز الاول وسريال الجهاز التانى ودا موجود فى الموضوع اللى بعتهولك 

 

يعنى ضيف قبل كلمة then 

And Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجهاز الثاني"

 

تم تعديل نوفمبر 21, 2018 بواسطه Emad Sabry