মাইক্রোসফট এক্সেল এ VBA ডেভেলপার অপশন আছে। এই অপশন ব্যাবহার করতে চাইলে প্রথমেই আমাদের মেনুবারে “Developer” ট্যাব নিয়ে আসতে হবে। তার জন্য যা করা প্রয়োজন, তা হল, ফাইল মেনুতে গিয়ে সবার নীচের “Execl Option” নির্বাচন করতে হবে। তার পর “Popular” সিলেক্ট করে “Top Options for Working with Excel” এর তিন নম্বর অপশন অর্থাৎ “Show Developer Tab in the Ribbon” নির্বাচন করে ওকে করলেই মেনু বারে “Developer” ট্যাব দেখা যাবে।
আর যদি আগে থেকেই “Developer Tab” মেনু-রিবনে দেখানো থাকে তাহলে আর এই প্রক্রিয়ার দরকার নাই।
এবার “Developer” ক্লিক করলেই বেশকিছু “Option” দেখা যাবে।
এর পর মেনুতে গিয়ে “Save As” এ গিয়ে ফাইলটাকে একটা “Excel Macro-Enabled Workbook” হিসবে সেভ করতে হবে।
এর পরে এই “Workbook” টি “Close” করে “Excel Macro-Enabled Workbook” ওয়ার্কবুকটি “Open” করতে হবে।
এবার “Excel Macro-Enabled Workbook” এর “Developer” ট্যাবে গিয়ে “Insert” সিলেক্ট করে নিচের “ActiveX control” গ্রুপের প্রথমের আইটেম “Command Button” সিলেক্ট করতে হবে। সিলেক্ট করার পর Mouse Pointer এ একটা “ +” চিহ্ন দেখাবে। এখন শীটের যেকোন যায়গায় "+" টি ড্র্যাগ করলে একটা ”Button” তৈরী হবে।
এই বাটনের উপর রাইট ক্লিক দিয়ে “CommandButton Object ” এর “Edit” সিলেক্ট করে এর উপর লেখা টেক্সট এডিট করে ইচ্ছানুযায়ী এর যে কোন নাম দেয়া যাবে।
নাম ধরা যাক এর নাম দেয়া হবে “Age Calculator”
নাম এডিট করে এর উপর আবার রাইট ক্লিক দিয়ে “View Code” অপশন সিলেক্ট করলে একটা নতুন উইন্ডো আসবে, যেখানে লেখা থাকবে:
Private Sub CommandButton1_Click()
End Sub
এই দুইটি লাইনের মাঝখানে নিচের কোড টি পেষ্ট করতে হবেঃ
Dim e As String
Dim a As Date ' Date of birth
Dim b As Date ' Age on date
Dim c As Date ' Temp date
Dim d As Date ' temp date
e = InputBox("Insert Your Name:")
a = InputBox("Inerst your Date of Birth:")
b = InputBox("Isert the date you want to calculate your age on:")
Dim x As Integer
x = DateDiff("yyyy", a, b) - IIf(Month(b) < Month(a), 1, 0)
Dim y As Integer
c = DateAdd("yyyy", x, a)
y = DateDiff("m", c, b) - IIf(Day(b) < Day(a), 1, 0)
Dim z As Integer
d = DateAdd("m", y, c)
z = DateDiff("d", d, b)
MsgBox ("Hey " & e & "! " & "Your age on " & b & " is: " & x & "Years " & y & " Months " & z & " Days")
Range("a1").Value = "Your age on " & b & " is: " & x & " Years " & y & " Months " & z & " Days"
MsgBox থেকে Days") পর্যন্ত এক লাইনে হবে আর Range("a1") থেকে Days" পর্যন্তও একই লাইনেই হবেে ( ফেবুতে লাইন ভাঙ্গা দেথাতে পারে)। তার পর এই "Window" এরই ”সেভ” বাটনের মাধ্যমে সেভ করতে হবে।
Save করে এই “Window” টা “Close” করলে “Excel Worksheet” ফিরে আসবে। আসার পর “Design Mode” এর উপর একটা “Click” দিয়ে “Design Mode” থেকে হলুদ দাগ দুর করে ইনসার্টকৃত “Button” একটা Click দিলেই একে একে নাম ও তারিখ ইনপুট দিতে বলবে। এক্ষেত্রে পত্যক ধাপে “Ener” চাপতে হবে অথবা “OK” ক্লিক করতে হবে। এ প্রকৃয়ায় মোট তিন টা স্টেপঃ নাম, জন্ম তারিখ ও যে তারিখে বয়স বের করা হবে সেটা। তিনটা Step শেষ না করে ইনপুট বক্স Close করলে এরর দেখাবে। তারিখ সঠিক ভাবে হিসাব করা হবে না।