بسم الله الرحمن الرحيم
للتعامل مع الماكرو في برنامج الاكسيل
في بداية قم باظهار لوحة الادوات من خلال الضغط علي قائمة view واختر toolbars ثم control Toolbox قم برسم command في المكان الذي تريد
اضغط بالزر اليمين للفارة علي command واختار view code قم بكتابة الماكرو او الكود الذي تريده فالفجول بيسك ثم اغلق الكود وارجع الي برنامج الاكسيل لكي تسطيع تشغيل الكود من الاكسيل قم بالضغط داخل control Toolbox علي exit design mode( رمز المثلث). اذا اردت تشغيل الكود قم بالضغط علي command الذي قمت باضافته
ثانيا
اذا اردنا التعامل مع cell في sheet نقوم في البداية بتعريف متغير من نوع worksheet داخل الكود الخاص ب command مثل
Dim ws As Worksheet
لكي نجعل ws يشير الي sheet1 من الملف نقوم بكتابة هذا السطر داخل command
Set ws = Worksheets("sheet1
("
من خلال ws نستطيع ان نصل الي اي خليه داخل sheet1 مثلا اذا اردنا الوصول الي الصف 2 والعمود 3 الخلية (C2) نقوم بكتابة
ws.Cells(2, 3).Value=value
حيث value هي القيمه التي نود ان نضعها داخل الخلية
اي نكتب
ws.Cells(row, column).Value
حيث row هو رقم الصف و column هو رقم العمود
اذا اردنا ان ناخذ قيمة من الخلية ونضعها في متغير نقوم في البداية بتعريف المتغير مثل
dim x as single
x=ws.Cells(row, column).Value
اذا اردنا ان نصل الي مجموعة من الخلاية مثلا من الخلية a1 الي a10
فيتم ذلك من خلال التعامل مع loop
for i=1 to 10
ws.Cells(i,1).Value=value
next i
لان A هي العمود الاول ثبتنا رقم العمود عند 1 وغيرنا رقم الصف من 1 الي 10
اذا كان لديك اي استفسار قم بارساله وان شاء الله تسطيع الاجابة عليه
موضوع: التعامل مع الماكرو في برنامج الاكسيل 
الجمعة 18 أبريل - 0:08
