如何用Google Apps Script实现粘贴/输入值时自动将正数转为负数

方法1：用工作表VBA事件实现实际值修改 #

这是能真正改变单元格存储值的方案：

• 右键点击目标工作表标签（比如Sheet1），选择「查看代码」
• 在VBA编辑器里粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    ' 限定处理范围，比如A1:C100，可根据需求修改
    Set Target = Intersect(Target, Me.Range("A1:C100"))
    If Target Is Nothing Then Exit Sub
    
    Application.EnableEvents = False ' 避免触发循环修改
    For Each cell In Target
        If IsNumeric(cell.Value) And cell.Value > 0 Then
            cell.Value = -cell.Value
        End If
    Next cell
    Application.EnableEvents = True
End Sub

• 注意事项：
  • 保存文件时要选「启用宏的工作簿（.xlsm）」格式，否则宏无法生效
  • 代码只会处理你指定的单元格区域，不想限制范围的话可以删掉Set Target = Intersect(...)这一行，但可能会影响整个工作表的性能

方法2：自定义数字格式（仅视觉显示，实际值不变） #

如果只是需要显示成负数，但实际存储值保持正数，用这个更简单：

• 选中目标单元格区域，右键选择「设置单元格格式」
• 切换到「数字」选项卡，选择「自定义」，在类型框里输入：-0;0;@
• 效果：输入5会显示成-5，输入-3还是显示-3，文本内容不受影响，但单元格实际值还是你输入的正数，适合仅需视觉展示的场景

内容的提问来源于stack exchange，提问作者coders_key