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

答案:4 悬赏:10 手机版

解决时间 2021-01-24 02:45

提问者网友：未信
2021-01-23 08:26

就是我在某个单元格内输入任意数字，得到的都是减去15后的数值

在下一个单元格就简单了，问题是就是想要在当前单元格啊

最佳答案

五星知识达人网友：傲气稳了全场
2021-01-23 10:02

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，回到工作表。

全部回答

1楼网友：不如潦草
2021-01-23 11:04

你看一下数字键盘是否开启，即第一个灯是否亮不亮就按小键盘区的nunlock键

2楼网友：鸠书
2021-01-23 10:46

用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 End Sub

3楼网友：归鹤鸣
2021-01-23 10:31

可能是当前单元格包含什么公式了. 你把格式去掉吧.你把一个正常的单元格用格式刷一下吧

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息