ªð¦^¦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 : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD