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

[µo°Ý] Excel ¦p¦ó¥¿¼Æ¦Û°ÊÅÜ­t¼Æ

¥ÎVBA¥i¥H
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Column = 1 And Target.Row > 0 Then
  3. Target = Abs(Target) * -1
  4. End If
  5. End Sub
½Æ»s¥N½X
¦^´_ 1# la1975

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD