يمكنك استخدام الطرق التالية لكتابة دالات SUMIF وSUMIFS باستخدام VBA في Excel: الطريقة الأولى: دالة SUMIF في VBA SubSumif_Function () Range(" E2 ") = WorksheetFunction.Sumif(Range(" A2:A12 "), " Mavs ", Range(" B2:B12 ")) End Sub سيقوم هذا المثال المحدد بجمع القيم...
يمكنك استخدام الطرق التالية لكتابة دالات AVERAGEIF وAVERAGEIFS باستخدام VBA في Excel: الطريقة الأولى: الدالة AVERAGEIF في VBA Sub Averageif_Function() Range(" E2 ") = WorksheetFunction.AverageIf(Range(" A2:A12 "), " Mavs ", Range(" B2:B12 ")) End Sub سيقوم هذا المثال المحدد بحساب متوسط...
يمكنك استخدام بناء الجملة الأساسي التالي لحساب متوسط قيمة النطاق في Excel باستخدام VBA: SubAverageRange () Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 ")) End Sub يحسب هذا المثال بالتحديد القيمة المتوسطة في النطاق B2:B12 ويعين النتيجة للخلية E2 . إذا كنت...
يمكنك استخدام بناء الجملة الأساسي التالي لحساب عدد الصفوف في نطاق في Excel باستخدام VBA: SubCountRows () Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count End Sub يحسب هذا المثال عدد الصفوف في العمود A، ثم يعين النتيجة للخلية E2 . إذا...
يمكنك استخدام بناء الجملة الأساسي التالي لحساب عدد تكرارات الحرف في سلسلة باستخدام VBA: Sub CountOccurrences() Dim i As Integer 'Specify character to look for my_char = "/" 'Count occurrences in each string in B2:B12 and display results in C2:C12 For...
يمكنك استخدام بناء الجملة الأساسي التالي لإجراء مطابقة INDEX في VBA: SubIndexMatch () Dim i As Integer ' Perform index match For i = 2 To 11 Cells(i, 5).Value = WorksheetFunction.Index(Range(" A2:A11 "), _ WorksheetFunction.Match(Cells(i, 4).Value, Range(" B2:B11 "), 0)) Next...
يمكنك استخدام بناء الجملة الأساسي التالي لإجراء مطابقة INDEX مع معايير متعددة في VBA: SubIndexMatchMultiple () Range(" F3 ").Value = WorksheetFunction.Index(Range(" C2:C10 "), _ WorksheetFunction.Match(Range(" F1 "), Range(" A2:A10 "), 0) + _ WorksheetFunction.Match(Range(" F2 "), Range(" B2:B10 "), 0) -...
يمكنك استخدام بناء الجملة الأساسي التالي لفرز ورقة Excel حسب أعمدة متعددة باستخدام VBA: Sub SortMultipleColumns() Range(" A1:B11 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, _ Key2:=Range(" B1 "), Order2:=xlDescending, _ Header:=xlYes End Sub يقوم هذا المثال تحديدًا بفرز الخلايا الموجودة في النطاق...
يمكنك استخدام بناء الجملة الأساسي التالي لإجراء VLOOKUP باستخدام VBA: Sub Vlookup() Range(" F2 ").Value = WorksheetFunction.Vlookup(Range(" E2 "), Range(" A2:C11 "),3,False) End Sub يبحث هذا المثال تحديدًا عن القيمة الموجودة في الخلية E2 في النطاق A2:C11 ويعثر على القيمة المطابقة...
يمكنك استخدام بناء الجملة الأساسي التالي لإجراء VLOOKUP من ورقة أخرى باستخدام VBA: Sub Vlookup() Range(" B2 ").Value = WorksheetFunction.Vlookup(Range(" A2 "), Sheets(" Sheet2 ").Range(" A2:C11 "),3,False) End Sub يبحث هذا المثال تحديدًا عن القيمة الموجودة في الخلية A2 للورقة الحالية...