مشكلة عند فتح المصنف في جهاز أخر

[أبو عبدالإله]

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

 

بداية أتقدم بالشكر الجزيل لهذا المنتدى الأكثر من رائع بأعضائه وأشكر كل من قدم لي يد المعونة والمساعدة في إنجاز عملي وأخص بالذكر الأخوين الكريمين الأستاذين ياسر وابن مصر فلولاهما لما أنهيت عملي .

 

بعد أن استكملت عملي وحفظته دون حدوث أي مشاكل  في جهازي  ( نسخة الاكسيل 2010 )

 

ولكن عندما قمت بفتح هذا العمل في جهاز آخر وفيه نفس نسخة الاكسيل 2010 واجهتني مشكلة وهي أن أزرار الأوامر لا تعمل نهائيا وهي أزرار CommandButton  اضغط عليها ولكن لا تنفذ الأمر 

 

جربت وحاولت في الأمان لكن لم ينفع نهائيا 

 

كذلك مشكلة أخرى ولكنها مع نسخة 2007 بالإضافة إلى المشكلة السابقة وهي أن القائمة المنسدلة لا تعمل في نسخة 2007 

 

أتمنى من لديه الحل مساعدتنا وله كل الشكر والتقدير 

[أبو عبدالإله]

لاحظت أيضا أن جميع الأكواد لا تعمل في المصنف عند فنحه على جهاز آخر   

[الجموعي]

أرفق الملف ليساعدك الأساتذه الفضلاء

[أبو عبدالإله]

أرفق الملف ليساعدك الأساتذه الفضلاء

 

 

 

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

 

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

 

 

 

 

بانتظاركم على أحر من الجمر ، فعملي لن يكتمل بوجود هذه المشكلة 

 

 

عدم فتح المصنف.rar

[أبو عبدالإله]

علما بأن إصدار الأوفيس في الجهاز الذي قمت بالعمل عليه هو ( 64 بت )

 

أما إصدار الجهاز الذي توجد فيه المشكلة هو ( 32 بت )

 

 

لا أعلم إن كان له علاقة نوع الإصدار في هذه المشكلة 

[ياسر خليل أبو البراء]

أخي الحبيب

المصنف المسمى (عدم فتح المصنف 2) ظهرت رسالة خطأ عند الفتح ، حيث أنه في كود فتح المصنف الإشارة إلى ورقة عمل اسمها (الصفحة الرئيسية) وهي ليست من ضمن أوراق العمل الحالية.
ثانيا الأزرار على ورقة العمل لا تعمل لأنها غير مرتبطة بكود ..اذهب للتبويب Develope وانقر على Design Mode خليك في وضع التصميم ثم كليك يمين على زر الأمر ستجد أمر اسمه View Code اختاره ستجد أن زر الحفظ مثلا ليس له كود .. إذا كانت الأكواد الموجودة في حدث ورقة العمل تعرف ما عملها تماما انقلها داخل الإجراء الخاص بهذا الزر

Private Sub CommandButton1_Click()

End Sub

هذا هو شكل الإجراء ..

هذا السطر هو الخاص بالحفظ

ActiveWorkbook.Save

قم بنقله إلى داخل الإجراء السابق

ليكون بهذا الشكل

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
End Sub

[ياسر خليل أبو البراء]

أو يمكنك حل مشكلتك بأن تدخل وضع التصميم وتنقر على زر الأمر وتعرف اسمه من خلال صندوق الاسم اللي بيكون على يسار شريط المعادلات

فمثلاً زر الأمر المسمى تصدير الخلاصة إلى PDF لو نظرت في صندوق الاسم ستجد أن يحمل اسم CommandButton2 .. روح لصفحة الأكواد ، كليك يمين على زر الأمر ثم View Code وفي أول سطر غير رقم زر الأمر

Private Sub CommandButton21_Click()
    ThisWorkbook.Sheets(Array("1")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "C:\Temp.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
         IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

في السطر الأول غير الرقم 21 إلى 2 بس متنساش تحذف هذا الجزء لو كان موجود

Private Sub CommandButton2_Click()

End Sub

لأن مينفعش يكون فيه إجراءين بنفس الاسم

[أبو عبدالإله]

بارك الله فيك أخي الحبيب ياسر

 

ولكن الأزرار لدي في جهازي مرتبطة بالكود ولا توجد فيها مشكلة نهائيا .

 

ولكن عندما أقوم بفتح نفس المصنف في جهاز آخر تظهر لي هذه المشكلة وهي عدم ارتباط الزر بكود كما ظهر معك تماما .

 

المصنف في جهازي آخر حلاوة 

 

أما في الجهاز الآخر فلايرتبط مع الأكواد 

[أبو عبدالإله]

أو يمكنك حل مشكلتك بأن تدخل وضع التصميم وتنقر على زر الأمر وتعرف اسمه من خلال صندوق الاسم اللي بيكون على يسار شريط المعادلات

فمثلاً زر الأمر المسمى تصدير الخلاصة إلى PDF لو نظرت في صندوق الاسم ستجد أن يحمل اسم CommandButton2 .. روح لصفحة الأكواد ، كليك يمين على زر الأمر ثم View Code وفي أول سطر غير رقم زر الأمر

Private Sub CommandButton21_Click()
    ThisWorkbook.Sheets(Array("1")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "C:\Temp.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
         IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

في السطر الأول غير الرقم 21 إلى 2 بس متنساش تحذف هذا الجزء لو كان موجود

Private Sub CommandButton2_Click()

End Sub

لأن مينفعش يكون فيه إجراءين بنفس الاسم

 

 

بارك الله فيك

 

سأقوم بتطبيق هذه الطريقة في جهازي الأساسي لعلها تحل المشكلة

 

لكن السؤال لماذا يعمل هذا المصنف في جهازي الأساسي دون مشاكل نهائيا ؟

[أبو عبدالإله]

أو يمكنك حل مشكلتك بأن تدخل وضع التصميم وتنقر على زر الأمر وتعرف اسمه من خلال صندوق الاسم اللي بيكون على يسار شريط المعادلات

فمثلاً زر الأمر المسمى تصدير الخلاصة إلى PDF لو نظرت في صندوق الاسم ستجد أن يحمل اسم CommandButton2 .. روح لصفحة الأكواد ، كليك يمين على زر الأمر ثم View Code وفي أول سطر غير رقم زر الأمر

Private Sub CommandButton21_Click()
    ThisWorkbook.Sheets(Array("1")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "C:\Temp.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
         IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

في السطر الأول غير الرقم 21 إلى 2 بس متنساش تحذف هذا الجزء لو كان موجود

Private Sub CommandButton2_Click()

End Sub

لأن مينفعش يكون فيه إجراءين بنفس الاسم

 

 

جربته الآن

 

الزر لدي يحمل رقم CommandButton21 وعندما غيرت رقمه لم يعد يعمل .

 

 

المشكلة هي أن رقم هذا الزر CommandButton21 في جهازي الأساسي

 

لكن عندما أفتحه في جهاز آخر يصبح نفس الزر برقم CommandButton2

 

 

لا أعلم لماذا يتغير ؟!

[ياسر خليل أبو البراء]

طيب ما تستغني عن أزار الأمر هذه واستخد زر الأمر Form Button أعتقد مفيهوش مشاكل

ممكن المشكلة تكون الـ ActiveX Controls بتختلف من نسخة أوفيس لأخرى أو من 64بت إلى 32 بت والله أعلم

للتغلب على مشكلتك أقترح استخدام الأزرار الأخرى المسماة Form Button وضع الأكواد في موديول وليس في حدث الورقة ..

[أبو عبدالإله]

أشكر لك أخي الحبيب سرعة تجاوبك

 

سأقوم بتطبيق اقتراحك

 

 

وفقك الله ورعاك

[أبو عبدالإله]

طيب ما تستغني عن أزار الأمر هذه واستخد زر الأمر Form Button أعتقد مفيهوش مشاكل

ممكن المشكلة تكون الـ ActiveX Controls بتختلف من نسخة أوفيس لأخرى أو من 64بت إلى 32 بت والله أعلم

للتغلب على مشكلتك أقترح استخدام الأزرار الأخرى المسماة Form Button وضع الأكواد في موديول وليس في حدث الورقة ..

 

 

أسعدك الله في الدارين

 

تم تغيير الأزرار بناء على اقتراحك ونجح الأمر ولله الحمد

 

شكرا لك من الأعماق ، فرج الله همك كما فرجت عني همي ومشكلتي .

 

فقط بقي أمر بسيط وأتمنى أن أجد الحل 

 

يوجد في المصنف كود تحديد عدد الصفوف وهو يعمل بكفاءة ،

 

ولكن عند حذف أزرار CommandButton حتى أستبدلها بالأزرار التي ذكرتم يتوقف كود تحديد الصفوف عن العمل .

 

المشكلة موضحة في الملف المرفق 

 

 

 

عدم فتح المصنف.rar

[أبو عبدالإله]

 

 

أتمنى تعديل هذه الأكواد  ليكون التحديد للصفحة الحالية بدلا من تحديد رقم الشيت :

 

Sub CommandButton3_Click()

    ThisWorkbook.Sheets(Array("1")).Select

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "C:\Temp.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _

         IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

 

 

 

Sub CommandButton1_Click()

Dim ws As Worksheet

Dim lr As Long

 

Set ws = ThisWorkbook.Sheets("1")

lr = ws.Cells(Rows.Count, "AZ").End(xlUp).Row

ws.Range("AZ" & lr).EntireRow.Insert

End Sub

 

 

 

 

Sub CommandButton2_Click()

Dim ws As Worksheet

Dim lr As Long

 

Set ws = ThisWorkbook.Sheets("1")

lr = ws.Cells(Rows.Count, "AZ").End(xlUp).Row

ws.Range("AZ" & lr).Offset(-1, 0).EntireRow.Delete

 

End Sub

 

 

 

 

تم تعديل يناير 23, 2015 بواسطه altag

[أبو عبدالإله]

 

طيب ما تستغني عن أزار الأمر هذه واستخد زر الأمر Form Button أعتقد مفيهوش مشاكل

ممكن المشكلة تكون الـ ActiveX Controls بتختلف من نسخة أوفيس لأخرى أو من 64بت إلى 32 بت والله أعلم

للتغلب على مشكلتك أقترح استخدام الأزرار الأخرى المسماة Form Button وضع الأكواد في موديول وليس في حدث الورقة ..

 

 

أسعدك الله في الدارين

 

تم تغيير الأزرار بناء على اقتراحك ونجح الأمر ولله الحمد

 

شكرا لك من الأعماق ، فرج الله همك كما فرجت عني همي ومشكلتي .

 

فقط بقي أمر بسيط وأتمنى أن أجد الحل 

 

يوجد في المصنف كود تحديد عدد الصفوف وهو يعمل بكفاءة ،

 

ولكن عند حذف أزرار CommandButton حتى أستبدلها بالأزرار التي ذكرتم يتوقف كود تحديد الصفوف عن العمل .

 

المشكلة موضحة في الملف المرفق 

 

 

 

عدم فتح المصنف.rar

 

 

 

الحمد لله استطعت حل هذه المشكلة عن طريق حذف الأزرار ثم حذف كود تحديد عدد الصفوف بعد ذلك قمت بإعادة إدخال كود تحديد عدد الصفوف 

[أبو عبدالإله]

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

 

نسأل الله سبحانه وتعالى أن يمتعه في صحته ويزيده من فضله 

 

       

 

 

سأنقل استفساري عن تحويل صيغة الأكواد التي ذكرتها أنا في رد في الأعلي لموضوع جديد .