أوامر لا تعمل

[COKING]

السلام عليكم

لدي برنامج كان يعمل بإمتياز قبل أن أفرمت الجهاز

وبعد فرمتة الجهاز وتنصيب الأوفيس فوجئت بأن البرنامج يتوقف عند أوامر لم يكن يتوقف عنها قبلا

على سبيل المثال لايتعرف على

Set MyBook = Workbooks.Open(Filename:=MyPath)

أو

UCase(ActiveCell.Text)

أو

(Left(Cells(Arows, 10), 10))

وهكذا ولست أدري ما السبب

هل برنامج الإكسل ينقصه شيئ كان موجود قبلا أو ماذا

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

رجاء مد يد العون ولكم جميعا جزيل الشكر

[COKING]

السلام عليكم

طرحت مشكلتي ووجدت 15 مشاهدة ولم يساعدني أحد

ربما سؤالي غامض سأحاول توضيحه بمثال

MyPath = Workbooks("ْْْْXXXX").Path & "\YYYY"

Set MyBook = Workbooks.Open(Filename:=MyPath)

Endrow = Range("A2").CurrentRegion.Rows.Count

For F = 2 To Endrow

Cells(F, 4).Value = (Left(Cells(F, 1), 7))

Cells(F, 1).Value = Cells(F, 4)

Cells(F, 4).Clear

Next

ACT = UCase(ActiveCell.Text)

MyBook

Left

UCase

هذه الأوامر لا تعمل وقدكانت تعمل قبل فرمتة الجهاز

ماذا أفعل ؟

وأنا مطالب بتقديم البرنامج سريعا

رجاء التكرم بالرد علي ولكم جميعا جزيل الشكر

تم تعديل فبراير 7, 2009 بواسطه COKING

[أكرم الغامدي]

أخي غالباً ما تحدث هذه المشاكل بسبب وضع الويندوز في غير قرصه الأصلي وهو السي.

حاول أن تعيد وضع الأكواد من جديد في مديول أو فورم جديدأو كتاب جديد..

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