ªð¦^¦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 : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD