كيفية حساب اللوغاريتمات في vba (مع أمثلة)

يمكنك استخدام بناء الجملة التالي لحساب السجل (الأساس 10) لقيمة باستخدام VBA:

 Function FindLog(number)
FindLog = Application.WorksheetFunction.Log(number)
End Function

ويمكنك استخدام بناء الجملة التالي لحساب اللوغاريتم الطبيعي لقيمة ما باستخدام VBA:

 Function FindNaturalLog(number)
FindNaturalLog = Log(number)
End Function

توضح الأمثلة التالية كيفية استخدام كل وظيفة عمليًا.

المثال 1: حساب السجل (الأساس 10) باستخدام VBA

لحساب السجل (الأساس 10) لقيمة في Excel، يمكن للمرء استخدام وظيفة السجل كما يلي:

يخبرنا هذا أن سجل 5 هو 0.69879 .

لتكرار هذه الوظيفة في VBA، يمكننا تحديد الوظيفة التالية:

 Function FindLog(number)
FindLog = Application.WorksheetFunction.Log(number)
End Function

يمكننا بعد ذلك كتابة هذه الوظيفة في الخلية B2 لحساب سجل القيمة في الخلية B1 :

يخبرنا هذا أن سجل 5 هو 0.69879 .

وهذا يتوافق مع القيمة المحسوبة بواسطة الدالة LOG في Excel.

المثال 2: حساب السجل الطبيعي باستخدام VBA

لحساب اللوغاريتم الطبيعي لقيمة في إكسيل، نستخدم الدالة LN كما يلي:

يخبرنا هذا أن اللوغاريتم الطبيعي لـ 5 هو 1.609438 .

لتكرار هذه الوظيفة في VBA، يمكننا تحديد الوظيفة التالية:

 Function FindNaturalLog(number)
FindNaturalLog = Log(number)
End Function

يمكننا بعد ذلك كتابة هذه الدالة في الخلية B2 لحساب اللوغاريتم الطبيعي للقيمة في الخلية B1 :

هذا يخبرنا أن سجل 5 هو 1.609438 .

وهذا يتوافق مع القيمة المحسوبة بواسطة الدالة LN في Excel.

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

فبا: كيفية كتابة وظائف AVERAGEIF وAVERAGEIFS
فبا: كيفية كتابة وظائف SUMIF وSUMIFS
VBA: كيفية كتابة وظائف COUNTIF وCOUNTIFS