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

[µo°Ý] (¤w¸Ñ¨M)Ãö©ó¬YÀx¦s®æ¼Æ¦rÅܰʥt¤@Àx¦s®æ´N¦^¨ì1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Or Target.Address <> "$B$4" Then
Exit Sub
Else
Range("D4") = 1
End If
End Sub
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD