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

[µo°Ý] ¬d¸ß¿é¤J¤é´Á¥H«eªº¼Æ¾Ú°µ²Ö­p(¤w¸Ñ¨M)

[µo°Ý] ¬d¸ß¿é¤J¤é´Á¥H«eªº¼Æ¾Ú°µ²Ö­p(¤w¸Ñ¨M)

¥»©«³Ì«á¥Ñ olisun ©ó 2010-9-13 16:50 ½s¿è

­YE2¿é¤J¤é´Á
D12=SHEETS("¦~ÄÖ")¤¤¡AE2¤é´Á¥H«e(§tE2ªº¤é´Á)¦^Å¢ªºÁ`©M¡A
¨Ò¦pE2=2010/8/15¡A«hD12=SHEETS("¦~ÄÖ")¤¤¡AR3:Y7Á`©M
¦³¤H«ü¾É¦p¤U
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$2" Then Exit Sub
Dim i As Integer, k As Byte, Col
    With Sheets("¦~ÄÖ")
        For i = 3 To .[a65536].End(3).Row
           If .Cells(i, "A") <= [e2] Then
              For k = 18 To 25
                  Col = Col + .Cells(i, k)
              Next
           End If
       Next
       [d12] = Col
    End With
End Sub ÈÕ±í8-31.rar (111.38 KB)

§Ú­Y§ï¦¨¤U­±ªº¦¡¤l¬°¦ó¤£¥i¥H?
Private Sub Ex()
Dim i As Integer, k As Byte, Col
    With Sheets("¦~ÄÖ")
        For i = 3 To .[a65536].End(3).Row
           If .Cells(i, "A") <= [e2] Then
              For k = 18 To 25
                  Col = Col + .Cells(i, k)
              Next
           End If
       Next
       [d12] = Col
    End With
End Sub


¬O§Ú¦Û¤v·d¿ù¤F

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD