Giúp em học VBA bằng bài tập xếp loại học sinh

[nguyenmanhnam]

Đề bài của em tức dữ liệu đầu vào ở cột A, kết quả sẽ ra tương ứng ở cột B. Điều kiện xếp loại như sau ah:
- Nếu điểm nhập nhỏ hơn 0 hoặc lớn hơn 10. Kết quả ra đáp số là không hợp lệ.
- Nếu dữ liệu nhập vào cột A >=8. Kết quả là HSG
- Nếu dữ liệu cột A>=7. Kết quả là HSTT
- Nếu dữ liệu >=5. Kết quả là TB
- Nếu dữ liệu >=0. Kết quả Yếu.
Hôm qua em mới nghiên cứu bài đầu tiên của thày ptm0412 và thày Ndu. Em rất cần bài đơn giản như bài này để nghiên cứu hoàn thiện If then và Fox Next. Kính mong các thày giúp đỡ.

 

[Dauthivan]

Hihi, mình hiểu ý bạn rồi, đại khái nó sẽ như thế này,thằng For Next chỉ tham gia việc chọn giá trị từng Cell và chọn Cell chứa kết quả, việc tính toán xếp loại là của thằng If

Public Sub XepLoai()
    Dim VungDiem As Range, I As Integer
    Set VungDiem = Range([a2], [a1000].End(xlUp))
        For I = 1 To VungDiem.Rows.Count
            [B]If VungDiem(I) < 0 Or VungDiem(I) > 10 Then[/B] [B]VungDiem(I).Offset(, 1) = "Nh" & ChrW(7853) & "p " & ChrW(273) & "i" & ChrW(7875) & "m t" & ChrW(7847) & "m b" & ChrW(7853) & "y"[/B]
            If VungDiem(I) >= 8 Then
                VungDiem(I).Offset(, 1) = "HSG"
            ElseIf VungDiem(I) >= 7 Then
                VungDiem(I).Offset(, 1) = "HSTT"
            ElseIf VungDiem(I) >= 5 Then
                VungDiem(I).Offset(, 1) = "HSTB"
            Else
                VungDiem(I).Offset(, 1) = "HSY"
            End If
        Next I
End Sub

Thân

Em chưa hiểu được dòng bôi đậm ở trên, xin nhờ các anh chị, các thày chỉ giúp./.

 

[ndu96081631]

Em chưa hiểu được dòng bôi đậm ở trên, xin nhờ các anh chị, các thày chỉ giúp./.

Chắc bạn đang nói đến dòng "Nh" & ChrW(7853) & "p " & ChrW(273) & "i" & ChrW(7875) & "m t" & ChrW(7847) & "m b" & ChrW(7853) & "y"
Vì không thể gõ tiếng Việt trực tiếp trong cửa sổ VBA nên buộc phải "biến đổi" thế
Bạn có thể thí nghiệm vầy:

Sub Test()
  Range("A1").Value = "Nh" & ChrW(7853) & "p " & ChrW(273) & "i" & ChrW(7875) & "m t" & ChrW(7847) & "m b" & ChrW(7853) & "y"
End Sub

Sẽ biết dòng ấy nói gì

 

[Dauthivan]

Chắc bạn đang nói đến dòng "Nh" & ChrW(7853) & "p " & ChrW(273) & "i" & ChrW(7875) & "m t" & ChrW(7847) & "m b" & ChrW(7853) & "y"
Vì không thể gõ tiếng Việt trực tiếp trong cửa sổ VBA nên buộc phải "biến đổi" thế
Bạn có thể thí nghiệm vầy:

Sub Test()
  Range("A1").Value = "Nh" & ChrW(7853) & "p " & ChrW(273) & "i" & ChrW(7875) & "m t" & ChrW(7847) & "m b" & ChrW(7853) & "y"
End Sub

Sẽ biết dòng ấy nói gì

Vâng, bác Concogia vui tính quá làm em luận mãi chẳng được. Nhờ các thày chỉ bảo sau gần 1 tuần nghiên cứu giờ em đã bắt đầu tự tập những bài toán nho nhỏ ruj ah.