vba

[O.d.y]

سلام عليكم

لدي يوزرفورم به تكست بوكس. هذا التكست بوكس يعطي نتيجة بناءا على معادله معينة

جميع الامور تسير بشكل صحيح و سليم اذا كان ملف الاكسل مفتوح بشكل منفرد و لا توجد اي ملفات اكسل اخرى مفتوحة

أما في حالة وجود ملف اخر مفتوح تأتي رسالة تفيد بان العنصر (التكست بوكس) غير موجود

the item with the specified name wasn't found

الذي فهمته من هذه الرسالة أن الاكسل يقوم بتطبيق المعادلة او الفورملا الخاصة بالتكست بوكس على ملف الاكسل الجديد الذي تم فتحه مؤخرا

بينما المفترض هو ان اليوزر فورم بجميع المعادلات المخصصة له هي مرتبطه بملف الاكسل الاصلي و لا يجب ان تتأثر بالملفات الاخري التي يتم فتحها

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

ملحوظة المعادلة هي معادلة sumifs

 وتم كتابة الكود كالتالي

Private sub commandbotton1()

Textbox1=sheets("sheet1").application.sumifs(######)

End sub

فهل هناك حل لتعريف الاكسل بان المعادلة يتم تطبيقها على الملف الاصلي و لايقوم الاكسل بالتأثر بالمفات الاخرى المفتوحة او التي يتم فتحها ؟

وشكرا على المساعدة

 

 

 

[بن علية حاجي]

سلام عليكم

جرب تغيير اسم الشيت "Sheet1" إلى اسم آخر (في الكود وفي المصنف -الملف-)...

بن علية حاجي

[O.d.y]

وعليكم السلام استاذنا بن علية حاجي

شاكر لك تكرمك بالرد

حاولت تغيير اسم الشيت في الكود و في المصنف و لكن مازالت نفس المشكلة موجودة

يعمل اليوزرفورم بشكل صحيح اذا لم تكن هناك ملفات اكسل اخرى مفتوحة

ولا يعمل اليوزرفورم اذا قمت بفتح ملف اكسل في نفس الوقت

[بن علية حاجي]

السلام عليكم ورحمة الله
ربما لم تقم بالاستبدال لاسم الشيت كليا في الكود... ضع ملفك في المرفقات حتى يتسنى تحديد موضع الخلل...

بن علية حاجي

 

[O.d.y]

وعليكم السلام ورحمة الله وبركاته

تفضل أستاذنا ، الملف حاليا موجود بالمرفقات

شكرا جزيلا

File.rar