GBKEE

¦^´_ 1# imagio
¸Õ¸Õ¬Ý§A°ÝÃDªº¤è¦V¬O§_³o¼Ë

1. Sub Ex()
   
2.     Dim Rng As Range, R, C, U
   
3.     Sheet2.Cells = ""
   
4.     U = 7                     'Àx¦s®æªº½d³ò¥b®|
   
5.     Set Rng = Sheet2.Cells(U, U) '½d³òªº¤¤¤ßÂI
   
6.     Select Case Sheet1.[E1]      '¨¤«×Àx¦s®æ
   
7.         Case 0
   
8.             C = 0
   
9.             For R = 0 To -(U - 1) Step -1
   
10.                 Rng.Offset(R, C) = "M"
    
11.             Next
    
12.             Rng.Offset(R + 2, C + 1) = "M"
    
13.             Rng.Offset(R + 2, C - 1) = "M"
    
14.         Case 90
    
15.             R = 0
    
16.             For C = 0 To U
    
17.                 Rng.Offset(R, C) = "M"
    
18.             Next
    
19.             Rng.Offset(R - 1, C - 2) = "M"
    
20.             Rng.Offset(R + 1, C - 2) = "M"
    
21.         Case 180
    
22.             C = 0
    
23.             For R = 0 To U
    
24.                 Rng.Offset(R, C) = "M"
    
25.             Next
    
26.             Rng.Offset(R - 2, C + 1) = "M"
    
27.             Rng.Offset(R - 2, C - 1) = "M"
    
28.         Case 270
    
29.             R = 0
    
30.             For C = 0 To -(U - 1) Step -1
    
31.                 Rng.Offset(R, C) = "M"
    
32.             Next
    
33.             Rng.Offset(R - 1, C + 2) = "M"
    
34.             Rng.Offset(R + 1, C + 2) = "M"
    
35.     End Select
    
36. End Sub

½Æ»s¥N½X