[giúp đỡ] liệt kê những môn thi lại (1 người xem)

[toiyeus2]

e có bài này mà k biết xoay sở thế nào mong các bác giúp.bài này khó chứ k phải bài xếp loại như các ví dụ

 

[tvl297]

bạn thử xem có được không nhé, nếu không đúng ý bạn thì bảo mình

 

[toiyeus2]

bạn thử xem có được không nhé, nếu không đúng ý bạn thì bảo mình

thaks bac nhieu nhung cong thuc nhin so qua

 

[concogia]

thaks bac nhieu nhung cong thuc nhin so qua

Những bài dạng này dùng công thức rất hạn chế, sử dụng VBA là chuyện nhỏ
Thân

 

[toiyeus2]

Những bài dạng này dùng công thức rất hạn chế, sử dụng VBA là chuyện nhỏ
Thân

vba là gì vậy bác và ứng dụng của nó làm những gì

 

[concogia]

vba là gì vậy bác và ứng dụng của nó làm những gì

Thực tế thế này nhé:
Với công thức để tìm kết quả bài của bạn mà bạn tvl297 giúp bạn đã làm bạn.....sợ vì nhìn công thức ghê quá, nhưng với VBA mình sẽ viết một cái gọi nôm na là "Hàm người dùng" sẽ xử lý cái công việc của bạn thật nhẹ nhàng
Cách sử dụng thì bạn nhìn vào cell [N5] xem công thức nhé, còn muốn xem công thức được viết như thế nào bạn bâm Alt + F11 xem nhé
Thân

 

[tvl297]

hi, về VBA mình còn gà quá, lên chỉ viết công thức tham gia với mọi người.

 

[toiyeus2]

Thực tế thế này nhé:
Với công thức để tìm kết quả bài của bạn mà bạn tvl297 giúp bạn đã làm bạn.....sợ vì nhìn công thức ghê quá, nhưng với VBA mình sẽ viết một cái gọi nôm na là "Hàm người dùng" sẽ xử lý cái công việc của bạn thật nhẹ nhàng
Cách sử dụng thì bạn nhìn vào cell [N5] xem công thức nhé, còn muốn xem công thức được viết như thế nào bạn bâm Alt + F11 xem nhé
Thân

có thấy môn thi lại đâu bác

 

[toiyeus2]

xin các bác giup đỡ e vớiiiiiiiiiiiiiiiiiiii

 

[toiyeus2]

xin các bác giup đỡ e vớiiiiiiiiiiiiiiiiiiii

 

[ChanhTQ@]

có thấy môn thi lại đâu bác

(hương trình diệt virus trên máy của bạn xơi ngon cái con macro của bác í đi rồi chăng?!

Mình vẫn thấy nó nè:

Option Explicit
Public Function ThiLai(Vung As Range, Mon As Range) As String
    Dim I, Kq
        If Application.WorksheetFunction.Min(Vung) >= 5 Then
            Exit Function
        Else
            For I = 1 To Vung.Columns.Count
                If Vung(I) < 5 Then Kq = Kq & Mon(I) & "; "
            Next I
        End If
   ThiLai = Left(Kq, Len(Kq) - 2)
End Function

 

[toiyeus2]

(hương trình diệt virus trên máy của bạn xơi ngon cái con macro của bác í đi rồi chăng?!

Mình vẫn thấy nó nè:

Option Explicit
Public Function ThiLai(Vung As Range, Mon As Range) As String
    Dim I, Kq
        If Application.WorksheetFunction.Min(Vung) >= 5 Then
            Exit Function
        Else
            For I = 1 To Vung.Columns.Count
                If Vung(I) < 5 Then Kq = Kq & Mon(I) & "; "
            Next I
        End If
   ThiLai = Left(Kq, Len(Kq) - 2)
End Function

thưa bác là e dùng máy tính k có định nghĩa cài phần mềm diệt virus tại cài vào chắc gì đã diệt được

 

[Luc Van]

thưa bác là e dùng máy tính k có định nghĩa cài phần mềm diệt virus tại cài vào chắc gì đã diệt được

Thế chắc lại chưa Enable macro rồi...

 

[Buiha45]

xin các bác giup đỡ e vớiiiiiiiiiiiiiiiiiiii

Tôi thấy rõ rang anh concogia gửi file cho bạn ra kết quả đúng mà, bạn xem lại đi