money-4

[myleoyes]

oobird前輩你好!
　　　謝謝你!程式很棒喔!!可否再麻煩教兩個公式呢?歹勢啦!
　　　問題如附檔案說明只好再辛苦前輩囉!謝謝再三!!

[oobird]

1.s2公式：=SUMPRODUCT((YEAR($K$2:$K$9)=YEAR(O2)-11)*$L$2:$L$9)
2.格式化條件做不到，如何能分辨是第幾次操作的資料？

[myleoyes]

oobird前輩你好!
　　　謝謝你!真是太感激你囉!也辛苦你謝謝再三!!
　　　有說不出的甘溫喔!謝謝!!

[hsieh]

顏色區隔

程式碼:

Sub keepdata()
Dim r&, Arr As Range
With Sheets("分析")
.[F2:J1000].ClearContents
r = .[C65536].End(xlUp).Row
Set Arr = .[A1].Resize(r, 5)
c = 1
For i = 2 To r
If Len(Arr(i, 3)) > 0 Then
c = c + 1
Cells(c, 6) = Format(Arr(i, 1), "[$-404]e/m/d;@")
Cells(c, 7).Resize(1, 4) = Arr(i, 2).Resize(1, 4).Value
End If
Next
If Application.CountIf(.Columns("K"), Date) = 0 Then
If Sheets("歷史訊息").[A65536].End(xlUp).Interior.ColorIndex = -4142 Then Sheets("歷史訊息").[A65536].End(xlUp).Offset(1, 0).Resize(c - 1, 5).Interior.ColorIndex = 20
Sheets("歷史訊息").[A65536].End(xlUp).Offset(1, 0).Resize(c - 1, 5) = [f2].Resize(c - 1, 5).Value
[f2].Resize(c - 1, 5).Borders.LineStyle = xlContinuous
.[K1] = Application.Sum(.Columns("J"))
.[K65536].End(xlUp).Offset(1, 0).Resize(, 2) = Array(Format(Date, "[$-404]e/m/d;@"), .[K1])
End If
End With
End Sub

[myleoyes]

hsieh前輩你好!
　　　 謝謝你!前輩哇啦!真的太感謝你囉!不愧是小弟心目中的偶像太厲害哈哈!!
　　　小弟這兩天正為顏色區隔,大傷腦筋...想不到你幫我解決囉!
　　　真是太高興非常謝謝你!!