العمليات الحسابية المعقدة مع الاكسل
من المعروف ان من اهم الوظائف التي يقوم بها برنامج الاكسل هي القيام بالعمليات الحسابية المعقدة جدا . لذلك سنتعرف اليوم على كيفية ربط برنامج الاكسل و ادخال العبارات الحسابية اليه ثم اخراج النتائج .
اولا: من قائمة Project اختر Add Reference , من علامة التبويب com اختر العنصر Microsoft Excel 10 Object Library ثم اضغط OK .
ثانيا: اضف زر امر و اكتب الكود الاتي:
'يمثل هذا المتغير برنامج الاكسل
Dim exl As New Excel.Application()
'سنخزن في هذا المتغير عبارة رياضية معقدة
Dim mathStr As String
'امكانية ادخال العبارات الرياضية من المستخدم
mathStr = InputBox("Enter math expression to evaluate", , _
"cos(56.7/4)/exp(-4.269)")
If mathStr <> "" Then
Try
'اظهار نتيجة العبارة الرياضية
MsgBox(exl.Evaluate(mathStr).ToString)
'في حال وجود خطأ
catch exc As Exception
MsgBox(exc.Message)
End Try
End If
Please SUBSCRIBE to get new articles directly into your Email inbox!
من المعروف ان من اهم الوظائف التي يقوم بها برنامج الاكسل هي القيام بالعمليات الحسابية المعقدة جدا . لذلك سنتعرف اليوم على كيفية ربط برنامج الاكسل و ادخال العبارات الحسابية اليه ثم اخراج النتائج .
اولا: من قائمة Project اختر Add Reference , من علامة التبويب com اختر العنصر Microsoft Excel 10 Object Library ثم اضغط OK .
ثانيا: اضف زر امر و اكتب الكود الاتي:
'يمثل هذا المتغير برنامج الاكسل
Dim exl As New Excel.Application()
'سنخزن في هذا المتغير عبارة رياضية معقدة
Dim mathStr As String
'امكانية ادخال العبارات الرياضية من المستخدم
mathStr = InputBox("Enter math expression to evaluate", , _
"cos(56.7/4)/exp(-4.269)")
If mathStr <> "" Then
Try
'اظهار نتيجة العبارة الرياضية
MsgBox(exl.Evaluate(mathStr).ToString)
'في حال وجود خطأ
catch exc As Exception
MsgBox(exc.Message)
End Try
End If
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق