شرح وظيفة الدالة if

إكسل vba/ الدرس 337/ البحث عن أي كلمة في أي مكان داخل أي جدول تفاعلي تختارة من خلال الفورم السحري

شرح وظيفة الدالة if

اكسل / الحلقة 010 / سلسلة تعلم الاكسل من البداية / الدالة IF

شرح وظيفة الدالة if

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

 

تبدو البنية الأساسية لتعليمة if كما يلي:

 

إذا (الحالة)

{// كود للتنفيذ إذا كان الشرط صحيحًا}

آخر {// كود للتنفيذ إذا كان الشرط خاطئًا}

 

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

 

دعونا نلقي نظرة على مثال لكيفية عمل هذا في الممارسة. لنفترض أن لدينا متغيرًا يسمى "x" ونريد التحقق مما إذا كان أكبر من 10. يمكننا استخدام عبارة if مثل هذا:

 

إذا (x> 10)

 {// افعل شيئًا هنا}

آخر {// افعل شيئًا آخر هنا}

 

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

 

  يمكن أيضًا استخدام عبارة if مع عوامل التشغيل المنطقية مثل "and" و "أو" التي تتيح لنا التحقق من شروط متعددة في وقت واحد. على سبيل المثال، افترض أننا نريد التحقق مما إذا كانت x أكبر من 10 وy أقل من 20. يمكننا استخدام عبارة if مثل هذه:

 

  إذا (x> 10 & y <20)

{// افعل شيئًا هنا}

آخر {// افعل شيئًا آخر هنا}

 

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

 اكسل vba / الدرس 009 / الفيجوال بيسك اكسل من البداية / قاعدة IF

  يمكن أيضًا استخدام عبارة if مع عوامل المقارنة مثل "=" والتي تتيح لنا مقارنة قيمتين ومعرفة ما إذا كانتا متساويتين أم لا. على سبيل المثال، افترض أننا نريد التحقق مما إذا كانت x تساوي 10. يمكننا استخدام عبارة if مثل هذه:

 

  إذا (س = 10)

{// افعل شيئًا هنا}

آخر {// افعل شيئًا آخر هنا}

 

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

 

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

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

اكسل / الحلقة 011 / سلسلة تعلم الاكسل من البداية / الدالة IFs - and - or

كود البحث الدرس 337

Sub FindGo() 'بحث

Dim i As Integer, j As Integer, lr As Integer, lc As Integer, Word As String

On Error Resume Next

Dim p1 As String, p2 As Integer

p1 = ActiveSheet.Name

p2 = form1.cmbt.ListIndex + 1

lr = Range(p1 & p2).Rows.Count

lc = Range(p1 & p2).Columns.Count

Word = form1.txtfind.Text

For i = 1 To lr

For j = 1 To lc

If Range(p1 & p2).Cells(i, j).Value = Word Then

Range(p1 & p2).Range(Cells(i, 1), Cells(i, lc)).Select

Dim k As Integer

For k = 1 To lc

form1.Controls("txt" & k).Value = Range(p1 & p2).Cells(i, k).Value

Next k

End If

Next j

Next i

End Sub

احمي ملفاتك / ملف إكسل يعمل علي جهاز كمبيوتر واحد فقط

 إكسل vba/ الدرس 327 / احمي ملفاتك / ملف إكسل يعمل علي جهاز كمبيوتر واحد فقط / يتم حذفة اتوماتيكيا

كود الحصول على سيريال الكمبيوتر

Sub sngo()

Dim sn, x, y, z

With GetObject("winmgmts:\\" & "." & "\root\cimv2")

For Each x In .ExecQuery("SELECT * FROM Win32_computerSystemProduct", , 48)

y = x.Name

z = x.UUID

Next x

End With

sn = y & "_ " & z

Range("a1") = sn

End Sub

---------------------------------------------------------------------------------------------------------

كود حذف الملف

Sub deletego()

Dim f, ff, x

Set f = CreateObject("scripting.filesystemobject")

Set ff = f.getfolder(ThisWorkbook.Path)

ThisWorkbook.Saved = True

ThisWorkbook.ChangeFileAccess xlReadOnly

For Each x In ff.Files

x.Delete True

Next

ThisWorkbook.Close False

End Sub

----------------------------------------------------------------------------------------------------------

كود مقارنة السيريال 

Sub serialgo()

Dim sn, x, y, z

With GetObject("winmgmts:\\" & "." & "\root\cimv2")

For Each x In .ExecQuery("SELECT * FROM Win32_computerSystemProduct", , 48)

y = x.Name

z = x.UUID

Next x

End With

sn = y & "_ " & z

If sn = form1.snxyz.Caption Then

Else

deletego

End If

End Sub

---------------------------------------------------------------------------------------------------------

مكان استدعاء الكود

Private Sub Workbook_Open()

serialgo

End Sub

--------------------------------------------------------------------------------------------------------

شرح الدالة InStr

تُستخدم الدالة InStr في Excel للعثور على موضع سلسلة فرعية ضمن سلسلة أكبر. يمكن استخدامه 

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

 

بناء الجملة للدالة InStr هو:

InStr(x, y, z)

الوسيطة x اختيارية وتحدد موضع الحرف في y الذي يجب أن يبدأ البحث منه. إذا تم حذفه، فسيتم تعيينه افتراضيًا على 1.

 

الوسيطة y مطلوبة وتحدد السلسلة التي سيتم البحث عنها للسلسلة الفرعية.

 

وسيطة السلسلة الفرعية x مطلوبة وتحدد السلسلة التي سيتم البحث عنها داخل y.

 

على سبيل المثال، إذا كنت تريد معرفة ما إذا كان "d" موجودًا في "wagdy"، فيمكنك استخدام

 هذه الصيغة:

= InStr(1,"wagdy","d")

سيؤدي هذا إلى إرجاع 4 لأن "d" يبدأ عند الحرف 4 من "wagdy ".

--------------------------------------------------------------------------------------------------------

كود بسيط يوضح استخدام الدالة InStr

Sub InStrgo()

Dim x

x = InStr(1, "wagdy", "a")

MsgBox x

End Sub

كود بسيط جدا لتنفيذ أي كود آخر في البرنامج في أي وقت تريد

 

إكسل vba/ الدرس 326 / كود بسيط جدا لتنفيذ أي كود آخر في البرنامج في أي وقت تريد !!؟؟

كود تنفيذ أي كود آخر في أي وقت

Sub code0()

On Error Resume Next

Dim t As String, x As String

x = InputBox("ادخل اسم الكود:", "اسم الكود", "code")

t = InputBox("ادخل وقت التنفيذ:", "تنفيذ كود محدد", "00:00:00")

Application.OnTime Now + TimeValue(t), x

End Sub

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

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

الكود الأول

شرح مُبَسط لأهم 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، بدءًا من الحرف الثاني.