stillfish00

¦^´_ 1# myleoyes

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count = 1 Then
   
3. '¿ï¾Üªº¬°³æ¤@Àx¦s®æ
   
4.     If Not Intersect(Target, Range("E3:E300")) Is Nothing Then
   
5.     '¿ï¾ÜªºÀx¦s®æ¦bE3:E300¤º
   
6.         [G1] = Evaluate("=SUMIF($E$3:$E$300," & Target.Address & ",$G$3:$G$300)")
   
7.         '­pºâ¤½¦¡«á¶Ç¦^G1
   
8.     End If
   
9. End If
   
10. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 4# myleoyes
¬Ý¤£À´§Aªº»Ý¨D...
[L4]=[K4]-[K3]+5689-12356  ?

stillfish00

¦^´_ 6# myleoyes
´XºØ¤èªk§A°Ñ¦Ò¬Ý¬Ý
Sub Ex1_1()  '®e©öÀ´
    Dim r As Long
    r = [K65536].End(xlUp).Row + 1
    Range("K" & r) = Sheet4.[I1]
    Range("L" & r) = "=K" & r & "-K" & r - 1 & "+" & Sheet2.[AZ19] & "-" & Sheet2.[AZ20]
End Sub

Sub Ex1_2()   '¤½¦¡¤¤¦ì§}¥Îaddress¨ú´N¥i¥H¤F
    With [K65536].End(xlUp).Offset(1, 0)
        .Value = Sheet4.[I1]
        .Offset(0, 1).Value = "=" & .Address(0, 0) & "-" & .Offset(-1, 0).Address(0, 0) & "+" & Sheet2.[AZ19] & "-" & Sheet2.[AZ20]
    End With
End Sub   

Sub Ex1_3()  '¤£«O¯d¤½¦¡ºâ¥X¨Ó¤]¬O¤@¼Ëªº
    With [K65536].End(xlUp).Offset(1, 0)
        .Value = Sheet4.[I1]
        .Offset(0, 1).Value = .Value - .Offset(-1, 0).Value + Sheet2.[AZ19] - Sheet2.[AZ20]
    End With   
End Sub