Chuyển đổi hàm thành UDF (5 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Tôi tuân thủ nội quy khi đăng bài
Có
H

hiennv.tsc

Thành viên chính thức
Tham gia
13/4/19
Bài viết
51
Được thích
16
Mình có file dữ liệu bằng hàm Excel như này, kính nhờ các bạn trên diễn đàn viết giúp thành hàm UDF.
Kính mong các bạn giúp đỡ.
Xin trân thành cảm ơn!
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
hiennv.tsc đã viết:
Mình có file dữ liệu bằng hàm Excel như này, kính nhờ các bạn trên diễn đàn viết giúp thành hàm UDF.
Kính mong các bạn giúp đỡ.
Xin trân thành cảm ơn!
Nhấp chuột vào đây để mở rộng...
Mã: 
Function DemBua_DungThiDung_KhongDungThiDung(strSou As String, _
                                            deli As String, _
                                            rng As Range) As String
    Dim arrSou, arrcomp, arrCount
    Dim i As Long, j As Long, k As Long, tmp1 As String, tmp2 As Long
    Dim str As String
   
    arrcomp = rng
    arrSou = Split(strSou, deli)
    ReDim arrCount(1 To rng.Columns.Count, 1 To 2)
   
    'Dem so lan xuat hien
    For i = 1 To rng.Columns.Count
        arrCount(i, 1) = arrcomp(1, i)
        k = 0
        For j = LBound(arrSou) To UBound(arrSou)
            If arrcomp(1, i) = arrSou(j) Then
            k = k + 1
            End If
        Next j
        arrCount(i, 2) = k
    Next

    'Sap xem lai mang - phuong phap noi bot

    For i = 1 To UBound(arrCount)
        For j = i + 1 To UBound(arrCount)
            If arrCount(i, 2) < arrCount(j, 2) Then
                ' Hoan doi gia tri cua hang i và j
                tmp1 = arrCount(i, 1)
                arrCount(i, 1) = arrCount(j, 1)
                arrCount(j, 1) = tmp1
                tmp2 = arrCount(i, 2)
                arrCount(i, 2) = arrCount(j, 2)
                arrCount(j, 2) = tmp2
            End If
        Next j
    Next i
    'Noi ket qua
    For i = 1 To UBound(arrCount)
        str = str & deli & arrCount(i, 1)
    Next i
    str = Right(str, Len(str) - Len(deli))
    DemBua_DungThiDung_KhongDungThiDung = str
End Function
Chú ý giá trị từ ô I17 đến AB17 đã chuyển từ kiểu number sang kiểu string. Bác định dạng 5 cột đầu thì là kiểu string 20 cột sau thì định dạng kiểu Number làm ra kết quả không khớp dò mệt nghỉ lỗi sai. Ở ô AD29 gõ hàm =DemBua_DungThiDung_KhongDungThiDung(E4&","&H4;",";D$17:AB$17)
 
Upvote 0
Mr.hieudoanxd đã viết:
Mã: 
Function DemBua_DungThiDung_KhongDungThiDung(strSou As String, _
                                            deli As String, _
                                            rng As Range) As String
    Dim arrSou, arrcomp, arrCount
    Dim i As Long, j As Long, k As Long, tmp1 As String, tmp2 As Long
    Dim str As String
  
    arrcomp = rng
    arrSou = Split(strSou, deli)
    ReDim arrCount(1 To rng.Columns.Count, 1 To 2)
  
    'Dem so lan xuat hien
    For i = 1 To rng.Columns.Count
        arrCount(i, 1) = arrcomp(1, i)
        k = 0
        For j = LBound(arrSou) To UBound(arrSou)
            If arrcomp(1, i) = arrSou(j) Then
            k = k + 1
            End If
        Next j
        arrCount(i, 2) = k
    Next

    'Sap xem lai mang - phuong phap noi bot

    For i = 1 To UBound(arrCount)
        For j = i + 1 To UBound(arrCount)
            If arrCount(i, 2) < arrCount(j, 2) Then
                ' Hoan doi gia tri cua hang i và j
                tmp1 = arrCount(i, 1)
                arrCount(i, 1) = arrCount(j, 1)
                arrCount(j, 1) = tmp1
                tmp2 = arrCount(i, 2)
                arrCount(i, 2) = arrCount(j, 2)
                arrCount(j, 2) = tmp2
            End If
        Next j
    Next i
    'Noi ket qua
    For i = 1 To UBound(arrCount)
        str = str & deli & arrCount(i, 1)
    Next i
    str = Right(str, Len(str) - Len(deli))
    DemBua_DungThiDung_KhongDungThiDung = str
End Function
Chú ý giá trị từ ô I17 đến AB17 đã chuyển từ kiểu number sang kiểu string. Bác định dạng 5 cột đầu thì là kiểu string 20 cột sau thì định dạng kiểu Number làm ra kết quả không khớp dò mệt nghỉ lỗi sai. Ở ô AD29 gõ hàm =DemBua_DungThiDung_KhongDungThiDung(E4&","&H4;",";D$17:AB$17)
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn rất nhiều.
Lỗi đó là do mình (Đáng nhẽ tất cả là dạng Text nhưng mình làm bị sai sót)
Mình đang kiểm tra (Có khả năng là rất đúng nhưng mình đang ngờ ngợ có chút bị lỗi)
Có gì chưa đúng mong bạn chỉnh sửa code giúp mình nhé.
Mình có đánh dấu mấy chỗ trong file bạn chỉnh sửa giúp mình nhé.
 

File đính kèm

Upvote 0
hiennv.tsc đã viết:
Cảm ơn bạn rất nhiều.
Lỗi đó là do mình (Đáng nhẽ tất cả là dạng Text nhưng mình làm bị sai sót)
Mình đang kiểm tra (Có khả năng là rất đúng nhưng mình đang ngờ ngợ có chút bị lỗi)
Có gì chưa đúng mong bạn chỉnh sửa code giúp mình nhé.
Mình có đánh dấu mấy chỗ trong file bạn chỉnh sửa giúp mình nhé.
Nhấp chuột vào đây để mở rộng...
Đã kiểm tra như lời bác nói- thêm hàm tách chữ theo ký tự nối là"," sau đó ra các cột ở dưới, đồng thời do ngược lại bằng HLOOKUP ở bảng bên trên để xem giá trị đếm có được sắp xếp đúng không. Chưa hiểu ý bác là sai chỗ nào
 

File đính kèm

Upvote 0
Mr.hieudoanxd đã viết:
Đã kiểm tra như lời bác nói- thêm hàm tách chữ theo ký tự nối là"," sau đó ra các cột ở dưới, đồng thời do ngược lại bằng HLOOKUP ở bảng bên trên để xem giá trị đếm có được sắp xếp đúng không. Chưa hiểu ý bác là sai chỗ nào
Nhấp chuột vào đây để mở rộng...
Bạn ơi, ý của mình đã trình bày lại trong file. Bạn sửa code giúp mình với nhé bạn.
Cảm ơn bạn.
 

File đính kèm

Upvote 0
hiennv.tsc đã viết:
Bạn ơi, ý của mình đã trình bày lại trong file. Bạn sửa code giúp mình với nhé bạn.
Cảm ơn bạn.
Nhấp chuột vào đây để mở rộng...
Tưởng xong rồi chứ quay lại diễn đàn thấy vẫn còn. Bác sửa lại theo code này
Mã: 
Function DemBua_DungThiDung_KhongDungThiDung(strSou As String, _
                                            deli As String, _
                                            rng As Range) As String
    Dim arrSou, arrcomp, arrCount
    Dim i As Long, j As Long, k As Long, tmp1 As String, tmp2 As Long
    Dim str As String
    
    arrcomp = rng
    arrSou = Split(strSou, deli)
    ReDim arrCount(1 To rng.Columns.Count, 1 To 2)
    
    'Dem so lan xuat hien
    For i = 1 To rng.Columns.Count
        arrCount(i, 1) = arrcomp(1, i)
        k = 0
        For j = LBound(arrSou) To UBound(arrSou)
            If arrcomp(1, i) = arrSou(j) Then
            k = k + 1
            End If
        Next j
        arrCount(i, 2) = k
    Next

    'Sap xep lai mang - phuong phap noi bot

    For i = 1 To UBound(arrCount)
        For j = i + 1 To UBound(arrCount)
            'Sap xep Nhieu xuong it
            If arrCount(i, 2) < arrCount(j, 2) Then
                ' Hoan doi gia tri cua hang i và j
                tmp1 = arrCount(i, 1)
                arrCount(i, 1) = arrCount(j, 1)
                arrCount(j, 1) = tmp1
                tmp2 = arrCount(i, 2)
                arrCount(i, 2) = arrCount(j, 2)
                arrCount(j, 2) = tmp2
            End If
            'Sap xep lon ve nho
            If arrCount(i, 2) = arrCount(j, 2) And CLng(arrCount(i, 1)) < CLng(arrCount(j, 1)) Then
                ' Hoan doi gia tri cua hang i và j
                tmp1 = arrCount(i, 1)
                arrCount(i, 1) = arrCount(j, 1)
                arrCount(j, 1) = tmp1
                tmp2 = arrCount(i, 2)
                arrCount(i, 2) = arrCount(j, 2)
                arrCount(j, 2) = tmp2
            End If
        Next j
    Next i
    'Sap xep lai mang  - lan 2
    
    'Noi ket qua
    For i = 1 To UBound(arrCount)
        str = str & deli & arrCount(i, 1)
    Next i
    str = Right(str, Len(str) - Len(deli))
    DemBua_DungThiDung_KhongDungThiDung = str
End Function
 
Upvote 0
Mr.hieudoanxd đã viết:
Tưởng xong rồi chứ quay lại diễn đàn thấy vẫn còn. Bác sửa lại theo code này
Mã: 
Function DemBua_DungThiDung_KhongDungThiDung(strSou As String, _
                                            deli As String, _
                                            rng As Range) As String
    Dim arrSou, arrcomp, arrCount
    Dim i As Long, j As Long, k As Long, tmp1 As String, tmp2 As Long
    Dim str As String
   
    arrcomp = rng
    arrSou = Split(strSou, deli)
    ReDim arrCount(1 To rng.Columns.Count, 1 To 2)
   
    'Dem so lan xuat hien
    For i = 1 To rng.Columns.Count
        arrCount(i, 1) = arrcomp(1, i)
        k = 0
        For j = LBound(arrSou) To UBound(arrSou)
            If arrcomp(1, i) = arrSou(j) Then
            k = k + 1
            End If
        Next j
        arrCount(i, 2) = k
    Next

    'Sap xep lai mang - phuong phap noi bot

    For i = 1 To UBound(arrCount)
        For j = i + 1 To UBound(arrCount)
            'Sap xep Nhieu xuong it
            If arrCount(i, 2) < arrCount(j, 2) Then
                ' Hoan doi gia tri cua hang i và j
                tmp1 = arrCount(i, 1)
                arrCount(i, 1) = arrCount(j, 1)
                arrCount(j, 1) = tmp1
                tmp2 = arrCount(i, 2)
                arrCount(i, 2) = arrCount(j, 2)
                arrCount(j, 2) = tmp2
            End If
            'Sap xep lon ve nho
            If arrCount(i, 2) = arrCount(j, 2) And CLng(arrCount(i, 1)) < CLng(arrCount(j, 1)) Then
                ' Hoan doi gia tri cua hang i và j
                tmp1 = arrCount(i, 1)
                arrCount(i, 1) = arrCount(j, 1)
                arrCount(j, 1) = tmp1
                tmp2 = arrCount(i, 2)
                arrCount(i, 2) = arrCount(j, 2)
                arrCount(j, 2) = tmp2
            End If
        Next j
    Next i
    'Sap xep lai mang  - lan 2
   
    'Noi ket qua
    For i = 1 To UBound(arrCount)
        str = str & deli & arrCount(i, 1)
    Next i
    str = Right(str, Len(str) - Len(deli))
    DemBua_DungThiDung_KhongDungThiDung = str
End Function
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn @Mr.hieudoanxd rất nhiều.
Hàm rất chuẩn và linh hoạt.
Không biết nói gì hơn, mình chúc bạn luôn vui vẻ và thành đạt trong tất cả các công việc.
 
Upvote 0
Mr.hieudoanxd đã viết:
Tưởng xong rồi chứ quay lại diễn đàn thấy vẫn còn. Bác sửa lại theo code này
Mã: 
Function DemBua_DungThiDung_KhongDungThiDung(strSou As String, _
                                            deli As String, _
                                            rng As Range) As String
    Dim arrSou, arrcomp, arrCount
    Dim i As Long, j As Long, k As Long, tmp1 As String, tmp2 As Long
    Dim str As String
   
    arrcomp = rng
    arrSou = Split(strSou, deli)
    ReDim arrCount(1 To rng.Columns.Count, 1 To 2)
   
    'Dem so lan xuat hien
    For i = 1 To rng.Columns.Count
        arrCount(i, 1) = arrcomp(1, i)
        k = 0
        For j = LBound(arrSou) To UBound(arrSou)
            If arrcomp(1, i) = arrSou(j) Then
            k = k + 1
            End If
        Next j
        arrCount(i, 2) = k
    Next

    'Sap xep lai mang - phuong phap noi bot

    For i = 1 To UBound(arrCount)
        For j = i + 1 To UBound(arrCount)
            'Sap xep Nhieu xuong it
            If arrCount(i, 2) < arrCount(j, 2) Then
                ' Hoan doi gia tri cua hang i và j
                tmp1 = arrCount(i, 1)
                arrCount(i, 1) = arrCount(j, 1)
                arrCount(j, 1) = tmp1
                tmp2 = arrCount(i, 2)
                arrCount(i, 2) = arrCount(j, 2)
                arrCount(j, 2) = tmp2
            End If
            'Sap xep lon ve nho
            If arrCount(i, 2) = arrCount(j, 2) And CLng(arrCount(i, 1)) < CLng(arrCount(j, 1)) Then
                ' Hoan doi gia tri cua hang i và j
                tmp1 = arrCount(i, 1)
                arrCount(i, 1) = arrCount(j, 1)
                arrCount(j, 1) = tmp1
                tmp2 = arrCount(i, 2)
                arrCount(i, 2) = arrCount(j, 2)
                arrCount(j, 2) = tmp2
            End If
        Next j
    Next i
    'Sap xep lai mang  - lan 2
   
    'Noi ket qua
    For i = 1 To UBound(arrCount)
        str = str & deli & arrCount(i, 1)
    Next i
    str = Right(str, Len(str) - Len(deli))
    DemBua_DungThiDung_KhongDungThiDung = str
End Function
Nhấp chuột vào đây để mở rộng...
Em nhờ chủ đề của chủ thớt với nhé.
Anh oi, nếu bây giờ dữ liệu đầu vào có các ký tự (3 dấu phân cách) là: (,) và (;) và (_) thì điều chỉnh hàm như nào hở anh?
Em nhờ anh @Mr.hieudoanxd và các anh chị cùng các bác hướng dẫn em chỉnh sửa hàm này với ạ.
 

File đính kèm

Upvote 0
hongphuong1997 đã viết:
nếu bây giờ dữ liệu đầu vào có các ký tự (3 dấu phân cách) là: (,) và (;) và (_) thì điều chỉnh hàm như nào hở anh?
Nhấp chuột vào đây để mở rộng...
Em thử tìm cách thay thế các dấu kia thành dấu phẩy "," xem thế nào. Một là thay thế trong code, hai là lồng thêm hàm Subtitute vào.
 
Upvote 0
hongphuong1997 đã viết:
Em nhờ chủ đề của chủ thớt với nhé.
Anh oi, nếu bây giờ dữ liệu đầu vào có các ký tự (3 dấu phân cách) là: (,) và (;) và (_) thì điều chỉnh hàm như nào hở anh?
Em nhờ anh @Mr.hieudoanxd và các anh chị cùng các bác hướng dẫn em chỉnh sửa hàm này với ạ.
Nhấp chuột vào đây để mở rộng...
Ủa mình đã trợ giúp cho bạn ở Inbox rồi mà??? công thức ở ô K11
 

File đính kèm

Upvote 0
Hoàng Tuấn 868 đã viết:
Em thử tìm cách thay thế các dấu kia thành dấu phẩy "," xem thế nào. Một là thay thế trong code, hai là lồng thêm hàm Subtitute vào.
Nhấp chuột vào đây để mở rộng...
Em muốn thay đổi trong code cơ anh oi.
Vì em muốn các anh chị chỉnh sửa trong code cho em để em học hỏi và biết cách vận dụng cho các trường hợp khác nhau ạ.
Anh làm và hướng dẫn em với anh nhé.
 
Upvote 0
Mr.hieudoanxd đã viết:
Ủa mình đã trợ giúp cho bạn ở Inbox rồi mà??? công thức ở ô K11
Nhấp chuột vào đây để mở rộng...
Hihi em cảm ơn anh ạ.
Nhưng em thích cái hàm ở bài #6 của anh cơ (Chứ không phải à tách ra như vậy đâu anh oi)
www.giaiphapexcel.com

Chuyển đổi hàm thành UDF

Mình có file dữ liệu bằng hàm Excel như này, kính nhờ các bạn trên diễn đàn viết giúp thành hàm UDF. Kính mong các bạn giúp đỡ. Xin trân thành cảm ơn!
www.giaiphapexcel.com www.giaiphapexcel.com
Anh chỉnh lại code của bài #6 cho em với ạ.
Em cảm ơn anh ạ.
Bài đã được tự động gộp:

Hoàng Tuấn 868 đã viết:
Có chính chủ rồi đó em.
Nhấp chuột vào đây để mở rộng...
Anh hướng dẫn em với ạ, mỗi người mỗi cách thì em càng học đực nhiều anh oi.
Anh làm cho em với nhé anh.
Em cảm ơn anh ạ.
 
Upvote 0

File đính kèm

Upvote 0
Mr.hieudoanxd đã viết:
Mình chỉnh code trong file sửa lại tham số 1 chút. Code trước mình đã gửi hàm SplitText2 kết quả trả về mảng để bạn vận dụng là ra rồi bạn thêm vào là xong mà
Nhấp chuột vào đây để mở rộng...
Em cảm ơn anh ạ
Hihi... thật sự là em rất ngu về VBA em nghiên cứu mãi mừ đầu óc vẫn củ chuối lắm anh oi.
Bài đã được tự động gộp:

Hoàng Tuấn 868 đã viết:
Câu này em có nói thật lòng không đấy.
Nhấp chuột vào đây để mở rộng...
Huhu.....bàn phím máy của em bị kẹt nên bị thiếu đóa anh oi.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

C
  • Question Question
Xin hỏi Cách viết chú thích trong vba hiển thị tiếng việt
Trả lời
4
Đọc
127
ongke0711
ongke0711
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
28
Đọc
7K
Hoàng Tuấn 868
H
G
Xin Code xóa Module.
Trả lời
8
Đọc
272
huhumalu
H
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
3
Đọc
145
tle2003
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
22
Đọc
543
nguyendang95
N
S
Mở 2 cửa sổ riêng biệt
2
Trả lời
30
Đọc
23K
sakuraluu
S
F
Nhập dấu . (chấm) ở bàn phím phụ không tự chuyển thành dấu , (phẩy)
Trả lời
16
Đọc
57K
tubaodn21
tubaodn21
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt
    • Thích
    • Yêu thích
2
Trả lời
21
Đọc
1K
PhanTuHuong
PhanTuHuong
L
Lỗi font khi convert từ pdf
Trả lời
3
Đọc
138
lamvu0677
L
N
Khắc phục lỗi "The picture is too large and will be truncated"
Trả lời
9
Đọc
5K
SonBDND
S
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER (1 người xem)
    • Thích
Trả lời
0
Đọc
2K
GPE-Trợ Lý
GPE-Trợ Lý
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
1
Đọc
119
khkkh
K
K
Xin dax tính tỷ trọng doanh thu
Trả lời
18
Đọc
796
SteveNguyen1991
S
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
6
Đọc
228
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
0
Đọc
146
nguyendang95
N
H
Nhờ anh/chị giúp đỡ em viết công thức trừ dữ liệu theo FiFo
Trả lời
1
Đọc
137
HieuCD
H
BNTT
LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel (1 người xem)
    • Thích
4 5 6
Trả lời
118
Đọc
73K
YêuCN
Y
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện.
Trả lời
14
Đọc
222
thuytrangbp28
T
micam111
  • Question Question
Cách chạy nhiều đồng hồ đếm giờ trong VBA
Trả lời
4
Đọc
712
thuytrangbp28
T
Emyeuexcel
  • Question Question
In tất cả các file trong cùng 1 thư mục
Trả lời
3
Đọc
237
Hoàng Tuấn 868
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom