- ©«¤l
- 41
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 79
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-4-1
- ³Ì«áµn¿ý
- 2016-2-17
|
¦^´_ 8# ã´£³¡ªL
¨S¦³¼g±o«Ü¦n¡A¤@¶}©l´N¥u¦Ò¼{¨ì¹ïºÙ©Ê
¦ý¬OÁÙ¬O¦³²Å¦XÃD¥Ø»Ý¨D¡A¶K¤W¨ÓÅý¤j®a«ü¾É¶¶«K×¥¿þ¸ÌÁÙ¦³°ÝÃD- Sub testarrX2() '³o¸Ì°õ¦æ
- Cells.Clear
- Dim n&: n = 15 '¥u¯à©_¼Æ
- Cells(11, 8).Select '=>¨¬°÷¶ñ¥Rªº¦ì¸m
- arrX2 n, n, 0 '©_¼Æ¤è°} ,©T©wÈ ,(0=>²Å¸¹ªí¦¡,¤j©ó0¼Æ¦r=>§Ç¦Cªí¥Ü)
- End Sub
- Sub arrX2(numX&, n&, k&)
- Dim cx&, cy&, arr, arr2, arr3
- arr = Array(0, 1, 0, -1, 0, 1)
- arr2 = Array("¢{", "¢}", "¢|", "¢z", "¡´")
- arr3 = Array("", "¡õ", "¡ö", "¡ô", "¡÷")
- If numX <> 1 Then
- arrX2 numX - 2, n, k
- p = (numX - 1) / 2 '(¼W¶q)¦ì²¾¶q
- For i = 1 To 4
- For j = 0 To numX - 2
- cx = ActiveCell.Column + p * arr(i) + arr(i + 1) * (j - p + 1)
- cy = ActiveCell.Row + p * arr(i - 1) + arr(i) * (j - p + 1)
- If k = 0 Then
- If i = 1 And j = 0 Then
- Cells(cy, cx) = arr2(0)
- ElseIf i < 4 And j = numX - 2 Then
- Cells(cy, cx) = arr2(i)
- ElseIf j = numX - 2 And numX = n Then
- Cells(cy, cx) = arr2(i)
- Else
- Cells(cy, cx) = arr3(i)
- End If
- Else
- k = k + 1
- Cells(cy, cx) = k
- End If
- Next j
- Next i
- Else
- ActiveCell = IIf(k > 0, k, "¡·")
- End If
- End Sub
½Æ»s¥N½X |
-
1
µû¤À¤H¼Æ
-
|