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

...
'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


...