رمز VBA لإدراج جميع الإضافات في Excel
في Excel، قد تضيف أو تُدخل بعض الإضافات لتحسين التعامل مع البيانات. وكما نعلم، يمكننا الانتقال إلى نافذة «الخيارات» لعرض جميع الإضافات، ولكن هل هناك طريقة لإدراج قائمة بها مباشرةً في ورقة عمل؟ في هذا البرنامج التعليمي، نقدّم لك رمز VBA الذي يُدرج جميع الإضافات في Excel.
1. اضغطAlt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقرإدراج > وحدة نمطية (Module)، ثم الصق الكود أدناه في النص الفارغ.
VBA: إدراج جميع الإضافات
Public Sub AllAddins()
'UpdatebyKutools20191031
Dim xWSh As Worksheet
Dim xWB As Workbook
Dim xAddin As AddIn
Dim xCOMAddin As COMAddIn
Dim xFA, xFCA As Integer
Dim xI As Integer
Dim xStr As String
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Addins List"
Set xWB = Application.ActiveWorkbook
Set xWSh = xWB.Worksheets.Item(xStr)
If Not xWSh Is Nothing Then
xWSh.Delete
End If
Set xWSh = xWB.Worksheets.Add
xWSh.Name = xStr
xWSh.Range("A1").Value = "Name"
xWSh.Range("B1").Value = "FullName"
xWSh.Range("C1").Value = "Installed"
For xFA = 1 To Application.AddIns.Count
Set xAddin = Application.AddIns(xFA)
xI = xFA + 1
Range("A" & xI).Value = xAddin.Name
Range("B" & xI).Value = xAddin.FullName
Range("C" & xI).Value = xAddin.Installed
Next xFA
xFA = (xFA + 2)
xWSh.Range("A" & xFA).Value = "Description"
xWSh.Range("B" & xFA).Value = "progID"
xWSh.Range("C" & xFA).Value = "Connect"
For xFCA = 1 To Application.COMAddIns.Count
xI = xFCA + xFA
Set xCOMAddin = Application.COMAddIns(xFCA)
Range("A" & xI).Value = xCOMAddin.Description
Range("B" & xI).Value = xCOMAddin.progID
Range("C" & xI).Value = xCOMAddin.Connect
Next xFCA
Application.DisplayAlerts = True
End Sub
3. اضغطF5لتشغيل الكود، وسيتم إنشاء ورقة باسم «Addins List» تحتوي على جميع الإضافات.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
تعطيل الإضافات عند بدء تشغيل Excel
ربما تكون قد ثبّتَ بعض الإضافات في Microsoft 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل