简体   繁体   中英

EXCEL VBA Dynamic Sum function

I'm looking for a way to simplify this code. I have 5 button in my excel file; each button is associated with a single G function and each button erase the selected value in column N from the value in the F column on the same line...

This is the actual VBA code

Sub G5ELIMINA()
Range("F5").Value = (Range("F5").Value - Range("N5").Value)
End Sub

Sub G6ELIMINA()
Range("F6").Value = (Range("F6").Value - Range("N6").Value)
End Sub

Sub G7ELIMINA()
Range("F7").Value = (Range("F7").Value - Range("N7").Value)
End Sub

Sub G8ELIMINA()
Range("F8").Value = (Range("F8").Value - Range("N8").Value)
End Sub

Sub G9ELIMINA()
Range("F9").Value = (Range("F9").Value - Range("N9").Value)
End Sub

Sub G10ELIMINA()
Range("F10").Value = (Range("F10").Value - Range("N10").Value)
End Sub

Like this?

Sub G5SERIES()
Range("F5").Value = (Range("F5").Value - Range("N5").Value)
Range("F6").Value = (Range("F6").Value - Range("N6").Value)
Range("F7").Value = (Range("F7").Value - Range("N7").Value)
Range("F8").Value = (Range("F8").Value - Range("N8").Value)
Range("F9").Value = (Range("F9").Value - Range("N9").Value)
Range("F10").Value = (Range("F10").Value - Range("N10").Value)
End Sub

The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM