excel中怎么设置公式，让单元格的计算结果不超过一个固定数值，如果超过自动换算到下一列

发布网友 发布时间：2022-04-23 06:17

我来回答

共1个回答

热心网友 时间：2023-10-03 05:46

如果A中的值还是显示录入值的话就很简单，这样处理：

追答Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 10 Then   '*最大值的列
        ThisRow = Target.Row
        If Target.Value > Range("K" & 4).Value And Target.Value <> Range("K" & 4).Value Then    'K4 最大值单无格   K计算列
            Range("K" & ThisRow).Value = Target.Value - Range("K" & 4).Value
            Target.Value = Range("K" & 4).Value
            
        Else
        If Target.Value < Range("K" & 4).Value Then
            Range("K" & ThisRow).Value = 0
            Else
            
            End If
        End If
    End If
End Sub

这样的话要用到VBA，用宏来处理

刚弄了一段代码，不过当录入的数据刚好等于最大值时不会做计算，别的没问题，等下空了再帮你处理一下哈：

热心网友 时间：2023-10-03 05:46

如果A中的值还是显示录入值的话就很简单，这样处理：

追答Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 10 Then   '*最大值的列
        ThisRow = Target.Row
        If Target.Value > Range("K" & 4).Value And Target.Value <> Range("K" & 4).Value Then    'K4 最大值单无格   K计算列
            Range("K" & ThisRow).Value = Target.Value - Range("K" & 4).Value
            Target.Value = Range("K" & 4).Value
            
        Else
        If Target.Value < Range("K" & 4).Value Then
            Range("K" & ThisRow).Value = 0
            Else
            
            End If
        End If
    End If
End Sub

这样的话要用到VBA，用宏来处理

刚弄了一段代码，不过当录入的数据刚好等于最大值时不会做计算，别的没问题，等下空了再帮你处理一下哈：