Public ii As Integer, i As Integer, kk As Integer, k As Integer, c As Integer, r As Integer
Private Sub MultiInput_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim diem, diemtam
diemtam = MultiInput.Value
If Len(diemtam) > 1 Then
MultiInput.Value = ""
Exit Sub
End If
' / : cong them 0.3 diem
If diemtam = "/" Then
If k = kk Then
k = kk + c
i = i - 1
End If
k = k - 1
Cells(i, k).Value = Cells(i, k).Value + 0.3
diemruoi = "*"
GoTo End_:
End If
' * : cong them 0.5 diem
If diemtam = "*" Then
If k = kk Then
k = kk + c
i = i - 1
End If
k = k - 1
Cells(i, k).Value = Cells(i, k).Value + 0.5
diemruoi = "*"
GoTo End_:
End If
' - : cong them 0.8 diem
If diemtam = "-" Then
If k = kk Then
k = kk + c
i = i - 1
End If
k = k - 1
Cells(i, k).Value = Cells(i, k).Value + 0.8
diemruoi = "*"
GoTo End_:
End If
If diemtam = "+" Then
diem = 10
ElseIf diemtam = "." Then
GoTo End_:
Else
diem = diemtam
End If
Cells(i, k).Value = diem
End_:
MultiInput.Value = ""
k = k + 1
If k = kk + c Then
k = kk
i = i + 1
If i = ii + r Then Unload Me
End If
End Sub
Private Sub UserForm_Initialize()
i = ActiveCell.Row
ii = i
k = ActiveCell.Column
kk = k
c = Application.Selection.Columns.Count
r = Application.Selection.Rows.Count
End Sub
