Cần các Pro giúp đỡ về - thống kê dữ liệu (1 người xem)

[meacupa]

Hi các bạn
Mình có một bài toán thống kê số liệu như file đính kèm nhờ các bạn giúp đỡ

Mình cần thống kê các số nằm sau một số cho trước, như trong file trên mình cần thống kê các số nằm sau số 6( mình đã bôi màu vàng) rồi ghi ra một sheet khác( sheet Ket qua)

Rất mong được các Pro giúp đỡ

Thanks

 

[befaint]

Bạn thử đoạn sau xem:

Sub lietke()
Dim rng As Range, cll As Range, tmp(), i As Long
Set rng = Sheet1.UsedRange
ReDim tmp(1 To WorksheetFunction.CountIf(rng, 6))
For Each cll In rng
    If cll.Value = 6 Then
        tmp(i + 1) = cll.Offset(1, 0).Value
        i = i + 1
    End If
Next cll
Sheet2.Range("B1:B65000").ClearContents
Sheet2.Range("B1").Resize(UBound(tmp), 1) = Application.Transpose(tmp)
End Sub

 

[meacupa]

Cảm ơn bạn rất nhiều, phần mềm chạy rất tốt
Nếu mình muốn sử dụng một ô bằng Userform để dễ dàng thay số liệu( số 6 như trong bài) thì mình phải làm sao
Bạn giúp mình với
Thanks

 

[befaint]

Cảm ơn bạn rất nhiều, phần mềm chạy rất tốt Nếu mình muốn sử dụng một ô bằng Userform để dễ dàng thay số liệu( số 6 như trong bài) thì mình phải làm sao Bạn giúp mình với Thanks

Vậy dùng Inputbox cho đơn giản:

Sub lietke()
 Dim rng As Range, cll As Range, tmp(), i As Long, so 
Set rng = Sheet1.UsedRange 
so = InputBox("Nhâp sô cân tham chiêu:", "Nhâp sô") 
If so = "" Then Exit Sub 
ReDim tmp(1 To WorksheetFunction.CountIf(rng, so)) 
For Each cll In rng
     If cll.Value = 1 * so Then
         tmp(i + 1) = cll.Offset(1, 0).Value
         i = i + 1
     End If
 Next cll 
Sheet2.Range("B1:B65000").ClearContents 
Sheet2.Range("B1").Resize(UBound(tmp), 1) = Application.Transpose(tmp) 
End Sub

 

[ndu96081631]

Hi các bạn
Mình có một bài toán thống kê số liệu như file đính kèm nhờ các bạn giúp đỡ

Mình cần thống kê các số nằm sau một số cho trước, như trong file trên mình cần thống kê các số nằm sau số 6( mình đã bôi màu vàng) rồi ghi ra một sheet khác( sheet Ket qua)

Rất mong được các Pro giúp đỡ

Thanks

Bạn tìm số nằm sau số 6? Vậy giả sử có 2 hoặc 3 thậm chí là nhiều số 6 nằm liên tiếp nhau thì tính sao? Hoặc giả số 6 được tìm thấy nhưng nằm dòng cuối cùng của dữ liệu thì tính sao?
Nói chung nên nghĩ đến những trường hợp bất ngờ của dữ liệu

 

[meacupa]

Cảm ơn bạn đã đưa ra các trường hợp
Nhưng ở bài toán của mình phần code trên là đã đúng và đủ
- Mình thấy nó quét dữ liệu từ trái sang phải, trên xuống dưới cứ có số 6 thì nó ghi lại số nằm sau( trong cột) của nó nên nếu có nhiều số 6 liên tiếp nhau thì nó ghi nhiều số 6 liên tiếp
- Số 6 nằm ở dòng cuối cùng thì nó ghi ra ô trống( không có giá trị)
Với mình code này là hay quá rồi nhưng mình sẽ cố gắng tìm hiểu để hoàn thiệt nó hơn nữa
Thanks all