شرح وظيفة الدالة 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