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

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

¥i¬O¸g¥Ñ¤U©Ô²M³æ§ïÅܦn¹³¤£·|ÅÜ°Ê¡H
À³¸ÓÁÙ¬O·|ªº
³o­Ó¨Æ¥ó¦bÀx¦s®æ¤º®eµo¥Í§ïÅܮɰõ¦æ
¥L¤£·|¥hºÞ¬Oª½±µ¿é¤JÁÙ¬O¥Î¤U©Ô¿é¤Jªº
µ{¦¡¥i¥h°£¦h¾lªº±Ô­z¡G
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Or Target.Address <> "$B$4" Then Exit Sub
Range("D4") = 1
End Sub

TOP

­ì¨Ó§A¥ÎListBoxes¡A¨º´N§ï¥ÎCalculate¨Æ¥ó ¨Æ¥ó.rar (6.57 KB)

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD