HD8650咖啡機攤提計算

咖啡機攤提計算

每天一杯咖啡幾乎已經成為習慣，於是想要算算買的Seaco HD8650究竟要喝多少杯才能回本！

經計算自己在家做的拿鐵一杯成本約15元，說明如下

項目	說明及固定成本	一杯成本(3個月計算)
咖啡機	8800	X
保養成本	x	300
水費	x	80
電費	x	50
咖啡豆	7G/杯	180
奶粉	15G/杯	250
以1星期5杯，一個月20杯，三個月共60杯計算	60	860
	860/60=	15

對比現在中杯拿鐵的售價(2019-06-27)，以星巴克為例大概喝126杯能回本，但是以便利商店就需要300~880杯才能回本。不過在家裡就能喝到不用跑出去對於阿宅真的很友善就是。

	全家	全家	星巴克	星巴克	萊爾富	萊爾富
	原價	特價	咖啡密斯朵	拿鐵	原價	特價
售價	45	32	85	120	45	25
回本杯數	293	518	126	84	293	880

[VBA]判斷加總

判斷及加總

判斷數量計算表加總的邊界是最困難的……因為迴圈是由上而下，而每個邊界條件都一樣，所以需要設定兩個變數，以兩個迴圈來抓取邊界，第二個邊界採用Exit For來增加執行效率。

.FormulaR1C1是相對位置，跑出來的加總沒有$$，未來插入行列才不會跑掉

14
1
For s1 = 6 To r
2
    If Cells(s1, 4).Value = "Σ=" And Cells(s1, 1).Value <> "" Then
3
        s2 = s1
4
        For s3 = s2 + 1 To r
5
            If Cells(s3, 1).Value <> "" Then
6
                Range(Cells(s2, 5), Cells(s2, 5)).Select
7
                With Selection
8
                .FormulaR1C1 = "=sum(R[1]C[]:R[" & s3 - s2 - 1 & "]C[0])"
9
                End With
10
            Exit For
11
            End If
12
        Next
13
    End If
14
Next