hỏi về thay thế ký tự đặc biệt từ phải sang bằng chữ (có nhiều ký tự đặc biệt giống nhau)

[hongphuong1997]

Anh đoán thế này em nhé, được hay không anh không rõ lắm
Giả sử "a,,b,,,,,c,,,de,,f,,,g"

Function ThayTheDauPhay(Chuoi as String) as String
'Gia su so dau phay lap nhau toi da la 20
Dim i1 as Integer
Dim Chuoi2 as String
Chuoi2 = Chuoi
For i1 = 20 to 2 Step -1
Chuoi2 = Replace(Chuoi2, Application.Evaluate("=REPT(" & """" & "," & """" & "," & i1 & ")") , ",")
Next

ThayTheDauPhay = Chuoi2
End Function

Anh không biết hàm có hoạt động ok thật không vì anh chưa thử nhưng ý tưởng là kiểu thế. Em cũng nên tìm hiểu xem hàm REPT có sẵn trong VBA hay trong WorksheetFunction hay không nhưng nếu có thì em dùng kiểu có sẵn trong VBA sẽ nhanh hơn là dùng hàm Evaluate nhé

Cảm ơn anh ạ
anh oi hàm đúng rùi, nhưng nó không xoa được dấu "," trước và sau chuỗi.

 

[ManhDuc1382]

Cảm ơn anh ạ
anh oi hàm đúng rùi, nhưng nó không xoa được dấu "," trước và sau chuỗi.

Alo bé Anh vừa mới đi chơi về xong . Nãy ngồi ở quán cafe nên chưa vận dụng hết được kiến thức trên Internet nên sau khi về nhà anh đã gấp rút vào yêu cầu của bé nhé. Đây mới là code bá đạo của anh, bé ạ, không biết người khác làm thế nào chứ anh làm thế này đã thấy nó nhanh vãi chưởng vì thêm cái điều kiện vào hàmIF rồi (với dữ liệu tầm 10 nghìn dòng trở xuống nhé ) . Chúc bé có một năm mới cực kỳ vui vẻ và hạnh phúc nhé ^^ (nếu được thì có thể kết bạn facebook với anh để làm quen cũng được, hihi ^^ (tại đang tìm người yêu nên ké trên này chút )


Function ThayTheDauPhay(Chuoi As String) As String
'Gia su so dau phay lap nhau toi da la 20
Dim i1 As Integer
Dim Chuoi2 As String
Chuoi2 = Chuoi

For i1 = 20 To 2 Step -1

If Len(Chuoi2) >= i1 Then
Chuoi2 = Replace(Chuoi2, WorksheetFunction.Rept(",", i1), ",")
End If

Next

ThayTheDauPhay = Chuoi2

If Left(ThayTheDauPhay, 1) = "," Then
ThayTheDauPhay = Right(ThayTheDauPhay, Len(ThayTheDauPhay) - 1)
End If

If Right(ThayTheDauPhay, 1) = "," Then
ThayTheDauPhay = Left(ThayTheDauPhay, Len(ThayTheDauPhay) - 1)
End If

End Function

 

[ManhDuc1382]

Cảm ơn anh ạ
anh oi hàm đúng rùi, nhưng nó không xoa được dấu "," trước và sau chuỗi.

Chơi lớn luôn nhé bé Viết hàm tổng quát cho em luôn để niềm vui đầu năm nhân gấp 1000 lần . Hàm này thì tốc độ bàn thờ rồi nhé, em cứ thử paste công thức trên 10 nghìn dòng nhé (thường như vậy đã là rất lớn rồi, với công thức này tác động tới từng ô chứ không phải cả mảng nên em có thể điều chỉnh số liệu thoải mái mà không lo vị giật máy ). Thấy anh có tâm không bé lần trước chả hiểu sao anh thấy mấy lần bé bị chặn nên anh thấy khá là thương em ^^ (dạo trước anh hay vào diễn đàn mình, hihi). Code hàm đã được anh cải tiến và sửa lại rồi nhé, nếu em còn thắc mắc nào về hàm này nữa thì anh sẽ tiếp tục cải tiến nhé (lưu ý độ dài của dấu bị lặp tối đa là 1 ký tự thôi em nhé ^^, ví dụ dấu phẩy "," chẳng hạn )

Ví dụ:

,p,,,hh,,,,,kk,,,,,,q,,,kdj,,,,ê,,,,,qq,,,pp,

=ThayTheDauBiLap($E$4,",",10)
Kết quả:

p,hh,kk,q,kdj,ê,qq,pp

Function ThayTheDauBiLap(Chuoi As String, Optional DauBiLap As Variant, Optional SoLanLapToiDa As Variant) As String

' Mac dinh dau bi lap la dau phay
' Do dai chuoi bi lap toi da co the xu ly = 1 (Khong hon duoc, da kiem tra neu hon 1 ky tu ma dung cach nay se bi sai)
If IsMissing(DauBiLap) Then
DauBiLap = ","
End If

' Mac dinh so dau bi lap bi lap nhau toi da la n lan
If IsMissing(SoLanLapToiDa) Then
SoLanLapToiDa = 18
End If


Dim i1 As Integer
Dim Chuoi2 As String
Chuoi2 = Chuoi



For i1 = SoLanLapToiDa To 2 Step -1

Chuoi2 = Replace(Chuoi2, WorksheetFunction.Rept(DauBiLap, i1), DauBiLap)

Next


ThayTheDauBiLap = Chuoi2

If Left(ThayTheDauBiLap, 1) = DauBiLap Then
ThayTheDauBiLap = Right(ThayTheDauBiLap, Len(ThayTheDauBiLap) - 1)
End If

If Right(ThayTheDauBiLap, 1) = DauBiLap Then
ThayTheDauBiLap = Left(ThayTheDauBiLap, Len(ThayTheDauBiLap) - 1)
End If

End Function

 

[hongphuong1997]

Chơi lớn luôn nhé bé Viết hàm tổng quát cho em luôn để niềm vui đầu năm nhân gấp 1000 lần . Hàm này thì tốc độ bàn thờ rồi nhé, em cứ thử paste công thức trên 10 nghìn dòng nhé (thường như vậy đã là rất lớn rồi, với công thức này tác động tới từng ô chứ không phải cả mảng nên em có thể điều chỉnh số liệu thoải mái mà không lo vị giật máy ). Thấy anh có tâm không bé lần trước chả hiểu sao anh thấy mấy lần bé bị chặn nên anh thấy khá là thương em ^^ (dạo trước anh hay vào diễn đàn mình, hihi). Code hàm đã được anh cải tiến và sửa lại rồi nhé, nếu em còn thắc mắc nào về hàm này nữa thì anh sẽ tiếp tục cải tiến nhé (lưu ý độ dài của dấu bị lặp tối đa là 1 ký tự thôi em nhé ^^, ví dụ dấu phẩy "," chẳng hạn )

Ví dụ:

,p,,,hh,,,,,kk,,,,,,q,,,kdj,,,,ê,,,,,qq,,,pp,

=ThayTheDauBiLap($E$4,",",10)
Kết quả:

p,hh,kk,q,kdj,ê,qq,pp

Function ThayTheDauBiLap(Chuoi As String, Optional DauBiLap As Variant, Optional SoLanLapToiDa As Variant) As String

' Mac dinh dau bi lap la dau phay
' Do dai chuoi bi lap toi da co the xu ly = 1 (Khong hon duoc, da kiem tra neu hon 1 ky tu ma dung cach nay se bi sai)
If IsMissing(DauBiLap) Then
DauBiLap = ","
End If

' Mac dinh so dau bi lap bi lap nhau toi da la n lan
If IsMissing(SoLanLapToiDa) Then
SoLanLapToiDa = 18
End If


Dim i1 As Integer
Dim Chuoi2 As String
Chuoi2 = Chuoi



For i1 = SoLanLapToiDa To 2 Step -1

Chuoi2 = Replace(Chuoi2, WorksheetFunction.Rept(DauBiLap, i1), DauBiLap)

Next


ThayTheDauBiLap = Chuoi2

If Left(ThayTheDauBiLap, 1) = DauBiLap Then
ThayTheDauBiLap = Right(ThayTheDauBiLap, Len(ThayTheDauBiLap) - 1)
End If

If Right(ThayTheDauBiLap, 1) = DauBiLap Then
ThayTheDauBiLap = Left(ThayTheDauBiLap, Len(ThayTheDauBiLap) - 1)
End If

End Function

Chuẩn wúa cảm ơn anh @ManhDuc1382 nhé
Chúc anh năm mới "TÂN SỬU" khỏe như TRÂU
Cầy sâu tốt lúa.

 

[ManhDuc1382]

Chuẩn wúa cảm ơn anh @ManhDuc1382 nhé
Chúc anh năm mới "TÂN SỬU" khỏe như TRÂU
Cầy sâu tốt lúa.

@hongphuong1997 bé ơi anh cải tiến hàm này lên MAX rồi nhé, không cần phải có tham số giới hạn số lần lặp dấu. Tốc độ hàm này thì phải gọi là cực kỳ bá đạo bé ạ (nhanh gấp đôi cái hàm hôm qua (em cứ thử copy công thức trên 10 nghìn dòng sẽ thấy ^^) mà lại không giới hạn số lần lặp dấu, không phải dùng vòng lặp để quét từng trường hợp thay thế mà code lại ngắn hơn, nói chung anh đã dùng thuật toán mới hoàn toàn bé ạ ). Đây mới thực sự là bảo bối nè
Bé kết bạn với anh nhé, hihi, đây là link facebook của anh. Anh đã theo dõi diễn đàn mình lâu rồi và anh thấy rất quý em ấy

Facebook

www.facebook.com

Ví dụ:

,p,,,hh,,,,,kk,,,,,,q,,,kdj,,,,ê,,,,,qq,,,pp,

=ThayTheDauBiLap_NEW($E$4,",")
Kết quả

p,hh,kk,q,kdj,ê,qq,pp

Ví dụ 2: (bài toán tổng quát)

$$p$$$$$$hh$$$$$$$$$$kk$$$$$$$$$$$$q$$$$$$kdj$$$$$$$$ê$$$$$$$$$$qq$$$$$$pp$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$44kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk$$$

=ThayTheDauBiLap_NEW($E$7,"$")

p$hh$kk$q$kdj$ê$qq$pp$44kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

Function ThayTheDauBiLap_NEW(Chuoi As String, Optional DauBiLap As Variant) As String

' Mac dinh dau bi lap la dau phay
' Do dai chuoi bi lap toi da co the xu ly = 1 (Khong hon duoc, da kiem tra neu hon 1 ky tu ma dung cach nay se bi sai)
If IsMissing(DauBiLap) Then
DauBiLap = ","
End If

Dim Mang1 As Variant
Mang1 = Split(Chuoi, "" & DauBiLap & "")

Dim i1 As Long
For i1 = 0 To UBound(Mang1)
If Mang1(i1) = "" Then
Else
ThayTheDauBiLap_NEW = ThayTheDauBiLap_NEW & DauBiLap & Mang1(i1)
End If
Next

' ThayTheDauBiLap_NEW = Right(ThayTheDauBiLap_NEW, Len(ThayTheDauBiLap_NEW) - 1)

ThayTheDauBiLap_NEW = WorksheetFunction.Substitute(ThayTheDauBiLap_NEW, "" & DauBiLap & "", "", 1)

End Function

 

[hongphuong1997]

Anh @ManhDuc1382 hàm này mới là chuẩn và bá đạo anh oi
Vừa ngắn gọn và không lòng thòng như hàm trước
Năm mới trình độ của anh phát huy nhanh thế
Em cảm ơn anh rất nhiều ạ!

'Tác Giả:@ManhDuc1382" 03/01/2020
Function ThayTheDauBiLap_NEW(Chuoi As String, Optional DauBiLap As Variant) As String
' Mac dinh dau bi lap la dau phay
' Do dai chuoi bi lap toi da co the xu ly = 1 (Khong hon duoc, da kiem tra neu hon 1 ky tu ma dung cach nay se bi sai)
If IsMissing(DauBiLap) Then
    DauBiLap = ","
End If

Dim Mang1 As Variant
    Mang1 = Split(Chuoi, "" & DauBiLap & "")
    Dim i1 As Long
For i1 = 0 To UBound(Mang1)
    If Mang1(i1) = "" Then
        Else
            ThayTheDauBiLap_NEW = ThayTheDauBiLap_NEW & DauBiLap & Mang1(i1)
    End If
Next

' ThayTheDauBiLap_NEW = Right(ThayTheDauBiLap_NEW, Len(ThayTheDauBiLap_NEW) - 1)

ThayTheDauBiLap_NEW = WorksheetFunction.Substitute(ThayTheDauBiLap_NEW, "" & DauBiLap & "", "", 1)

End Function

 

[ManhDuc1382]

Anh @ManhDuc1382 hàm này mới là chuẩn và bá đạo anh oi
Vừa ngắn gọn và không lòng thòng như hàm trước
Năm mới trình độ của anh phát huy nhanh thế
Em cảm ơn anh rất nhiều ạ!

'Tác Giả:@ManhDuc1382" 03/01/2020
Function ThayTheDauBiLap_NEW(Chuoi As String, Optional DauBiLap As Variant) As String
' Mac dinh dau bi lap la dau phay
' Do dai chuoi bi lap toi da co the xu ly = 1 (Khong hon duoc, da kiem tra neu hon 1 ky tu ma dung cach nay se bi sai)
If IsMissing(DauBiLap) Then
    DauBiLap = ","
End If

Dim Mang1 As Variant
    Mang1 = Split(Chuoi, "" & DauBiLap & "")
    Dim i1 As Long
For i1 = 0 To UBound(Mang1)
    If Mang1(i1) = "" Then
        Else
            ThayTheDauBiLap_NEW = ThayTheDauBiLap_NEW & DauBiLap & Mang1(i1)
    End If
Next

' ThayTheDauBiLap_NEW = Right(ThayTheDauBiLap_NEW, Len(ThayTheDauBiLap_NEW) - 1)

ThayTheDauBiLap_NEW = WorksheetFunction.Substitute(ThayTheDauBiLap_NEW, "" & DauBiLap & "", "", 1)

End Function

@hongphuong1997 hí hí, anh cảm ơn bé ^^ em kết bạn với anh nhé vì anh hay dùng face, hihi ^^ facebook của bé là gì nhỉ

 

[hongphuong1997]

Anh @ManhDuc1382 oi, nhưng hàm trên không thay đổi được nhiều dấu cùng một lúc anh oi

 

[ManhDuc1382]

Anh @ManhDuc1382 oi, nhưng hàm trên không thay đổi được nhiều dấu cùng một lúc anh oi

@hongphuong1997 đó nàng nhé, hì hì, chúc nàng năm mới vui vẻ nhé (quá có tâm ấy )

 

[ManhDuc1382]

Anh @ManhDuc1382 oi, nhưng hàm trên không thay đổi được nhiều dấu cùng một lúc anh oi

@hongphuong1997 bé dùng bản cực chuẩn này nhé. Anh đã tối ưu mọi thứ trong code của file này rồi bé ạ, tất cả các hàm chính và hàm phụ đều nằm trong cùng một module để có thể dễ dàng copy sang file khác mà không có sự xung đột giữa các hàm trong cùng module, đó mới gọi là hoàn thiện bé ạ ^^ , chúc bé buổi tối vui vẻ nhé (à em gọi anh là anh Tuấn Anh nhé, tên của anh đấy, hihi )
Thực sự mà nói thì anh thích những hàm UDF nào mà vừa tổng quát vừa có tốc độ "bàn thờ" như cái hàm này, ví dụ khi chạy trên 10 nghìn dòng thì hàm nó chạy một phát được khoảng 20% trở lên thì còn nhanh (hàm này thì nếu máy em khỏe mà chạy 10 nghìn dòng có khi nó chạy một phát 51% luôn ý, hoặc thậm chí có thể sẽ xong luôn ngay sau khi em ấn Ctrl + D chứ mấy cái hàm mà cứ từ từ một hai phần trăm xong thậm chí còn Not Responding thì chán lắm

 

[HieuCD]

@hongphuong1997 bé dùng bản cực chuẩn này nhé. Anh đã tối ưu mọi thứ trong code của file này rồi bé ạ, tất cả các hàm chính và hàm phụ đều nằm trong cùng một module để có thể dễ dàng copy sang file khác mà không có sự xung đột giữa các hàm trong cùng module, đó mới gọi là hoàn thiện bé ạ ^^ , chúc bé buổi tối vui vẻ nhé (à em gọi anh là anh Tuấn Anh nhé, tên của anh đấy, hihi )
Thực sự mà nói thì anh thích những hàm UDF nào mà vừa tổng quát vừa có tốc độ "bàn thờ" như cái hàm này, ví dụ khi chạy trên 10 nghìn dòng thì hàm nó chạy một phát được khoảng 20% trở lên thì còn nhanh (hàm này thì nếu máy em khỏe mà chạy 10 nghìn dòng có khi nó chạy một phát 51% luôn ý, hoặc thậm chí có thể sẽ xong luôn ngay sau khi em ấn Ctrl + D chứ mấy cái hàm mà cứ từ từ một hai phần trăm xong thậm chí còn Not Responding thì chán lắm

=ThayTheNhieuDauBiLap(E4,"q", "p",",")
Ra kết quả hơi kỳ: "hhqkkqkdjqê"

 

[Hoàng Trọng Nghĩa]

Nếu abcd là 4 mục khác nhau thì
a, b, c, và d mới đúng văn phạm.
a, b, c và d là chỉ có 3 mục. Mục thứ 3 gồm c và d.

Văn phạm (ngữ pháp) Việt Nam không có cấu trúc dấu phẩy (,) đứng trước từ "và".

 

[xuongrongdat]

Văn phạm (ngữ pháp) Việt Nam không có cấu trúc dấu phẩy (,) đứng trước từ "và".

Vấn đề này em cần làm rõ, thực sự có phải vậy không?
Còn văn phạm tiếng Anh/tiếng Mĩ về việc này thì sao anh?

Nhờ BQT di chuyển tách vấn đề này thành 1 chủ đề mới sang khu vực thích hợp hơn. Xin cảm ơn.

 

[xuongrongdat]

Mình tự thắc mắc rồi tự đi tìm câu trả lời luôn.
@VetMini , @Hoàng Trọng Nghĩa : dù là vấn đề nhỏ, ở đây là về "dấu phẩy" và liên từ "và" trong tiếng Việt nhưng mình cũng muốn hiểu cho rõ về nó để có thể giữ gìn sự trong sáng của tiếng Việt. Sau hơn 30 phút tìm hiểu cả tiếng Anh và tiếng Việt (có lẽ chưa đủ sâu) thì cá nhân tạm kết luận như sau:

a, b, c, và d => đây là cấu trúc đúng của tiếng Anh. Tiếng Việt phải là: a, b, c và d.

Văn phạm (ngữ pháp) Việt Nam không có cấu trúc dấu phẩy (,) đứng trước từ "và" => cũng không đúng 100% anh ơi. Anh thu hẹp phạm vi lại thì phát biểu của anh có thể đúng. Trong bản "Điếu văn Hồ Chí Minh" của Đống Ngạc, thư ký đắc lực của Lê Duẩn, có đoạn:
"Dân tộc ta, nhân dân ta, non sông đất nước ta đã sinh ra HỒ CHỦ TỊCH, người anh hùng dân tộc vĩ đại, và chính Người đã làm rạng rỡ dân tộc ta, nhân dân ta, non sông đất nước ta."

Mình không dám bàn sâu hơn vì nói nhiều e rằng sẽ sai do không có chuyên môn.

Thân ái.

 

[batman1]

Mình tự thắc mắc rồi tự đi tìm câu trả lời luôn.
@VetMini , @Hoàng Trọng Nghĩa : dù là vấn đề nhỏ, ở đây là về "dấu phẩy" và liên từ "và" trong tiếng Việt nhưng mình cũng muốn hiểu cho rõ về nó để có thể giữ gìn sự trong sáng của tiếng Việt. Sau hơn 30 phút tìm hiểu cả tiếng Anh và tiếng Việt (có lẽ chưa đủ sâu) thì cá nhân tạm kết luận như sau:

a, b, c, và d => đây là cấu trúc đúng của tiếng Anh. Tiếng Việt phải là: a, b, c và d.

Văn phạm (ngữ pháp) Việt Nam không có cấu trúc dấu phẩy (,) đứng trước từ "và" => cũng không đúng 100% anh ơi. Anh thu hẹp phạm vi lại thì phát biểu của anh có thể đúng. Trong bản "Điếu văn Hồ Chí Minh" của Đống Ngạc, thư ký đắc lực của Lê Duẩn, có đoạn:
"Dân tộc ta, nhân dân ta, non sông đất nước ta đã sinh ra HỒ CHỦ TỊCH, người anh hùng dân tộc vĩ đại, và chính Người đã làm rạng rỡ dân tộc ta, nhân dân ta, non sông đất nước ta."

Mình không dám bàn sâu hơn vì nói nhiều e rằng sẽ sai do không có chuyên môn.

Thân ái.

Trong cấu trúc liệt kê thì tôi cũng nghĩ là a, b, c và d. Nhưng cũng có câu phụ, nhấn mạnh câu chính với từ và sau dấu phẩy: "Món ABC chứa rất nhiều dinh dưỡng, và ngon nữa".

 

[hongphuong1997]

@xuongrongdat Bạn giỏi tiếng Việt và các thứ tiếng nhỉ?
đây là diễn đàn của chuyên môn.
Bạn có tin là có tất cả hàng ngàn dấu ở mọi vị trí khác nhau không?
Chuyên môn là chuyên môn.
Bạn đừng có chọc ngoáy linh tinh.
Một bài toán mà mình không thể dùng các hàm khác để thay thế cho "&" hoặc là "CONCATENATE"
=IFERROR(SUBSTITUTE(TRIM(SUBSTITUTE(IF(OR(EE10="";ED5="";EC10="";EN11="");"";MOD(EE10-ED5;5)&MOD(EC10-EN11;5))&","&IF(OR(EE10="";ED5="";EC10="";EL4="");"";MOD(EE10-ED5;5)&MOD(EC10+EL4;5))&","&IF(OR(ED5="";EN11="";EE10="";EC10="");"";MOD(ED5+EN11;5)&MOD(EE10-EC10;5))&","&IF(OR(ED5="";EN11="";EC10="";EL4="");"";MOD(ED5+EN11;5)&MOD(EC10+EL4;5))&","&IF(OR(ED5="";EL4="";EE10="";EC10="");"";MOD(ED5-EL4;5)&MOD(EE10-EC10;5))&","&IF(OR(ED5="";EL4="";EC10="";EN11="");"";MOD(ED5-EL4;5)&MOD(EC10-EN11;5))&","&IF(OR(EE10="";ED5="";EC10="");"";MOD(EE10-ED5;5)&MOD(EE10-EC10;5))&","&IF(OR(ED5="";EN11="";EC10="");"";MOD(ED5+EN11;5)&MOD(EC10-EN11;5))&","&IF(OR(ED5="";EL4="";EC10="");"";MOD(ED5-EL4;5)&MOD(EC10+EL4;5))&","&IF(OR(EE10="";ED5="";EN11="");"";MOD(EE10-ED5;5)&MOD((EE10-ED5)-EN11;5))&","&IF(OR(EE10="";ED5="";EL4="");"";MOD(EE10-ED5;5)&MOD((EE10-ED5)+EL4;5))&","&IF(OR(ED5="";EN11="";EE10="");"";MOD(ED5+EN11;5)&MOD(EE10-(ED5+EN11);5))&","&IF(OR(ED5="";EN11="";EL4="");"";MOD(ED5+EN11;5)&MOD(EL4+(ED5+EN11);5))&","&IF(OR(ED5="";EL4="";EE10="");"";MOD(ED5-EL4;5)&MOD(EE10-(ED5-EL4);5))&","&IF(OR(ED5="";EL4="";EN11="");"";MOD(ED5-EL4;5)&MOD((ED5-EL4)-EN11;5))&","&IF(OR(EE10="";EC10="";EN11="");"";MOD((EE10-EC10)+EN11;5)&MOD(EE10-EC10;5))&","&IF(OR(EE10="";EC10="";EL4="");"";MOD((EE10-EC10)-EL4;5)&MOD(EE10-EC10;5))&","&IF(OR(EE10="";EC10="";EN11="");"";MOD(EE10-(EC10-EN11);5)&MOD(EC10-EN11;5))&","&IF(OR(EC10="";EN11="";EL4="");"";MOD((EC10-EN11)-EL4;5)&MOD(EC10-EN11;5))&","&IF(OR(EE10="";EC10="";EL4="");"";MOD(EE10-(EC10+EL4);5)&MOD(EC10+EL4;5))&","&IF(OR(EN11="";EC10="";EL4="");"";MOD(EN11+(EC10+EL4);5)&MOD(EC10+EL4;5));",";" "));" ";",");"")

 

[xuongrongdat]

@xuongrongdat Bạn giỏi tiếng Việt và các thứ tiếng nhỉ?
đây là diễn đàn của chuyên môn.
Bạn có tin là có tất cả hàng ngàn dấu ở mọi vị trí khác nhau không?
Chuyên môn là chuyên môn.
Bạn đừng có chọc ngoáy linh tinh.

Tôi chưa nhận mình giỏi tiếng Việt và các thứ tiếng.
Tôi không có chọc ngoáy linh tinh.
Tôi chưa hiểu ý của bạn!

 

[hongphuong1997]

Tôi chưa giỏi tiếng Việt và các thứ tiếng.
Tôi không có chọc ngoáy linh tinh.
Tôi chưa hiểu ý của bạn!

Thế bạn đã biết nguyên tắc các "dấu" trong Tiếng Việt phải viết và đánh máy như nào thì mới đúng chưa?
Mà bạn lại đi bình luận sàm sàm nư vậy?

 

[xuongrongdat]

Thế bạn đã biết nguyên tắc các "dấu" trong Tiếng Việt phải viết và đánh máy như nào thì mới đúng chưa?

Mình có biết nhưng có lẽ là chưa biết đúng và đủ 100%, nhờ bạn chỉ dẫn thêm!

Mà bạn lại đi bình luận sàm sàm nư vậy?

Mình bình luận sàm sàm chỗ nào vậy bạn?

 

[VetMini]

Dấu phẩy có hai công dụng:
- Một là để tách rời từng đoạn văn nhỏ, trong trường hợp này nó đứng sau dấu chấm và dấu chấm phẩy xác định đoạn văn; tức là dấu hai dấu chấm bao một đoạn văn, kế đó dấu chấm phẩy (nếu có) sẽ ngăn đoạn văn ra nhiều phần, dấy phẩy sẽ nằm trong từng phần của dấu chấm phẩy.
- Hai là để nhóm từng nhóm từ. Nếu chỉ có hai nhóm cách nhau vằng từ và, hoặc, hay tương tự thì không cần dấu phẩy. Nếu có nhiều hơn hai nhóm thì người ta thường xác định nhóm cuối bằng từ và, hoặc, hay tương tự. Trong trường hợp thứ hai này, để nhấn mạnh rằng nhóm cuối không gồm hai nhóm nhỏ, người ta đặt dấu phẩy ở trước nhóm áp út. Tóm lại, nhiệm vụ của dấu phẩy là phân biệt giữa nhóm cuối và nhóm áp cuối, cũng như nó phân biệt các nhóm trước đó. Trong khí đó, nhiệm vụ của từ 'và' là báo trước cho người đọc "đây là nhóm cuối". Bảo rằng từ 'và' không thể đi sau dấu phẩy là không biết cách hành văn.