مشكلة فى اكواد vba

مجهول
2024-06-11T12:26:38+00:00

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

الكود قبل المشكلة

If UCase(txt1) Like UCase(txt2) & "*" Then

Me.ListBox1.AddItem

Me.ListBox1.List(s, 0) = sheet3.Cells(i, "b").Value

Me.ListBox1.List(s, 1) = sheet3.Cells(i, "c").Value

Me.ListBox1.List(s, 2) = sheet3.Cells(i, "d").Value

Me.ListBox1.List(s, 3) = sheet3.Cells(i, "e").Value

الكود بعد المشكلة

If UCase(txt1) Like UCase(txt2) & "*" Then

Me.ListBox1.AddItem

Me.ListBox1.List(s, 0) = Cells(i, "b")

Me.ListBox1.List(s, 1) = Cells(i, "c")

Me.ListBox1.List(s, 2) = Cells(i, "d")

Me.ListBox1.List(s, 3) = Cells(i, "e")

Microsoft 365 وOffice | Excel | غير ذلك | Windows

سؤال مؤمّن. تم ترحيل هذا السؤال من مجتمع دعم Microsoft. يمكنك التصويت على إذا ما كان مفيدًا أم لا، ولكن لا يمكنك إضافة تعليقات أو ردود أو متابعة السؤال.

0 تعليقات

إجابة واحدة

فرز حسب: الأكثر فائدة
الأكثر فائدة الأحدث الأقدم
  1. مجهول
    2024-06-12T06:00:27+00:00

    تتم ترجمة هذه الاستجابة تلقائيا. نتيجة لذلك ، قد تكون هناك أخطاء نحوية أو صيغ غريبة.

    مرحبا Matrixt_30 ،

    شكرا لزيارة مجتمع مايكروسوفت.

    يبدو أن مشكلة الكود تنبع من تغيير غير مقصود حيث تمت إزالة الإشارات الصريحة إلى "الورقة 3" في الإصدار الإشكالي. فيما يلي تحليل وتحسينات مقترحة:

    في التعليمات البرمجية قبل المشكلة ، يحدد كل سطر يقوم بتعيين القيم بشكل صحيح إلى ListBox النطاق المصدر باستخدام "sheet3". الخلايا (i,"column_letter")". هذا يضمن أن VBA يعرف بالضبط خلايا ورقة العمل التي يجب الرجوع إليها.

    ومع ذلك ، في ** التعليمات البرمجية بعد المشكلة ** ، تم حذف مرجع ورقة العمل ("الورقة 3") ، ولم يتبق سوى "الخلايا (i,"column_letter"). عند استخدام "الخلايا" بدون تحديد ورقة عمل، يتم تعيين Excel افتراضيا على الورقة النشطة. إذا لم تكن الورقة النشطة "sheet3" ، فسيؤدي ذلك إلى إضافة بيانات غير صحيحة إلى ListBox أو أخطاء إذا كانت الخلايا لا تحتوي على بيانات متوقعة.

    وفقا لوصفك ، فإن التعديل التلقائي للرمز مثل هذا أمر غير معتاد في VBA ما لم:

    • هناك أداة خارجية أو ماكرو قيد التشغيل يعدل الكود.
    • التحرير اليدوي العرضي أثناء عملية الحفظ.
    • عناصر التحكم في الإصدار أو التعاون تدمج التغييرات بشكل غير صحيح.

    بدون سياق إضافي ، من الصعب تحديد السبب الدقيق ولكن من الضروري التأكد من عدم وجود عمليات غير مقصودة تغير التعليمات البرمجية الخاصة بك.

    لتحسين قابلية القراءة والصيانة ، من الممارسات الجيدة استخدام متغير ورقة العمل للإشارة إلى أوراقك بدلا من استخدام أسماء مثل "الورقة 3" مباشرة. هذا لا يجعل الكود أسهل في الفهم فحسب ، بل يقلل أيضا من فرصة حدوث أخطاء إذا كان اسم الورقة بحاجة إلى التغيير. إليك الطريقة:

    code.txt

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

    لا تتردد في إعادة النشر إذا كنت بحاجة إلى مزيد من المساعدة.

    مع خالص تحياتي

    جوناثان زي - MSFT | أخصائي دعم مجتمع مايكروسوفت

    هل كانت هذه الإجابة مفيدة؟

    0 تعليقات