Dữ liệu thống kê (1 người xem)

[qv7tb]

Bài toán của em như sau: em có các ký tự thuộc sheet 1(dữ liệu) có bảng đánh giá tại đó. sheet 2(thống kê) ghép 2 ký tự đó lại(hay kết hợp 2 ký tự đó lại) sau đó xét bảng đánh giá 6 ký tự trên. Giả sử ký tự A và B đồng thời bằng 1 ta đánh giá tại ô đó bằng 1, còn nếu A =1, B=" " hoặc A=" ", B=1 thì đánh giá tại đó =0,nếu cả A và B = " " bỏ qua. Em gửi file đính kèm ví dụ
Các bác xem kỹ viết cho em cái code VBA để thống kê lại dữ liệu.
Cảm ơn forum GPE!

 

[nghiaphuc]

Bài toán của em như sau: em có các ký tự thuộc sheet 1(dữ liệu) có bảng đánh giá tại đó. sheet 2(thống kê) ghép 2 ký tự đó lại(hay kết hợp 2 ký tự đó lại) sau đó xét bảng đánh giá 6 ký tự trên. Giả sử ký tự A và B đồng thời bằng 1 ta đánh giá tại ô đó bằng 1, còn nếu A =1, B=" " hoặc A=" ", B=1 thì đánh giá tại đó =0,nếu cả A và B = " " bỏ qua. Em gửi file đính kèm ví dụ
Các bác xem kỹ viết cho em cái code VBA để thống kê lại dữ liệu.
Cảm ơn forum GPE!

Thứ nhất, tiêu đề "Dữ liệu thống kê" là một tiêu đề không rõ ràng và có thể bị xóa. Bạn đã có trên 100 bài viết rồi mà vẫn vi phạm lỗi sơ đẳng này.
Thứ hai, kết quả thống kê của bạn có vấn đề: Các ô J4, F6, K7, G8 phải là số 0 chứ không phải là chuỗi rỗng.
Thứ ba, bài này dùng công thức cũng giải quyết được chứ không cần đến VBA.

Bạn nghĩ sao?!

 

[qv7tb]

Em nghĩ bỏ qua vụ tiêu đề. Vì em chưa coi kỹ. Hai số liệu nhầm lẫn các ô do sơ xuất khi vào số. sr mọi người. bài này em chỉ xin code để cho nhanh gọn bác ah!
Cảm ơn bác chỉ dẫn.
Thanks 4rum GPE!

 

[dhn46]

Bạn đã post dạng bài này bao nhiều lần rồi? Bạn đã có bao nhiêu cấu trả lời rồi? Chẳng nhẽ những gì mọi người làm cho bạn với dạng bài này vô ích?

 

[nghiaphuc]

bài này em chỉ xin code để cho nhanh gọn bác ah!
Cảm ơn bác chỉ dẫn.
Thanks 4rum GPE!

Nhân dịp đang học Array, tôi viết code cho bạn. Nếu thực sự như bạn dhn46 nói thì bạn cũng nên xem lại mình đấy nhé (thực ra tôi viết để học chứ cũng chưa xem lại các bài của mọi người đã trả lời bạn trước đây).
[GPECODE=vb]Sub ThongKe()
Dim sArr, Arr(), i As Long, j As Long, k As Long, n As Long
On Error Resume Next
sArr = Sheet1.[A4:J30]
ReDim Arr(1 To WorksheetFunction.Combin(UBound(sArr), 2), 1 To 11)
For j = 3 To 11
Arr(1, j) = j - 2
Next
n = 1
For i = 1 To UBound(sArr) - 1
If sArr(i, 1) = "" Then Exit For
For j = i + 1 To UBound(sArr)
If sArr(j, 1) = "" Then Exit For
n = n + 1
For k = 3 To 11
Arr(n, 1) = sArr(i, 1)
Arr(n, 2) = sArr(j, 1)
If sArr(i, k - 1) * sArr(j, k - 1) Then
Arr(n, k) = 1
ElseIf sArr(i, k - 1) + sArr(j, k - 1) Then
Arr(n, k) = 0
End If
Next
Next
Next
Sheet2.Cells.Clear
Sheet2.[A1].Resize(UBound(Arr), 11) = Arr
End Sub[/GPECODE]

 

[qv7tb]

cảm ơn những lời nói hữu dụng của mọi người. Cảm ơn GPE!

 

[nghiaphuc]

Hôm qua tôi mới nhận được email của bạn qv7tb:

phần này bác còn thiếu trường cuối nữa. ví có 3 ky tự thì ghép như sau:
A,B,C=> A-B,A-C,B-C bác thiếu trường hợp B-C. trong bài này
http://www.giaiphapexcel.com/forum/showthread.php?80842-Dữ-liệu-thống-kê
bác xem cho em code chuẩn của nó. thanks bác!

Tôi gửi video, bạn xem qua nhé. Nếu có vấn đề gì thì chúng ta trao đổi ở đây luôn cho tiện, tôi ít khi check mail lắm.
[video=youtube_share;NltB7GLpdJw]http://youtu.be/NltB7GLpdJw[/video]

 

[qv7tb]

Thanks Bác!
Thanks GPE!

 

[qv7tb]

Em cũng biết nhờ các bác chỉ giáo lần này cho bài toán nhiều khúc mắc này giúp em. Ghép dãy ký tự với dãy số sau đó thống kê theo dữ liệu. Em đọc mãi làm mà chẳng ích gì đành nhờ các bác chỉ giáo vậy, biết ngu dốt phải nói mới bớt ngu thôi. file dữ liệu đây các bác cho em ý kiến
thanks GPE!

 

[concogia]

Em cũng biết nhờ các bác chỉ giáo lần này cho bài toán nhiều khúc mắc này giúp em. Ghép dãy ký tự với dãy số sau đó thống kê theo dữ liệu. Em đọc mãi làm mà chẳng ích gì đành nhờ các bác chỉ giáo vậy, biết ngu dốt phải nói mới bớt ngu thôi. file dữ liệu đây các bác cho em ý kiến
thanks GPE!

Hình như đáp án có vấn đề
Nếu theo điều kiện này:

B2: Xét bảng dữ liệu nếu A =1,B=1 thì A U B=0, nếu A=1, B =" " =>A U B=1, nếu A=" ",B="" Thì A U B="",Nếu A="", B=1 thì A U B =0 (A mã A…F, B là mã từ 1..6)

Và, nếu mình hiểu đúng, thì ở đáp án của bạn:
Cell [D5] & [K5]="Rỗng" ==> theo mình phải bằng 1
Cell [I6] & [K6]="Rỗng" ==> theo mình phải bằng 0
Cell [J6] =0 ==> theo mình phải bằng "Rỗng"
Hihi, đó là theo ý mình, còn nếu đáp án bạn đúng thì mình ............hiểu trật lấc ==> hổng biết làm
Mà sao bạn không lấy nick là "TachGhep" cho nó hợp với các bài bạn hỏi nhỉ ???
Híc
Thân

 

[qv7tb]

Em viết làm nhìn hoa hết cả mắt nên nhầm lẫn nhiều chỗ bác thông cảm. Bác xem kỹ rồi cho em ý kiến nhiều chỗ sai mà. nên mới nhờ mọi người ngoài đóng góp cho em cái code mà. thanks bác

 

[concogia]

Em viết làm nhìn hoa hết cả mắt nên nhầm lẫn nhiều chỗ bác thông cảm. Bác xem kỹ rồi cho em ý kiến nhiều chỗ sai mà. nên mới nhờ mọi người ngoài đóng góp cho em cái code mà. thanks bác

Nếu thế thì phang thử cái code này, sai ít ít thì sửa, nếu sai nhiều quá thì thôi,.......bỏ đi, kiếm cái khác làm nhé
Híc, đúng là nhìn một hồi cũng hoa mắt thật
Thân

 

[qv7tb]

để em kiểm nghiệm đã. thanks bác nhiều.

 

[qv7tb]

em kiểm hiện có 2 vấn đề xảy ra là: thứ 1 là dữ liệu thống kê chuyển qua sheet 2, thứ 2 về tốc độ chạy chậm nếu như cho dãy 1500*60 dòng và 2000 cột là đợi cả buổi bác ah!
Rất cảm ơn bác về sự nhiệt tình và tâm huyết chúc bác sức khỏe và niềm vui.
Thanks GPE!

 

[qv7tb]

Cùng chuyên mục em không mở bài mới để mời các bác giúp đỡ em cho bài toán nhiều vấn đề nảy sinh này.
Bài này này nhân đối xứng A*a...J*j theo bảng số liệu. Có sao em mô tả qua bảng số liệu đính kèm. Các bác trên GPE qua coi cho em các code.
Thnaks GPE!

 

[qv7tb]

A/e GPE vào coi cho ý kiến cái nào
Up..U...p

 

[concogia]

Cùng chuyên mục em không mở bài mới để mời các bác giúp đỡ em cho bài toán nhiều vấn đề nảy sinh này.
Bài này này nhân đối xứng A*a...J*j theo bảng số liệu. Có sao em mô tả qua bảng số liệu đính kèm. Các bác trên GPE qua coi cho em các code.
Thnaks GPE!

Hàng Ff, cột số [7], trong 2 đứa mình có một đứa trật
Híc

 

[qv7tb]

bác chuẩn em trật.
Thanks bác!
Thanks GPE!

 

[qv7tb]

Nhân dịp đang học Array, tôi viết code cho bạn. Nếu thực sự như bạn dhn46 nói thì bạn cũng nên xem lại mình đấy nhé (thực ra tôi viết để học chứ cũng chưa xem lại các bài của mọi người đã trả lời bạn trước đây).
[GPECODE=vb]Sub ThongKe()
Dim sArr, Arr(), i As Long, j As Long, k As Long, n As Long
On Error Resume Next
sArr = Sheet1.[A4:J30]
ReDim Arr(1 To WorksheetFunction.Combin(UBound(sArr), 2), 1 To 11)
For j = 3 To 11
Arr(1, j) = j - 2
Next
n = 1
For i = 1 To UBound(sArr) - 1
If sArr(i, 1) = "" Then Exit For
For j = i + 1 To UBound(sArr)
If sArr(j, 1) = "" Then Exit For
n = n + 1
For k = 3 To 11
Arr(n, 1) = sArr(i, 1)
Arr(n, 2) = sArr(j, 1)
If sArr(i, k - 1) * sArr(j, k - 1) Then
Arr(n, k) = 1
ElseIf sArr(i, k - 1) + sArr(j, k - 1) Then
Arr(n, k) = 0
End If
Next
Next
Next
Sheet2.Cells.Clear
Sheet2.[A1].Resize(UBound(Arr), 11) = Arr
End Sub[/GPECODE]

Với bài toán trên bác nào viết cho trường hợp tổ hợp chập 3 của 3 ký tự trên nếu 3 ký tự đồng thời xuất hiện cho ra 1 nếu xuất hiện 1 hoặc 2 ký tự trong 3 ký tự ấy cho ra 0, còn nếu ô trống bỏ qua. thanks các bác
thanks GPE!

 

[concogia]

Với bài toán trên bác nào viết cho trường hợp tổ hợp chập 3 của 3 ký tự trên nếu 3 ký tự đồng thời xuất hiện cho ra 1 nếu xuất hiện 1 hoặc 2 ký tự trong 3 ký tự ấy cho ra 0, còn nếu ô trống bỏ qua. thanks các bác
thanks GPE!

Mở cái "meo meo" của bạn ra mà xem
Híc

 

[qv7tb]

rất cảm ơn Thầy Concogia.
Thanks GPE!

 

[qv7tb]

Với bài toán trên bác nào viết cho trường hợp tổ hợp chập 3 của 3 ký tự trên nếu 3 ký tự đồng thời xuất hiện cho ra 1 nếu xuất hiện 1 hoặc 2 ký tự trong 3 ký tự ấy cho ra 0, còn nếu ô trống bỏ qua. thanks các bác
thanks GPE!

Em mạnh bạo nhờ các bác cho em 1 cách nào nhanh và gọn như của bác nghiaphuc.
Thầy concogia cũng ổn rồi. có vài điểm em hay nhầm nên nhờ người cho thêm ý kiến.
thanks GPE!

 

[qv7tb]

Hàng Ff, cột số [7], trong 2 đứa mình có một đứa trật
Híc

bài quá chuẩn khi chạy dữ liệu khác mà thay sai liên tục đảo lộn hết. Em nhờ cá cao thủ cho code gọn nhẹ và hiệu quả hơn thanks thầy concogia và ae GPE!

 

[qv7tb]

em xin up file vi dụ cho bài #17 để các bác có cái làm giúp em
thanks GPE!

 

[qv7tb]

Nhờ các bác GPE vào xem làm giúp yêu cầu bài #19
Xét tổ hợp chập 3 của n (n gồm ký tự lẫn số). Nếu chập 3 số đều xuất hiện 1 thuộc bảng dữ liệu thì cho kết quả ở bảng thống kê là 1, Nếu chập 3 đó có xuất hiện 1 hoặc 2 (ký tự hoặc số) đó có 1 ở bảng dữ liệu cho ra kq là 0, còn nếu chập3 đó là ô trông cho kq là ô trống. Tuy có phức tạp về cách diễn đạt, nên các bác phải đoán nhiều.(nhưng nó tương tự bài #5 bác nghiaphuc làm thay bằng chập 2 bài #19 này là chập 3)
Rất mong các bác quan tâm và giúp đỡ em!