Có cách nào sửa lỗi nhập điểm không!

[voda]

Mình đã chỉnh xong

 

[ongtrungducmx25]

trời chỉ chỉnh lại một chút síu mà mình không biết, em cứ thêm vào các dòng lệnh case 1 to 2 , 2 to 3 cho nên nó báo lổi! thank nhiều pác voda

 

[ongtrungducmx25]

em muốn nhập 3 chữa số thi phải làm sao đâyVd: nhập hệ số lương: 4,89; 3,96; 3,34 ........thì phải chỉnh lại như thế nào pác voda nhé!

 

[kongcom]

Hy vọng bạn sẽ không có bài nhờ sửa code để gõ 4 hay 5 hay 6 chữ số nữa nhé ?
Tại sao lại lãng phí chất xám thế hả các bạn ?

 

[voda]

Bạn chỉnh code lại như sau:

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)
  Range(Cells(ii, kk), Cells(ii + r - 1, kk + c - 1)).Select
  Dim diem, diemtam
  diemtam = MultiInput.Value
      If Len(diemtam) > 3 Then
             MultiInput.Value = ""
             Exit Sub
      End If
     If Len(diemtam) < 3 Then Exit Sub
     If Len(diemtam) = 3 Then
             Cells(i, k).Value = diemtam / 100
             MultiInput.Value = ""
     End If
           k = k + 1
     If k = kk + c Then
             k = kk
             i = i + 1
      If i = ii + r Then
             Cells(1, 1).Select
             Unload Me
      End If
      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

 

[kebatbongNGT]

Các cách nhập của các bác đưa ra chưa giải quyết được nhập con điểm kiểm tra của hS ví như phải nhập dãy điểm sau vào vùng chọn: 8;5;9;10;3;10 thì sao nhỉ ????có cách không hả các bác?

 

[ongtrungducmx25]

Nếu bạn muốn gõ vào 10 thì bạn gõ vào dấu” + “ thì nó cho ra là 10 nhé!

 

[kebatbongNGT]

Nếu bạn muốn gõ vào 10 thì bạn gõ vào dấu” + “ thì nó cho ra là 10 nhé!

À đúng rồi, bây giờ em mới đọc code của bác. Vậy ta đã giải quyết xong vấn đề nhập điểm hàng ngày của học sinh rồi. Nhanh hơn cách nhập thông thường. Hay! Cảm ơn bác đã đưa ra một ý tưởng hay để mọi người thảo luận.