[hỏi] Cách nối chuỗi trong excel

daretofail · Đăng lúc 1/7/2016 20:21

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x

Chào mọi người
Hiện tại em có một vấn đề nêu trong ví dụ có bôi vàng, nhờ mọi người giúp đỡ.
Cảm ơn mọi người nhiều

Noichuoi.xlsx (9.38 KB, Lượt tải về: 1027)

tranhoe · Đăng lúc 2/7/2016 00:29

daretofail gửi lúc 1/7/2016 22:21
tranhoe gửi lúc 1/7/2016 21:49

Cảm ơn anh nhiều.

Mỗi kiểu dữ liệu thì vận dụng cách viết code khác nhau, vì vậy khi khuôn mẫu dữ liệu đã chín muồi thì hãy hỏi để đỡ mất công cho người trả lời.
Code này chỉ dùng riêng cho kiểu dữ liệu này, nếu đổi kiểu thì phải biết đọc code để tự sửa mới chạy đúng được.
Đính kèm:

Noichuoi_V2.xls (40.5 KB, Lượt tải về: 976)

tranhoe · Đăng lúc 1/7/2016 21:49

Dùng VBA:

[Visual Basic] 纯文本查看 复制代码

Public Function KetQua(ByVal Rng As Range) As String
    Dim i As Integer, Rng1 As Range
    Dim Tam As String
    For Each Rng1 In Rng
        If Rng1.Value = 0 Then GoTo TiepTuc
        If i = 0 Then
            Tam = "Th" & ChrW(225) & "ng " & WorksheetFunction.Text(Rng1, "dd")
        Else
            Tam = Tam & "+" & WorksheetFunction.Text(Rng1, "dd")
        End If
        i = i + 1
TiepTuc:
    Next
    KetQua = Tam & "/"
End Function

Kết quả xem File đính kèm

Noichuoi_V1.xlsm (16.75 KB, Lượt tải về: 1036)

daretofail · Đăng lúc 1/7/2016 22:21

tranhoe gửi lúc 1/7/2016 21:49

Dùng VBA:
[mw_shl_code=vb,true]Public Function KetQua(ByVal Rng As Range) As String
Dim i As In ...

Cảm ơn anh nhiều.
Em muốn hỏi thêm tý là em sửa dữ liệu như ví dụ thì phải làm như thế nào?

Noichuoi.xlsx (9.58 KB, Lượt tải về: 1003)

votinh3290 · Đăng lúc 3/7/2016 23:13

Function NoiChuoi(aR As Range) As String
With Application.WorksheetFunction
NoiChuoi = Replace(.Trim(Replace(Join(.Transpose(.Transpose(aR)), "+"), "+", " ")), " ", "+")
End With
End Function

tranhoe · Đăng lúc 3/7/2016 23:47

votinh3290 gửi lúc 3/7/2016 23:13
Function NoiChuoi(aR As Range) As String
With Application.WorksheetFunction
NoiChuoi = Replace ...

Không hiểu Bạn trả lời cho bài số 1# hay bài 3#.
- Nếu bài 1# thì gần đúng; vì các tháng <10 thì chỉ có 1 con số trong khi yêu cầu phải đủ 2 số là 01, 02, 03, 04
- Nếu bài 3# thì không hiểu dùng công thức thế nào trong khi yêu cầu có đặc biệt hơn bài 1#: Định dạng tháng có 2 chữ số, nếu cùng năm thì gộp các tháng với nhau đồng thời chỉ viết Hoa chữ Tháng đầu tiên thôi

Tóm lại áp dụng vào file đính kèm mới thấy được kết quả.

votinh3290 · Đăng lúc 4/7/2016 07:09

tranhoe gửi lúc 3/7/2016 23:47
Không hiểu Bạn trả lời cho bài số 1# hay bài 3#.
- Nếu bài 1# thì gần đúng; vì các ...

Áp dụng thêm cả công thức Excel đi chú! Sao cứ phải phục thuộc vào VBA nhỉ?

votinh3290 · Đăng lúc 4/7/2016 23:56

Với e thì cách này đơn giản hơn, kể cả code trong hàm VBA cũng là vận dụng cách sử dụng công thức trong Excel.!!! Một hàm Excel là sản phẩm trí tuệ của microsoft, không biết có ưu việt hơn hàm tự tạo hay không nhưng nó là sản phẩm của những bộ óc công nghệ hàng đầu thế giới.

E cũng có thể làm được bài số 2 bằng cách tương tự, nhưng em thừa nhận cách đó phức tạp hơn VBA!!!

Tài khoản		Ghi nhớ?	Quên mật khẩu
Mật khẩu			Đăng ký mới

[hỏi] Cách nối chuỗi trong excel

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Đánh giá

Đánh giá

[hỏi] Cách nối chuỗi trong excel

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Đánh giá

Cảm ơn!

Cảm ơn!

Đánh giá

Cảm ơn!