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

[µo°Ý] ±ø¥ó¦¡§R°£cell¤º®e¡A¦A³Â·Ð¤j®a¦h«ü±Ð

¦^´_ 4# HCG10G8bear

¦pªG®æ¬O¶À¦â,®æªº¼Æ­È¬O1
  1. Sub Macro1()
  2. With ActiveSheet
  3. If Selection.Interior.ColorIndex = 6 Then
  4. Selection.Value = 1
  5. End If
  6. End With
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD