البدء في برمجة 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