يمكنك استخدام بناء الجملة الأساسي التالي في VBA مع IF وAND لاختبار ما إذا تم استيفاء شروط متعددة: SubIfAnd () If Range(" A2 ") = "Warriors" And Range(" B2 ") > 100 Then Range(" C2 ").Value = " Yes! " Else...
يمكنك استخدام بناء الجملة الأساسي التالي لإجراء XLOOKUP باستخدام VBA: Sub Xlookup() Range(" F2 ").Value = WorksheetFunction.Xlookup(Range(" E2 "), Range(" A2:A11 "), Range(" C2:C11 ")) End Sub يبحث هذا المثال تحديدًا عن القيمة الموجودة في الخلية E2 في النطاق A2:A11 ويعثر...
يمكنك استخدام بناء الجملة الأساسي التالي في VBA مع IF وOR لاختبار ما إذا تم استيفاء شروط متعددة: Sub IfOrTest() If Range(" A2 ") = "Warriors" Or Range(" B2 ") > 100 Then Range(" C2 ").Value = " Yes! " Else...
يمكنك استخدام بناء الجملة الأساسي التالي لاستخدام منطق IF NOT في VBA لاختبار ما إذا لم يتم استيفاء الشرط: SubIfNot () Dim i As Integer For i = 2 To 11 If Not Range(" B " & i) = " West...
يمكنك استخدام بناء الجملة الأساسي التالي لاستخدام الدالة IFERROR في VBA لعرض قيمة محددة في خلية إذا تمت مواجهة خطأ في صيغة Excel: SubIfError () Dim i As Integer For i = 2 To 11 Cells(i, 4).Value = WorksheetFunction.IfError(Cells(i, 3).Value, "...
يمكنك استخدام بناء الجملة الأساسي التالي لاستخدام صيغة “إذا كانت الخلية تحتوي على” في VBA: Sub IfContains() Dim i As Integer For i = 2 To 8 If InStr(1, LCase(Range(" A " & i)), " turtle ") <> 0 Then Result...
يمكنك استخدام بناء الجملة الأساسي التالي للتحقق مما إذا كانت الخلية فارغة في VBA: SubCheckBlank () Dim i As Integer For i = 2 To 13 If IsEmpty(Range(" A " & i)) Then Result = “ Cell is Empty ” Else...
يمكنك استخدام بناء الجملة الأساسي التالي لحساب عدد الخلايا في نطاق يحتوي على نص محدد باستخدام VBA: SubCountCellsWithText () Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ") End Sub يقوم هذا المثال تحديدًا بحساب عدد الخلايا في النطاق A2:A13...
يمكنك استخدام الطرق التالية لحساب عدد الأوراق في مصنف في Excel: الطريقة الأولى: حساب عدد الأوراق في المصنف النشط SubCountSheetsActive () Range(" A1 ") = ThisWorkbook.Worksheets.Count End Sub الطريقة الثانية: حساب عدد الأوراق في مصنف مفتوح SubCountSheetsOpen () Range(" A1 ")...
يمكنك استخدام بناء الجملة الأساسي التالي لحساب عدد الأعمدة المستخدمة في ورقة Excel باستخدام VBA: SubCountColumns () Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column End Sub يقوم هذا المثال بحساب عدد الأعمدة المستخدمة في الورقة المسماة Sheet1 ويعرض النتيجة في الخلية A10...