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

 إكسل 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

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

أهم 10 نقاط لتعلم برنامج الإكسل

 إكسل vba/ الدرس 328 / فكرة بسيطة لكن عبقرية !!؟؟ حسابات ومعادلات من خلال الفورم 

أهم 10 نقاط لتعلم برنامج الإكسل

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

 

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

 

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

 

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

 

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

 

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

 

7. استخدام وظائف البحث: وظائف البحث لا تقدر بثمن عند العمل مع كميات كبيرة من البيانات في Excel لأنها تسمح لك بالعثور على معلومات محددة بسرعة دون الحاجة إلى البحث يدويًا في جميع سجلاتك واحدًا تلو الآخر. تعد وظيفة VLOOKUP واحدة من أكثر وظائف البحث شيوعًا في Excel وهي مفيدة بشكل لا يصدق للعثور على قيم محددة داخل نطاق من الخلايا أو أعمدة البيانات.

 

8. الاستفادة من التحقق من صحة البيانات: يعد التحقق من صحة البيانات أداة مهمة تساعد على ضمان الدقة عند إدخال البيانات في جدول بيانات Excel عن طريق تقييد نوع المعلومات التي يمكن إدخالها في خلايا أو نطاقات معينة من الخلايا بناءً على معايير معينة تحددها مسبقًا (على سبيل المثال، فقط السماح للأرقام بين 1-10). يساعد هذا في تقليل الأخطاء الناتجة عن الإدخال غير الصحيح من المستخدمين الذين قد لا يكونون على دراية بمحتويات جدول البيانات أو هيكله

 

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

 

10 - استكشاف الوظائف الإضافية والتطبيقات: هناك العديد من الوظائف الإضافية المتاحة لبرنامج Excel والتي تعمل على توسيع وظائفه إلى أبعد مما هو مضمن بالفعل في البرنامج نفسه (على سبيل المثال، Power Query لتحليل مجموعات البيانات الكبيرة). بالإضافة إلى ذلك، هناك العديد من التطبيقات المتوفرة في متجر Microsoft Office Store والتي تتكامل مباشرة مع Excel وتوفر ميزات إضافية مثل أدوات التحليل المالي أو أدوات إدارة المشاريع

===================================================

كود استخدام InputBox 

Sub calcgo()

On Error Resume Next

Dim x As String, y As Double

x = InputBox("ادخل المعادلة", "اجراء العمليات الحسابية")

Range("aaa1") = x

y = Range("aaa1").Value

MsgBox y

Range("aaa1") = ""

End Sub

==================================================

كود زر احسب

Sub calcgo1()

On Error Resume Next

Dim x As String, y As Double

x = form1.cmbc.Text

Range("aaa1") = x

y = Range("aaa1").Value

form1.txt48.Text = y

Range("aaa1") = ""

End Sub

====================================================

كود تعبئة الكومبوبوكس

Sub calcgo2()

On Error Resume Next

form1.cmbc.List = Array("=AVERAGE()", "=COUNT()", "=MAX()", "=MIN()", "=SHEET()" _

, "=SHEETS()", "=SUM()")

End Sub

===================================================