請問如何在此行增加變數,值*1.05

bigking1215

Private Sub CountCasher_Click() '結帳
    With Sheet01
        Dim Lst_r As Long
        Lst_r = .[K65536].End(xlUp).Row
        If .Range("$K$" & Lst_r).Value = "謝謝惠顧" Or Lst_r <= 4 Then Exit Sub
        .Range("O" & Lst_r + 1) = "'-----------"
        .Range("N" & Lst_r + 2) = "合計"
       .Range("O" & Lst_r + 2) = WorksheetFunction.Sum(.Range("$O$5:$O$" & Lst_r))

     請問如何在此行增加變數*1.05     例如合計金額為   100    增加變數後合計金額為    105


        .Range("N" & Lst_r + 3) = "實收"
        End With

sylinmc

没有附件，基本不会有人回答的

bigking1215

根據建議重新上傳附件

lsc900707

1. .Range("O" & Lst_r + 2) = WorksheetFunction.Sum(.Range("$O$5:$O$" & Lst_r)) *1.05
   

复制代码