需要减去值从列G到列H(G-H)当列J被点击并存储在特定的单元格M3通过VBA,这将发生在整个范围即G4:G76,H4:H76 & J 4:J76
如果仅点击J 4单元格,则将减去(G4-H4),如果点击J5单元格,则将减去(G5-H5),如果点击J6单元格,则将减去(G6-H6),并根据点击哪一行将值存储并覆盖在M3中,依此类推
我试过下面的代码,这个宏可以在J列中的任何单元格被点击时调用,但是这会在整个M列中显示它。我不需要,只有当J列中的相应单元格被单击时,它才应该显示仅在单元格M3中的计算。
Sub FormulasNoLoops()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "G").End(xlUp).Row
Range("M4:M" & LastRow) = Evaluate("G4:G" & LastRow & "-H4:H" & LastRow)
End Sub
宏调用代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("J4")) Is Nothing Then
Call FormulasNoLoops
End If
End If
End Sub
1条答案
按热度按时间ibrsph3r1#
你可以这样做: