Ghi tên môn học phải thi lại vào cột

Liên hệ QC

CuongNIIT

Thành viên mới
Tham gia
9/4/10
Bài viết
11
Được thích
2
Trong bảng có nhiều cột môn học và có cả môn thi lại. Làm sao mình ghi tên môn thi lại vào cột thi lại?

Mình có 4 cột: Toán, Lý, Hoá và cột thi lại nếu có 1 môn dưới 5đ thì phải thi lại và ghi tên môn đó vào cột thi lại. Sorry tại mình không thấy nút attach để đính kèm file.
 
Chỉnh sửa lần cuối bởi điều hành viên:
Hãy xem thêm trong file

PHP:
Option Explicit
Sub GhiThiLai()
 Dim MyColor As Byte, eRw As Long
 Dim Rng As Range, Clls As Range, Cls As Range
 
 eRw = [B65500].End(xlUp).Row
 [F4].Resize(eRw).ClearContents
 MyColor = [f3].Interior.ColorIndex + 1
 For Each Clls In Range("C4:C" & eRw)
   Set Rng = Clls.Resize(, 3)
   For Each Cls In Rng
      If Cls.Value < 5 Then
         With Clls.Offset(, 3)
            .Value = .Value & " " & Cells(3, Cls.Column).Value
         End With
      End If
   Next Cls
 Next Clls
 [f3].Interior.ColorIndex = IIf(MyColor > 42, 34, MyColor)
End Sub
 

File đính kèm

Cám ơn bạn viehoai đã giúp. Nhưng ý mình muốn có 1 công thức tổng quát hơn. Nếu như không phải là 3 môn mà là 12 môn thì sao? Và khi thêm hoặc bớt đi 1 môn thì phải sửa lại công thức?
 
Cám ơn bạn viehoai đã giúp. Nhưng ý mình muốn có 1 công thức tổng quát hơn. Nếu như không phải là 3 môn mà là 12 môn thì sao? Và khi thêm hoặc bớt đi 1 môn thì phải sửa lại công thức?

Trường hơp số môn nhiều và cách làm thêm bớt như vậy theo mình dùng VBA thôi, còn công thức tổng quát như thế mình chưa biết, sẽ tìm cách
 
Bạn xem trường hợp hàm tự tạo được không?
 

File đính kèm

Web KT

Bài viết mới nhất

Back
Top Bottom