كود حصري. إدراج صورة داخل أي خلية تريدها وحذفها من خلال الفورم بضغطة زر

 كود حصري. إدراج صورة داخل أي خلية تريدها وحذفها من خلال الفورم بضغطة زر

كود إضافة صورة إلي خلية محددة

Sub InsertPicture() 'اضافة صورة في خلية محددة

On Error Resume Next

Dim P As String, x As String

P = Application.GetOpenFilename("Pictures (*.jpg;*.png;*.gif),*.jpg;*.png;*.gif")

If P <> "False" Then

x = InputBox("ادخل اسم الخليةالمراد وضع الصورة بها", "اسم الخلية")

ActiveSheet.Range(x).Select

ActiveSheet.Pictures.Insert(P).Select

End If

MsgBox "تم ادراج الصورة"

End Sub

كود حذف صورة محددة

Sub DeleteImage1() 'حذف صورة محددة

On Error Resume Next

Dim x As Integer

x = InputBox("ادخل رقم الصورة المراد حذفها", "اسم الخلية")

ActiveSheet.Shapes.Range(Array("Picture " & x)).Select

Selection.Delete

MsgBox "تم حذف الصورة"

End Sub

كود حذف جميع الصور دفعة واحدة

Sub DeleteImage2() 'حذف جميع الصور

On Error Resume Next

Dim x As Integer

For x = 1 To 100

ActiveSheet.Shapes.Range(Array("Picture " & x)).Select

Selection.Delete

Next x

MsgBox "تم حذف الصور"

End Sub

استخدامات الدالة VLOOKUP

1. مقارنة البيانات في ورقتي عمل مختلفتين: يمكن استخدام VLOOKUP لمقارنة البيانات بين ورقتي عمل مختلفتين. هذا مفيد بشكل خاص عندما تحتاج إلى مقارنة البيانات من ورقة إلى أخرى، مثل مقارنة أرقام المبيعات من شهر إلى آخر.

 

2. البحث عن قيمة محددة في نطاق من الخلايا: يمكن استخدام VLOOKUP للعثور بسرعة على قيمة محددة في نطاق من الخلايا. يكون هذا مفيدًا عندما تحتاج إلى تحديد موقع عنصر معين بسرعة في مجموعة بيانات كبيرة.

 

3. إنشاء مخططات ورسوم بيانية ديناميكية: يمكن استخدام VLOOKUP لإنشاء مخططات ورسوم بيانية ديناميكية يتم تحديثها تلقائيًا عند إضافة بيانات جديدة أو تغييرها. هذا مفيد بشكل خاص لإنشاء تمثيلات مرئية لمجموعات البيانات الكبيرة التي تتغير باستمرار.

 

4. إتمام مهام إدخال البيانات: يمكن استخدام VLOOKUP لإتمام بعض مهام إدخال البيانات، مثل إدخال معلومات العميل في نموذج طلب أو تحديث مستويات المخزون في نظام المخزون. يؤدي ذلك إلى توفير الوقت وتقليل الأخطاء المرتبطة بمهام إدخال البيانات يدويًا.

أكواد اضافة الصور وملفات pdf الي صفحات الإكسل

 إكسل vba/ الدرس 324 / اضافة الصور وملفات pdf الي صفحة الإكسل من خلال الأكواد

الكود الأول

الإكسل والبرمجة

 الإكسل والبرمجة

يعد Excel أداة قوية لتحليل البيانات ومعالجتها، ويمكن أن يكون أداة قيمة للمبرمجين الذين يتطلعون إلى تبسيط سير عملهم وإتمام المهام المتكررة. لكي تكون مبرمجًا ناجحًا في برنامج Excel، هناك بعض المهارات والاستراتيجيات الأساسية التي يجب أن تركز عليها:

 

Learn VBA (Visual Basic for Applications): VBA هي لغة البرمجة المستخدمة لإنشاء وحدات الماكرو وإتمام المهام في Excel. تعرف على أساسيات بناء جملة VBA، وتدرب على كتابة وحدات ماكرو بسيطة لإتمام المهام مثل فرز البيانات وتصفيتها.

 

فهم وظائف Excel المضمنة: يحتوي Excel على مجموعة متنوعة من الوظائف المضمنة التي يمكن استخدامها لتحليل البيانات ومعالجتها، مثل SUM وAVERAGE وCOUNTIF. إن معرفة كيفية استخدام هذه الوظائف بفعالية يمكن أن يوفر لك الكثير من الوقت ويجعل شفرتك أكثر كفاءة.

 

مارس ممارسات الترميز الجيدة: تمامًا كما هو الحال في أي لغة برمجة أخرى، من المهم كتابة كود نظيف ومنظم جيدًا يسهل قراءته وفهمه. استخدم أسماء متغيرات ذات مغزى، ثم ضع مسافة بادئة لشفرتك، وعلق على الكود الخاص بك لمساعدة الآخرين على فهم ما يفعله.

 

التعرف على نموذج كائن Excel: نموذج كائن Excel هو بنية مكونات Excel المختلفة، مثل أوراق العمل والخلايا والمخططات. سيساعدك فهم كيفية عمل نموذج الكائن على التنقل والتعامل مع Excel بشكل أكثر فعالية.

 

استخدم أدوات تصحيح أخطاء Excel: يحتوي Excel على أداة تصحيح أخطاء مدمجة تتيح لك التنقل خلال التعليمات البرمجية الخاصة بك وعرض المتغيرات ومشاهدة التعبيرات. سيساعدك هذا في تحديد الأخطاء والأخطاء في التعليمات البرمجية الخاصة بك، مما يسهل إصلاحها.

 

إتمام المهام المتكررة: يعد Excel أداة رائعة لإتمام المهام المتكررة، مثل إدخال البيانات وتنظيف البيانات وتحليل البيانات. ابحث عن طرق لإتمام هذه المهام باستخدام وحدات الماكرو ووظائف VBA وExcel المضمنة.

 

من خلال التركيز على هذه المهارات والاستراتيجيات، يمكنك أن تصبح مبرمجًا ناجحًا في برنامج Excel وتوفر الوقت والجهد وتحسين كفاءة سير عملك.

أهم 10 نصائح لتكون مبرمجا جيدا في الإكسل

1-    فهم قوي لصيغ ووظائف Excel، بما في ذلك برمجة VBA.

2-    فهم تقنيات إدارة البيانات ومعالجتها في Excel.

3-    الإلمام بأدوات Excel المضمنة لتحليل البيانات والتصور.

4-    معرفة أدوات التسجيل والتحرير الماكرو في Excel.

5-    الإلمام بميزات التعاون والمشاركة في Excel.

6-    فهم ميزات أمان Excel وكيفية استخدامها.

7-    القدرة على استخدام Excel لإتمام المهام والعمليات المتكررة.

8-    فهم تكامل برنامج Excel مع البرامج ومصادر البيانات الأخرى.

9-    معرفة أفضل الممارسات لتصميم وهيكلة أوراق عمل ومصنفات Excel.

10- مهارة قوية في التحليل وحل المشاكل.

شرح مُبَسط لأهم 10 دوال في الإكسل

أهم 10 دوال في الإكسل 

SUM – 1:

 تجمع هذه الدالة معًا نطاقًا من الخلايا وتعيد المجموع. على سبيل المثال،

SUM (A1: A10) =

ستجمع القيم الموجودة في الخلايا من A1 إلى A10 معًا.

 

COUNT - 2:

تحسب هذه الدالة عدد الخلايا في نطاق يحتوي على أرقام. على سبيل المثال

COUNT (A1: A10) =

  تُرجع عدد الخلايا في النطاق من A1 إلى A10 التي تحتوي على أرقام.

 

AVERAGE - 3:

تحسب هذه الدالة متوسط نطاق من الخلايا. على سبيل المثال،

AVERAGE (A1: A10) =

 ترجع متوسط القيم في الخلايا من A1 إلى A10.

 

MAX - 4:

 ترجع هذه الدالة أكبر قيمة في نطاق من الخلايا. على سبيل المثال،

MAX (A1: A10) =

تُرجع أكبر قيمة في النطاق من A1 إلى A10.

 

MIN - 5:

 تعرض هذه الدالة أصغر قيمة في نطاق من الخلايا. على سبيل المثال،

MIN (A1: A10) =

تُرجع أصغر قيمة في النطاق من A1 إلى A10.

 

IF - 6:

تقوم هذه الوظيفة بإجراء اختبار منطقي وإرجاع قيمة واحدة إذا كان الاختبار صحيحًا وقيمة أخرى إذا كان الاختبار خاطئًا. على سبيل المثال،

= IF(A1>10,"Greater than 10","Less than or equal to 10")

وتكون القيمة الصحيحة أكبر من 10 وتكون القيمة الخاطئة أقل من أو تساوى 10

 

VLOOKUP - 7:

 تبحث هذه الدالة عن قيمة في العمود الموجود في أقصى اليسار من الجدول، ثم تُرجع قيمة في نفس الصف من عمود محدد. على سبيل المثال،

VLOOKUP (A1, A2:B10,2, FALSE) =

سيبحث عن القيمة الموجودة في الخلية A1 في العمود الموجود في أقصى اليسار من الجدول في النطاق A2: B10 وإرجاع القيمة في نفس الصف من العمود الثاني من الجدول.

 

MATCH - 8 و INDEX:

تسمح لك هذه المجموعة من الوظائف بالبحث عن قيمة في جدول بناءً على معيار محدد. على سبيل المثال،

= INDEX (A1:B10, MATCH (A1, A1:A10,0),2)

سيبحث عن القيمة في الخلية A1 في العمود الأول من الجدول في النطاق A1: B10 وإرجاع القيمة في نفس صف من العمود الثاني من الجدول.

 

CONCATENATE - 9:

 تجمع هذه الوظيفة نصًا من خلايا متعددة في خلية واحدة. على سبيل المثال،

CONCATENATE (A1," ", B1) =

تقوم بدمج النص في الخلية A1 والخلية B1 بمسافة بينهما.

 

LEFT - 10 و RIGHT و MID:

 تسمح لك هذه الوظائف باستخراج نص من خلية. على سبيل المثال، ستُرجع

  LEFT (A1،3) =

الأحرف الثلاثة الأولى من النص في الخلية A1،

= RIGHT (A1،4)

وستُرجع الأحرف الأربعة الأخيرة من النص في الخلية A1،

= MID(A1,2,4)

وأربعة أحرف من النص في الخلية A1، بدءًا من الحرف الثاني.

كود لحذف الملفات وكود لحذف المجلدات

إكسل vba/ الدرس 323 / الذكاء الاصطناعي / كود حذف الملفات والمجلدات

 

حذف ملف أو مجلد

لحذف ملف باستخدام VBA، يمكنك استخدام وظيفة "Kill". بناء الجملة لهذه الوظيفة كما يلي:

اقتل: اسم المسار

حيث "اسم المسار" هو المسار الكامل للملف الذي تريد حذفه.

فيما يلي مثال على رمز VBA الذي يستخدم وظيفة "Kill" لحذف ملف باسم "example.txt" في المجلد "C: \ Temp":

حذف ملف فرعي

اسم المسار = "C: \ Temp \ example.txt"

اقتل: اسم المسار

يحدد هذا الرمز إجراءً فرعيًا يسمى "Delete File" يقوم بتعيين متغير اسم المسار للملف الذي تريد حذفه ثم يستخدم وظيفة "Kill" لحذفه.

تجدر الإشارة إلى أن وظيفة "Kill" ستعمل فقط مع الملفات، ولا يمكنها حذف المجلدات. أيضًا، إذا حاولت حذف ملف مفتوح حاليًا أو قيد الاستخدام من قبل عملية أخرى، فإن وظيفة "Kill" ستظهر خطأ.

يمكنك استخدام Filesystem Object بدلاً من وظيفة "Kill"، ويمكنك استخدام هذا السطر من التعليمات البرمجية:

تعيين fso ككائن

تعيين fso = Create Object ("Scripting.FileSystemObject")

fso. Delete File (اسم المسار)

يستخدم هذا الرمز Filesystem Object لحذف الملف ويمكنه حذف ملفات القراءة فقط أو الملفات المستخدمة حاليًا من قبل عملية أخرى.