يمكنك استخدام بناء الجملة الأساسي التالي في VBA لحساب عدد الأيام بين تاريخين: SubDaysBetweenDates () Dim i As Integer For i = 2 To 7 Range(" C " & i) = DateDiff(" D ", Range(" A " & i), Range(" B...
عبارة الحالة هي نوع من البيانات التي تتنقل عبر الشروط وترجع قيمة عند استيفاء الشرط الأول. يمكنك استخدام بناء الجملة الأساسي التالي لكتابة بيان الحالة في VBA: SubCaseStatement () Dim i As Integer For i = 2 To 9 Select Case...
يمكنك استخدام بناء الجملة الأساسي التالي لاستخدام SUMPRODUCT في VBA: SubSumProduct () Range(" E2 ") = WorksheetFunction.SumProduct(Range(" B2:B11 "), Range(" C2:C11 ")) End Sub سيقوم هذا المثال المحدد بحساب مجموع حاصل ضرب القيم في النطاقين B2:B11 و C2:C11 وإرجاع النتيجة في...
تقوم الدالة SUMPRODUCT في Excel بإرجاع مجموع منتجات جدولين متطابقين. فيما يلي طريقتان لاستخدام الدالة SUMPRODUCT مع أعمدة متعددة في Excel: الطريقة الأولى: استخدام SUMPRODUCT مع أعمدة متعددة بشرط “و”. =SUMPRODUCT(( A2:A11 ="A")*( B2:B11 ="Apples"), C2:C11 , D2:D11 ) ستقوم هذه...
يمكنك استخدام بناء الجملة الأساسي التالي لحساب القيمة القصوى في نطاق باستخدام VBA: SubMaxValue () Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 ")) End Sub يحسب هذا المثال الحد الأقصى للقيمة في النطاق B2:B11 ويعين النتيجة للخلية D2 . إذا كنت تريد...
يمكنك استخدام بناء الجملة الأساسي التالي لحساب الحد الأدنى للقيمة في نطاق باستخدام VBA: SubMinValue () Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 ")) End Sub يحسب هذا المثال الحد الأدنى للقيمة في النطاق B2:B11 ويعين النتيجة للخلية D2 . إذا كنت...
يمكنك استخدام الدالة CInt في VBA لتحويل سلسلة نصية إلى عدد صحيح. فيما يلي طريقتان شائعتان لاستخدام هذه الميزة عمليًا: الطريقة الأولى: تحويل السلسلة إلى عدد صحيح في VBA Sub ConvertStringToInteger() Dim i As Integer For i = 2 To 11...
يمكنك استخدام الدالة CLng في VBA لتحويل سلسلة نصية إلى نوع بيانات طويل. فيما يلي طريقتان شائعتان لاستخدام هذه الميزة عمليًا: الطريقة الأولى: تحويل السلسلة إلى طويلة في VBA Sub ConvertStringToLong () Dim i As Integer For i = 2 To...
يمكنك استخدام الدالة CDbl في VBA لتحويل سلسلة نصية إلى نوع بيانات مزدوج. إليك طريقة شائعة لاستخدام هذه الوظيفة عمليًا: Sub ConvertStringToDouble() Dim i As Integer For i = 2 To 11 If IsNumeric(Range(" A " & i)) Then Range(" B...
يمكنك استخدام الدالة CDate في VBA لتحويل سلسلة نصية إلى تاريخ. فيما يلي طريقتان شائعتان لاستخدام هذه الميزة عمليًا: الطريقة الأولى: تحويل السلسلة إلى تاريخ باستخدام التنسيق الافتراضي (MM/DD/YYYY) Sub ConvertStringToDate() Dim i As Integer For i = 2 To 8...