输入值自动减去 1，由 VBA 实现

1. 打开 Excel**。

2. 在相应的单元格中输入数据，或打开原始数据报告。

3. 将鼠标悬停在空格上。

4. 在菜单栏中选择求和工具。

5.将出现以下公式，a1代表第一行，a2代表第二行，依此类推。

6.在标有红线的单元格上方的长空格中将“：”改为“-”，即可以看到第三行标出的红线也变成了“-”号。

7. 按 Enter 键获取结果。

假设您需要按日期将工作表单元格 E1 增加 1：

1.在**中未使用的任何单元格中输入此**的开始日期，然后在e1位置输入公式：

today（）-l1+1 回车;

见图12，此时E1位置以日期格式显示，右键点击单元格，选择：设置单元格格式;

见图23，选择弹出的“格式化单元格”左侧的值，将右侧的小数设置为：0，然后点击确认;

见图3 4，设置后的显示效果。

说明见图4：如果有开始日期，那么可以直接引用，如果觉得开始日期显示会破坏整体效果，也可以将此单元格的字体设置为白色：参见图5。

1.工具。

计算机，excel**。

2.方法论。 Excel 附带公式 dateif

3. 步骤。 1.输入公式 =datedif（"2016-4-6",today(),"d"（在本例中为 E1）。

2.将数字所在的单元格更改为“=number-e1”，就可以根据天数得到减去1的结果。

备注：datedif公式的第一项填写开始日期，第二项填写当天的日期，第三项填写"d"表示计算两者之间的天差。

加 1 可以实现，减去 1 现在似乎真的是不可能的。

目前无法实现现有功能。 VBA 也是无法实现的。

在任何单元格中输入以下公式：

today()-40329

备注：显示的是日期，选择此单元格，将其设置为常规格式，即可。

输入公式：

n(today())

例如，今天这个值是 40330，明天是 40331

您可以使用此值进行调整。

1. 首先输入选项和问题。

2. 按住 alt+F11，将出现以下内容。

窗。 3. 打开**窗口并将以下**复制到其中，私有子工作表 selectionchange（byval target as range） target = target + 1end sub。

4.保存后关闭窗口。

5.最后，点击它，数字会加到一个，然后按 alt+f11 得到后，删除**，保存。

点击查看工具栏 表单菜单打开表单工具栏，选择图表区域后，点击表单工具栏上的 [滚动条] 按钮，然后在图表区域用鼠标左键拖动滚动条。 接下来，右键单击滚动条，在菜单中选择“格式控制”命令，在弹出窗口的“控制”选项卡下通过“最小”、“最大”、“步长”进行设置，在“单元格链接”列中输入“$a$1”，[确定] 退出后，如果拖动滚动条，单元格 A1 中的数据将发生变化。

使用 VBA

函数实现。 private sub worksheet_selectionchange(byval target as range)

on error resume next

if = "$a$3" or = "$b$3" _

or = "$c$3" or = "$d$3" then

end if

end sub

说明：1打开VBA后，在下图左下角的列表中选择要实现此功能的表; 在右侧，选择“selectionchange”功能，当相应的表格发生变化时（例如，单击不同的单元格）会触发该功能。

2.="$a$3"语句中的“$a$3”，也就是你想实现这个功能的单元格，只有当你点击单元格时，单元格中的数据才会自动加1。

3.单击计数单元格后，您需要单击一次其他单元格，然后再次单击以添加 1，以防止错误。 截图：

是的，需要编程。

这是什么意思？ <>

为什么不插入一行并用公式来做呢？ 在粘贴中作为值完成。

此外，根据您的描述，A1 应显示 215

可能不会，如果你这样设置它，就会有一个循环引用。

方法一、使用辅助柱：

例如，在 b 列中输入每月加班时间，在 c2 中输入公式 =if（b2=）"",""，b2*，复制公式。

方法二，如果想在原单元实现，需要使用宏：

例如，如果在 b2：b100 中的区域中输入每月加班时间，请右键单击工作表的名称，查看并粘贴以下内容：

private sub worksheet_selectionchange(byval target as range)

if = 2 and > 2 and <= 100 then '前 2 表示 B 列（第 2 列），后面的 2 和 100 代表第 2 行和第 100 行，可自行更改。

0) = , 0) *'您可以根据实际需要进行更改。

end if

end sub

返回Excel，在B列中输入数据，按回车键跳转到下一个网格，触发宏实现功能。

此功能可以使用VBA进行编程，以对特定单元格的“离开”事件进行编程，即输入单元格并输入一个数字，在离开单元格时触发事件，将您刚刚输入的数字乘以另一个数字。 但是，除非长期大规模地定期使用此功能，否则实际上没有必要编写调试器。

在 Excel 中，有很多方法可以在不编程的情况下做你想做的事。

类型 1：选择性粘贴。

复制“2”单元格。

选择要处理的数据，右键单击 - > Paste Specialty - > Paste Special ......

要处理的值将转换为乘以 2 的结果。

第二种方法：添加辅助列。

在“处理的数据”单元格中，输入公式，使其等于左侧的单元格乘以固定数字。

在原始数据中输入数字时，处理后的数据会自动成为原始数据乘以固定数字的结果。

复制处理后的数据，选择原始数据->右键->粘贴特殊->值，原始数据将成为固定数字相乘的结果。 此时，帮助程序列“已处理的数据”完成任务，我们可以将其删除。

在空白处输入处理因子值，然后复制单元格。

选择要相乘的所有单元格 - 右键单击“选择性粘贴”（Paste Special） - 相乘。

我们用一个辅助的例子，一个例子反映加班时间，另一个例子是加班工资 加班工资=加班时间*正常操作只在加班时间操作，这样加班金额就自动计算出来了。

很简单，加我，我教你。

添加一个具有以下函数的帮助程序列：

if(a1>10,a1-1,a1)

其他单元格可以自动填充。

1.放置在原来的位置，是公式2无法实现的它可以通过宏实现，如果需要，您可以选择任何区域。

宏如下所示。

sub ff()

for i = to +

for j = to +

if cells(i, j).value > 10 thencells(i, j).value = cells(i, j).value - 1

end if

next j

next i

end sub

选择要处理的区域并运行宏。

它可以是中间的任何选定区域，而不需要整行或整列，也可以是一次多行或多列。

添加一个按钮，然后使用以下宏实现它，在第二行 （） 的括号中更改区域的大小。"a1:b20")

private sub commandbutton1_click()for each cle in range("a1:b20")if cle > 10 then cells(, = cle - 1

nextend sub

首先，通过条件格式设置大于 10 的单元格的底纹，在单元格中输入 -1，右键复制，然后点击： - 定位 - 定位 - 定位 - 选择“条件格式”以选择刚刚着色的所有大于 10 的单元格，右键单击其中一个单元格，单击“选择性粘贴”，然后在其中选择“添加”。 结束后，删除所有单元格阴影并将其恢复到原始状态。

例如，数据位于 A 列中。 在B列中输入。

if(a1>10,a1-1,a1)

您可以插入一列，然后在使用公式计算后隐藏原始列。

定义一个全局变量 j，在 for 循环中将 for i=1 写给 j，然后在 commandbutton click 事件进程中设置变量加 1，j=j+1