Nối các chuỗi có số lượng ký tự giống nhau

[Thiên Thanh1]

Nhờ anh chị viết giúp hàm VBA như file đính kèm
Cảm ơn các anh chị.

 

[Maika8008]

Cảm ơn bạn @Nhattanktnn
Hàm còn một lỗi nữa là khi các ô bị trống thì trả kết quả bị lỗi Value...
Bạn xử lý bỏ qua lỗi này giúp mình là khi không có giữ liệu thì sẽ trả về "No"
Cảm ơn bạn.

Bạn thay chỗ dòng kết quả cuối cùng thành:
If Len(NoiChuoi) > 0 Then
NoiChuoi = Left(KetQua, Len(KetQua) - Len(DauPhanCach))
Else
NoiChuoi = "Không có." 'Hoặc NO nay gì đó tùy bạn
End If

 

[VetMini]

Bạn thay chỗ dòng kết quả cuối cùng thành:
If Len(NoiChuoi) > 0 Then
NoiChuoi = Left(KetQua, Len(KetQua) - Len(DauPhanCach))
Else
NoiChuoi = "Không có." 'Hoặc NO nay gì đó tùy bạn
End If

Hàm UDF trả về lỗi là cách thức làm việc đúng. Bẫy lỗi là bẻ tréo tay nó.
Muốn bẫy lỗi thì bẫy trên bảng tính (hàm IFERROR chẳng hạn)

 

[Nhattanktnn]

Bạn có biết cách viết sao cho cú pháp của hàm là NoiChuoi(KyTu,PhanCach,Range1,Range1,Range3,...) không? Nghĩa là n range, thêm bao nhiêu range thì nhận bấy nhiêu. Tôi định viết như thế nhưng không biết cách.

Em nghĩ nó là thế này:

Option Explicit
Function NoiChuoi(SoKyTu As Long, DauPhanCach As String, ParamArray VungDulieu() As Variant) As String
Dim cll As Range, I As Long, KetQua As String, Rng As Range
If UBound(VungDulieu) < 0 Then Exit Function
For I = 0 To UBound(VungDulieu)
    If Rng Is Nothing Then
        Set Rng = VungDulieu(I)
    Else
        Set Rng = Union(Rng, VungDulieu(I))
    End If
Next
For Each cll In Rng
    If Len(Trim(cll)) = SoKyTu Then
        KetQua = KetQua + Trim(cll) + DauPhanCach
    End If
Next
NoiChuoi = Left(KetQua, Len(KetQua) - 1)
End Function

 

[Maika8008]

Hàm UDF trả về lỗi là cách thức làm việc đúng. Bẫy lỗi là bẻ tréo tay nó.
Muốn bẫy lỗi thì bẫy trên bảng tính (hàm IFERROR chẳng hạn)

Em nghĩ chỗ này cũng do mình thiếu bao quát nên gây lỗi không đáng có. Khi không có kết quả nào trả về thì phải thông báo.

 

[VetMini]

Em nghĩ chỗ này cũng do mình thiếu bao quát nên gây lỗi không đáng có. Khi không có kết quả nào trả về thì phải thông báo.

Tôi đâu có xem code, cũng không hiểu hết yêu cầu của đề bài. Tôi không thể nói thêm về "lỗi không đáng có"
Những điều tôi nói ở bài #22 chỉ là chung chung. Thường thì người viết hàm phải có chú thích ở đầu hàm về các điều kiện làm việc và các lỗi trả về.

không có kết quả nào trả về: tuỳ theo bạn chủ đích muốn cho nó làm gì. Điển hình hàm Match của Excel nó đâu có thông báo gì. Kiếm không có thì nó "error" thôi.

 

[Thiên Thanh1]

Tôi đâu có xem code, cũng không hiểu hết yêu cầu của đề bài. Tôi không thể nói thêm về "lỗi không đáng có"
Những điều tôi nói ở bài #22 chỉ là chung chung. Thường thì người viết hàm phải có chú thích ở đầu hàm về các điều kiện làm việc và các lỗi trả về.

không có kết quả nào trả về: tuỳ theo bạn chủ đích muốn cho nó làm gì. Điển hình hàm Match của Excel nó đâu có thông báo gì. Kiếm không có thì nó "error" thôi.

Bác nói như vậy là chuẩn rồi. (Để còn biết được dữ liệu sai hay đúng)
Nhưng đôi khi phải kết hợp hàm khác vào thấy nó khó chịu.
Bạn @Nhattanktnn và các bạn GPE giúp mình thêm điều kiện "Nếu hàm trả lỗi thì ="No") giúp mình với nhé!
Cảm ơn các bạn!

 

[Maika8008]

Bác nói như vậy là chuẩn rồi. (Để còn biết được dữ liệu sai hay đúng)
Nhưng đôi khi phải kết hợp hàm khác vào thấy nó khó chịu.
Bạn @Nhattanktnn và các bạn GPE giúp mình thêm điều kiện "Nếu hàm trả lỗi thì ="No") giúp mình với nhé!
Cảm ơn các bạn!

Tôi đã làm ở bài #21 rồi đó bạn. Chắc bài cấp tập nên không theo kịp?

 

[Maika8008]

Em nghĩ nó là thế này:

Option Explicit
Function NoiChuoi(SoKyTu As Long, DauPhanCach As String, ParamArray VungDulieu() As Variant) As String
Dim cll As Range, I As Long, KetQua As String, Rng As Range
If UBound(VungDulieu) < 0 Then Exit Function
For I = 0 To UBound(VungDulieu)
    If Rng Is Nothing Then
        Set Rng = VungDulieu(I)
    Else
        Set Rng = Union(Rng, VungDulieu(I))
    End If
Next
For Each cll In Rng
    If Len(Trim(cll)) = SoKyTu Then
        KetQua = KetQua + Trim(cll) + DauPhanCach
    End If
Next
NoiChuoi = Left(KetQua, Len(KetQua) - 1)
End Function

OK. Nay học thêm được cách viết tham số mảng, cảm ơn bạn!