البدء في برمجة Excel

 اكسل vba / الدرس 001 / لو عندك فكرة عن الفيجوال بيسك ؟ لا تشاهد هذا الفيديو !

البدء في برمجة Excel

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

 

ما هي برمجة Excel؟

 

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

 

لماذا نستخدم برمجة Excel؟

 

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

 

الشروع في برمجة Excel

 

قبل البدء في كتابة التعليمات البرمجية في VBA، من المهم فهم أساسيات اللغة وكيفية عملها في Excel. فيما يلي بعض المفاهيم الأساسية:

• الكائنات - الكائنات هي عناصر داخل برنامج لها خصائص وطرق مرتبطة بها. في Excel، تتضمن الكائنات أوراق العمل والخلايا والنطاقات والمخططات وما إلى ذلك.

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

• الأساليب - الأساليب هي الإجراءات التي يمكن تنفيذها على كائن مثل تحديد قيمته أو تنسيق مظهره.

• الأحداث - الأحداث هي الإجراءات التي يتخذها المستخدم مثل النقر على زر أو إدخال البيانات في خلية والتي تؤدي إلى تشغيل رمز معين تلقائيًا استجابةً لتلك الإجراءات.

 

بمجرد أن تفهم هذه المفاهيم، تكون جاهزًا لبدء كتابة التعليمات البرمجية في VBA! للبدء:

 

• افتح محرر Visual Basic (VBA) بالضغط على Alt + F11 على لوحة المفاتيح أثناء وجودك في Excel

 

• إنشاء وحدة جديدة بالنقر فوق إدراج> وحدة من شريط القائمة في الجزء العلوي من نافذة VBA

 

• ابدأ في كتابة التعليمات البرمجية الخاصة بك! يمكنك استخدام الوظائف المضمنة مثل Megabox () لعرض الرسائل على الشاشة أو Range () لتحديد الخلايا في ورقة العمل الخاصة بك

 

• اختبر الكود الخاص بك عن طريق الضغط على F5 على لوحة المفاتيح أثناء التواجد في نافذة VBA

 

• بمجرد أن تعمل التعليمات البرمجية الخاصة بك بشكل صحيح، احفظها بالنقر فوق ملف> حفظ من شريط القائمة أعلى نافذة VBA

 

الآن بعد أن عرفت كيفية البدء في برمجة Excel باستخدام VBA، دعنا نلقي نظرة على بعض الأمثلة لما يمكنك القيام به!

 

أمثلة على ما يمكنك فعله ببرمجة Excel

باستخدام VBA، يمكنك فعل أي شيء تقريبًا باستخدام Excel! هنا ليست سوى أمثلة قليلة:

 

• إنشاء صيغ مخصصة - يمكنك كتابة صيغ مخصصة باستخدام VBA والتي تسمح لك بإجراء عمليات حسابية غير متوفرة من خلال الوظائف القياسية مثل SUM () أو AVERAGE (). على سبيل المثال، إذا كنت تريد حساب ضريبة المبيعات بناءً على معدلات مختلفة اعتمادًا على الموقع، فيمكنك كتابة صيغة مخصصة باستخدام VBA والتي ستأخذ في الاعتبار جميع هذه المعدلات المختلفة عند حساب مبالغ ضريبة المبيعات تلقائيًا!

 

• إتمام المهام المتكررة - إذا كان هناك شيء يحتاج إلى القيام به مرارًا وتكرارًا، فمن المحتمل أن تكون هناك طريقة لإتمام ذلك باستخدام VBA! على سبيل المثال، إذا كنت بحاجة إلى نسخ خلايا معينة من ورقة عمل إلى أخرى، فبدلاً من نسخها يدويًا في كل مرة، هناك طريقة لإتمام ذلك باستخدام VBA.

فوائد إرسال رسائل البريد الإلكتروني عبر برنامج إكسل مع المرفقات

 إكسل vba/ الدرس 332/ اضافة جديدة للفورم السحري ارسال الملفا ت والايميلات من خلال الفورم

فوائد إرسال رسائل البريد الإلكتروني عبر برنامج Excel مع المرفقات

 

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

 

تتمثل إحدى المزايا الرئيسية لإرسال رسائل البريد الإلكتروني عبر Excel في أنه يلغي الحاجة إلى فتح بريد إلكتروني منفصل مثل Outlook أو Gmail. يوفر هذا الوقت والجهد حيث لا يتعين عليك التبديل بين البرامج أو البحث عن جهات الاتصال في أماكن مختلفة. علاوة على ذلك، يسمح لك بإرفاق الملفات بسرعة من جهاز الكمبيوتر الخاص بك أو من خدمات التخزين السحابية مثل Dropbox أو Google Drive.

 

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

 

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

 

أخيرًا، يساعد إرسال رسائل البريد الإلكتروني عبر Excel أيضًا في ضمان إرسال الرسائل بشكل آمن وموثوق. يوفر برنامج Outlook في Office تقنية تشفير تضمن إرسال الرسائل بأمان عبر الإنترنت دون اعتراضها من قبل أطراف ثالثة. بالإضافة إلى ذلك، يوفر Outlook أيضًا ميزات مثل إعلانات القراءة التي تتيح لك تتبع ما إذا كان المستلم قد فتح رسالتك أم لا.

 

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

***********************************************************************

الأكواد

Sub SendEmail() 'استدعاء في زر الارسال

Dim OutApp As Object, OutMail As Object, strbody As String

Dim x As String, y As String, z As String

On Error Resume Next

x = form1.p4txt1.Text

y = form1.p4cmb1.Text

z = form1.p4lbl1.Caption

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

strbody = x

With OutMail

.To = y

.CC = ""

.BCC = ""

.Subject = "الملف المرسل"

.Body = strbody

.Attachments.Add (z)

.Send

End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

MsgBox "تم ارسال الملف بنجاح"

x = ""

y = ""

z = ""

End Sub

********************************************************************************

Sub cmbgo() 'استدعاء في بداية التشغيل

form1.p4cmb1.List = Array("wagdy2040@gmail.com", "wagdy2064@gmail.com")

End Sub

*******************************************************************************

Sub pathgo() 'استدعاء في زر اضافة ملف

On Error Resume Next

Dim fd As FileDialog, x As String

Set fd = Application.FileDialog(msoFileDialogOpen)

With fd

.AllowMultiSelect = False

.Filters.Clear

.Filters.Add "All Files", "*.*"

If .Show = -1 Then

x = fd.SelectedItems(1)

form1.p4lbl1.Caption = x

End If

End With

MsgBox "تم اضافة الملف بنجاح"

End Sub

فائدة إضافة الرسائل الصوتية إلي الإكسل

إكسل vba/ الدرس 331/ كود حصري. تنبيهات و رسائل صوتية في حالة تحقيق شرط معين أو عند القيام بأي إجراء

فائدة استخدام الرسائل الصوتية في الإكسل

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

 مثلا عندما يقوم المستخدم بإدخال قيمة غير صحيحة في خلية.

 

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

 

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

 

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

 

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

 

بشكل عام، تعد الرسائل الصوتية أداة فعالة لتوصيل المعلومات في Excel ويمكن أن تساعد في تحسين تجربة المستخدم الإجمالية بجعلها أسهل وأكثر متعة في الاستخدام.

********************************************************

كود استخدام الرسائل الصوتية

Sub PlaySound()

On Error Resume Next

Dim rng As Range, cell As Range

Set rng = Selection

For Each cell In rng

If cell.Value = "Yes" Then

Application.Speech.Speak "Ok"

ElseIf cell.Value = "No" Then

Application.Speech.Speak "bad"

ElseIf cell.Value = "ممتاز" Then

Application.Speech.Speak "mumtaz"

ElseIf cell.Value = "جيد جدا" Then

Application.Speech.Speak "jayid jidana"

End If

Next cell

End Sub

 

ما فائدة تلوين الخلايا في الإكسل؟

إكسل vba/ الدرس 330 / عند إختيار الخلية فإنها تعطي وميضا في حالة تحقيقها شرط معين

فائدة تلوين الخلايا في الإكسل

تعد تلوين الخلايا في Excel طريقة رائعة لتنظيم البيانات وتصورها بسرعة وسهولة. يمكن أن يساعدك 

في تحديد الاتجاهات وإبراز المعلومات المهمة وتسهيل فهم البيانات المعقدة. باستخدام الألوان المناسبة، 

يمكنك لفت الانتباه بسرعة إلى الأجزاء الأكثر أهمية في جدول البيانات.

 

يعد استخدام الألوان في Excel أمرًا بسيطًا. كل ما عليك فعله هو تحديد الخلايا التي تريد تلوينها، والنقر

 فوق الزر "Fill Color" في علامة التبويب "الصفحة الرئيسية" في الشريط، واختيار لون من اللوحة.

 يمكنك أيضًا استخدام مربع الحوار "تنسيق الخلايا" لتخصيص ألوانك بشكل أكبر.

 

أحد الاستخدامات الأكثر شيوعًا لتلوين الخلايا في Excel هو تمييز قيم معينة أو نطاقات من القيم. 

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

 مبيعات كل شهر حتى تبرز عن بعضها البعض. هذا يجعل من السهل تحديد الاتجاهات أو الحالات الشاذة

 في بياناتك. يمكنك أيضًا استخدام ألوان مختلفة لفئات مختلفة من البيانات (على سبيل المثال،

 أرقام المبيعات حسب المنطقة).

 

هناك تطبيق مفيد آخر لخلايا التلوين في Excel وهو إنشاء إشارات مرئية تساعد المستخدمين على

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

 استخدام الترميز اللوني للإشارة إلى ما إذا كانت هذه القيم أعلى أو أقل من حد معين (على سبيل المثال،

 أخضر للقيم أعلى من الحد الأدنى وأحمر للقيم أدناه). هذا يجعل من السهل على المستخدمين التعرف 

بسرعة على القيم المهمة دون الحاجة إلى قراءتها جميعًا بشكل فردي.

يمكنك أيضًا استخدام الترميز اللوني كعامل مساعد عند إنشاء الصيغ في Excel. على سبيل المثال، 

إذا كانت لديك صيغة تشير إلى خلايا متعددة، فقد يكون من المفيد تعيين لون مختلف لكل خلية بحيث

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

 تصحيح أخطاء الصيغ واكتشاف الأخطاء قبل أن تتسبب في حدوث مشاكل باستمرار.

 

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

 البيانات يحتوي على الكثير من الأرقام والنصوص، فإن إضافة بعض الألوان يمكن أن تجعله يبدو أكثر

 جاذبية من الناحية المرئية ويجعل الأمر أسهل على العينين عند عرضه على الشاشة أو طباعته 

على الورق.

 

في الختام، تعد خلايا التلوين في Excel أداة مفيدة بشكل لا يصدق يمكن أن تساعد في تسهيل فهم 

البيانات المعقدة وتفسيرها في لمحة. سواء كنت تستخدم الترميز اللوني كعامل مساعد عند إنشاء 

الصيغ أو ببساطة إضافة بعض الجاذبية المرئية إلى جداول البيانات الخاصة بك، فهناك العديد من 

الطرق التي يمكن أن تساعد بها خلايا التلوين في تحسين سير عملك وتجعل العمل مع جداول 

البيانات أكثر إمتاعًا بشكل عام!

*************************************************************

كود عمل وميض في الخلية

Sub Color_Cell()

On Error Resume Next

Dim rng As Range

Set rng = Selection

If rng = "" Then: Exit Sub

If rng < 10 And rng > 0 Then

rng.Interior.ColorIndex = 6

Application.Wait (Now + TimeValue("00:00:01"))

rng.Interior.ColorIndex = xlNone

ElseIf rng > 15 And rng < 100 Then

rng.Interior.ColorIndex = 3

Application.Wait (Now + TimeValue("00:00:01"))

rng.Interior.ColorIndex = xlNone

End If

End Sub

*******************************************************

الكود الثاني

Sub Color_Cell1()

On Error Resume Next

Dim rng As Range

Set rng = Selection

If rng = "" Then: Exit Sub

If rng = "ناجح" Then

rng.Interior.ColorIndex = 10

Application.Wait (Now + TimeValue("00:00:01"))

rng.Interior.ColorIndex = xlNone

ElseIf rng = "راسب" Then

rng.Interior.ColorIndex = 3

Application.Wait (Now + TimeValue("00:00:01"))

rng.Interior.ColorIndex = xlNone

End If

End Sub

 

أهمية إضافة الصور الي برنامج الإكسل

 إكسل vba/ الدرس 329/ بكود مختلف التحكم الكامل في إضافة وحذف وتسمية أي صورة ووضعها في أي خلية تريدها

أهمية إضافة الصور الي برنامج إكسل

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

 

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

 

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

 

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

 

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

*******************************************************************

كود إضافة الصورة

Sub pgo1() 'اضافة صورة

On Error Resume Next

Dim myImage As Object, myShape As Object

Dim p As String, x As Integer, y As Integer, z As String

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

Set myImage = ActiveSheet.Pictures.Insert(p)

Set myShape = ActiveSheet.Shapes(myImage.Name)

x = InputBox("ادخل رقم الصف", "رقم الصف")

y = InputBox("ادخل رقم العمود", "رقم العمود")

z = InputBox("اسم الصورة", "اسم الصورة")

myShape.Height = 34.5

myShape.Top = 34.5 * (x - 1)

myShape.Left = 63.75 * (y - 1)

myShape.Name = z

End Sub

**********************************************************

كود حذف الصورة

Sub pgo2() 'حذف صورة

Dim x As String

On Error Resume Next

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

ActiveSheet.Shapes.Range(Array(x)).Select

Selection.Delete

End Sub

***********************************************************

كود لتنسيق الصفوف والأعمدة أتوماتيكيا

Sub pgo3() 'تنسيق الصفوف والاعمدة

On Error Resume Next

Cells.Select

Selection.RowHeight = 35

Selection.ColumnWidth = 10

Range("A1").Select

End Sub

************************************************************