Chào bạnngo15 đã viết:
Bạn có thể dùng Onkey để kiểm tra phím bấm. Để nhập nhanh, tôi quy định số 0, 1, 2, ..., 9 nhập bình thường. Số 10 nhập bằng phím "m".ongtrungducmx25 đã viết:xin cho hỏi có cách nào nhập điểm nhanh không cần phải nhấn phím Tab hoặc enter không khi em nhập điểm từ {0;1;.....;10} có cách nàp nhập điểm liên tục không em có file đính kèm nhờ báo giải đáp thất mất của em ?
pen hoạt động và gán Onkey vào các phím và thủ tục tương ứng.
Sub Auto_Open()
Application.Onkey "0", "Khong"
Application.Onkey "1", "Mot"
Application.Onkey "2", "Hai"
Application.Onkey "3", "Ba"
Application.Onkey "4", "Bon"
Application.Onkey "5", "Nam"
Application.Onkey "6", "Sau"
Application.Onkey "7", "Bay"
Application.Onkey "8", "Tam"
Application.Onkey "9", "Chin"
Application.Onkey "m", "Muoi"
End Sub
Sub Auto_Close()
Application.Onkey "0"
Application.Onkey "1"
Application.Onkey "2"
Application.Onkey "3"
Application.Onkey "4"
Application.Onkey "5"
Application.Onkey "6"
Application.Onkey "7"
Application.Onkey "8"
Application.Onkey "9"
Application.Onkey "m"
End Sub
Sub Khong()
ActiveCell.Value = 0
r = ActiveCell.Row
c = ActiveCell.Column
NhapDiem r, c
End Sub
Sub Mot()
ActiveCell.Value = 1
r = ActiveCell.Row
c = ActiveCell.Column
NhapDiem r, c
End Sub
Sub Hai()
ActiveCell.Value = 2
r = ActiveCell.Row
c = ActiveCell.Column
NhapDiem r, c
End Sub
Sub Ba()
ActiveCell.Value = 3
r = ActiveCell.Row
c = ActiveCell.Column
NhapDiem r, c
End Sub
Sub Bon()
ActiveCell.Value = 4
r = ActiveCell.Row
c = ActiveCell.Column
NhapDiem r, c
End Sub
Sub Nam()
ActiveCell.Value = 5
r = ActiveCell.Row
c = ActiveCell.Column
NhapDiem r, c
End Sub
Sub Sau()
ActiveCell.Value = 6
r = ActiveCell.Row
c = ActiveCell.Column
NhapDiem r, c
End Sub
Sub Bay()
ActiveCell.Value = 7
r = ActiveCell.Row
c = ActiveCell.Column
NhapDiem r, c
End Sub
Sub Tam()
ActiveCell.Value = 8
r = ActiveCell.Row
c = ActiveCell.Column
NhapDiem r, c
End Sub
Sub Chin()
ActiveCell.Value = 9
r = ActiveCell.Row
c = ActiveCell.Column
NhapDiem r, c
End Sub
Sub Muoi()
ActiveCell.Value = 10
r = ActiveCell.Row
c = ActiveCell.Column
NhapDiem r, c
End Sub
Sub NhapDiem(r, c)
c1 = Selection.Column
c2 = Selection.Columns.Count + c1 - 1
If c < c2 Then
Cells(r, c + 1).Activate
ElseIf c = c2 Then
Cells(r + 1, c1).Activate
End If
End SubChào Longphamduylong đã viết:
Chào bạnthanhle đã viết:
phamduylong đã viết:Bạn có thể dùng Onkey để kiểm tra phím bấm. Để nhập nhanh, tôi quy định số 0, 1, 2, ..., 9 nhập bình thường. Số 10 nhập bằng phím "m".
Hoạt động của Onkey nhu sau:
- Khi mở nhapdiemnhanh01.xls, thủ tục Aut
- Bạn chọn trước 1 vùng, nhập điểm vào, ô hoạt động (Activate) sẽ dời từ trái sang phải, từ trên xuống dưới vùng chọn.
- Muốn nhập bình thường bạn phải kết thúc nhapdiemnhanh01.xls hoặc chạy Sub Auto_Close để giải phóng Onkey
Trong thực tế, điểm kiểm tra (miệng, viết) của học sinh không có phần thập phân. Chỉ có điểm kiểm tra định kỳ (8 tuần, học kỳ I, 24 tuần và học kỳ II) mới lấy phần lẻ.thanhle đã viết:
Sub Muoi()
ActiveCell.Value = 10
NhapDiem
End Sub
Sub NhapDiem()
r = ActiveCell.Row
c = ActiveCell.Column
c1 = Selection.Column
c2 = Selection.Columns.Count + c1 - 1
If c < c2 Then
Cells(r, c + 1).Activate
ElseIf c = c2 Then
Cells(r + 1, c1).Activate
End If
End Sub
Đề nghị bạn xây dựng hoàn chỉnh cơ sở dữ liệu, sau đó xây dựng các chức năng phục vụ khai thác cơ sở dữ liệu đó - Có thể sử dụng các bài viết đã nêu. Không nên chắp vá như thế này khó theo dõi và hoàn thiện được.ongtrungducmx25 đã viết:
Điểm lấy đến một chữ số thập phân sau khi đã làm tròn số có nghĩa là sau khi làm tròn số, điểm có tối đa 1 số thập phân. Ví dụ:thanhle đã viết:
Chào bạnthanhle đã viết:
Các bạn ơi đã có phần mềm của Thầy Trần Hải Long (Bến tre) cũng hay lắm.ongtrungducmx25 đã viết:
Nếu để tránh phiền thì bạn vào chỗ này tải về vậy ( mình thấy từ chỗ này:http://diendan.edu.net.vn/forums/thread/322021.aspx )tedaynui đã viết:
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 Subvoda đã viết:
Public ii As Integer, i As Integer, kk As Integer, k As Integer, c As Integer, r As Long
Không phải đâu bạn ạ! Chỉnh như thế không ảnh hưởng gì đến chương trình cả. Chỉ là mở rộng phạm vi của biến thôi.
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 = ""
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
haitcv đã viết:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Er As Integer, Max As Integer
If Not Intersect(Range("C2:C100"), Target) Is Nothing Then
Er = Range("C1000").End(xlUp).Row
For i = 9 To Er
Max = Application.WorksheetFunction.Max(Range("B8:B" & i - 1))
If Cells(i, 2).MergeCells = False Then
Cells(i, 2).Value = Max + 1
End If
Next i
End If
[COLOR="Red"]If Not Intersect(Range("C35"), Target) Is Nothing Then
ActiveWindow.SmallScroll down:=20
End If[/COLOR]
End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim Er As Integer, Max As Integer
If Not Intersect(Range("C2:C100"), Target) Is Nothing Then
Er = Range("C1000").End(xlUp).Row
For i = 9 To Er
Max = Application.WorksheetFunction.Max(Range("B8:B" & i - 1))
If Cells(i, 2).MergeCells = False Then
Cells(i, 2).Value = Max + 1
End If
Next i
End If
If Not Intersect(Range("C9:C53"), Target) Is Nothing Then
ActiveWindow.SmallScroll down:=1
End If
End Sub
Ý của bạn là muốn nhập liền điểm mà không cần dùng phím Enter hay mũi tên đúng không. Tôi có làm một tiện ích nhập điểm giống ý tưởng của bạn. Ví dụ nếu như nhập chuỗi 7065012010 thì sẽ tự động tách thành các điểm 7; 6,5; 1; 2; 10 và đưa vào các ô liên tiếp. Bạn thử tham khảo tiện ích quản lý điểm tại https://sites.google.com/site/xuanhoa7604/ xem có đúng ý như thế không. Đọc hướng dẫn nhập trong file hướng dẫn.xin cho hỏi có cách nào nhập điểm nhanh không cần phải nhấn phím Tab hoặc enter không khi em nhập điểm từ {0;1;.....;10} có cách nàp nhập điểm liên tục không em có file đính kèm nhờ báo giải đáp thất mất của em ?
