Lỗi IF trong VBA khi tính điểm (1 người xem)

[daydien789]

Sub kiem_tra()
Dim CN As Long
Dim HL, GC As String

CN = Range("G3").Value

If CN >= 8 Then 'Neu Diem CN >= 8 thi se la gioi
HL = "Gioi"
ElseIf CN < 8 Then ' Neu diem CN >=6.5 va < 8 thi se la kha
HL = "Kha"
ElseIf CN < 6.5 Then ' Neu diem CN >= 5 va < 6.5 thi se la trung binh
HL = "Trung binh"
ElseIf CN < 5 Then ' Neu diem < 5 thi se la Yeu
HL = Yeu
ElseIf CN < 3.5 Then ' Neu diem < 3.5 thi se "O lai lop"
GC = "O lai lop"
ElseIf CN > 5 Then ' Neu diem > 5 thi se "Duoc len lop"
GC = "Duoc len lop"
End If

Range("H3").Value = HL
Range("I3").Value = GC
End Sub

- Mọi người xem giùm mình sai ở khúc nào vậy.
- Lúc mình nhập điểm 6.5 và 5 vô tự nhiên là "Khá".
- Nhập 7.5 là "Giỏi".
- Còn phần ghi chú thì không để là "Ở lại lớp" hay là "Lên lớp" gì cả.

 

[doveandrose]

xem lại dòng này
Dim CN As Long

 

[daydien789]

xem lại dòng này
Dim CN As Long

Mình thử chuyển qua dạng Byte và Integer rồi vẫn vậy

 

[doveandrose]

uhm bạn chuyển qua 2 dạng đó vẫn vậy là quá đúng => máy tính của bạn vẫn hoạt động tốt
bạn nên ghi là
Dim CN As double

 

[daydien789]

uhm bạn chuyển qua 2 dạng đó vẫn vậy là quá đúng => máy tính của bạn vẫn hoạt động tốt
bạn nên ghi là
Dim CN As double

Nói tóm lại là, mình đã chuyển sang dạng Byte,Integer,Long,Single,Double,Currency,Boolean đều không được

 

[doveandrose]

Nói tóm lại là, mình đã chuyển sang dạng Byte,Integer,Long,Single,Double,Currency,Boolean đều không được

bạn đừng để người khác nói mình "nói l... như cuội "

 

[doveandrose]

ăn cơm xong tỉnh táo lại mới thấy bạn có vài chỗ cần sửa

If CN >= 8 Then 'Neu Diem CN >= 8 thi se la gioi
HL = "Gioi"
ElseIf CN < 8 Then ' Neu diem CN >=6.5 va < 8 thi se la kha

điều này vô nghĩa . không cần phải có kiến thức gì về VBA . chỉ cần đã từng dùng hàm if trong excel thông thường cũng hiểu
bên trong cái ElseIf thì đã đương nhiên là < 8 rồi , ghi ElseIf CN < 8 để làm gì ?

ElseIf CN < 3.5 Then ' Neu diem < 3.5 thi se "O lai lop"
GC = "O lai lop"
ElseIf CN > 5 Then ' Neu diem > 5 thi se "Duoc len lop"

>5 => lên lớp
<3.5 => ở lại lớp
=> các học sinh trong khoảng 3.5 đến 5 phải chuyển trường vì không được xét lên lớp và cũng không được ở lại lớp

 

[seikoqn]

- Mọi người xem giùm mình sai ở khúc nào vậy.
- Lúc mình nhập điểm 6.5 và 5 vô tự nhiên là "Khá".
- Nhập 7.5 là "Giỏi".
- Còn phần ghi chú thì không để là "Ở lại lớp" hay là "Lên lớp" gì cả.

Bạn đưa File lên đi ngồi đoán mò với nhau mệt lắm!

 

[daydien789]

Đây nè bạn. Mình làm đủ cách rồi nhưng không ra.

 

[giangleloi]

Đây nè bạn. Mình làm đủ cách rồi nhưng không ra.

Bạn thử với mớ hỗn độn này:

Sub kiem_tra()
Dim CN As Long
Dim HL, GC As String


CN = Range("G3").Value


If CN >= 8 Then 'Neu Diem CN >= 8 thi se la gioi
       HL = "Gioi"
       GC = "Duoc len lop"
   ElseIf CN >= 6.5 Then ' Neu diem CN >=6.5 va < 8 thi se la kha
       HL = "Kha"
       GC = "Duoc len lop"
   ElseIf CN >= 5 Then ' Neu diem CN >= 5 va < 6.5 thi se la trung binh
       HL = "Trung binh"
       GC = "Duoc len lop"
   Else ' Neu diem < 5 thi se la Yeu
       HL = "Yeu"
       GC = "O lai lop"
End If
Range("H3").Value = HL
Range("I3").Value = GC
End Sub

 

[daydien789]

Bạn thử với mớ hỗn độn này:

Tks bạn, mình làm được rồi.

 

[giangleloi]

Tks bạn, mình làm được rồi.

Cái code trên chưa có đúng đâu bạn nhé. Để bạn tự kiểm tra theo #2 nữa ấy.

 

[sealand]

Mình tham gia đoạn code có lẽ gọn hơn:

Sub kiem_tra()
Range("H3").Value = WorksheetFunction.Lookup(Range("G3").Value, _
Array(0, 5, 6.5, 8), Array("Yeu", "Trung binh", "Kha", "Gioi"))
Range("I3").Value = IIf(Range("G3").Value < 5, "O lai lop", "Duoc len lop")
End Sub

 

[Vo Tinh]

Mình tham gia đoạn code có lẽ gọn hơn:

Em cũng xin góp 1 code

Sub KiemTra()
Dim CN As Range
Set CN = Sheet1.Range("G3")
Range("H3").Value = Switch(CN > 10, "Kiem Tra lai Diem", CN >= 8, "Gioi", CN >= 6.5, "Kha", CN >= 5, "Trung Binh", CN >= 0, "Yeu")
Range("I3").Value = IIf(Range("G3").Value < 5, "O lai lop", "Duoc len lop")
End Sub