Chỉ mình với mình đang cần làm. Cảm ơn bạn
Như hình dưới với Excel 2010. Số 1 ở Places dưới mục Automatically insert a decimal point tương ứng với việc nhập số 1 nhấn Enter thì sẽ thành 0,1, tương tự với nhập các số tự nhiên >1. Muốn bỏ chế độ này thì bỏ dấu tích / OK
Thì lại dùng VBA gánh
)))
Chưa cần VBA. Kết hợp với validation là được.Thì lại dùng VBA gánh
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EH
Application.EnableEvents = False
Dim Cell As Range, TargetRange As Range
' Thiet lap vung nhap so can xu ly tu dong decimal
Set TargetRange = Me.Range("A2:A10")
If Not Intersect(Target, TargetRange) Is Nothing Then
For Each Cell In Target
' Bo qua su kien khi xoa nguyen cot --> se chay vong lap het 1.048.576 dong
If Target.Cells.Count > 1 Then
Application.EnableEvents = True
Exit Sub
End If
' Nhap 4 chu so => >10
If IsNumeric(Cell.Value) And Len(Cell.Value) > 3 Then
MsgBox "So lon hon thang diem 10."
Cell.Value = ""
Application.EnableEvents = True
Exit Sub
End If
If IsNumeric(Cell.Value) And Cell.Value <> 10 Then
Select Case Len(Cell.Value)
Case 2
Cell.Value = Cell.Value / 10
Case 3
Cell.Value = Cell.Value / 100
End Select
ElseIf Not IsNumeric(Cell.Value) Then 'Nhap chu
Cell.Value = ""
End If
Next Cell
End If
EH_Exit:
Application.EnableEvents = True
Exit Sub
EH:
MsgBox "An error occurred: " & Err.Description
Resume EH_Exit
End SubVí dụ: nhập 875 --> 8.75 điểm. 10 điểm thì nhập 10 thôi.
Nhập 10 thì vào Case len = 2: Cell.Value = Cell.Value / 10
Tôi sai. Vậy phải có hướng dẫn rằng điểm tròn chỉ gõ 1 con, riêng điểm 10 tròn gõ 2 con, điểm thập phân tối đa 2 thập phân, chỉ gõ 3 con.
Từ hồi gõ máy tính Casio là đã tập gõ nhanh được rồi. Máy tính bàn thì không nói (có sẵn numpad), laptop thì người thường xuyên gõ số như tôi thì chọn mua loại có numpad sẵn. Code này nọ tưởng nhanh mà sẽ chậm chỗ khác, mà qua máy khác làm không có code thì lại lúng túng càng sinh ra chậm.
