Trả kết quả theo điều kiện
Tôi có 1 bảng điểm , với dòng têu đề là tên các môn học . Làm thế nào để liệt kê ra các môn học có điểm <5 (File kèm) , tôi đã dùng hàm IF , tuy nhiên do có hơn 10 môn học nên công thức quá dài dòng . Nhờ các anh có hàm nào đơn giản hơn để giải quyết vấn đề này , xin rất cảm ơn .
Bài này tôi nghĩ bạn dùng hàm tự tạo thì hay hơn! Giả sử có 20 môn, bạn IF đến bao giờ
Function JoinIf(VungDK As Range, DK As String, VungKQ As Range, Optional PC As String = "") As String
Dim i As Long, Temp As String
For i = 1 To VungDK.Count
If Evaluate(VungDK(i) & DK) Then
Temp = Temp & PC & VungKQ(i)
End If
Next i
If Temp = "" Then
JoinIf = ""
Else
JoinIf = Mid(Temp, Len(PC) + 1, Len(Temp) – Len(PC))
End If
End Function
www.giaiphapexcel.com/diendan/threads/tr%E1%BA%A3-k%E1%BA%BFt-qu%E1%BA%A3-theo-%C4%91i%E1%BB%81u-ki%E1%BB%87n.22159/#post-154320
Khóa học Power PI – Ứng dung trong Nhân sự
TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...
Xem khóa học
Chỉnh lại code đây:
Function JoinIf2(VungDK As Range, DK As String, VungKQ As Range, Optional PC As String = "") As String
Dim i As Long, Temp As String
For i = 1 To VungDK.Count
If VungDK(i) <> "" Then
If Evaluate(VungDK(i) & DK) Then Temp = Temp & PC & VungKQ(i)
End If
Next i
If Temp = "" Then
JoinIf2 = ""
Else
JoinIf2 = Mid(Temp, Len(PC) + 1, Len(Temp) – Len(PC))
End If
End FunctionNói thêm: File của bạn bị nhiễm virus nhé! Nếu bạn vẫn chưa biết điều này thì chúng tỏ rằng toàn bộ file Excel trên máy bạn đều đã bị nhiểm (thử vào menu FormatSheetUnhide xem có 1 sheet mang tên XL4Poppy hay không?)
Cũng chẳng khó khăn gì, bằng tay cũng diệt được! Bạn làm như sau:
– Đóng toàn bộ Excel
– Search tìm trên ổ C, từ khóa XLSTART
– Nếu tìm thấy thư mục này thì duyệt vào và xóa mọi thứ bên trong nó (có bao nhiêu thư mục, nhớ duyệt hết)
– Kể từ bây giờ, mổi khi mở bất cứ file Excel nào, nhớ Disable macro nếu có thông báo
– Vào menu FormatSheetUnhide, chọn vào sheet ẩn, bấm OK —> Tiếp theo xóa luôn sheet ẩn này (nếu sheet không phải do bạn tạo ra)
– Bấm Ctrl + F3, xóa toàn bộ name có bên trong (trừ name của bạn)
– Đóng và lưu file
Vì tất cả file Excel đều bị nhiễm nên mổi khi mở file nào, bạn chịu khó thao tác giống như tôi trình bày ở trên, bảo đãm nó sẽ "sạch"