ªð¦^¦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 : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD