Lấy kết quả khám cho học sinh

[kieuanh2023]

Dạ em nhờ anh/ chị giúp e mới ạ, bên em có five để lấy kết quả khám học sinh em dùng hàm này CONCATENATE(Q9;", "; S9) trong five em có bôi vàng ạ. nhưng hàm này có hơi bất cập nếu giá trị ko có nó sẽ có thêm dấu phẩy nên phải ngồi xem lại kết quả và nếu kết quả đó ngoài chữ binh thường mà có thêm vấn đề khác thì em không muốn hiện chữ bình thường mà chỉ hiện kết quả đang bị, nhơ a chị giúp em mới ak

 

[bebo021999]

Nếu Ex2019 hay 365 thì dùng hàm JOIN nhé bạn
Nếu ex thấp hơn thì dùng hàm UDF (VBA code)
Bạn chọn cái nào?

 

[kieuanh2023]

Nếu Ex2019 hay 365 thì dùng hàm JOIN nhé bạn
Nếu ex thấp hơn thì dùng hàm UDF (VBA code)
Bạn chọn cái nào?

dạ máy bên em ex thấp hơn ạ

 

[hocexcel_1991]

Dạ em nhờ anh/ chị giúp e mới ạ, bên em có five để lấy kết quả khám học sinh em dùng hàm này CONCATENATE(Q9;", "; S9) trong five em có bôi vàng ạ. nhưng hàm này có hơi bất cập nếu giá trị ko có nó sẽ có thêm dấu phẩy nên phải ngồi xem lại kết quả và nếu kết quả đó ngoài chữ binh thường mà có thêm vấn đề khác thì em không muốn hiện chữ bình thường mà chỉ hiện kết quả đang bị, nhơ a chị giúp em mới ak

Chỉ từng này cột thôi thì dùng công thức sau

G8=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(K8&"|"&L8&"|"&M8&"|"&N8&"|"&O8&"|"&P8&"|"&Q8&"|"&R8&"|"&S8&"|"&T8&"|"&U8,"Bình thường","")," ","#"),"|"," "))," ", ","),"#"," ")

 

[htin1997]

dạ máy bên em ex thấp hơn ạ

Thấp hơn nhưng có hàm CONCAT chưa hay phải là CONCATENATE vậy anh?

 

[htin1997]

Code của GPT

Function NoiChuoi(rng As Range, Optional Delimiter As String = ",") As String
    Dim cell As Range
    Dim result As String
    For Each cell In rng
        If Not IsEmpty(cell.Value) Then
            result = result & cell.Value & Delimiter
        End If
    Next cell
    If Len(result) > 0 Then
        result = Left(result, Len(result) - Len(Delimiter))
    End If
    NoiChuoi = result
End Function

 

[bebo021999]

Nếu Excel đời thấp (Ex2016 hoặc cũ hơn) thì UDF là giải pháp

Chuột phải vào tên sheet/ View Code/ Insert Module/ Moudule 1
Copy code phía dưới vào.
Lưu ý: VÌ code không cho nhập tiếng Việt có dấu. ô L5(Hay bất kỳ ô nào) nhập chữ "Bình thường"
Trở ra sheet, tại G8:

=khamsuckhoe(K8:U8)

Copy xuống
Lưu file dạng .xlsm

Bài đã được tự động gộp: 17/11/23

Code của GPT

Đúng là không hổ danh là code của "AI":

ngay từ dòng đầu:
"Bình thường, Bình thường, , , , , Tật khúc xạ, Viêm Amydal, , "

xuống dưới:

Đã béo phì là không bình thường nhé
"Béo phì, Bình thường, , , , , , , , "

 

[htin1997]

Nếu Excel đời thấp (Ex2016 hoặc cũ hơn) thì UDF là giải pháp

Chuột phải vào tên sheet/ View Code/ Insert Module/ Moudule 1
Copy code phía dưới vào.
Lưu ý: VÌ code không cho nhập tiếng Việt có dấu. ô L5(Hay bất kỳ ô nào) nhập chữ "Bình thường"
Trở ra sheet, tại G8:

=khamsuckhoe(K8:U8)

Copy xuống
Lưu file dạng .xlsm

Bài đã được tự động gộp: 17/11/23

Đúng là không hổ danh là code của "AI":

ngay từ dòng đầu:
"Bình thường, Bình thường, , , , , Tật khúc xạ, Viêm Amydal, , "

xuống dưới:

Đã béo phì là không bình thường nhé
"Béo phì, Bình thường, , , , , , , , "

Hình như file của chủ thớt có thì ở những ô trống đấy bác, chọn ô trống rồi bấm Delete thì cốt AI chạy OK. Em cũng chẵn rõ nữa.

 

[cantl]

Dạ em nhờ anh/ chị giúp e mới ạ, bên em có five để lấy kết quả khám học sinh em dùng hàm này CONCATENATE(Q9;", "; S9) trong five em có bôi vàng ạ. nhưng hàm này có hơi bất cập nếu giá trị ko có nó sẽ có thêm dấu phẩy nên phải ngồi xem lại kết quả và nếu kết quả đó ngoài chữ binh thường mà có thêm vấn đề khác thì em không muốn hiện chữ bình thường mà chỉ hiện kết quả đang bị, nhơ a chị giúp em mới ak

Vì rất nể công sức CONCATENATE rất nhiều phong cách khác nhau nên giúp. Chứ bài này tổ hợp tè le.

=IF(AND(K8="Bình thường",L8="Bình thường",SUM(LEN(M8:U8))=0),"Bình thường",SUBSTITUTE(SUBSTITUTE(TEXTJOIN(", ",TRUE,IF(K8:U8<>"Bình thường",K8:U8,"")),", 0",""),"0, ",""))

 

[kieuanh2023]

Chỉ từng này cột thôi thì dùng công thức sau

G8=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(K8&"|"&L8&"|"&M8&"|"&N8&"|"&O8&"|"&P8&"|"&Q8&"|"&R8&"|"&S8&"|"&T8&"|"&U8,"Bình thường","")," ","#"),"|"," "))," ", ","),"#"," ")

dạ em cảm ơn anh đã chỉ ạ

Bài đã được tự động gộp: 17/11/23

Hình như file của chủ thớt có thì ở những ô trống đấy bác, chọn ô trống rồi bấm Delete thì cốt AI chạy OK. Em cũng chẵn rõ nữa.

Dạ em cám ơn các anh chị ạ

Bài đã được tự động gộp: 17/11/23

Vì rất nể công sức CONCATENATE rất nhiều phong cách khác nhau nên giúp. Chứ bài này tổ hợp tè le.

=IF(AND(K8="Bình thường",L8="Bình thường",SUM(LEN(M8:U8))=0),"Bình thường",SUBSTITUTE(SUBSTITUTE(TEXTJOIN(", ",TRUE,IF(K8:U8<>"Bình thường",K8:U8,"")),", 0",""),"0, ",""))

Dạ em cám ơn các anh chị ạ

Bài đã được tự động gộp: 17/11/23

Nếu Excel đời thấp (Ex2016 hoặc cũ hơn) thì UDF là giải pháp

Chuột phải vào tên sheet/ View Code/ Insert Module/ Moudule 1
Copy code phía dưới vào.
Lưu ý: VÌ code không cho nhập tiếng Việt có dấu. ô L5(Hay bất kỳ ô nào) nhập chữ "Bình thường"
Trở ra sheet, tại G8:

=khamsuckhoe(K8:U8)

Copy xuống
Lưu file dạng .xlsm

Bài đã được tự động gộp: 17/11/23

Đúng là không hổ danh là code của "AI":

ngay từ dòng đầu:
"Bình thường, Bình thường, , , , , Tật khúc xạ, Viêm Amydal, , "

xuống dưới:

Đã béo phì là không bình thường nhé
"Béo phì, Bình thường, , , , , , , , "

Dạ em cảm ơn các anh các chị ạ

 

[kieuanh2023]

Vì rất nể công sức CONCATENATE rất nhiều phong cách khác nhau nên giúp. Chứ bài này tổ hợp tè le.

=IF(AND(K8="Bình thường",L8="Bình thường",SUM(LEN(M8:U8))=0),"Bình thường",SUBSTITUTE(SUBSTITUTE(TEXTJOIN(", ",TRUE,IF(K8:U8<>"Bình thường",K8:U8,"")),", 0",""),"0, ",""))

em cảm ơn các anh các chị đã giúp em ạ