excel 电子表格在当前单元格输入的数字都自动-15，怎么设置？

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target <> "" and target.column = 1 Then '指定第1列
Application.EnableEvents = False
Target = Target -15
Application.EnableEvents = True
End If
End Sub

ALT+F11，如没有代码窗口，F7，将以上代码粘贴到代码窗口，Alt＋F11，回到工作表。

用VB语言可以实现你的去愿望:
打开你的工作簿后：点工具-宏-Visual Basic 编辑器,左边会有一个"VBAProject（工作簿名称）"，点前面有个“+”号，会出现你工作簿中所有的工作表，双击你要操作工作表，将下面语句贴上就OK。

Private Sub Worksheet_Change(ByVal Target As Range)

b = ActiveCell.Address
c = Len(b)
ReDim a(c)
For i = 0 To c
a(i) = Mid(b, c - i, 1)
If a(i) <> "$" Then
b2 = a(i) & b2
Else
b1 = Left(b, c - i - 1)
i = c
End If
Next

If b1 = "$B" Then
Range("$A" & b2).Select
Range("$A" & b2) = Range("$A" & b2) -15

Exit Sub
End If