নিজেই তৈরি করুন বায়োলজিক ডেটা এন্ট্রি সফটওয়্যার মাইক্রোসফট এক্সেলে দিয়ে -Create your own Biologic Data Entry Software with Microsoft Excel

বায়োলজিক ডেটা ইউজারফর্ম এক্সেল Vba প্রোগ্রামিং শেখার জন্য একটি দরকারী উদাহরণ।

ওয়ার্কশীটে বায়োলজিক ডেটা প্রবেশ করার জন্য ইউজারফর্ম

এক্সেল বায়োলজিক ডেটা ইউজারফর্মের মাধ্যমে, ব্যক্তির শারীরিক গুণাবলী - উচ্চতা, ওজন, গাত্রবর্ণ, চুলের রঙ- এবং ব্যক্তিদের শিক্ষা ও অভিজ্ঞতার তথ্য - শিক্ষা, কাজের ক্ষেত্র, শিক্ষা স্তর, বিশ্ববিদ্যালয়, বছরের অভিজ্ঞতা- দুটি বিশেষভাবে শ্রেণীবদ্ধ করা যেতে পারে। বিভাগ (ফ্রেম নিয়ন্ত্রণ)। তারপর, সেভ বাটন টিপলে, এই তথ্যটি ওয়ার্কশীটের কলামগুলিতে সংরক্ষিত হয়।

এই বায়োলজিক ডেটা ফর্মে, উচ্চতা, ওজন, বর্ণ, চুলের রঙ এবং শিক্ষা এবং অভিজ্ঞতার মতো শারীরিক বৈশিষ্ট্য দুটি নির্দিষ্ট ফ্রেমে শ্রেণীবদ্ধ করা যেতে পারে। ফ্রেম দুটি বা ততোধিক OptionButtons গ্রুপ করার জন্য বিশেষভাবে উপযোগী।

এই ফর্মের অধ্যায়ের শিরোনাম:

-নাম

-লিঙ্গ

-বয়স

-উচ্চতা

-ওজন

- জটিলতা

-চুলের রঙ

-কাজ ক্ষেত্র

-শিক্ষা স্তর

-বিশ্ববিদ্যালয়

-বছরের অভিজ্ঞতা

এক্সেল ভিবিএ ফ্রেম ফ্রেমস ইউজারফর্ম কন্ট্রোল আইটেম গ্রুপ করার জন্য বিশেষভাবে উপযোগী। এক্সেল ইউজারফর্ম ফ্রেম

আমরা ইউজারফর্মে তালিকা বাক্সগুলি পূরণ করতে Vba লুপ ব্যবহার করেছি।

...
'For more : https://karimexcelvba.blogspot.com/
Private Sub cmd1_Click()
Dim RowCount As Long
    Dim ctl As Control
    
    RowCount = Worksheets("Data").Range("A1").CurrentRegion.Rows.Count
    With Worksheets("Data").Range("A1")
        .Offset(RowCount, 0).Value = Me.text1.Value
        .Offset(RowCount, 1).Value = IIf(opt1.Value, "Male", "Female")
               
       For Each ctl In Me.Controls
If TypeOf ctl Is msforms.OptionButton Then
If ctl.GroupName = "Complexion" Then
If ctl.Value = True Then
Worksheets("Data").Range("A1").Offset(RowCount, 5).Value = ctl.Caption
End If
End If
If ctl.GroupName = "Hair" Then
If ctl.Value = True Then
Worksheets("Data").Range("A1").Offset(RowCount, 6).Value = ctl.Caption
End If
End If
If ctl.GroupName = "EduLevel" Then
If ctl.Value = True Then
Worksheets("Data").Range("A1").Offset(RowCount, 8).Value = ctl.Caption
End If
End If
End If
Next ctl
                         
        .Offset(RowCount, 2).Value = Me.list1.Text
        .Offset(RowCount, 3).Value = Me.list2.Text
        .Offset(RowCount, 4).Value = Me.list3.Text
        .Offset(RowCount, 7).Value = Me.list4.Text
        .Offset(RowCount, 9).Value = Me.text2.Text
        .Offset(RowCount, 10).Value = Me.list5.Text
        .Offset(RowCount, 11).Value = VBA.Format(Now, "dd.mm.yyyy hh:nn:ss")
    End With
End Sub

Private Sub cmd2_Click()
' Clear the form
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ListBox" Then
            ctl.Value = ""
        ElseIf TypeName(ctl) = "OptionButton" Then
            ctl.Value = False
        End If
    Next ctl
End Sub

Private Sub cmd3_Click()
Unload Me
End Sub


Private Sub UserForm_Initialize()
'Set properties of Controls on initialization of UserForm.

Dim i As Integer
Dim myArray As Variant
RemoveCloseButton Me
'enter value in "Name" TextBox of UserForm:
Me.text1.Value = "Enter Your Name"

'set Caption for the 2 Frames:
Me.frm1.Caption = "Physical Attributes"
Me.frm2.Caption = "Education & Experience"

opt1.GroupName = "Gender"
opt2.GroupName = "Gender"
'populate ListBox of "Age" in the UserForm:
With Me.list1

For i = 1 To 100

.AddItem i & " yrs"

Next i
End With

'populate ListBox of "Height" in the Frame "Physical Attributes":

With Me.frm1.list2

For i = 140 To 200

.AddItem i & " cms"

Next i

End With


'populate ListBox of "Weight" in the Frame "Physical Attributes":
With Me.frm1.list3

For i = 80 To 250

.AddItem i & " lbs"

Next i

End With


'populate ListBox "Field of Work" in the frame "Education & Experience":
myArray = Array("Finance", "Banking", "Medical", "Engineering", "Marketing", "Management", "Airlines", "Others")
Me.frm2.list4.List = myArray

'populate ListBox of "Exp in Years" in the Frame "Education & Experience":
With Me.frm2.list5

For i = 1 To 50

.AddItem i & " yrs"

Next i

End With

'Group OptionButtons:
With Me.frm1

opt3.GroupName = "Complexion"
opt4.GroupName = "Complexion"

opt5.GroupName = "Complexion"

opt6.GroupName = "Hair"
opt7.GroupName = "Hair"
opt8.GroupName = "Hair"
opt9.GroupName = "Hair"

End With

Me.frm2.opt10.GroupName = "EduLevel"
Me.frm2.opt11.GroupName = "EduLevel"
Me.frm2.opt12.GroupName = "EduLevel"

'enter value in "University/Institution" TextBox of the Frame "Education & Experience":
Me.frm2.text2.Value = "Enter Name"

End Sub

Private Sub text1_Enter()

'on selection, clears "Name" TextBox of UserForm
Me.text1.Value = Empty

End Sub
 
Private Sub text2_Enter()

'on selection, clears "University/Institution" TextBox of the Frame "Education & Experience"
Me.frm2.text2.Value = Empty

End Sub


...

নিজেই তৈরি করুন বায়োলজিক ডেটা এন্ট্রি সফটওয়্যার মাইক্রোসফট এক্সেলে দিয়ে -Create your own Biologic Data Entry Software with Microsoft Excel