كيف يمكن سرد جميع الصيغ في Excel؟
عادةً، يتيح لك Excel عرض الصيغ في الخلايا بسرعة، لكنه لا يوفّر ميزة مدمجة لسرد جميع الصيغ في ورقة العمل. ويمكن أن يساعدك سرد كل الصيغ دفعة واحدة في تتبع قيم الخلايا مع صيغها الفعلية بسهولة. وهنا، يمكنني شرح كيفية إنشاء كود VBA لحل هذه المشكلة.
سرد جميع صيغ ورقة العمل باستخدام كود VBA
سرد جميع صيغ ورقة العمل باستخدام كود VBA
سيساعدك كود VBA التالي على سرد الصيغ الخاصة بتحديد معين أو ورقة عمل كاملة، يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحَيALT + F11، وسيُفتح بذلك نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقInsert > Module، ثم الصق الكود التالي فينافذة الوحدة (Module Window).
كود VBA: سرد جميع صيغ ورقة العمل
Sub ListFormulas()
'Update 20141027
Dim Rng As Range
Dim WorkRng As Range
Dim xSheet As Worksheet
Dim xRow As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlFormulas, 23)
If WorkRng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xSheet = Application.ActiveWorkbook.Worksheets.Add
xSheet.Range("A1:C1") = Array("Address", "Formula", "Value")
xSheet.Range("A1:C1").Font.Bold = True
xRow = 2
For Each Rng In WorkRng
xSheet.Cells(xRow, 1) = Rng.Address(RowAbsolute:=False, ColumnAbsolute:=False)
xSheet.Cells(xRow, 2) = " " & Rng.Formula
xSheet.Cells(xRow, 3) = Rng.Value
xRow = xRow + 1
Next
xSheet.Columns("A:C").AutoFit
Application.ScreenUpdating = True
End Sub
3. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود، وستظهر نافذة منبثقة لتذكيرك باختيار النطاق أو ورقة العمل بالكامل التي تريد سرد خلايا صيغها. راجع لقطة الشاشة:
4. ثم انقر فوقموافق (OK)، وستُعرض الصيغ الموجودة في تحديدك فورًا في ورقة عمل جديدة أمام الورقة النشطة، متضمّنةً معلومات عنوان الخلية والصيغة والقيمة، كما هو موضح في لقطة الشاشة التالية:
مقالات ذات صلة:
كيف يمكن تحويل الصيغ إلى نص في Excel؟
كيف يمكن تحويل السلاسل النصية إلى صيغ في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل