بۇ كود ئارقىلىق بىر تۈركۈم سانلىق مەلۇماتلارنى ئاپتۇماتىك سىتاستىكا قىلغىلى بۇلىدۇ. مەسىلەن : 10000 ئادەمنىڭ ئىسىملىكى ۋە ئۇنىڭ تۇرۇشلۇق كەنتە ئادرىسى بار دەيلى ، بۇ ئارقىلق شۇ 10000 ئادەمنى كەنتىلەر بۇيىچە سانىنى سىتاستىكا قىلغىلى بۇلىدۇ. كەنتە ئىسمىنى كىرگۈزۈش بىھاجەت، ئاپتۇماتىك كەنتە ئىسمىنى تېپىپ سىتاستىكا قىلىدۇ. مۇشۇنىڭغا ئوخشاش ئوقۇغۇچىنى سىنىپلار بۇيىچە سىتاستىكا قىلش، مەلۇم بىرنەچچە تۈر بۇيىچە سانىنى سىتاستىكا قىلىش دىگەنلەرگە ماس كىلىدۇ. (ئەسكەرتىش: تۇرۇشلۇق كەنتە ئىسمى چۇقۇم sheet1دىكى B سىتونغا كۈچۈرلىشى كىرەك. سىتاستىكىسى sheet2 گە چىقىدۇ. بىر دانە كوماندا كۇنۇپكىسى قىستۇرپ، VBAكود رايۇنىغا كودنى كۈچۈرسىڭىز بۇلىدۇ.- Dim a As String, b As String
- m = 0
- num = Sheets("sheet1").Range("b65536").End(xlUp).Row
-
- a = Sheets("sheet1").Cells(3, 2)
- Sheets("sheet2").Cells(3, 2) = a
- For i = 1 To num - 2
- s = 0
- b = Sheets("sheet1").Cells(i + 2, 2)
- num2 = Sheets("sheet2").Range("b65536").End(xlUp).Row
-
- For j = 1 To num2 - 2
-
- c = Sheets("sheet2").Cells(j + 2, 2)
-
- If b = c Then
-
- s = s + 1
- End If
-
- Next j
-
-
-
- If a <> b And s = 0 Then
- a = b
-
- m = m + 1
-
- End If
- Sheets("sheet2").Cells(m + 3, 2) = a
-
- Next i
- num3 = Sheets("sheet2").Range("b65536").End(xlUp).Row
- For g = 1 To num3 - 2
- san = 0
- For h = 1 To num - 2
- m = Sheets("sheet2").Cells(g + 2, 2)
- If m = Sheets("sheet1").Cells(h + 2, 2) Then
- san = san + 1
- End If
- Next h
- Sheets("sheet2").Cells(g + 2, 3) = san
-
- Next g
- For k = 1 To num3 - 2
- q = Sheets("sheet2").Cells(k + 2, 3)
- Sum = Sum + q
- Next k
- Sheets("sheet2").Cells(num3 + 1, 2) = "总共"
- Sheets("sheet2").Cells(num3 + 1, 3) = Sum
|
