bobomi

Sub q77()

  Cells.Clear
   
'**** ¤W¡B¤U¡B¥ª¡B¥k  copy from  ML089 ****
  ¥k = [{0, 1, "¡÷","¢z"}]: ¤U = [{1,0,"¡õ","¢{"}]: ¥ª = [{0,-1,"¡ö","¢}"}]: ¤W = [{-1, 0,"¡ô","¢|"}]
  
  yx = Array(¥k, ¤U, ¥ª, ¤W)

  r = 10
  c = 10
  Value = 1
  Cells(r, c) = Value
  For Count = 1 To  6^2
  rc = yx(¤è¦V Mod 4)
  n = CLng(Count / 2 + 0.001)
  For Repeat = 1 To n
      r = r + rc(1)
      c = c + rc(2)
      Value = Value + 1
      If Repeat = n Then
         Cells(r, c) = yx((¤è¦V + 1) Mod 4)(4) & " " & Value
      Else
         Cells(r, c) = rc(3) & " " & Value
      End If
  Next
  ¤è¦V = ¤è¦V + 1
  Next


' ³Ì«á ¡· ¡´ ³o2²Å¸¹½Ð¦Û¤v³B²z

End Sub