ikboy

¦^ÅU2#¥N½X¦³»~,§ó¥¿¤@¤U

1. Sub zz()
   
2. Dim a, CL, s$, k, t, aa(), n&, m&, r&, Msg(1)
   
3. a = [a1].CurrentRegion.Resize(, 3)
   
4. CL = a(1, 3)
   
5. ReDim aa(1 To UBound(a) - 2, 1 To 3)
   
6. With CreateObject("vbscript.regexp")
   
7.     .Global = True
   
8.     For i = 3 To UBound(a)
   
9.         If a(i, 1) <= CL Then k = 0 Else k = 1
   
10.         aa(i - 2, 1) = k
    
11.         s = s & k
    
12.     Next
    
13.     .Pattern = "(0{7,}|1{7,})"
    
14.     s = .Replace(s, "#$1|")
    
15.     k = Split(s, "#")
    
16.     For Each t In k
    
17.         m = InStr(t, "|")
    
18.         If m Then
    
19.             m = m - 1 + r
    
20.             n = Left(t, 1)
    
21.             Msg(n) = n
    
22.             i = r + 7
    
23.             For j = i To m
    
24.                 aa(j, 3 + -n) = 1
    
25.             Next
    
26.             r = Len(t) - 1
    
27.         Else
    
28.             r = r + Len(t)
    
29.         End If
    
30.     Next
    
31. End With
    
32. [c3].Resize(UBound(aa), 3) = aa
    
33. n = Len(Join(Msg, ""))
    
34. Select Case n
    
35.     Case 1
    
36.         MsgBox "³sÄò" & Join(Msg, "") & "¦b¤¤¤ß½u°¼"
    
37.     Case 2
    
38.         MsgBox "³sÄò" & Join(Msg, "©M") & "¦b¤¤¤ß½u°¼"
    
39. End Select
    
40. End Sub

½Æ»s¥N½X

y54161212

¤W­±¨â¦ì¯uªº¬O¤Ó¯«¤F
§Ú§¹¥þ¨S¿ìªk§l¦¬¡]¯º
­n¦n¦nŪ¤@Ū⋯¥b¸ô½ñ¶ivba ÁÙ¯u¦hªF¦è­n°Ý°Ú

n7822123

¦^´_ 1# y54161212



¥Î 1 »P -1 µ{¦¡·|²³æÂI¡A1­Ó°j°é§Y¥i·d©w

¥H¤U ¬õ¦âµ{¦¡ ³¡¤À¡A¥u¬O¦C¥X§PÂ_¹Lµ{¡A¥i¦³¥iµL

¤£¼vÅT¸õ«~½è²§±`´£¿ô


Sub §PÂ_«~½è²§±`()
Const N = 7   '³]©w³sÄò¦¸¼Æ
Dim Rn&, R%, S%, T%, CL!
Dim ³sÄò¤j As Boolean, ³sÄò¤p As Boolean
Rn = Cells(Rows.Count, 1).End(xlUp).Row - 2
If Rn < 1 Then Exit Sub
CL = [C1]
With [A3].Resize(Rn, 5)
  Arr = .Value
  .ClearContents
End With
For R = 1 To Rn
  Arr(R, 3) = IIf(Arr(R, 1) > CL, 1, -1)
  S = S + Arr(R, 3)
  If S = N Then ³sÄò¤j = True: S = S - 1: Arr(R, 4) = 1
  If S = -N Then ³sÄò¤p = True: S = S + 1: Arr(R, 5) = 1
  If Arr(R, 3) <> T Then T = Arr(R, 3): S = T
Next R
[A3].Resize(Rn, 5) = Arr
If ³sÄò¤j Then MsgBox "³sÄò7ÂI¦b¤¤¤ß½u¦P°¼(¤j©ó)"
If ³sÄò¤p Then MsgBox "³sÄò7ÂI¦b¤¤¤ß½u¦P°¼(¤p©ó)"
End Sub

ikboy

1. Sub zz()
   
2. Dim a, cl, s$, b(1), k, aa(), n&, m&, r&
   
3. a = [a1].CurrentRegion.Resize(, 3)
   
4. cl = a(1, 3)
   
5. ReDim aa(1 To UBound(a) - 2, 1 To 3)
   
6. With CreateObject("vbscript.regexp")
   
7.     .Global = True
   
8.     For i = 3 To UBound(a)
   
9.         If a(i, 1) <= cl Then k = 0 Else k = 1
   
10.         aa(i - 2, 1) = k
    
11.         s = s & k
    
12.     Next
    
13.     n = Len(s)
    
14.     b(0) = "(1{7," & n & "})"
    
15.     b(1) = "(0{7," & n & "})"
    
16.     For j = 0 To 1
    
17.         .Pattern = b(j)
    
18.         s = .Replace(s, "|$1|")
    
19.     Next
    
20.     k = Split(s, "|")
    
21.     n = 0
    
22.     For Each t In k
    
23.         n = Len(t)
    
24.         If n Then
    
25.             If n > 6 Then
    
26.                 n = Left(t, 1)
    
27.                 r = r + 6
    
28.                 For i = 7 To Len(t)
    
29.                     r = r + 1
    
30.                     aa(r, 2 + n) = n
    
31.                 Next
    
32.             Else
    
33.                 r = r + Len(t)
    
34.             End If
    
35.         End If
    
36.     Next
    
37. End With
    
38. [c3].Resize(UBound(aa), 3) = aa
    
39. End Sub

½Æ»s¥N½X