Gộp các Số theo điều kiện

Liên hệ QC

tranttoan

Thành viên mới
Tham gia
1/8/09
Bài viết
42
Được thích
19
Có File đính kèm các Bác xem giúp đở.
Cảm ơn nhiều
 

File đính kèm

  • TimSo.xls
    14 KB · Đọc: 7
Có File đính kèm các Bác xem giúp đở.
Cảm ơn nhiều
Thử với hàm "xi-ma-chao" này xem
Mã:
Public Function Timso(Dk, Vung)
    Dim I As Long, Kq
        For I = 1 To Vung.Columns.Count
            If Vung(I) = Dk Then Kq = Kq & "," & I
        Next
    Timso = Right(Kq, Len(Kq) - 1)
End Function
 

File đính kèm

  • TimSo(1).xls
    25.5 KB · Đọc: 10
TimChu

Cảm ơn Bác ConCoGia nhiều ! Bác cho tôi hỏi khi thay hàng số bằng hàng chữ thì cũng giống như điều kiện ban đầu thì Fuction Timso sẽ sửa lại như thế nào.
Có kèm File
Cảm ơn Các Bác quan Tâm
 

File đính kèm

  • TimChu.xls
    17.5 KB · Đọc: 7
Lần chỉnh sửa cuối:
Cảm ơn Bác ConCoGia nhiều ! Bác cho tôi hỏi khi thay hàng số bằng hàng chữ thì cũng giống như điều kiện ban đầu thì Fuction Timso sẽ sửa lại như thế nào.
Có kèm File
Cảm ơn Các Bác quan Tâm
Tạm thời sử thế này cũng được
 

File đính kèm

  • timchu1234.xls
    26 KB · Đọc: 11
Web KT

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

Back
Top Bottom