Hàm nối chuỗi cách cột

[hongphuong1997]

Nhờ anh chị và các thầy viết giúp hàm như file đính kèm
Em xin cảm ơn

 

[giaiphap]

Nhờ anh chị và các thầy viết giúp hàm như file đính kèm
Em xin cảm ơn

Thử hàm này.

Public Function JoinText(Rng As Range) As String
    Dim s As String, i%, j%
    s = ""
    i = 1: j = (i - 1) * 6 + 1
    JoinText = Rng.Cells(1, i).Address
    Do While (j <= Rng.Columns.Count)
        If s = "" Then
            s = Rng.Cells(1, j)
        Else
            If Rng.Cells(1, j) <> "" Then s = s & ";" & Rng.Cells(1, j)
        End If
        i = i + 1
        j = (i - 1) * 6 + 1
    Loop
    JoinText = s
End Function

Cách dùng.

=JoinText(I7:AJ7)

 

[hongphuong1997]

Thử hàm này.

Public Function JoinText(Rng As Range) As String
    Dim s As String, i%, j%
    s = ""
    i = 1: j = (i - 1) * 6 + 1
    JoinText = Rng.Cells(1, i).Address
    Do While (j <= Rng.Columns.Count)
        If s = "" Then
            s = Rng.Cells(1, j)
        Else
            If Rng.Cells(1, j) <> "" Then s = s & ";" & Rng.Cells(1, j)
        End If
        i = i + 1
        j = (i - 1) * 6 + 1
    Loop
    JoinText = s
End Function

Cách dùng.

=JoinText(I7:AJ7)

Em cảm ơn anh ạ
Hàm đã có kết quả đúng rui anh
em muốn hàm có thể chọn số cột có khoảng cách tùy ý , và dấu ngăn cách tùy ý thì như nào hở anh?
Ví dụ: Cú pháp của hàm như sau:
=JoinText("dấu phân cách"; "khoảng cách";I7:AJ7)

 

[giaiphap]

Em cảm ơn anh ạ
Hàm đã có kết quả đúng rui anh
em muốn hàm có thể chọn số cột có khoảng cách tùy ý , và dấu ngăn cách tùy ý thì như nào hở anh?
Ví dụ: Cú pháp của hàm như sau:
=JoinText("dấu phân cách"; "khoảng cách";I7:AJ7)

Sửa code lại thế này.

Public Function JoinText(seperate As String, jump As Integer, Rng As Range) As String
    Dim s As String, i%, j%
    s = ""
    i = 1: j = (i - 1) * jump + 1
    JoinText = Rng.Cells(1, i).Address
    Do While (j <= Rng.Columns.Count)
        If s = "" Then
            s = Rng.Cells(1, j)
        Else
            If Rng.Cells(1, j) <> "" Then s = s & seperate & Rng.Cells(1, j)
        End If
        i = i + 1
        j = (i - 1) * jump + 1
    Loop
    JoinText = s
End Function

Sử dụng

=JoinText(";",6,I7:AJ7)

 

[VetMini]

Function PickyJoin(rg As Range, gap As Long, delim As String) As String
' Joins non-blank strings in range rg (1 row, many columns), with specified interval intvl, and delimeter delim
For i = 1 To rg.Columns.Count Step gap
If rg.Cells(1, i).Value <> "" Then PickyJoin = PickyJoin & delim & rg.Cells(1, i).Value
Next i
PickyJoin = Replace(PickyJoin, delim, "", , 1)
End Function

 

[VetMini]

Đính chính: ở hàm trên, cần sửa những chỗ có "gap" thành "intvl"
Lúc đầun toi viết là gap (khoảng trống ở giữa), nhưng sau xem lại thì từ interval (khoảng cách) đúng hơn.

 

[hongphuong1997]

Đính chính: ở hàm trên, cần sửa những chỗ có "gap" thành "intvl"
Lúc đầun toi viết là gap (khoảng trống ở giữa), nhưng sau xem lại thì từ interval (khoảng cách) đúng hơn.

Cháu cảm ơn bác ạ
Bác nguyên tắc và quy chuẩn quá bác oi

 

[hongphuong1997]

Bác @VetMini @HieuCD @CHAOQUAY ===== cháu chịuđó,(Vì một người vớ vẩn mà cháu bị cấm vào diễn đàn bao nhiêu ngày)

 

[PacificPR]

Bác @VetMini @HieuCD @CHAOQUAY ===== cháu chịuđó,(Vì một người vớ vẩn mà cháu bị cấm vào diễn đàn bao nhiêu ngày)

Ồ đã mãn hạn rồi cơ à. Tính bao giờ lại bị tiếp đây

 

[xuongrongdat]

Bác @VetMini @HieuCD @CHAOQUAY ===== cháu chịuđó,(Vì một người vớ vẩn mà cháu bị cấm vào diễn đàn bao nhiêu ngày)

Vì một người đi mãi chắc không quay trở về.
Một chuyện tình nay đành chia đôi.
Một người ôm dĩ vãng, người kia ở chốn xa.

 

[hongphuong1997]

Ồ đã mãn hạn rồi cơ à. Tính bao giờ lại bị tiếp đây

Tức quá anh oi
bọn mất dạy, nó làm em mấy lần rùi

 

[n0thing1988]

Tức quá anh oi
bọn mất dạy, nó làm em mấy lần rùi

Thật giả lẫn lộn, 1 người đóng mấy vai.

 

[VetMini]

Bác @VetMini @HieuCD @CHAOQUAY ===== cháu chịuđó,(Vì một người vớ vẩn mà cháu bị cấm vào diễn đàn bao nhiêu ngày)

Biết rồi thì cố tránh những từ như vầy. Có thiếu chi cách nói bằng từ ngữ khác.

Tức quá anh oi
bọn mất dạy, nó làm em mấy lần rùi

 

[hongphuong1997]

Biết rồi thì cố tránh những từ như vầy. Có thiếu chi cách nói bằng từ ngữ khác.

Cháu cảm ơn Bác
Theo cháu nghĩ như này được không hở Bác
Sao BQT của diễn đàn không báo an ninh mạng để họ bắt những kẻ quấy rối này đi hở Bác.
Theo cháu biết thì luật có đầy đủ chứng cứ mà.

 

[VetMini]

Nếu tức thì cứ như vậy cho đỡ tức đi. Tội gì phải dùng ngôn ngữ của họ. Chẳng lẽ đi đường bị chó sủa thì bò xuống sủa lại nó à?
Một là mình bình tĩnh bỏ đi, đẻ cho nó lkaam tình trang ngậm máu phun người (*). Hai là mình thảy cho nó quả cà nướng trát mỡ, nó táp vào, bỏng nứu rụng răng hết.
(tôi trưởng thành trong xóm nhà lá, có hàng trăm mánh khoé đối đáp với bọn nhà giàu chuyên xua chó béc-giê rượt người nghèo)

(*) hàm huyết phún nhân, tiên ô tự khẩu.

 

[hongphuong1997]

Nếu tức thì cứ như vậy cho đỡ tức đi. Tội gì phải dùng ngôn ngữ của họ. Chẳng lẽ đi đường bị chó sủa thì bò xuống sủa lại nó à?
Một là mình bình tĩnh bỏ đi, đẻ cho nó lkaam tình trang ngậm máu phun người (*). Hai là mình thảy cho nó quả cà nướng trát mỡ, nó táp vào, bỏng nứu rụng răng hết.
(tôi trưởng thành trong xóm nhà lá, có hàng trăm mánh khoé đối đáp với bọn nhà giàu chuyên xua chó béc-giê rượt người nghèo)

(*) hàm huyết phún nhân, tiên ô tự khẩu.

Hi hi... Bác oi, nếu học được đức tính như Bác thì...........
Đố Bác cháu nói gì đó?????

 

[VetMini]

Hi hi... Bác oi, nếu học được đức tính như Bác thì...........
Đố Bác cháu nói gì đó?????

Tôi thì rất ít khi tích đức, lại càng không muốn công đức. Cho nên cả đời chẳng có đức.

 

[hongphuong1997]

Tôi thì rất ít khi tích đức, lại càng không muốn công đức. Cho nên cả đời chẳng có đức.

Bác oi!
Đấy là Bác đang tích đức
Và đang công đức đó.
Bác trả vờ cháu.... hu hu hu

 

[VetMini]

Xui xẻo. Gậy ông đập lưng ông.

 

[hongphuong1997]

Xui xẻo. Gậy ông đập lưng ông.

Ai bảo Bác nói ĐỂU CHÁU
Bác nói ĐỂU, NHƯNG MỜ Ý CỦA BÁC LÀ TỐT
ĐÓ LÀ GIÁO DỤC VÀ KHUYÊN DĂN (RĂN HAY GIĂN) MỌI NGƯỜI MÀ
Cháu thừa hiểu Bác nhé!