GBKEE

¦^´_ 1# myleoyes

1. Sub YY()
   
2.     ActiveCell.Offset(0, -2) = Date
   
3.     With Range("AF3").Comment
   
4.         .Visible = False
   
5.         If .Text = "" Then
   
6.             .Text Text:=Date
   
7.         Else
   
8.             If UBound(Filter(Split(.Text, Chr(10)), Date, True)) = -1 Then .Text Text:=.Text & Chr(10) & Date
   
9.         End If
   
10.     End With
    
11. End Sub
    
12. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
13. Sub dd()
    
14.     With Range("AM2")
    
15.         .Insert Shift:=xlDown
    
16.         Range("A2").Copy .Cells
    
17.        .AddComment
    
18.        .Comment.Text Text:=Chr(10) & [A1]
    
19.     End With
    
20.     Range("AM2") = "=sum(AM3:AM100)"
    
21.     ActiveWindow.ScrollColumn = 36
    
22.     Columns("AM:AM").EntireColumn.AutoFit
    
23. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# myleoyes

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     With Target(1)
   
3.         If .Column <= 37 And (.Column - 1) Mod 3 = 0 And (.Row >= 3 Or .Row <= 6) Then YY
   
4.     End With
   
5. End Sub
   
6. ''''''''''''''
   
7. Sub YY()
   
8.     With Cells(3, ActiveCell.Column - 2)
   
9.         Range("A1").NumberFormatLocal = "m/d;@"
   
10.         .Value = Date
    
11.         If .Comment Is Nothing Then .AddComment Date & ""
    
12.         If UBound(Filter(Split(.Comment.Text, Chr(10)), Date, True)) = -1 Then .Comment.Text Text:=.Comment.Text & Chr(10) & Date
    
13.     End With
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# myleoyes
¥H§Aªº¥\¤OÀ³¥i¥H¦Û¦æ­×§ï
If .Column <= 37 And (.Column - 1) Mod 3 = 0 And (.Row >= 3 Or .Row <= 6) Then YY
­×§ï¦¨ And
With Cells(3, ActiveCell.Column - 2)
­×§ï¦¨ ActiveCell.Row
---------------------------
With Cells(3, ActiveCell.Column - 2)
­×§ï¦¨  ActiveCell.Offset(, -2)

GBKEE

¦^´_ 8# myleoyes

1. Sub AA()
   
2.     Range("N3:O200").ClearContents
   
3.     With Range("N3")
   
4.         .FormulaR1C1 = "=(RC[-3]*R2C1-RC[-3]*RC[-2])-(RC[-3]*R2C1)-(RC[-3]*R2C1)"
   
5.         If [k150].End(3).Row <> .Row Then .AutoFill Destination:=Range("N3:N" & [k150].End(3).Row), Type:=xlFillDefault
   
6.     End With
   
7.     With Range("O3")
   
8.        .FormulaR1C1 = "=(RC[-4]*R2C1-RC[-4]*RC[-3])/(RC[-4]*R2C1)"
   
9.         If [k150].End(3).Row <> .Row Then .AutoFill Destination:=Range("O3:O" & [k150].End(3).Row), Type:=xlFillDefault
   
10.     End With
    
11. End Sub

½Æ»s¥N½X