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

olisun

­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)

¤U¸ü¦¸¼Æ: 4

2010-9-13 16:35

§Ú­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