ML089

1. Option Base 1
   
2. Sub ¥H±ÛÂà¤è¦¡¶ñ¤J­È()
   
3. 
   
4.     xc = 10: yc = 10 '¤¤¤ß¦ì¸m
   
5. 
   
6.     ¥k = [{0, 1}]: ¤U = [{1,0}]: ¥ª = [{0,-1}]: ¤W = [{-1, 0}]
   
7.     yx = Application.Transpose(Application.Transpose(Array(¥k, ¤U, ¥ª, ¤W))) '±±¨î¤è¦V¤ÎÂà¦V
   
8.    
   
9.     n = InputBox("¿é¤J±Æ¦C¼Æ¦r", , 25)
   
10.     n1 = Application.RoundUp(((n ^ 0.5) - 1) / 2, 0) + 1
    
11.     nn = n1 * 2 + 1
    
12.     Cells(yc - n1, xc - n1).Resize(nn, nn).ClearContents
    
13. 
    
14.     x = xc: y = yc
    
15.     Cells(xc, yc) = 1
    
16.     For i = 2 To n
    
17.         ds = [{0,0,0,0}]
    
18.         For j = 1 To 4 '¥|­Ó¤è¦V
    
19.             If Cells(y + yx(j, 1), x + yx(j, 2)) = "" Then
    
20.                 ds(j) = ((y + yx(j, 1) - yc) ^ 2 + (x + yx(j, 2) - xc) ^ 2) * 10 + j '¶ZÂ÷*10+¤è¦V
    
21.             Else
    
22.                 ds(j) = ""
    
23.             End If
    
24.         Next
    
25.         jj = Application.Min(ds) Mod 10 '¨ú¶ZÂ÷­ìÂI³Ìµu¤Î±Æ¦C³Ì«e¤è¦V
    
26.         x = x + yx(jj, 2)
    
27.         y = y + yx(jj, 1)
    
28.         Cells(y, x) = i
    
29.     Next
    
30. End Sub

½Æ»s¥N½X

ML089

¦^´_ 3# ­ã´£³¡ªL

ª¾ÃÑ+ªºW¤j¥Î¼Æ¾Ç¤Î¨ç¼Æªº¥\¤O¯u¬OµL¤H¯à¼Ä¡A­ì¥ý¤@¶}©l§Ú¤]¬O´Â³o¤è¦Vºc·Q¡C

«á¨Ó¬Ý§A¶Kªº®ÄªG¹Ï¦b­þ¸ÌÂà°ÚÂà°Ú¡A¬ðµM·Q¨ì¬JµM­n¥ÎVBA´N¦³¥þ·sªººc·Q¡C
±q¶K¹Ïªº¹B°Ê¼Ò¦¡¥i¥H¾ã²z¦p¤U
1. ¨C¤@¨B¥u¦³ ¤W¡B¤U¡B¥ª¡B¥k µ¥4ºØ¨Bªk
2. ­n³ò¶¤¤¤ß±Æ¦C¡A©Ò¥H¨C¤@¨B³£­n¿ï¾ÜÂ÷¤¤¤ß³Ìªñªº¶ZÂ÷¡C

'±±¨î¤è¦V¤ÎÂà¦V  
yx = Application.Transpose(Application.Transpose(Array(¥k, ¤U, ¥ª, ¤W))) '²Ä¤@¨B¦V¥k¡A¶¶®É±Æ¦C

¤U¸ü (11.78 KB)

2015-10-25 09:00

§Q¥Î¤W¦¡¤¤ ... ¥k, ¤U, ¥ª, ¤W ªº©ñ¸m¶¶§Ç¨Ó±±¨î¤è¦V¤ÎÂà¦V
²Ä1¦ì¸m±±¨î²Ä¤@¨B¤è¦V¡A¥i¥H©ñ¸m ..... ¥k, ¤U, ¥ª, ¤W .... ¨Ó§ïÅÜ¡C
²Ä2~3¦ì¸m±±¨î¶¶¡B°f±Æ¦C¤è¦V¡C

yx = Application.Transpose(Application.Transpose(Array(¤U, ¥k, ¤W, ¥ª)))  '²Ä¤@¨B¦V¤U¡A°f®É±Æ¦C

¤U¸ü (11.9 KB)

2015-10-25 09:00

¥u¯à¼g¨Ç²³æVBA¡A¤¶­±¤Î»yªk¦³¤£¨¬ªº¦a¤èÅwªï¤j®aÄ~Äò­×§ï¡C

ML089

¦^´_ 9# bobomi

¥[¤J bobomi ªº
¥k = [{0, 1, "¡÷","¢z"}]: ¤U = [{1,0,"¡õ","¢{"}]: ¥ª = [{0,-1,"¡ö","¢}"}]: ¤W = [{-1, 0,"¡ô","¢|"}]
®ÄªG¹Ï¤G´N¥X¨Ó¤F

Option Base 1
Sub ¥H±ÛÂà¤è¦¡¶ñ¤J­È()

    xc = 10: yc = 10    '¤¤¤ß¦ì¸m

    ¥k = [{0, 1, "¡÷","¢z"}]: ¤U = [{1,0,"¡õ","¢{"}]: ¥ª = [{0,-1,"¡ö","¢}"}]: ¤W = [{-1, 0,"¡ô","¢|"}]
    yx = Array(¥k, ¤U, ¥ª, ¤W)    '±±¨î¤è¦V¤Î¶¶®ÉÂà¦V

    '    ¥k = [{0, 1, "¡÷","¢|"}]: ¤U = [{1,0,"¡õ","¢z"}]: ¥ª = [{0,-1,"¡ö","¢{"}]: ¤W = [{-1, 0,"¡ô","¢}"}]
    '    yx = Array(¤U, ¥k, ¤W, ¥ª)    '±±¨î¤è¦V¤Î°f®ÉÂà¦V

    n = InputBox("¿é¤J±Æ¦C¼Æ¦r", , 25)
    [A1:Z26].ClearContents

    x = xc: y = yc: xp1 = x: yp1 = y
    Cells(x, y) = 1
    f1 = "": f2 = ""
    For i = 2 To n
        ds = [{"","","",""}]
        For j = 1 To 4    '¥|­Ó¤è¦V
            yy = yx(j)(1): xx = yx(j)(2)
            If Cells(y + yy, x + xx) = "" Then
                ds(j) = ((y + yy - yc) ^ 2 + (x + xx - xc) ^ 2) * 10 + j    '¶ZÂ÷*10+¤è¦V
            End If
        Next
        k = Application.Min(ds) Mod 10    '¨ú¶ZÂ÷­ìÂI³Ìµu¤Î±Æ¦C³Ì«e¤è¦V

        y = y + yx(k)(1)
        x = x + yx(k)(2)
        Cells(y, x) = i

        ¤è¦V²Å¸¹ = IIf(i = 2, "¡·", yx(k)(3 + IIf(k = kp1, 0, 1)))
        Cells(yp1, xp1) = Cells(yp1, xp1) & ¤è¦V²Å¸¹
        yp1 = y: xp1 = x: kp1 = k

        'Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
    Next
    Cells(yp1, xp1) = Cells(yp1, xp1) & "¡´"
End Sub