- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 137
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-6-14
![2023¦~¥þ¶Ô¼ú³¹ 2023¦~¥þ¶Ô¼ú³¹](images/common/2023.png) ![2022ªê¦~¥þ¶Ô¼ú³¹ 2022ªê¦~¥þ¶Ô¼ú³¹](images/common/hu.gif) ![2021¤û¦~¥þ¶Ô¼ú³¹ 2021¤û¦~¥þ¶Ô¼ú³¹](images/common/niu.gif) ![2020¹«¦~¥þ¶Ô¼ú³¹ 2020¹«¦~¥þ¶Ô¼ú³¹](images/common/shu.gif) ![2019 ½Þ¦~¥þ¶Ô¼ú³¹ 2019 ½Þ¦~¥þ¶Ô¼ú³¹](images/common/zhu.gif) ![2018 ª¯¦~¥þ¶Ô¼ú³¹ 2018 ª¯¦~¥þ¶Ô¼ú³¹](images/common/gou.gif) ![2017 Âû¦~¥þ¶Ô¼ú³¹ 2017 Âû¦~¥þ¶Ô¼ú³¹](images/common/ji.gif) ![2016µU¦~¥þ¶Ô¼ú³¹ 2016µU¦~¥þ¶Ô¼ú³¹](images/common/hou.gif) ![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![2014°¨¦~¥þ¶Ô¼ú³¹ 2014°¨¦~¥þ¶Ô¼ú³¹](images/common/ma.gif) ![2013³D¦~¥þ¶Ô¼ú³¹ 2013³D¦~¥þ¶Ô¼ú³¹](images/common/she.gif) ![2012Às¦~¥þ¶Ô¼ú³¹ 2012Às¦~¥þ¶Ô¼ú³¹](images/common/long.gif) ![½×¾Â°^Äm¾±³¹ ½×¾Â°^Äm¾±³¹](images/common/medal5.gif) ![¼ö¤ß¤½¯q¾±³¹ ¼ö¤ß¤½¯q¾±³¹](images/common/medal15.gif) ![2011¨ß¦~¥þ¶Ô¼ú³¹ 2011¨ß¦~¥þ¶Ô¼ú³¹](images/common/tu.gif)
|
¦^´_ 6# totes - Sub nn()
- Dim A As Range
- Set d = CreateObject("Scripting.Dictionary")
- Set d1 = CreateObject("Scripting.Dictionary")
- Set d2 = CreateObject("Scripting.Dictionary")
- Set d3 = CreateObject("Scripting.Dictionary")
- s = Sheet3.[E1]: n = Sheet3.[G1]
- With Sheet2
- For Each A In Range(.[A2], .[A65536].End(xlUp))
- If A >= s And A <= n And A <> "" Then '¦b°Ï¶¡¤º
- dy = DateValue(Format(A, "yyyy/m/d"))
- t = TimeValue("07:00:00")
- If TimeValue(Format(A, "hh:mm:ss")) < t Then dy = dy - 1
- d3(dy) = ""
- mystr = dy & A.Offset(, 1)
- d1(mystr) = d1(mystr) + 1
- If IsEmpty(d(mystr)) Then
- ar = Array(0, 0, 0, 0, 0, 0, 0)
- ay = Array(4, 3, 2, 1, 5, 6, 7)
- k = Val(A.Offset(, 5))
- If k <> 0 Then ar(ay(k - 1) - 1) = ar(ay(k - 1) - 1) + 1
- d(mystr) = ar
- ng = Application.Sum(ar)
- ary = Array(dy, ng, ar(3), ar(2), ar(1), ar(0), ar(4), ar(5), ar(6), d1(mystr), ng / d1(mystr))
- d2(mystr) = ary
- Else
- ar = d(mystr)
- k = Val(A.Offset(, 5))
- If k <> 0 Then ar(ay(k - 1) - 1) = ar(ay(k - 1) - 1) + 1
- d(mystr) = ar
- ng = Application.Sum(ar)
- ary = Array(dy, ng, ar(0), ar(1), ar(2), ar(3), ar(4), ar(5), ar(6), d1(mystr), ng / d1(mystr))
- d2(mystr) = ary
- End If
- End If
- Next
- End With
- ak = Array("DASM20", "DASM40")
- With Sheet4
- For i = 0 To 1
- r = 3
- For Each ky In d3.keys
- If Not IsEmpty(d2(ky & ak(i))) Then
- .Cells(r, i * 10 + i + 1).Resize(, 11) = d2(ky & ak(i))
- If i = 1 Then .Cells(r, 23) = .Cells(r, 19) / .Cells(r, 21)
- Else
- .Cells(r, i * 10 + i + 1).Resize(, 11) = Array(ky, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
- If i = 1 Then .Cells(r, 23) = 0
- End If
- r = r + 1
- Next
- Next
- End With
- End Sub
½Æ»s¥N½X |
|