Giúp em đoạn code này với

[miphp]

Giá trị các ô từ A1 đến A10 là điểm số.
Em muốn lập code để nó xếp loại học lực ở các cô tương ứng từ B1 đến B10
Điểm số >=8 xếp loại học giỏi <8 xếp loại Chưa Giỏi

Nhờ các bác giúp Em đoạn code này với ạ

Sub HocHanh()
Dim i As Integer
For i = 1 To 10
Sheets("sheet1").Select
Range(Cell(i, 1)).Select
If ActiveCell >= 8 Then
ActiveSheet.Cells(i, 2).Value = "HOC GIOI"
Else
ActiveSheet.Cells(i, 2).Value = "CHUA GIOI"
End If
Next i
End Sub

Cảm ơn các bác nhiều

 

[giaiphap]

Giá trị các ô từ A1 đến A10 là điểm số.
Em muốn lập code để nó xếp loại học lực ở các cô tương ứng từ B1 đến B10
Điểm số >=8 xếp loại học giỏi <8 xếp loại Chưa Giỏi

Nhờ các bác giúp Em đoạn code này với ạ

Sub HocHanh()
Dim i As Integer
For i = 1 To 10
Sheets("sheet1").Select
Range(Cell(i, 1)).Select
If ActiveCell >= 8 Then
ActiveSheet.Cells(i, 2).Value = "HOC GIOI"
Else
ActiveSheet.Cells(i, 2).Value = "CHUA GIOI"
End If
Next i
End Sub

Cảm ơn các bác nhiều

Thế này là được rồi bác à.

Sub HocHanh()
Dim i As Integer
For i = 1 To 10
If Cells(i, 1).Value >= 8 Then
     Cells(i, 2).Value = "HOC GIOI"
Else
     Cells(i, 2).Value = "CHUA GIOI"
End If
Next i
End Sub

 

[langtuchungtinh360]

Giá trị các ô từ A1 đến A10 là điểm số.
Em muốn lập code để nó xếp loại học lực ở các cô tương ứng từ B1 đến B10
Điểm số >=8 xếp loại học giỏi <8 xếp loại Chưa Giỏi

Nhờ các bác giúp Em đoạn code này với ạ

Sub HocHanh()
Dim i As Integer
For i = 1 To 10
Sheets("sheet1").Select
Range(Cell(i, 1)).Select
If ActiveCell >= 8 Then
ActiveSheet.Cells(i, 2).Value = "HOC GIOI"
Else
ActiveSheet.Cells(i, 2).Value = "CHUA GIOI"
End If
Next i
End Sub

Cảm ơn các bác nhiều

chỉnh sửa lại thế này

Sub HocHanh()
Dim i As Integer
For i = 1 To 10
Sheets("sheet1").Select
If Cells(i,1).value >= 8 Then 
Cells(i, 2).Value = "HOC GIOI"
Else
Cells(i, 2).Value = "CHUA GIOI"
End If
Next i
End Sub

 

[langtuchungtinh360]

Thế này là được rồi bác à.

Sub HocHanh()
Dim i As Integer
For i = 1 To 10
If Cells(i, 1).Value >= 8 Then
     Cells(i, 2).Value = "HOC GIOI"
Else
     Cells(i, 2).Value = "CHUA GIOI"
End If
Next i
End Sub

thầy nhanh tay quá

 

[miphp]

cảm ơn Bác nhiều nhiều

 

[giangleloi]

Sao hông thấy có 0 điểm ấy nhờ. Mà xét kì quá, 1 điểm với 7 điểm cũng đều là chưa giỏi, thật là hơi bị bất công

 

[miphp]

Em làm cho cô giáo Em ấy mà, Em toàn 3,4 điểm, làm thế mới dc xếp loại cùng với mấy bạn 6,7 điểm chứ =))