ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð¦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

test.zip (20.95 KB)

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

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD