كيف يتم تشغيل الماكرو في الاكسل ؟
في هذه المقالة سأتحدث عن كيفية تشغيل الماكرو في الاكسيل, بالاضافة الى انشاء ماكرو سيحدد خلية من اختيارنا .
كيفية تشغيل الماكرو في الاكسيل
افتح
المحرر وأضف Module إليه:
في
Module ، اكتب مثال ثانوي واضغط على موافق .
ستلاحظ
أن الاكسيلأضاف تلقائيًا نهاية هذا الإجراء
الجديد:
Sub exemple() End Sub
الآن
قم بإنشاء زر الذي ستربط به هذا الماكرو :
أكمل
الماكرو الخاص بك بهذا:
Sub exemple() 'Sélection de la cellule A8 Range("A8").Select End Sub
يمكنك اختبار هذا الماكرو بالنقر فوق الزر الخاص بك ، ثم يتم تحديد الخلية A8
سنقوم
الآن بتعديل هذا الماكرو لتحديد الخلية A8 من الورقة الثانية:
Sub exemple() 'Activation de la feuille 2 Sheets("Feuil2").Activate 'Sélection de la cellule A8 Range("A8").Select End Sub
يقوم الاكسيلبعد ذلك بتنشيط الورقة 2 قبل
تحديد الخلية A8
نستخدم التعليقات أو الملاحظات (النص الأخضر) لمساعدتك على فهم وحدات الماكرو في هذه الدورة التدريبية.
كيفية تحديد نطاق من الخلايا
Sub exemple() 'Sélection des cellules A1 à A8 Range("A1:A8").Select End Sub
كيفية اختيار خلايا منفصلة بواسطة الماكرو في الاكسيل
Sub exemple() 'Sélection des cellule A8 et C5 Range("A8, C5").Select End Sub
كيفية تحديد نطاق مسمى من الخلايا
Sub exemple() 'Sélection des cellules de la plage "ma_plage" Range("ma_plage").Select End Sub
كيفية تحديد خلية بناءً على رقم الصف والعمود
Sub exemple() 'Sélection de la cellule de la ligne 8 et de la colonne 1 Cells(8, 1).Select End Sub
هذا مثال صغير:
Sub exemple() 'Sélection aléatoire d'une cellule de la ligne 1 à 10 et de la colonne 1 Cells(Int(Rnd * 10) + 1, 1).Select 'Traduction : 'Cells([nombre_aléatoire_entre_1_et_10], 1).Select End Sub
كيفية اختيار الخط
من الممكن تحديد سطور كاملة باستخدام مرتب أين صفوف
Sub exemple() 'Sélection des lignes 2 à 6 Range("2:6").Select End Sub
Sub exemple() 'Sélection des lignes 2 à 6 Rows("2:6").Select End Sub
اختيار العمود بواسطة الماكرو في الاكسيل
بالنسبة للصفوف ، من الممكن تحديد أعمدة بأكملها باستخدام مرتب أين الأعمدة
Sub exemple() 'Sélection des colonnes B à G Range("B:G").Select End Sub
Sub exemple() 'Sélection des colonnes B à G Columns("B:G").Select End Sub