點選加總

myleoyes

各位前輩你們好!
         Sub 獎金()
             [E2] = Selection
             [G1] = "=SUMIF(INDIRECT(""$E$3:$E$300""),$E$2,INDIRECT(""$G$3:$G$300""))"
             [G1] = [G1]'.Value
         End Sub
         問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!

myleoyes

回復 3# Hsieh
stillfish00 前輩!程式OK!謝謝再三!!
偶像前輩!程式也OK!但忽略小弟的要求－請問在不增加E2補助格之下謝謝再三!!
這樣也可以
Sub 獎金()
     [G1] = Evaluate("=SUMIF($E$3:$E$300," & Selection.Address & ",$G$3:$G$300)")
End Sub
再麻煩兩位前輩這個問題如下
  結果L4=K4-K3+5689-12356
Sub Ex()
        [K65536].End(xlUp)(2, 1) = Sheet4.[I1]
        [L3].Copy [L65536].End(xlUp)(2, 1)
        [L65536].End(xlUp)(1, 1) = "=" & [L65536].End(xlUp)(1, 1) & "+" & Sheet2.[AZ19] & "-" & Sheet2.[AZ20]
        Sheet2.[AZ19:AZ20] = ""
        Columns("K:L").EntireColumn.AutoFit
End Sub

myleoyes

回復 5# stillfish00
前輩!不好意思小弟把你弄糊塗??
     應該是這麼想像將L3=K3-K2+Sheet2!$AZ$19-Sheet2!$AZ$20
     按鈕程式複製L3至L4所以
     L4=K4-K3+Sheet2!$AZ$19-Sheet2!$AZ$20
     但是需求是保留K4-K3的公式
     將+Sheet2!$AZ$19-Sheet2!$AZ$20變成值
     現在Sheet2!$AZ$19=5689
     Sheet2!$AZ$20=12356
     所以L4=K4-K3+5689-12356
     因為Sheet2!$AZ$19與Sheet2!$AZ$20是動態值
     因此$AZ$19與$AZ$20不以公式型態呈現必須為值
     如此解釋前輩!明白否?請再賜教辛苦囉!謝謝再三!!

myleoyes

回復 7# stillfish00
前輩!哇!!真甘恩提供如此完整程式...辛苦囉謝謝再三!!