يمكنك استخدام أسلوب RoundUp في VBA لتقريب القيم. تستخدم هذه الوظيفة بناء الجملة الأساسي التالي: Sub RoundUpValue() Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0) End Sub سيقوم هذا المثال المحدد بتقريب القيمة الموجودة في الخلية A1 إلى أقرب رقم صحيح...
يمكنك استخدام الأسلوب RoundDown في VBA لتقريب القيم. تستخدم هذه الوظيفة بناء الجملة الأساسي التالي: Sub RoundDownValue() Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0) End Sub سيقوم هذا المثال المحدد بتقريب القيمة الموجودة في الخلية A1 إلى أقرب رقم صحيح...
يمكنك استخدام الطرق التالية لتقريب القيم إلى منزلتين عشريتين باستخدام VBA: الطريقة الأولى: تقريب القيمة إلى منزلتين عشريتين Sub RoundTwoDecimals() Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2) End Sub سيقوم هذا المثال المحدد بتقريب القيمة الموجودة في الخلية A2 إلى...
يمكنك استخدام بناء الجملة الأساسي التالي لحساب عدد القيم الفريدة في نطاق باستخدام VBA: SubCountUnique () Dim Rng As Range, List As Object, UniqueCount As Long Set List = CreateObject(" Scripting.Dictionary ") 'count unique values in range A2:A11 For Each Rng...
يمكنك استخدام بناء الجملة الأساسي التالي لحساب مجموع القيم في نطاق باستخدام VBA: SubSumValues () Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 ")) End Sub يحسب هذا المثال مجموع القيم في النطاق B2:B11 ويعين النتيجة للخلية D2 . إذا كنت تريد بدلاً...
يمكنك استخدام الطرق التالية لتسلسل السلاسل في VBA: الطريقة الأولى: ربط سلسلتين SubConcatStrings () Range(" C2 ") = Range(" A2 ") & Range(" B2 ") End Sub سيقوم هذا المثال بربط السلاسل الموجودة في الخلايا A2 و B2 وعرض النتيجة في...
يمكنك استخدام بناء الجملة الأساسي التالي لحساب الانحراف المعياري للقيم في نطاق باستخدام VBA: SubStDevRange () Range(" D2 ") = WorksheetFunction.StDev(Range(" B2:B11 ")) End Sub يحسب هذا المثال الانحراف المعياري للقيم في النطاق B2:B11 ويعين النتيجة للخلية D2 . إذا كنت...
يمكنك استخدام بناء الجملة الأساسي التالي لإجراء بحث HL باستخدام VBA: Sub Hlookup() Range(" H2 ").Value = WorksheetFunction.HLookup(Range(" G2 "),Range(" A1:E2 "),2,False) End Sub يبحث هذا المثال تحديدًا عن قيمة الخلية G2 في أعمدة A1:E2 ويعثر على القيمة الموجودة في الصف...
يمكنك استخدام الأسلوب Replace() في VBA لاستبدال الأحرف في سلسلة. تستخدم هذه الطريقة بناء الجملة الأساسي التالي: استبدال (التعبير، البحث، الاستبدال، البدء، العد) ذهب: التعبير : السلسلة التي تريد استبدال الأحرف فيها find : السلسلة المراد العثور عليها استبدال : السلسلة...
يمكنك استخدام طريقة Replace() في VBA لإزالة الأحرف من سلسلة. توضح الأمثلة التالية كيفية استخدام هذه الطريقة عمليًا مع قائمة السلاسل التالية في Excel: مثال 1: استخدم VBA لإزالة كافة تكرارات الأحرف في سلسلة (حساسة لحالة الأحرف) لنفترض أننا نريد إزالة...