التفوق - رمز VBA لحذف البيانات في الصف مع الحفاظ على الصيغ

القضية

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

حل

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

 Sub KeepFormulas () باهتة sRow ، lCol باسم عدد صحيح )) إذا cell.HasFormula = False ثم cell.ClearContents الخلية التالية End Sub 

شكرا ل MSL لهذه النصيحة.