[µo°Ý] ½Ð¦U¦ì«e½úÀ°¦£Àˬd¦¹µ{¦¡

graysurf

½Ð¦U¦ì°ª¤â¨ó§U½T»{¦¹µ{¦¡, ¤p§Ì§Ú«Üµæ

»Ý¨D°µ¤@­Ómap¹Ï ·|¦bcell(100.2)°õ¦æ¥X¨Ó ¥ÎÃC¦â°Ï§O

¤À¦¨¨SªF¦è  ºñ¦â  ¶À¦â ¤TºØ

¦ý¦³®É°õ¦æ¤£·|²£¥Í°ÝÃD,¦³®É°õ¦æ·|¾×±¼ ¾÷²v¤j¬ù1/2

¤£ª¾¬O§_­þÃä»yªk¦³´£ ¦A·PÁ¦U¦ì«e½ú«ü¾É  µ{¦¡½X¦p¤U

1. Sub ¥¨¶°1()
   
2. For j = 1 To 91
   
3. For i = 1 To 58
   
4. If Cells(j + 0, i + 0).Interior.ColorIndex = Cells(1, 1).Interior.ColorIndex Then
   
5. Cells(100, 2).Value = Cells(100, 2).Value & "." '¨SªF¦èÅã¥Ü.
   
6. Else
   
7. If Cells(j, i).Interior.ColorIndex = Cells(1, 2).Interior.ColorIndex Then
   
8. Cells(100, 2).Value = Cells(100, 2).Value & "A" 'ºñ¦â¶ñ¤WA
   
9. Else
   
10. Cells(100, 2).Value = Cells(100, 2).Value & "X" '¶À¦â¶ñ¤WX
    
11. End If
    
12. End If
    
13. Next
    
14. Cells(100, 2).Value = Cells(100, 2).Value & Chr(10) '´«¦æ
    
15. Next
    
16. MsgBox "OK"
    
17. End Sub

½Æ»s¥N½X

graysurf

­×¥¿¤@¤U,³Ì«á¤@¥y¸Ü¥´¿ù,¤£ª¾¬O§_­þÃä»yªk¦³¿ù»~

lpk187

¦^´_ 2# graysurf


   À³¸Ó¬O¼g¤JCells(100, 2)®É¡A³t«×ÅܺCªºÃö«Y
¥i¥H§ï¦¨¤U¦C¥N½X°õ¦æ³t«×¤]·|¥[§Ö«Ü¦h¡A¸Õ¸Õ¬Ý¡I

1. Sub ¥¨¶°1()
   
2. For j = 1 To 91
   
3.     For i = 1 To 58
   
4.     If Cells(j + 0, i + 0).Interior.ColorIndex = Cells(1, 1).Interior.ColorIndex Then
   
5.         A = A & "."
   
6.     ElseIf Cells(j, i).Interior.ColorIndex = Cells(1, 2).Interior.ColorIndex Then
   
7.         A = A & "A"
   
8.     Else
   
9.         A = A & "X"
   
10.     End If
    
11.     Next
    
12.     A = A & Chr(10)
    
13. Next
    
14. Cells(100, 2) = A
    
15. MsgBox "OK"
    
16. End Sub

½Æ»s¥N½X