- ©«¤l
- 262
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 280
- ÂI¦W
- 16
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- HK
- µù¥U®É¶¡
- 2015-8-11
- ³Ì«áµn¿ý
- 2024-10-26
|
¦^ÅU2#¥N½X¦³»~,§ó¥¿¤@¤U- Sub zz()
- Dim a, CL, s$, k, t, aa(), n&, m&, r&, Msg(1)
- a = [a1].CurrentRegion.Resize(, 3)
- CL = a(1, 3)
- ReDim aa(1 To UBound(a) - 2, 1 To 3)
- With CreateObject("vbscript.regexp")
- .Global = True
- For i = 3 To UBound(a)
- If a(i, 1) <= CL Then k = 0 Else k = 1
- aa(i - 2, 1) = k
- s = s & k
- Next
- .Pattern = "(0{7,}|1{7,})"
- s = .Replace(s, "#$1|")
- k = Split(s, "#")
- For Each t In k
- m = InStr(t, "|")
- If m Then
- m = m - 1 + r
- n = Left(t, 1)
- Msg(n) = n
- i = r + 7
- For j = i To m
- aa(j, 3 + -n) = 1
- Next
- r = Len(t) - 1
- Else
- r = r + Len(t)
- End If
- Next
- End With
- [c3].Resize(UBound(aa), 3) = aa
- n = Len(Join(Msg, ""))
- Select Case n
- Case 1
- MsgBox "³sÄò" & Join(Msg, "") & "¦b¤¤¤ß½u°¼"
- Case 2
- MsgBox "³sÄò" & Join(Msg, "©M") & "¦b¤¤¤ß½u°¼"
- End Select
- End Sub
½Æ»s¥N½X |
|