প্রোগ্রামিং ইন এক্সেলঃ Solution to Quadratic Equation

১৪ ই মে, ২০১৬ সন্ধ্যা ৭:১৯

“ax^2+bx+c=0” দ্বি-ঘাত সমীকরন বা কোয়াড্রাটিক ইকুয়েশন সমাধানের সরাসরি কোন ফর্মুলা এম এস এক্সেলের বিল্ট-ইন ফাংশন গুলোর মধ্যে নাই।
কিন্তু নিচের “VBA” কোড টি ব্যবহার করে সহজেই কোয়াড্রাটিক ইকুয়েশনের সমাধান বের করা যায়।
এর জন্য প্রথমে এক্সেল ওয়ার্কবুক ওপেন করে “Alt+F11” দিয়ে “VBA” এডিটর এনে তার “Insert” এ গিয়ে “Module” এ কোড টি পেষ্ট করতে হবে।
পেষ্ট করে “F5” প্রেস করলে পর পর তিনটা বক্স আসবে।
তিন টা বক্সের প্রথম বক্সে বসবে আমাদের কোয়াড্রাটিক ফর্মের “a” এর মান, যা “x-square” এর কোইফিশিয়েন্ট হিসাবে থাকে।
দ্বিতিয় বক্সে হবে কোয়াড্রেটিক ফর্মের “b” এর মান, যা “x” এর কোইফিশিয়েন্ট হিসেবে থাকে।
আর তৃতীয় বক্সে হবে কোয়াড্রেটিক ফর্মের “c” এর মান যা ইকুয়েশনে কন্সটান্ট হিসাবে থাকে।
বক্সগুলোতে সংখ্যা বসানের ক্ষেত্রে যে বিষয় গুলে খেয়াল রাখা দরকারঃ
১. বক্স গুলো ক্রস দিয়ে কেটে ক্লোজ করা যাবে না।
২. একটি বক্সে সংখ্যা বসিয়ে “OK” ক্লিক করলে বা “Enter” চাপলেই পরে বক্স চলে আসবে।
৩. কোন বক্স খালি রেখে “ OK” বা “Enter” চাপা যাবে না।
৪. তিনটি বক্সে সংখ্যা বসিয়ে “OK” করার পর চতুর্থ আরেকটি বক্সে সমাধান দু’টি দেখবে। এবার চতুর্থ বক্সে “OK” করলে শীটের Cell “B1” ও Cell “B2” তেও সমধান দু’টি দেখাবে।
কোডটি হলঃ

Sub qdrSolution()
Dim a As Long
Dim b As Long
Dim c As Long
a = InputBox("Inset Coeffecient of x-square:")
b = InputBox("Inset Coefficient of x:")
c = InputBox("Inset Value of the Constant:")
Dim d As Long
d = b ^ 2 - 4 * a * c
If d < 0 Then
MsgBox ("The Quadratic Equation is inValid!")
End If
If d >= 0 Then
Dim xBig As Long
xBig = (-b + d ^ (1 / 2)) / (2 * a)
Dim xSmall As Long
xSmall = (-b - d ^ (1 / 2)) / (2 * a)
MsgBox ("The Solutions are: " & xBig & " and " & xSmall)
End If
Range("b1").Value = xBig
Range("b2").Value = xSmall
With Range("a1")
.Value = "x1=" '(sic)
.Characters(Start:=2, Length:=1).Font.Subscript = True
End With
With Range("a2")
.Value = "x2=" '(sic)
.Characters(Start:=2, Length:=1).Font.Subscript = True
End With
End Sub

০ টি +০/-০